mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(break): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2004-12-06 00:41:41 +00:00
parent ba94ef0c7f
commit f0d1bc09cf
1 changed files with 59 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

59
test-suite/tests/srfi-1.test
View file

@ -201,6 +201,65 @@
(pass-if "(1) (2) / 9 9"
(equal? '(1 2) (append-map noop '((1) (2)) '(9 9))))))
;;
;; break
;;
(with-test-prefix "break"
(define (test-break lst want-v1 want-v2)
(call-with-values
(lambda ()
(break negative? lst))
(lambda (got-v1 got-v2)
(and (equal? got-v1 want-v1)
(equal? got-v2 want-v2)))))
(pass-if "empty"
(test-break '() '() '()))
(pass-if "y"
(test-break '(1) '(1) '()))
(pass-if "n"
(test-break '(-1) '() '(-1)))
(pass-if "yy"
(test-break '(1 2) '(1 2) '()))
(pass-if "ny"
(test-break '(-1 1) '() '(-1 1)))
(pass-if "yn"
(test-break '(1 -1) '(1) '(-1)))
(pass-if "nn"
(test-break '(-1 -2) '() '(-1 -2)))
(pass-if "yyy"
(test-break '(1 2 3) '(1 2 3) '()))
(pass-if "nyy"
(test-break '(-1 1 2) '() '(-1 1 2)))
(pass-if "yny"
(test-break '(1 -1 2) '(1) '(-1 2)))
(pass-if "nny"
(test-break '(-1 -2 1) '() '(-1 -2 1)))
(pass-if "yyn"
(test-break '(1 2 -1) '(1 2) '(-1)))
(pass-if "nyn"
(test-break '(-1 1 -2) '() '(-1 1 -2)))
(pass-if "ynn"
(test-break '(1 -1 -2) '(1) '(-1 -2)))
(pass-if "nnn"
(test-break '(-1 -2 -3) '() '(-1 -2 -3))))
;;
;; concatenate and concatenate!
;;