(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))))))