Some bitly-specific tests.

Raynes · Oct 20, 2011 · 9b9385d · 9b9385d
1 parent 6c4150a
commit 9b9385d
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/test/hobbit/bitly_test.clj b/test/hobbit/bitly_test.clj
@@ -1,2 +1,11 @@
 (ns hobbit.bitly-test
-  (:use [hobbit core bitly]))
+  (:use [hobbit core bitly utils]
+        clojure.test))
+
+
+(def auth (:bitly (read-auth)))
+(def long "http://blog.raynes.me")
+
+(deftest shorten-test
+  (is (shorten (bitly-shortener (:key auth) (:login auth)) long))
+  (is (shorten (bitly-shortener (:key auth) (:login auth) "j.mp") long)))