Test output for ftl

Testing time: 8.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm

-- testing  ------------------------------------------------------------------
(%e=? e=v) ........................................................... [ PASS]
((%oe>? oe=number) 4 3) .............................................. [ PASS]
((%oe>? oe=number) 4 4) .............................................. [ PASS]
((%oe>=? oe=number) 4 4) ............................................. [ PASS]
((%oe<=? oe=number) 4 4) ............................................. [ PASS]
((%oe<=? oe=number) 5 4) ............................................. [ PASS]
((%e=? (e=%oe oe=string-ci)) "abc" "ABC") ............................ [ PASS]
((%x x=add1) 1) ...................................................... [ PASS]
((%t? (t=%x&%t x=integer->char t=char-ci)) 65 #\a) ................... [ PASS]
((%t? t=if-not) 3 odd?) .............................................. [ PASS]
((%g-fold g=iota) cons '() 10) ....................................... [ PASS]
((%g-fold g=vector) + 0 '#(20 30 50)) ................................ [ PASS]
((%g-fold g=vector) + 10 (sub '#(20 30 50) 0 2)) ..................... [ PASS]
((%oe-max oe=number) 3 2 9 1 4) ...................................... [ PASS]
((%oe-min oe=char-ci) #\B #\c #\a #\D) ............................... [ PASS]
((%v-null? v=vector) '#()) ........................................... [ PASS]
((%v-null? v=string) "a") ............................................ [ PASS]
((sub%mv mv=string) "hello, world!" 2 4) ............................. [ PASS]
((%mv-copy mv=string) "hello, world!") ............................... [ PASS]
((%mv-copy mv=string) (sub "hello, world!" 2 4)) ..................... [ PASS]
(let ((x (vector 1 2 3))) ((%mv-fill! mv=vector) x 44) x) ............ [ PASS]
...x ................................................................. [ PASS]
((%mv-append mv=string) "Franz" " " "Liszt") ......................... [ PASS]
((%mv-append mv=string) "Franz" (sub "[ ]" 1 2) "Liszt") ............. [ PASS]
((%v-fold-left v=vector) cons '() '#(1 2 3 4 5)) ..................... [ PASS]
((%v-fold-right v=vector) cons '() '#(1 2 3 4 5)) .................... [ PASS]
((%v->%mv v=string mv=vector) "Franz Liszt") ......................... [ PASS]
...x ................................................................. [ PASS]
...x ................................................................. [ PASS]
...x ................................................................. [ PASS]
((%mv mv=vector) 44 #\a 12) .......................................... [ PASS]
(let ((a '#(3 5 1 2 4 7 6))) ((%mv-sort! mv=vector) a <) a) .......... [ PASS]
((%g-length g=iota) 44) .............................................. [ PASS]
((%g-length g=file) "../ftl.scm") .................................... [ PASS]
0123456789
0123456789
9876543210
9876543210
((%g-last g=list) '(0 1 2 3 4 5 6 7 8 9)) ............................ [ PASS]
((%g-last g=file) "../ftl.scm") ...................................... [ PASS]
((%g-count-%t g=list t=if) even? '(0 1 2 3 4)) ....................... [ PASS]
((%g-count-%t g=char-port t=char-ci) #\a (open-input-string "Ab... ... [ PASS]
((%g-last-%t g=list t=if-not) even? '(0 1 2 3 4)) .................... [ PASS]
((%g->%o g=string o=list) "hello") ................................... [ PASS]
((%g->%o g=list o=list) '(1 2 3 4 5)) ................................ [ PASS]
((%g->%o g=list o=product) '(1 2 3 4 5)) ............................. [ PASS]
((%g-append->%o g=string o=list) "Hello" ", " "FTL!") ................ [ PASS]
((%g-append->%o* g=list o=max) '(1 4 2 5) '(3 5 6) 0) ................ [ PASS]
((%g-append->%o* g=list o=reverse-list) '(1 4 2 5) '(3 5 6) 0) ....... [ PASS]
((%g->%o/%g-splicing g=list o=list g=string) '("He" "llo" ", FT... ... [ PASS]
((%g-map1->%o g=string o=list) char-upcase "hello") .................. [ PASS]
((%g-map1->%o/%g-splicing g=string o=list g=list) (lambda (c) (... ... [ PASS]
((%g-remove-%t->%o g=string t=char-ci o=list) #\l "Hello, FTL!") ..... [ PASS]
(receive ((%g-partition-%t->%o+%o g=string t=char-ci o=list o=r... ... [ PASS]
((%g-filter-map1->%o g=string o=list) (lambda (c) (and (char-lo... ... [ PASS]
((%g-substitute-%t->%o g=string t=char-ci o=list) #\* #\l "Hell... ... [ PASS]
52 tests completed in 0.114 seconds.
52 out of 52 (100%) tests passed.
-- done testing  -------------------------------------------------------------