Commits

Miki Tebeka committed e460d14

More tests

  • Participants
  • Parent commits 1124d41

Comments (0)

Files changed (1)

test/digest_test.clj

 (ns digest-test
   (:use [digest] :reload-all)
+  (:use [clojure.string :only (lower-case)])
   (:use [clojure.test]))
 
 (deftest md5-test
   (is (= (digest "md5" "foo") "acbd18db4cc2f85cedef654fccc4a4d8")))
 
+(deftest sha-256-test
+  (is (= (sha-256 "foo") 
+         "2c26b46b68ffc68ff99b453c1d30413413422d706483bfa0f98a5e886266e7ae")))
 
+(deftest algorithms-test
+  (let [names (algorithms)]
+    (is not (empty? names))
+    (is (names "SHA-1"))))
+
+(deftest utils-test
+  (for [name (algorithms)]
+    (dorun (is (ns-resolve *ns* (symbol (lower-case name)))))))