Test output for callable-data-structures [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

-- testing callable-data-structures ------------------------------------------

    -- testing hash-tables ---------------------------------------------------
    (h 'foo) ......................................................... [ PASS]
    (h 'bar) ......................................................... [ PASS]
    (h 'foo) ......................................................... [ PASS]
    (n 1) ............................................................ [ PASS]
    (n 2) ............................................................ [ PASS]
    (sort (map car (hash-table->alist (n))) <) ....................... [ PASS]
    (callable-hash-table? h) ......................................... [ PASS]
    (not (callable-hash-table? (lambda () 'foo))) .................... [ PASS]
    (null? (hash-table->alist (c))) .................................. [ PASS]
    (c 'foo) ......................................................... [ PASS]
    10 tests completed in 0.001 seconds.
    10 out of 10 (100%) tests passed.
    -- done testing hash-tables ----------------------------------------------


    -- testing vectors -------------------------------------------------------
    (v 0) ............................................................ [ PASS]
    (v 1) ............................................................ [ PASS]
    (v 2) ............................................................ [ PASS]
    (v 1) ............................................................ [ PASS]
    (v) .............................................................. [ PASS]
    (callable-vector? v) ............................................. [ PASS]
    (not (callable-vector? (lambda () 'foo))) ........................ [ PASS]
    7 tests completed in 0.0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing vectors --------------------------------------------------


    -- testing strings -------------------------------------------------------
    (s 0) ............................................................ [ PASS]
    (s 1) ............................................................ [ PASS]
    (s 2) ............................................................ [ PASS]
    (s 0) ............................................................ [ PASS]
    (s) .............................................................. [ PASS]
    (callable-string? s) ............................................. [ PASS]
    (not (callable-string? (lambda () 'foo))) ........................ [ PASS]
    7 tests completed in 0.0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing strings --------------------------------------------------


    -- testing lists ---------------------------------------------------------
    (l 0) ............................................................ [ PASS]
    (l 1) ............................................................ [ PASS]
    (l 2) ............................................................ [ PASS]
    (l 1) ............................................................ [ PASS]
    (l) .............................................................. [ PASS]
    (callable-list? l) ............................................... [ PASS]
    (not (callable-list? (lambda () 'foo))) .......................... [ PASS]
    7 tests completed in 0.0 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing lists ----------------------------------------------------


    -- testing alists --------------------------------------------------------
    (a 'foo) ......................................................... [ PASS]
    (a 'bar) ......................................................... [ PASS]
    (a 'foo) ......................................................... [ PASS]
    (sort (map cdr (a)) <) ........................................... [ PASS]
    (b) .............................................................. [ PASS]
    (a 'baz) ......................................................... [ PASS]
    (callable-alist? a) .............................................. [ PASS]
    (not (callable-alist? (lambda () 'foo))) ......................... [ PASS]
    (null? (c)) ...................................................... [ PASS]
    (c 'foo) ......................................................... [ PASS]
    (null? (s)) ...................................................... [ PASS]
    (s "foo") ........................................................ [ PASS]
    12 tests completed in 0.002 seconds.
    12 out of 12 (100%) tests passed.
    -- done testing alists ---------------------------------------------------

5 subgroups completed in 0.047 seconds.
5 out of 5 (100%) subgroups passed.
-- done testing callable-data-structures -------------------------------------