Overview
| Comment: | Eliminate the testing of multi-glob |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
bce20f2af9049caf12c4cab893672a0c |
| User & Date: | mrwellan on 2019-11-25 10:56:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-12-03
| ||
| 22:50 | removed reference to open-run-close-no-exception-handling since it was removed in db.scm. This fixes -debug 3 and higher. check-in: 02787730a2 user: mmgraham tags: v1.65 | |
|
2019-11-25
| ||
| 10:56 | Eliminate the testing of multi-glob check-in: bce20f2af9 user: mrwellan tags: v1.65 | |
|
2019-11-22
| ||
| 12:54 | Improved the path glob tests check-in: c522956909 user: mrwellan tags: v1.65 | |
Changes
Modified path-glob/test.scm from [6e4b85d0ba] to [66f288bdb2].
1 2 3 | (use test posix srfi-1) (load "path-glob.scm") | | > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 |
(use test posix srfi-1)
(load "path-glob.scm")
;; (define globbers `((multi-glob . ,multi-glob)(path-glob . ,path-glob)))
(define globbers `((path-glob . ,path-glob)))
(define interesting-patts '("../*/*" "/*/bin/*" "./*/bin/*"))
(define simple-patts '("../*" "/*" "/bin/*" "." ".." "*" "a[0-1]*"))
(define (trim-list lst)
(if (> (length lst) 3)
(append (take lst 3) '(...))
lst))
|
| ︙ | ︙ | |||
25 26 27 28 29 30 31 |
simple-patts))
(map car globbers))
(print "\nTest the globbers against patts - only checks for resiliance, not correctness.")
(for-each
(lambda (patt)
(generate-prefix patt)(test #f #t (list? (path-glob patt)))
| | | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
simple-patts))
(map car globbers))
(print "\nTest the globbers against patts - only checks for resiliance, not correctness.")
(for-each
(lambda (patt)
(generate-prefix patt)(test #f #t (list? (path-glob patt)))
;; (generate-prefix patt)(test #f #t (list? (multi-glob patt)))
)
interesting-patts)
(print "\nCompare the globbers against each other")
#;(for-each
(lambda (patt)
(generate-prefix patt)
(test #f '() (trim-list
(lset-xor string=? (path-glob patt)(multi-glob patt)))))
interesting-patts)
(test-exit)
|