Bootstrap web site

1 files changed, 27 insertions, 0 deletions

diff --git a/test/genpass/gen_test.clj b/test/genpass/gen_test.clj
new file mode 100644
index 0000000..05d8994
--- /dev/null
+++ b/test/genpass/gen_test.clj
@@ -0,0 +1,27 @@
+(ns genpass.gen-test
+  (:require [clojure.test :refer :all]
+            [genpass.gen :refer :all]))
+
+(def valid-char-regex #"^[a-zA-Z0-1\!\@\#\%\^\&\*\(\)\{\}\[\]\-\+\=\~]*$")
+(def not-nil? (complement nil?))
+
+(deftest rand-char-test
+  (testing "check if return a valid char"
+    (is (some (partial = (rand-char)) all-char))
+    (is (some (partial = (rand-char)) all-char))
+    (is (some (partial = (rand-char)) all-char))))
+
+(deftest genpwd-test
+  (testing "check it return 12 chars by defaul"
+    (is (= 12 (count (genpwd)))))
+  (testing "check it return x chars"
+    (is (= 12 (count (genpwd 12))))
+    (is (= 0 (count (genpwd 0))))
+    (is (= 1 (count (genpwd 1))))
+    (is (= 1000 (count (genpwd 1000)))))
+  (testing "check if generate valid chars"
+    (is (not-nil? (re-matches valid-char-regex (genpwd))))
+    (is (not-nil? (re-matches valid-char-regex (genpwd 1))))
+    (is (not-nil? (re-matches valid-char-regex (genpwd 1000))))
+    (is (not-nil? (re-matches valid-char-regex (genpwd 4))))
+    ))
\ No newline at end of file