luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests for some types

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-23 12:29:48 -05:00
parent ebe36e199c
commit c61e60681b
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
test/clj/coffi/ffi_test.clj
View file

@ -6,4 +6,20 @@
(sut/load-library "target/ffi_test.so")
(t/deftest can-load-symbols
(t/is (not (nil? (sut/find-symbol "add_points")))))
(t/is (not (nil? (sut/find-symbol "add_numbers")))))
(t/deftest can-call-primitive-fns
(t/is (= 5 ((sut/cfn "add_numbers" [::sut/int ::sut/int] ::sut/int) 2 3))))
(sut/defstruct ::point
:x ::sut/float
:y ::sut/float)
(t/deftest can-call-with-structs
(t/is (= {:x 2.0 :y 2.0}
((sut/cfn "add_points" [::point ::point] ::point) {:x 1 :y 2} {:x 1 :y 0}))))
(t/deftest can-call-deserialized-fn-pointers
(t/is (= "Alternate string"
(((sut/cfn "get_downcall" [::sut/int] [::sut/fn [] ::sut/c-string :wrap-serde? true])
1)))))