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

Testing replacing

Browse Source
This commit is contained in:
Jay McCarthy 2010-10-20 10:02:31 -07:00
parent 03c1c7bf66
commit 34e940a8b5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/meta/drdr2/tests/db.rkt
View File

@ -18,6 +18,15 @@
(for ([j (in-range 10)]) (for ([j (in-range 10)])
(test (test
(db-ref db (number->string i) (number->string j)) => (db-ref db (number->string i) (number->string j)) =>
(num (+ i j)))))) (num (+ i j))))
(for ([j (in-range 10)])
(test
(db-set! db (num (* i j)) (number->string i) (number->string j))))
(for ([j (in-range 10)])
(test
(db-ref db (number->string i) (number->string j)) =>
(num (* i j))))))
(db-close! db)))) (db-close! db))))