98 lines
2.3 KiB
Plaintext
98 lines
2.3 KiB
Plaintext
|
#!/usr/bin/env sh
|
||
|
|
exec guile -L . -s "$0" "$@"
|
||
|
|
!#
|
||
|
|
|
||
|
|
(use-modules (potato make)
|
||
|
|
(srfi srfi-1)
|
||
|
|
(srfi srfi-64))
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; RECIPE HELPERS
|
||
|
|
|
||
|
|
(test-begin "recipe_helpers")
|
||
|
|
|
||
|
|
(test-assert "initialize"
|
||
|
|
(initialize))
|
||
|
|
|
||
|
|
(test-assert "String-compose returns 'default and procedure."
|
||
|
|
(let ((ret (~ "hello")))
|
||
|
|
(and
|
||
|
|
(eq? (car ret) 'default)
|
||
|
|
(procedure? (cdr ret)))))
|
||
|
|
|
||
|
|
(test-assert "Silent-compose returns 'silent and procedure."
|
||
|
|
(let ((ret (~@ "hello")))
|
||
|
|
(and
|
||
|
|
(eq? (car ret) 'silent)
|
||
|
|
(procedure? (cdr ret)))))
|
||
|
|
|
||
|
|
(test-assert "Always-execute-compose returns 'always-execute and procedure."
|
||
|
|
(let ((ret (~+ "hello")))
|
||
|
|
(and
|
||
|
|
(eq? (car ret) 'always-execute)
|
||
|
|
(procedure? (cdr ret)))))
|
||
|
|
|
||
|
|
(test-assert "Ignore-error-compose returns 'ignore-error and procedure."
|
||
|
|
(let ((ret (~- "hello")))
|
||
|
|
(and
|
||
|
|
(eq? (car ret) 'ignore-error)
|
||
|
|
(procedure? (cdr ret)))))
|
||
|
|
|
||
|
|
(test-equal "String-compose passes through strings."
|
||
|
|
"hello"
|
||
|
|
(let ((ret (~ "hello")))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose concatenates strings with an added space."
|
||
|
|
"hello world"
|
||
|
|
(let ((ret (~ "hello" "world")))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose doesn't add a space after a null string."
|
||
|
|
"world"
|
||
|
|
(let ((ret (~ "" "world")))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose doesn't add a space before a null string."
|
||
|
|
"hello"
|
||
|
|
(let ((ret (~ "hello" "")))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose adds a space in lieu of a null medial string."
|
||
|
|
"hello world"
|
||
|
|
(let ((ret (~ "hello" "" "world")))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose handles procedure elements."
|
||
|
|
"hello world"
|
||
|
|
(let ((ret (~ "hello" (lambda () "world"))))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose handles integer elements."
|
||
|
|
"hello 123"
|
||
|
|
(let ((ret (~ "hello" 123)))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose handles character elements."
|
||
|
|
"hello w"
|
||
|
|
(let ((ret (~ "hello" #\w)))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-equal "String-compose handles makevar elements."
|
||
|
|
"hello BAR"
|
||
|
|
(begin
|
||
|
|
(:= FOO "BAR")
|
||
|
|
(let ((ret (~ "hello" ($ FOO))))
|
||
|
|
((cdr ret)))))
|
||
|
|
|
||
|
|
(test-equal "An empty string-compose returns a null string."
|
||
|
|
""
|
||
|
|
(let ((ret (~)))
|
||
|
|
((cdr ret))))
|
||
|
|
|
||
|
|
(test-end "recipe_helpers")
|
||
|
|
|
||
|
|
;; Local Variables:
|
||
|
|
;; mode: scheme
|
||
|
|
;; End:
|