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]