Test output for lookup-table
Testing time: 14.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 *** Lookup Table Safe *** ** Alist Test (eq?) ** (dict? tbl1) ......................................................... [ PASS] (dict-equivalence-function tbl1) ..................................... [ PASS] (tst foodat (dict-ref tbl1 'foo)) .................................... [ PASS] (begin (dict-delete! tbl1 'foo) #t) .................................. [ PASS] (not (dict-ref tbl1 'foo)) ........................................... [ PASS] (dict-update! tbl1 'foo (lambda () '())) ............................. [ PASS] (dict-update! tbl1 'foo void (lambda (x) (append x '(1)))) ........... [ PASS] (dict-update-list! tbl1 'list) ....................................... [ PASS] (dict-update-list! tbl1 'list 1 2) ................................... [ PASS] (dict? (dict-ref tbl1 'dict)) ........................................ [ PASS] (dict-ref tbl1 'dict) ................................................ [ PASS] (dict-update-dict! tbl1 'dict) ....................................... [ PASS] (begin (dict-merge! tbl (alist->dict '((off . rab) (baz . pob))... ... [ PASS] (dict-count tbl) ..................................................... [ PASS] (dict-ref tbl 'foo) .................................................. [ PASS] (dict-ref tbl 'baz) .................................................. [ PASS] (dict-ref tbl 'off) .................................................. [ PASS] ** Alist Test (equal?) ** (dict? tbl1) ......................................................... [ PASS] (dict-equivalence-function tbl1) ..................................... [ PASS] (tst foodat (dict-ref tbl1 'foo)) .................................... [ PASS] (begin (dict-delete! tbl1 'foo) #t) .................................. [ PASS] (not (dict-ref tbl1 'foo)) ........................................... [ PASS] (dict-update! tbl1 'foo (lambda () '())) ............................. [ PASS] (dict-update! tbl1 'foo void (lambda (x) (append x '(1)))) ........... [ PASS] (dict-update-list! tbl1 'list) ....................................... [ PASS] (dict-update-list! tbl1 'list 1 2) ................................... [ PASS] (dict? (dict-ref tbl1 'dict)) ........................................ [ PASS] (dict-ref tbl1 'dict) ................................................ [ PASS] (dict-update-dict! tbl1 'dict) ....................................... [ PASS] (begin (dict-merge! tbl (alist->dict '((off . rab) (baz . pob))... ... [ PASS] (dict-count tbl) ..................................................... [ PASS] (dict-ref tbl 'foo) .................................................. [ PASS] (dict-ref tbl 'baz) .................................................. [ PASS] (dict-ref tbl 'off) .................................................. [ PASS] ** HT Test () ** (dict-ref tbl1 "20") ................................................. [ PASS] (begin (dict-delete! tbl1 "20") #t) .................................. [ PASS] (not (dict-ref tbl1 "20")) ........................................... [ PASS] (begin (dict-merge! tbl1 (alist->dict '((foo . bar) (baz . bop)... ... [ PASS] (dict-ref tbl1 'baz) ................................................. [ PASS] (dict-search tbl1 (lambda (key val) (eq? key 'foo))) ................. [ PASS] (with-output-to-string (lambda () (dict-print tbl1))) ................ [ PASS] *** Lookup Table UnSafe *** ** Alist Test (eq?) ** (dict? tbl1) ......................................................... [ PASS] (dict-equivalence-function tbl1) ..................................... [ PASS] (tst foodat (dict-ref tbl1 'foo)) .................................... [ PASS] (begin (dict-delete! tbl1 'foo) #t) .................................. [ PASS] (not (dict-ref tbl1 'foo)) ........................................... [ PASS] (dict-update! tbl1 'foo (lambda () '())) ............................. [ PASS] (dict-update! tbl1 'foo void (lambda (x) (append x '(1)))) ........... [ PASS] (dict-update-list! tbl1 'list) ....................................... [ PASS] (dict-update-list! tbl1 'list 1 2) ................................... [ PASS] (dict? (dict-ref tbl1 'dict)) ........................................ [ PASS] (dict-ref tbl1 'dict) ................................................ [ PASS] (dict-update-dict! tbl1 'dict) ....................................... [ PASS] (begin (dict-merge! tbl (alist->dict '((off . rab) (baz . pob))... ... [ PASS] (dict-count tbl) ..................................................... [ PASS] (dict-ref tbl 'foo) .................................................. [ PASS] (dict-ref tbl 'baz) .................................................. [ PASS] (dict-ref tbl 'off) .................................................. [ PASS] ** Alist Test (equal?) ** (dict? tbl1) ......................................................... [ PASS] (dict-equivalence-function tbl1) ..................................... [ PASS] (tst foodat (dict-ref tbl1 'foo)) .................................... [ PASS] (begin (dict-delete! tbl1 'foo) #t) .................................. [ PASS] (not (dict-ref tbl1 'foo)) ........................................... [ PASS] (dict-update! tbl1 'foo (lambda () '())) ............................. [ PASS] (dict-update! tbl1 'foo void (lambda (x) (append x '(1)))) ........... [ PASS] (dict-update-list! tbl1 'list) ....................................... [ PASS] (dict-update-list! tbl1 'list 1 2) ................................... [ PASS] (dict? (dict-ref tbl1 'dict)) ........................................ [ PASS] (dict-ref tbl1 'dict) ................................................ [ PASS] (dict-update-dict! tbl1 'dict) ....................................... [ PASS] (begin (dict-merge! tbl (alist->dict '((off . rab) (baz . pob))... ... [ PASS] (dict-count tbl) ..................................................... [ PASS] (dict-ref tbl 'foo) .................................................. [ PASS] (dict-ref tbl 'baz) .................................................. [ PASS] (dict-ref tbl 'off) .................................................. [ PASS] ** HT Test () ** (dict-ref tbl1 "20") ................................................. [ PASS] (begin (dict-delete! tbl1 "20") #t) .................................. [ PASS] (not (dict-ref tbl1 "20")) ........................................... [ PASS] (begin (dict-merge! tbl1 (alist->dict '((foo . bar) (baz . bop)... ... [ PASS] (dict-ref tbl1 'baz) ................................................. [ PASS] (dict-search tbl1 (lambda (key val) (eq? key 'foo))) ................. [ PASS] (with-output-to-string (lambda () (dict-print tbl1))) ................ [ PASS] *** Lookup Table Safe Synch *** ** Alist Test (eq?) ** (dict?/synch tbl1) ................................................... [ PASS] (dict-equivalence-function/synch tbl1) ............................... [ PASS] (tst foodat (dict-ref/synch tbl1 'foo)) .............................. [ PASS] (begin (dict-delete!/synch tbl1 'foo) #t) ............................ [ PASS] (not (dict-ref/synch tbl1 'foo)) ..................................... [ PASS] (dict-update!/synch tbl1 'foo (lambda () '())) ....................... [ PASS] (dict-update!/synch tbl1 'foo void (lambda (x) (append x '(1)))) ..... [ PASS] (dict-update-list!/synch tbl1 'list) ................................. [ PASS] (dict-update-list!/synch tbl1 'list 1 2) ............................. [ PASS] (dict-ref/synch tbl1 'dict) .......................................... [ PASS] (dict-update-dict!/synch tbl1 'dict) ................................. [ PASS] (begin (dict-merge!/synch tbl (alist->dict/synch '((off . rab) ... ... [ PASS] (dict-count/synch tbl) ............................................... [ PASS] (dict-ref/synch tbl 'foo) ............................................ [ PASS] (dict-ref/synch tbl 'baz) ............................................ [ PASS] (dict-ref/synch tbl 'off) ............................................ [ PASS] ** Alist Test (equal?) ** (dict?/synch tbl1) ................................................... [ PASS] (dict-equivalence-function/synch tbl1) ............................... [ PASS] (tst foodat (dict-ref/synch tbl1 'foo)) .............................. [ PASS] (begin (dict-delete!/synch tbl1 'foo) #t) ............................ [ PASS] (not (dict-ref/synch tbl1 'foo)) ..................................... [ PASS] (dict-update!/synch tbl1 'foo (lambda () '())) ....................... [ PASS] (dict-update!/synch tbl1 'foo void (lambda (x) (append x '(1)))) ..... [ PASS] (dict-update-list!/synch tbl1 'list) ................................. [ PASS] (dict-update-list!/synch tbl1 'list 1 2) ............................. [ PASS] (dict-ref/synch tbl1 'dict) .......................................... [ PASS] (dict-update-dict!/synch tbl1 'dict) ................................. [ PASS] (begin (dict-merge!/synch tbl (alist->dict/synch '((off . rab) ... ... [ PASS] (dict-count/synch tbl) ............................................... [ PASS] (dict-ref/synch tbl 'foo) ............................................ [ PASS] (dict-ref/synch tbl 'baz) ............................................ [ PASS] (dict-ref/synch tbl 'off) ............................................ [ PASS] ** HT Test () ** (dict-ref/synch tbl1 "20") ........................................... [ PASS] (begin (dict-delete!/synch tbl1 "20") #t) ............................ [ PASS] (not (dict-ref/synch tbl1 "20")) ..................................... [ PASS] (begin (dict-merge!/synch tbl1 (alist->dict/synch '((foo . bar)... ... [ PASS] (dict-ref/synch tbl1 'baz) ........................................... [ PASS] (dict-search/synch tbl1 (lambda (key val) (eq? key 'foo))) ........... [ PASS] (with-output-to-string (lambda () (dict-print/synch tbl1))) .......... [ PASS] *** Lookup Table UnSafe Synch *** ** Alist Test (eq?) ** (dict?/synch tbl1) ................................................... [ PASS] (dict-equivalence-function/%synch tbl1) .............................. [ PASS] (tst foodat (dict-ref/%synch tbl1 'foo)) ............................. [ PASS] (begin (dict-delete!/%synch tbl1 'foo) #t) ........................... [ PASS] (not (dict-ref/%synch tbl1 'foo)) .................................... [ PASS] (dict-update!/%synch tbl1 'foo (lambda () '())) ...................... [ PASS] (dict-update!/%synch tbl1 'foo void (lambda (x) (append x '(1)))) .... [ PASS] (dict-update-list!/%synch tbl1 'list) ................................ [ PASS] (dict-update-list!/%synch tbl1 'list 1 2) ............................ [ PASS] (dict-ref/%synch tbl1 'dict) ......................................... [ PASS] (dict-update-dict!/%synch tbl1 'dict) ................................ [ PASS] (begin (dict-merge!/%synch tbl (alist->dict/synch '((off . rab)... ... [ PASS] (dict-count/%synch tbl) .............................................. [ PASS] (dict-ref/%synch tbl 'foo) ........................................... [ PASS] (dict-ref/%synch tbl 'baz) ........................................... [ PASS] (dict-ref/%synch tbl 'off) ........................................... [ PASS] ** Alist Test (equal?) ** (dict?/synch tbl1) ................................................... [ PASS] (dict-equivalence-function/%synch tbl1) .............................. [ PASS] (tst foodat (dict-ref/%synch tbl1 'foo)) ............................. [ PASS] (begin (dict-delete!/%synch tbl1 'foo) #t) ........................... [ PASS] (not (dict-ref/%synch tbl1 'foo)) .................................... [ PASS] (dict-update!/%synch tbl1 'foo (lambda () '())) ...................... [ PASS] (dict-update!/%synch tbl1 'foo void (lambda (x) (append x '(1)))) .... [ PASS] (dict-update-list!/%synch tbl1 'list) ................................ [ PASS] (dict-update-list!/%synch tbl1 'list 1 2) ............................ [ PASS] (dict-ref/%synch tbl1 'dict) ......................................... [ PASS] (dict-update-dict!/%synch tbl1 'dict) ................................ [ PASS] (begin (dict-merge!/%synch tbl (alist->dict/synch '((off . rab)... ... [ PASS] (dict-count/%synch tbl) .............................................. [ PASS] (dict-ref/%synch tbl 'foo) ........................................... [ PASS] (dict-ref/%synch tbl 'baz) ........................................... [ PASS] (dict-ref/%synch tbl 'off) ........................................... [ PASS] ** HT Test () ** (dict-ref/%synch tbl1 "20") .......................................... [ PASS] (begin (dict-delete!/%synch tbl1 "20") #t) ........................... [ PASS] (not (dict-ref/%synch tbl1 "20")) .................................... [ PASS] (begin (dict-merge!/%synch tbl1 (alist->dict/synch '((foo . bar... ... [ PASS] (dict-ref/%synch tbl1 'baz) .......................................... [ PASS] (dict-search/%synch tbl1 (lambda (key val) (eq? key 'foo))) .......... [ PASS] (with-output-to-string (lambda () (dict-print/%synch tbl1))) ......... [ PASS]