aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/genpass/gen_test.clj26
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