Test output for srfi-113 [ok]

Testing time: 1s

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

Warning: imported identifier doesn't exist in module chicken: export

-- testing sets --------------------------------------------------------------

    -- testing sets ----------------------------------------------------------

        -- testing sets/simple -----------------------------------------------
        (set-empty? esyms) ........................................... [ PASS]
        (set? nums) .................................................. [ PASS]
        (set? syms) .................................................. [ PASS]
        (set? nums2) ................................................. [ PASS]
        (set? syms2) ................................................. [ PASS]
        (not (set? 'a)) .............................................. [ PASS]
        (set-size (set-adjoin nums 5)) ............................... [ PASS]
        (set-size nums) .............................................. [ PASS]
        (set-size (set-delete syms 'd)) .............................. [ PASS]
        (set-size (set-delete-all syms '(c d))) ...................... [ PASS]
        (set-size syms) .............................................. [ PASS]
        (set-size (set-delete-all! syms '(e f))) ..................... [ PASS]
        (set-size nums2) ............................................. [ PASS]
        (set-size syms2) ............................................. [ PASS]
        (set-size nums) .............................................. [ PASS]
        (set-size nums) .............................................. [ PASS]
        (set-contains? nums2 30) ..................................... [ PASS]
        (not (set-contains? nums2 3)) ................................ [ PASS]
        total ........................................................ [ PASS]
        (set-fold + 3 nums) .......................................... [ PASS]
        (set=? nums (set-unfold (lambda (i) (= i 0)) (lambda (i) (* i 1...  [ PASS]
        (set->list (set eq-comparator 'a)) ........................... [ PASS]
        (set-size syms2) ............................................. [ PASS]
        (set-contains? syms2 'e) ..................................... [ PASS]
        (set-contains? syms2 'f) ..................................... [ PASS]
        (set-size syms2) ............................................. [ PASS]
        26 tests completed in 0.002 seconds.
        26 out of 26 (100%) tests passed.
        -- done testing sets/simple ------------------------------------------


        -- testing sets/search -----------------------------------------------
        (set=? yam! set1) ............................................ [ PASS]
        obj1 ......................................................... [ PASS]
        (set=? yam set2) ............................................. [ PASS]
        obj2 ......................................................... [ PASS]
        (set=? bam set3) ............................................. [ PASS]
        obj3 ......................................................... [ PASS]
        (set=? ym set4) .............................................. [ PASS]
        obj4 ......................................................... [ PASS]
        8 tests completed in 0.001 seconds.
        8 out of 8 (100%) tests passed.
        -- done testing sets/search ------------------------------------------


        -- testing sets/subsets ----------------------------------------------
        (set=? set2 other-set2) ...................................... [ PASS]
        (not (set=? set2 set3)) ...................................... [ PASS]
        (not (set=? set2 set3 other-set2)) ........................... [ PASS]
        (set<? set2 set3 set4) ....................................... [ PASS]
        (not (set<? set2 other-set2)) ................................ [ PASS]
        (set<=? set2 other-set2 set3) ................................ [ PASS]
        (not (set<=? set2 set3 other-set2)) .......................... [ PASS]
        (set>? set4 set3 set2) ....................................... [ PASS]
        (not (set>? set2 other-set2)) ................................ [ PASS]
        (set>=? set3 other-set2 set2) ................................ [ PASS]
        (not (set>=? other-set2 set3 set2)) .......................... [ PASS]
        11 tests completed in 0.001 seconds.
        11 out of 11 (100%) tests passed.
        -- done testing sets/subsets -----------------------------------------


        -- testing sets/ops --------------------------------------------------
        (set-disjoint? abcd efgh) .................................... [ PASS]
        (not (set-disjoint? abcd ab)) ................................ [ PASS]
        (set-union abcd) ............................................. [ PASS]
        (set-union abcd efgh) ........................................ [ PASS]
        (set-union abcd abgh) ........................................ [ PASS]
        (set-union efgh abgh) ........................................ [ PASS]
        efgh2 ........................................................ [ PASS]
        efgh2 ........................................................ [ PASS]
        (set-intersection abcd) ...................................... [ PASS]
        (set-intersection abcd efgh) ................................. [ PASS]
        abcd2 ........................................................ [ PASS]
        abcd2 ........................................................ [ PASS]
        (set-intersection abcd abgh) ................................. [ PASS]
        (set-intersection abgh abcd) ................................. [ PASS]
        (set-difference abcd) ........................................ [ PASS]
        (set-difference abcd ab) ..................................... [ PASS]
        (set-difference abcd gh) ..................................... [ PASS]
        (set-difference abcd abcd) ................................... [ PASS]
        abcd3 ........................................................ [ PASS]
        abcd3 ........................................................ [ PASS]
        (set-xor abcd abgh) .......................................... [ PASS]
        (set-xor abcd efgh) .......................................... [ PASS]
        (set-xor abcd other-abcd) .................................... [ PASS]
        (set-xor! abcd4 other-abcd) .................................. [ PASS]
        abcd smashed? ................................................ [ PASS]
        efgh smashed? ................................................ [ PASS]
        abgh smashed? ................................................ [ PASS]
        27 tests completed in 0.005 seconds.
        27 out of 27 (100%) tests passed.
        -- done testing sets/ops ---------------------------------------------


        -- testing sets/mismatch ---------------------------------------------
        (set=? nums syms) ............................................ [ PASS]
        (set<? nums syms) ............................................ [ PASS]
        (set<=? nums syms) ........................................... [ PASS]
        (set>? nums syms) ............................................ [ PASS]
        (set>=? nums syms) ........................................... [ PASS]
        (set-union nums syms) ........................................ [ PASS]
        (set-intersection nums syms) ................................. [ PASS]
        (set-difference nums syms) ................................... [ PASS]
        (set-xor nums syms) .......................................... [ PASS]
        (set-union! nums syms) ....................................... [ PASS]
        (set-intersection! nums syms) ................................ [ PASS]
        (set-difference! nums syms) .................................. [ PASS]
        (set-xor! nums syms) ......................................... [ PASS]
        13 tests completed in 0.001 seconds.
        13 out of 13 (100%) tests passed.
        -- done testing sets/mismatch ----------------------------------------


        -- testing sets/whole ------------------------------------------------
        (set-filter big whole) ....................................... [ PASS]
        (set-remove big whole) ....................................... [ PASS]
        (not (set-contains? whole2 1)) ............................... [ PASS]
        (not (set-contains? whole3 10)) .............................. [ PASS]
        topx ......................................................... [ PASS]
        bottomx ...................................................... [ PASS]
        whole4 ....................................................... [ PASS]
        (set-count big whole) ........................................ [ PASS]
        (set-find symbol? hetero (lambda () (error "wrong"))) ........ [ PASS]
        (set-find symbol? homo (lambda () (error "wrong"))) .......... [ PASS]
        (set-any? symbol? hetero) .................................... [ PASS]
        (set-any? number? hetero) .................................... [ PASS]
        (not (set-every? symbol? hetero)) ............................ [ PASS]
        (not (set-every? number? hetero)) ............................ [ PASS]
        (not (set-any? symbol? homo)) ................................ [ PASS]
        (set-every? number? homo) .................................... [ PASS]
        16 tests completed in 0.002 seconds.
        16 out of 16 (100%) tests passed.
        -- done testing sets/whole -------------------------------------------


        -- testing sets/lowlevel ---------------------------------------------
        (set-element-comparator bucket) .............................. [ PASS]
        (set-contains? bucket "abc") ................................. [ PASS]
        (set-contains? bucket "ABC") ................................. [ PASS]
        (set-member bucket "DEF" "fqz") .............................. [ PASS]
        (set-member bucket "lmn" "fqz") .............................. [ PASS]
        (set-any? inexact? nums2) .................................... [ PASS]
        (set-any? inexact? nums) ..................................... [ PASS]
        (set-size sos) ............................................... [ PASS]
        8 tests completed in 0.001 seconds.
        8 out of 8 (100%) tests passed.
        -- done testing sets/lowlevel ----------------------------------------

    7 subgroups completed in 0.015 seconds.
    7 out of 7 (100%) subgroups passed.
    -- done testing sets -----------------------------------------------------


    -- testing bags ----------------------------------------------------------

        -- testing bags/simple -----------------------------------------------
        (bag-empty? esyms) ........................................... [ PASS]
        (bag? nums) .................................................. [ PASS]
        (bag? syms) .................................................. [ PASS]
        (bag? nums2) ................................................. [ PASS]
        (bag? syms2) ................................................. [ PASS]
        (not (bag? 'a)) .............................................. [ PASS]
        (bag-size (bag-adjoin nums 5)) ............................... [ PASS]
        (bag-size nums) .............................................. [ PASS]
        (bag-size (bag-delete syms 'd)) .............................. [ PASS]
        (bag-size (bag-delete-all syms '(c d))) ...................... [ PASS]
        (bag-size syms) .............................................. [ PASS]
        (bag-size (bag-delete-all! syms '(e f))) ..................... [ PASS]
        (bag-size nums) .............................................. [ PASS]
        (bag-size nums) .............................................. [ PASS]
        (bag-contains? nums2 30) ..................................... [ PASS]
        (not (bag-contains? nums2 3)) ................................ [ PASS]
        total ........................................................ [ PASS]
        (bag-fold + 3 nums) .......................................... [ PASS]
        (bag=? nums (bag-unfold (lambda (i) (= i 0)) (lambda (i) (* i 1...  [ PASS]
        (bag->list (bag eq-comparator 'a)) ........................... [ PASS]
        (bag-size syms2) ............................................. [ PASS]
        (bag-contains? syms2 'e) ..................................... [ PASS]
        (bag-contains? syms2 'f) ..................................... [ PASS]
        (bag-size syms2) ............................................. [ PASS]
        24 tests completed in 0.003 seconds.
        24 out of 24 (100%) tests passed.
        -- done testing bags/simple ------------------------------------------


        -- testing bags/search -----------------------------------------------
        (bag=? yam! bag1) ............................................ [ PASS]
        obj1 ......................................................... [ PASS]
        (bag=? yam bag2) ............................................. [ PASS]
        obj2 ......................................................... [ PASS]
        (bag=? bam bag3) ............................................. [ PASS]
        obj3 ......................................................... [ PASS]
        (bag=? ym bag4) .............................................. [ PASS]
        obj4 ......................................................... [ PASS]
        8 tests completed in 0.001 seconds.
        8 out of 8 (100%) tests passed.
        -- done testing bags/search ------------------------------------------


        -- testing bags/elemcount --------------------------------------------
        (bag-element-count mybag 1) .................................. [ PASS]
        (bag-element-count mybag 3) .................................. [ PASS]
        2 tests completed in 0.0 seconds.
        2 out of 2 (100%) tests passed.
        -- done testing bags/elemcount ---------------------------------------


        -- testing bags/subbags ----------------------------------------------
        (bag=? bag2 other-bag2) ...................................... [ PASS]
        (not (bag=? bag2 bag3)) ...................................... [ PASS]
        (not (bag=? bag2 bag3 other-bag2)) ........................... [ PASS]
        (bag<? bag2 bag3 bag4) ....................................... [ PASS]
        (not (bag<? bag2 other-bag2)) ................................ [ PASS]
        (bag<=? bag2 other-bag2 bag3) ................................ [ PASS]
        (not (bag<=? bag2 bag3 other-bag2)) .......................... [ PASS]
        (bag>? bag4 bag3 bag2) ....................................... [ PASS]
        (not (bag>? bag2 other-bag2)) ................................ [ PASS]
        (bag>=? bag3 other-bag2 bag2) ................................ [ PASS]
        (not (bag>=? other-bag2 bag3 bag2)) .......................... [ PASS]
        11 tests completed in 0.002 seconds.
        11 out of 11 (100%) tests passed.
        -- done testing bags/subbags -----------------------------------------


        -- testing bags/multi ------------------------------------------------
        (not (bag=? one two)) ........................................ [ PASS]
        (bag<? one two) .............................................. [ PASS]
        (not (bag>? one two)) ........................................ [ PASS]
        (bag<=? one two) ............................................. [ PASS]
        (not (bag>? one two)) ........................................ [ PASS]
        (bag=? two two) .............................................. [ PASS]
        (not (bag<? two two)) ........................................ [ PASS]
        (not (bag>? two two)) ........................................ [ PASS]
        (bag<=? two two) ............................................. [ PASS]
        (bag>=? two two) ............................................. [ PASS]
        ...result .................................................... [ PASS]
        (bag-fold + 5 two) ........................................... [ PASS]
        (bag-fold-unique (lambda (k n r) (+ k n r)) 0 two) ........... [ PASS]
        13 tests completed in 0.001 seconds.
        13 out of 13 (100%) tests passed.
        -- done testing bags/multi -------------------------------------------


        -- testing bags/ops --------------------------------------------------
        (bag-disjoint? abcd efgh) .................................... [ PASS]
        (not (bag-disjoint? abcd ab)) ................................ [ PASS]
        (bag-union abcd) ............................................. [ PASS]
        (bag-union abcd efgh) ........................................ [ PASS]
        (bag-union abcd abgh) ........................................ [ PASS]
        (bag-union efgh abgh) ........................................ [ PASS]
        efgh2 ........................................................ [ PASS]
        efgh2 ........................................................ [ PASS]
        (bag-intersection abcd) ...................................... [ PASS]
        (bag-intersection abcd efgh) ................................. [ PASS]
        abcd2 ........................................................ [ PASS]
        abcd2 ........................................................ [ PASS]
        (bag-intersection abcd abgh) ................................. [ PASS]
        (bag-intersection abgh abcd) ................................. [ PASS]
        (bag-difference abcd) ........................................ [ PASS]
        (bag-difference abcd ab) ..................................... [ PASS]
        (bag-difference abcd gh) ..................................... [ PASS]
        (bag-difference abcd abcd) ................................... [ PASS]
        abcd3 ........................................................ [ PASS]
        abcd3 ........................................................ [ PASS]
        (bag-xor abcd abgh) .......................................... [ PASS]
        (bag-xor abcd efgh) .......................................... [ PASS]
        (bag-xor abcd other-abcd) .................................... [ PASS]
        (bag-xor! abcd4 other-abcd) .................................. [ PASS]
        (bag-sum ab) ................................................. [ PASS]
        (bag-sum! ab2) ............................................... [ PASS]
        (bag-sum! ab2 ab) ............................................ [ PASS]
        ab2 .......................................................... [ PASS]
        (bag-product 2 ab) ........................................... [ PASS]
        ab3 .......................................................... [ PASS]
        abcd smashed? ................................................ [ PASS]
        abcd smashed? ................................................ [ PASS]
        efgh smashed? ................................................ [ PASS]
        abgh smashed? ................................................ [ PASS]
        34 tests completed in 0.006 seconds.
        34 out of 34 (100%) tests passed.
        -- done testing bags/ops ---------------------------------------------


        -- testing bags/mismatch ---------------------------------------------
        (bag=? nums syms) ............................................ [ PASS]
        (bag<? nums syms) ............................................ [ PASS]
        (bag<=? nums syms) ........................................... [ PASS]
        (bag>? nums syms) ............................................ [ PASS]
        (bag>=? nums syms) ........................................... [ PASS]
        (bag-union nums syms) ........................................ [ PASS]
        (bag-intersection nums syms) ................................. [ PASS]
        (bag-difference nums syms) ................................... [ PASS]
        (bag-xor nums syms) .......................................... [ PASS]
        (bag-union! nums syms) ....................................... [ PASS]
        (bag-intersection! nums syms) ................................ [ PASS]
        (bag-difference! nums syms) .................................. [ PASS]
        12 tests completed in 0.001 seconds.
        12 out of 12 (100%) tests passed.
        -- done testing bags/mismatch ----------------------------------------


        -- testing bags/whole ------------------------------------------------
        (bag-filter big whole) ....................................... [ PASS]
        (bag-remove big whole) ....................................... [ PASS]
        (not (bag-contains? whole2 1)) ............................... [ PASS]
        (not (bag-contains? whole3 10)) .............................. [ PASS]
        topx ......................................................... [ PASS]
        bottomx ...................................................... [ PASS]
        whole4 ....................................................... [ PASS]
        (bag-count big whole) ........................................ [ PASS]
        (bag-find symbol? hetero (lambda () (error "wrong"))) ........ [ PASS]
        (bag-find symbol? homo (lambda () (error "wrong"))) .......... [ PASS]
        (bag-any? symbol? hetero) .................................... [ PASS]
        (bag-any? number? hetero) .................................... [ PASS]
        (not (bag-every? symbol? hetero)) ............................ [ PASS]
        (not (bag-every? number? hetero)) ............................ [ PASS]
        (not (bag-any? symbol? homo)) ................................ [ PASS]
        (bag-every? number? homo) .................................... [ PASS]
        16 tests completed in 0.002 seconds.
        16 out of 16 (100%) tests passed.
        -- done testing bags/whole -------------------------------------------


        -- testing bags/lowlevel ---------------------------------------------
        (bag-element-comparator bucket) .............................. [ PASS]
        (bag-contains? bucket "abc") ................................. [ PASS]
        (bag-contains? bucket "ABC") ................................. [ PASS]
        (bag-member bucket "DEF" "fqz") .............................. [ PASS]
        (bag-member bucket "lmn" "fqz") .............................. [ PASS]
        (bag-any? inexact? nums2) .................................... [ PASS]
        (bag-any? inexact? nums) ..................................... [ PASS]
        (bag-size bob) ............................................... [ PASS]
        8 tests completed in 0.001 seconds.
        8 out of 8 (100%) tests passed.
        -- done testing bags/lowlevel ----------------------------------------


        -- testing bags/semantics --------------------------------------------
        (bag-size mybag) ............................................. [ PASS]
        (bag-size mybag) ............................................. [ PASS]
        (bag-unique-size mybag) ...................................... [ PASS]
        (bag-size mybag) ............................................. [ PASS]
        (bag-size mybag) ............................................. [ PASS]
        (bag-decrement! mybag 1 2) ................................... [ PASS]
        (bag-size mybag) ............................................. [ PASS]
        (bag-size mybag) ............................................. [ PASS]
        8 tests completed in 0.001 seconds.
        8 out of 8 (100%) tests passed.
        -- done testing bags/semantics ---------------------------------------


        -- testing bags/convert ----------------------------------------------
        (bag->alist minibag) ......................................... [ PASS]
        (bag=? minibag (alist->bag eqv-comparator alist)) ............ [ PASS]
        (set=? singleset (bag->set single)) .......................... [ PASS]
        (set=? singleset (bag->set multi)) ........................... [ PASS]
        (bag=? single (set->bag singleset)) .......................... [ PASS]
        (not (bag=? multi (set->bag singleset))) ..................... [ PASS]
        (bag-contains? minibag 1) .................................... [ PASS]
        7 tests completed in 0.014 seconds.
        7 out of 7 (100%) tests passed.
        -- done testing bags/convert -----------------------------------------


        -- testing bags/sumprod ----------------------------------------------
        (bag-count (lambda (x) (eqv? x 'a)) total) ................... [ PASS]
        (bag-count (lambda (x) (eqv? x 'b)) total) ................... [ PASS]
        (bag-size (bag-product 2 total)) ............................. [ PASS]
        (bag-size bag1) .............................................. [ PASS]
        (bag-size bag1) .............................................. [ PASS]
        5 tests completed in 0.001 seconds.
        5 out of 5 (100%) tests passed.
        -- done testing bags/sumprod -----------------------------------------

    12 subgroups completed in 0.033 seconds.
    12 out of 12 (100%) subgroups passed.
    -- done testing bags -----------------------------------------------------


    -- testing comparators ---------------------------------------------------
    (not (=? set-comparator a b)) .................................... [ PASS]
    (=? set-comparator a (set-copy a)) ............................... [ PASS]
    (<? set-comparator a b) .......................................... [ PASS]
    (not (=? bag-comparator aa bb)) .................................. [ PASS]
    (=? bag-comparator aa (bag-copy aa)) ............................. [ PASS]
    (<? bag-comparator aa bb) ........................................ [ PASS]
    (not (=? (make-default-comparator) a aa)) ........................ [ PASS]
    7 tests completed in 0.001 seconds.
    7 out of 7 (100%) tests passed.
    -- done testing comparators ----------------------------------------------

3 subgroups completed in 0.049 seconds.
3 out of 3 (100%) subgroups passed.
-- done testing sets ---------------------------------------------------------