diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/genpass/gen_test.clj | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/test/genpass/gen_test.clj b/test/genpass/gen_test.clj deleted file mode 100644 index 3bc62e1..0000000 --- a/test/genpass/gen_test.clj +++ /dev/null @@ -1,26 +0,0 @@ -(ns genpass.gen-test - (:require [clojure.test :refer :all] - [genpass.gen :refer :all])) - -(def valid-char-regex #"^[a-zA-Z0-9\!\@\#\%\^\&\*\(\)\{\}\[\]\-\+\=\~]*$") -(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 |