From ddce2bd3c66a62cb96b2b7ef0602c00c586c429b Mon Sep 17 00:00:00 2001 From: Gabriel Giovanini Date: Sat, 22 Jun 2019 15:40:06 +0200 Subject: Bootstrap web site --- test/genpass/gen_test.clj | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 test/genpass/gen_test.clj (limited to 'test') 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 -- cgit v1.2.3