Mercurial > pub > dyncall > bindings

comparison erlang/erldc/test/callf_SUITE.erl @ 0:0cfcc391201f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:0cfcc391201f
1 %% Copyright (c) 2014 Erik Mackdanz <erikmack@gmail.com>
2
3 %% Permission to use, copy, modify, and distribute this software for any
4 %% purpose with or without fee is hereby granted, provided that the above
5 %% copyright notice and this permission notice appear in all copies.
6
7 %% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
8 %% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
9 %% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
10 %% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
11 %% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
12 %% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
13 %% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
14
15 -module(callf_SUITE).
16 -compile(export_all).
17 -define(VMSZ, 1024).
18
19 all() ->
20 [
21 argf_one,
22 argf_excessive_format,
23 argf_excessive_args,
24 argf_struct,
25 callf_one,
26 callf_bool,
27 callf_void,
28 callf_char,
29 callf_uchar,
30 callf_short,
31 callf_ushort,
32 callf_int,
33 callf_uint,
34 callf_long,
35 callf_ulong,
36 callf_longlong,
37 callf_ulonglong,
38 callf_float,
39 callf_double,
40 callf_pointer,
41 callf_struct
42 ].
43
44 argf_one(_) ->
45 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
46 {ok,Sym} = dyncall:find_symbol(Libm, "several_args"),
47 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
48 ok = dyncall:argf(CallVm,"jcZf)Z",[-125,$[,"foo",6.2]),
49 {ok,"Your args were -125, [, foo, 6.2"} = dyncall:call_string(CallVm,Sym).
50
51 argf_excessive_format(_) ->
52 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
53 {error,invalid_format} = dyncall:argf(CallVm,"jjjjjjjjcZf)Z",[-125,91,"foo",6.2]).
54
55 argf_excessive_args(_) ->
56 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
57 {error,invalid_format} = dyncall:argf(CallVm,"jcZf)Z",[-125,91,"foo",6.2,7,7,7,7,7,7]).
58
59 argf_struct(_) ->
60 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
61 {error,not_implemented} = dyncall:argf(CallVm,"jTZf)Z",[-125,91,"foo",6.2]).
62
63 callf_one(_) ->
64 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
65 {ok,Sym} = dyncall:find_symbol(Libm, "several_args"),
66 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
67 {ok,"Your args were -125, [, foo, 6.2"} =
68 dyncall:callf(CallVm,Sym,"jcZf)Z",[-125,91,"foo",6.2]).
69
70 callf_bool(_) ->
71 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
72 {ok,Sym} = dyncall:find_symbol(Libm, "is_false"),
73 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
74 {ok,true} =
75 dyncall:callf(CallVm,Sym,"B)B",[false]).
76
77 callf_void(_) ->
78 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
79 {ok,Sym} = dyncall:find_symbol(Libm, "noop"),
80 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
81 ok = dyncall:callf(CallVm,Sym,")v",[]).
82
83 callf_struct(_) ->
84 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
85 {ok,Sym} = dyncall:find_symbol(Libm, "several_args"),
86 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
87 {error,not_implemented} =
88 dyncall:callf(CallVm,Sym,"jcZf)T",[-125,91,"foo",6.2]).
89
90 callf_char(_) ->
91 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
92 {ok,Sym} = dyncall:find_symbol(Libm, "get_next_char"),
93 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
94 {ok,120} =
95 dyncall:callf(CallVm,Sym,"c)c",[119]).
96
97 callf_uchar(_) ->
98 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
99 {ok,Sym} = dyncall:find_symbol(Libm, "get_next_char_u"),
100 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
101 {ok,222} =
102 dyncall:callf(CallVm,Sym,"C)C",[221]).
103
104 callf_short(_) ->
105 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
106 {ok,Sym} = dyncall:find_symbol(Libm, "times_three"),
107 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
108 {ok,-12} =
109 dyncall:callf(CallVm,Sym,"s)s",[-4]).
110
111 callf_ushort(_) ->
112 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
113 {ok,Sym} = dyncall:find_symbol(Libm, "times_three_u"),
114 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
115 {ok,12} =
116 dyncall:callf(CallVm,Sym,"S)S",[4]).
117
118 callf_int(_) ->
119 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
120 {ok,Sym} = dyncall:find_symbol(Libm, "is_false"),
121 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
122 {ok,1} =
123 dyncall:callf(CallVm,Sym,"i)i",[0]).
124
125 callf_uint(_) ->
126 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
127 {ok,Sym} = dyncall:find_symbol(Libm, "dual_increment_u"),
128 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
129 {ok,6} =
130 dyncall:callf(CallVm,Sym,"I)I",[4]).
131
132 callf_long(_) ->
133 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
134 {ok,Sym} = dyncall:find_symbol(Libm, "add_nineteen"),
135 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
136 {ok,19} =
137 dyncall:callf(CallVm,Sym,"j)j",[0]).
138
139 callf_ulong(_) ->
140 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
141 {ok,Sym} = dyncall:find_symbol(Libm, "add_nineteen_u"),
142 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
143 {ok,23} =
144 dyncall:callf(CallVm,Sym,"J)J",[4]).
145
146 callf_longlong(_) ->
147 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
148 {ok,Sym} = dyncall:find_symbol(Libm, "subtract_four"),
149 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
150 {ok,-1} =
151 dyncall:callf(CallVm,Sym,"l)l",[3]).
152
153 callf_ulonglong(_) ->
154 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
155 {ok,Sym} = dyncall:find_symbol(Libm, "subtract_four_u"),
156 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
157 {ok,5} =
158 dyncall:callf(CallVm,Sym,"L)L",[9]).
159
160 callf_float(_) ->
161 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
162 {ok,Sym} = dyncall:find_symbol(Libm, "calculate_pi"),
163 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
164 {ok,3.0} =
165 dyncall:callf(CallVm,Sym,"f)f",[1.0]).
166
167 callf_double(_) ->
168 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
169 {ok,Sym} = dyncall:find_symbol(Libm, "times_pi"),
170 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
171 {ok,6.2} =
172 dyncall:callf(CallVm,Sym,"d)d",[2.0]).
173
174 callf_pointer(_) ->
175 {ok,Libm} = dyncall:load_library("erldc_testtargets"),
176 {ok,Sym} = dyncall:find_symbol(Libm, "coolmalloc"),
177 {ok,CallVm} = dyncall:new_call_vm(?VMSZ),
178 {ok,MyMemory} =
179 dyncall:callf(CallVm,Sym,"j)p",[42]),
180 ok = dyncall:reset(CallVm),
181 {ok,Sym2} = dyncall:find_symbol(Libm, "coolidentity"),
182 %% Surprisingly, this works. The _resource handle
183 %% returned to erlang from callf compares equal in
184 %% erlang to the _resource handle passed as an arg.
185 {ok,MyMemory} =
186 dyncall:callf(CallVm,Sym2,"p)p",[MyMemory]).
187
188
189
190
191
192