suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added some tests

Browse Source 
svn: r2175
This commit is contained in:
Scott Owens 2006-02-08 18:15:33 +00:00
parent d75018c79a
commit 2dcb1412b5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/parser-tools/private-lex/util.ss
View File

@ -37,9 +37,12 @@
(hash-table-put! table key new)
new))))))
(test-block ((cache (make-cache)))
((cache '(1 2) (lambda () 9)) 9)
((cache '(2 1) (lambda () 8)) 8)
((cache '(1 2) (lambda () 1)) 9))
((cache '(s 1 2) (lambda () 9)) 9)
((cache '(s 2 1) (lambda () 8)) 8)
((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