Finally all basic operations work! It is messy, but it is progress!

2011-07-20 00:15:24 -04:00
parent dec49a68cd
commit 6ecbeddc0f
2 changed files with 24 additions and 18 deletions
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -14,7 +14,10 @@
            (test-assert "Create Bucket" (create-bucket! *b*))
            (test "Bucket Exists 2" #t (bucket-exists? *b*))
            (test-assert "List Buckets" (list-buckets)) ; should test this more specifically...
-            (test "List Bucket Objects" '() (list-objects *b*))
+            (test "List Bucket Objects 1" '() (list-objects *b*))
+            (test-assert "Put Object" (put-object! *b* "key" "value"))
+            (test "List Bucket Objects 2" '("key") (list-objects *b*))
+            (test-assert "Delete Object" (delete-object! *b* "key"))
            (test-assert "Delete Bucket" (delete-bucket! *b*)))

 (test-exit)