30 lines
913 B
Scheme
30 lines
913 B
Scheme
(load "mkly")
|
|
|
|
(define (mkly-tests)
|
|
(list
|
|
#:parent
|
|
(equal? (parent "foo/bar") "foo/")
|
|
(equal? (parent "foo") #f)
|
|
#:file-name-part
|
|
(equal? "-foo" (file-name-part "foo"))
|
|
(equal? "" (file-name-part #f))
|
|
;; #:use-dir!
|
|
;; #:vcs-current-branch
|
|
#:flatten
|
|
(equal? (flatten '(1 "a" b (c "d" 3)))
|
|
'(1 "a" b c "d" 3))
|
|
#:list->command-line
|
|
(equal? (list->command-line '(1 "a" b (c "d" 3)))
|
|
"1 \"a\" b c \"d\" 3 ")
|
|
#:select-rule
|
|
(let ((rules '((all 1) (dev 2) (main.ly 3) ("part-.*\\.ly" 4) (else 5))))
|
|
(list
|
|
(equal? (select-rule rules "") '(all 1))
|
|
(equal? (select-rule rules "all") '(all 1))
|
|
(equal? (select-rule rules "dev") '(dev 2))
|
|
(equal? (select-rule rules "main.ly") '(main.ly 3))
|
|
(equal? (select-rule rules "part-flute.ly") '("part-.*\\.ly" 4))
|
|
(equal? (select-rule rules "frobnicate") #f)))))
|
|
|
|
(mkly-tests)
|