From 34e940a8b5b2e99b1b44eb8ad721ef237bb7e7e6 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 20 Oct 2010 10:02:31 -0700 Subject: [PATCH] Testing replacing --- collects/meta/drdr2/tests/db.rkt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/meta/drdr2/tests/db.rkt b/collects/meta/drdr2/tests/db.rkt index 2000908d10..56a8a6a7bd 100644 --- a/collects/meta/drdr2/tests/db.rkt +++ b/collects/meta/drdr2/tests/db.rkt @@ -18,6 +18,15 @@ (for ([j (in-range 10)]) (test (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)))) \ No newline at end of file