ffi_test.clj

(ns libpython-clj2.ffi-test
  "Short low level tests used to verify specific aspects of ffi integration"
  (:require [libpython-clj2.python.ffi :as py-ffi]
            [libpython-clj2.python :as py]
            [libpython-clj2.python.protocols :as py-proto]
            [libpython-clj2.python.fn :as py-fn]
            [clojure.test :refer [deftest is]]))


(py/initialize!)


(deftest module-type-name-test
  (py-ffi/with-gil
    (let [main-mod (py-ffi/PyImport_AddModule "__main__")
          mod-type (py-ffi/pyobject-type main-mod)
          mod-name (py-ffi/pytype-name mod-type)]
      (is (= "module" mod-name)))))


(deftest pydir-basic
  (py-ffi/with-gil
   (let [main-mod (py-ffi/PyImport_AddModule "__main__")
         dirdata (py-proto/dir main-mod)]
     (is (>= (count dirdata) 7)))))


(deftest error-handling
  (py-ffi/with-gil
    (is (thrown? Exception (py-ffi/run-simple-string "data = 1 +")))))


(deftest clj-fn
  (py-ffi/with-gil
    (let [pfn (py-fn/make-tuple-fn #(+ %1 %2))]
      (is (= 3 (py-fn/call pfn 1 2))))))