all links in readme are global; a test added

2012-06-24 07:13:21 +02:00
parent a2a44acd67
commit 8e6972c048
2 changed files with 6 additions and 4 deletions
@@ -15,8 +15,10 @@
 (deftest storage
         (testing "Storage"
                  (testing "of short-url mechanism"
-                           (let [url (create-short-url metadata)]
+                           (let [url (create-short-url metadata)
+                                 url2 (create-short-url metadata)]
                             (is (short-url-exists? url))
+                             (is (= url url2))
                             (is (= metadata (resolve-url url)))
                             (is (not (do 
                                        (delete-short-url url)