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

slightly more exercising of the API

Browse Source
This commit is contained in:
Danny Yoo 2011-11-30 16:12:50 -05:00
parent 55c8a03d9e
commit d520c1e52d
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
sandbox/test-storage.rkt
View File

@ -7,5 +7,21 @@
(storage-set! "whalesong test" "hello world")
(storage-ref "whalesong test")
(storage-length)
(storage-key 0)
(storage-clear!)
(storage-length)
(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!)