Added some tests

svn: r2175

original commit: 2dcb1412b56d8508f62ab7ccfa45933dd798e7b8
tokens
Scott Owens 19 years ago
parent f1090791ee
commit 97678a2e96

@ -37,9 +37,12 @@
(hash-table-put! table key new) (hash-table-put! table key new)
new)))))) new))))))
(test-block ((cache (make-cache))) (test-block ((cache (make-cache)))
((cache '(1 2) (lambda () 9)) 9) ((cache '(s 1 2) (lambda () 9)) 9)
((cache '(2 1) (lambda () 8)) 8) ((cache '(s 2 1) (lambda () 8)) 8)
((cache '(1 2) (lambda () 1)) 9)) ((cache '(s 1 2) (lambda () 1)) 9)
((cache (cons 's (cons 0 (cons +inf.0 10))) (lambda () 22)) 22)
((cache (cons 's (cons 0 (cons +inf.0 10))) (lambda () 1)) 22))
;; make-counter : -> -> nat ;; make-counter : -> -> nat

Loading…
Cancel
Save