41 lines
463 B
Mathematica
41 lines
463 B
Mathematica
_callback
|
|
callback
|
|
|
|
if (foo(2) != 2)
|
|
error
|
|
endif
|
|
|
|
if (A_bar(2) != 4)
|
|
error
|
|
endif
|
|
|
|
if (foobar(3, _callback.foo) != foo(3))
|
|
error
|
|
endif
|
|
|
|
if (foobar(3, foo) != foo(3))
|
|
error
|
|
endif
|
|
|
|
if (foobar(3, A_bar) != A_bar(3))
|
|
error
|
|
endif
|
|
|
|
if (foobar(3, foof) != foof(3))
|
|
error
|
|
endif
|
|
|
|
if (foobar_i(3, foo_i) != foo_i(3))
|
|
error
|
|
endif
|
|
|
|
|
|
if (foobar_d(3.5, foo_d) != foo_d(3.5))
|
|
error
|
|
endif
|
|
|
|
a = A();
|
|
if (foobarm(3, a, A.foom_cb_ptr) != a.foom(3))
|
|
error
|
|
endif
|