30
31
32
33
34
35
36
37
38
39
40
41
42
|
(let* ((unit-test-name (list-ref (argv) 4))
(fname (conc "../unittests/" unit-test-name ".scm")))
(if (file-exists? fname)
(load fname)
(print "ERROR: Unit test " unit-test-name " not found in unittests directory")))
(list "abc" "abc/%" "ab%/c%" "~abc/c%" "abc/~c%" "a,b/c,%/d" "%/,%/a" "%/,%/a" "%/,%/a" "%" "%" "%/" "%/" "%abc%")
(list "abc" "abc" "abcd" "abc" "abc" "a" "abc" "def" "ghi" "a" "a" "a" "a" "abc")
(list "" "" "cde" "cde" "cde" "" "" "a" "b" "" "b" "" "b" "abc")
(list #t #t #t #f #f #t #t #t #f #t #t #t #f #t))
|
|
|
|
|
|
|
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(let* ((unit-test-name (list-ref (argv) 4))
(fname (conc "../unittests/" unit-test-name ".scm")))
(if (file-exists? fname)
(load fname)
(print "ERROR: Unit test " unit-test-name " not found in unittests directory")))
;;; huh? why is this here?
;; (list "abc" "abc/%" "ab%/c%" "~abc/c%" "abc/~c%" "a,b/c,%/d" "%/,%/a" "%/,%/a" "%/,%/a" "%" "%" "%/" "%/" "%abc%")
;; (list "abc" "abc" "abcd" "abc" "abc" "a" "abc" "def" "ghi" "a" "a" "a" "a" "abc")
;; (list "" "" "cde" "cde" "cde" "" "" "a" "b" "" "b" "" "b" "abc")
;; (list #t #t #t #f #f #t #t #t #f #t #t #t #f #t)
|