Add upcall test

2021-09-23 13:29:12 -05:00 · 2021-09-23 13:29:12 -05:00 · 7b21325365
commit 7b21325365
parent 3ce919e5a1
1 changed files with 5 additions and 0 deletions
--- a/test/clj/coffi/ffi_test.clj
+++ b/test/clj/coffi/ffi_test.clj
@ -23,3 +23,8 @@
  (t/is (= "Alternate string"
           (((sut/cfn "get_downcall" [::sut/int] [::sut/fn [] ::sut/c-string :wrap-serde? true])
             1)))))
+
+(t/deftest can-make-upcall
+  (t/is (= ((sut/cfn "upcall_test" [[::sut/fn [] ::sut/c-string :wrap-serde? true]] ::sut/c-string)
+            (fn [] "hello"))
+           "hello")))