(ns libpython-clj.require-python-test

(:require [libpython-clj.require :as req :refer [require-python]

:reload true]

[libpython-clj.python :as py]

[clojure.test :refer :all]))

(require-python '[math

:refer :*

:exclude [sin cos]

:as pymath])

(deftest base-require-test

(let [publics (ns-publics (find-ns 'libpython-clj.require-python-test))]

(is (not (contains? publics 'sin)))

(is (= 10.0 (double (floor 10.1))))

(is (thrown? Throwable (require-python '[math :refer [blah]])))))

(deftest parse-flags-test

;; sanity check

(is (= #{:reload :foo}

#{:foo :reload}))

(let [parse-flags #'req/parse-flags]

(is (= #{:reload} (parse-flags

#{:reload}

'[:reload foo])))

(is (= #{:reload} (parse-flags #{:reload} '[:reload true])))

(is (= #{:reload} (parse-flags #{:reload} '[:reload :as foo])))

(is (= #{:reload} (parse-flags #{:reload} '[:reload foo :as])))

(is (= #{:reload} (parse-flags #{:reload} '[foo :reload :as bar])))

(is (= #{} (parse-flags #{:reload} '[:reload false])))

(is (= #{:reload} (parse-flags #{:reload} '[:reload false :reload])))

(is (= #{:reload} (parse-flags #{:reload} '[:reload false :reload true])))

(is (= #{} (parse-flags #{:reload} '[:reload :reload false])))

(is (= #{} (parse-flags #{:reload} '[:reload true :reload false])))

(is (= #{:a :b} (parse-flags #{:a :b} '[:a true :b])))

(is (= #{:a :b} (parse-flags #{:a :b} '[:a :b])))

(is (= #{:a :b} (parse-flags #{:a :b} '[:a true :b])))

(is (= #{:a :b} (parse-flags #{:a :b} '[:a :b true])))

(is (= #{:a :b} (parse-flags #{:a :b} '[:a true :b true])))

(is (= #{:b} (parse-flags #{:a :b} '[:a false :b true])))

(is (= #{:b} (parse-flags #{:a :b} '[:b true :a false])))

(is (= #{:b} (parse-flags #{:a :b} '[:b :a false])))

(is (= #{:b :a} (parse-flags #{:a :b} '[:b :a false :a true])))))

(require-python '([builtins :as python]

[builtins.list :as python.pylist]))

(deftest require-python-classes-with-alias-test

(let [l (python/list)]

(is (= (vec l) []))

(python.pylist/append l 1)

(is (= (vec l) [1]))

(python.pylist/append l 3)

(is (= (vec l) [1 3]))

(python.pylist/append l 5)

(is (= (vec l) [1 3 5]))

(python.pylist/clear l)

(is (= (python/list) (vec l)))))

(require-python 'csv.DictWriter)

(deftest require-python-classes

;; simple creation/recall test

(is csv.DictWriter/__init__)

(is csv.DictWriter/writeheader)

(is csv.DictWriter/writerow)

(is csv.DictWriter/writerows))