diff options
Diffstat (limited to '')
-rw-r--r-- | tests/util.scm | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/tests/util.scm b/tests/util.scm deleted file mode 100644 index 721b7e1b..00000000 --- a/tests/util.scm +++ /dev/null @@ -1,81 +0,0 @@ -;;; Commentary: -;; Checks some prodecuders from (hnh util) -;;; Code: - -(((hnh util) filter-sorted set/r! - find-min find-max span-upto - iterate ->string ->quoted-string - begin1) - ((hnh util path) path-append) - ((ice-9 ports) with-output-to-string) - ) - -(test-equal "Filter sorted" - '(3 4 5) - (filter-sorted (lambda (x) (<= 3 x 5)) (iota 10))) - -(test-equal "set/r! = single" - #f - (let ((x #t)) - (set/r! x = not))) - -(test-error - 'syntax-error - (test-read-eval-string "(set/r! x err not)")) - - -(call-with-values (lambda () (find-min (iota 10))) - (lambda (extreme rest) - (test-equal "Found correct minimum" - 0 extreme) - (test-equal "Removed \"something\" from the set" - 9 (length rest)))) - - -(call-with-values (lambda () (find-max '("Hello" "Test" "Something long") string-length)) - (lambda (extreme rest) - (test-equal "Found the longest string" "Something long" extreme) - (test-equal "Removed the string" 2 (length rest)) - (test-assert "Other members left 1" (member "Hello" rest)) - (test-assert "Other members left 2" (member "Test" rest)))) - - -(test-error 'misc-error (find-extreme '())) - -(call-with-values (lambda () (span-upto 2 char-numeric? (string->list "123456"))) - (lambda (head tail) - (test-equal '(#\1 #\2) head) - (test-equal '(#\3 #\4 #\5 #\6) tail))) - -(call-with-values (lambda () (span-upto 2 char-numeric? (string->list "H123456"))) - (lambda (head tail) - (test-equal '() head) - (test-equal '(#\H #\1 #\2 #\3 #\4 #\5 #\6) tail))) - - -(test-equal "begin1 side effects" "World" - (with-output-to-string - (lambda () - (test-equal "begin1 return value" "Hello" - (begin1 - "Hello" - (display "World")))))) - - -(test-equal 0 (iterate 1- zero? 10)) - - - -(test-equal "5" (->string 5)) -(test-equal "5" (->string "5")) - -(test-equal "5" (->quoted-string 5)) -(test-equal "\"5\"" (->quoted-string "5")) - - -(test-equal "/home/hugo/" - (path-append "/home" "hugo/")) - -(test-equal "/home/hugo/" (path-append "/" "/home/" "/hugo/")) - -(test-equal "/" (path-append "")) |