diff --git a/sandbox/test-storage.rkt b/sandbox/test-storage.rkt index 25f14eb..d94d033 100644 --- a/sandbox/test-storage.rkt +++ b/sandbox/test-storage.rkt @@ -7,5 +7,21 @@ (storage-set! "whalesong test" "hello world") (storage-ref "whalesong test") (storage-length) +(storage-key 0) (storage-clear!) -(storage-length) \ No newline at end of file +(storage-length) + + +(storage-clear!) +(storage-set! "name" "Danny") +(storage-set! "advisor" "sk") +(storage-set! "advisor" "kathi") +(storage-length) +(storage-key 0) +(storage-key 1) +(storage-remove! "advisor") +(storage-length) +(storage-key 0) +(storage-remove! "name") +(storage-length) +(storage-clear!) \ No newline at end of file