Examples/test-suite/octave/callback_runme.m

   1 _callback
   2 callback
   3
   4 if (foo(2) != 2)
   5   error
   6 endif
   7
   8 if (A_bar(2) != 4)
   9   error
  10 endif
  11
  12 if (foobar(3, _callback.foo) != foo(3))
  13   error
  14 endif
  15
  16 if (foobar(3, foo) != foo(3))
  17   error
  18 endif
  19
  20 if (foobar(3, A_bar) != A_bar(3))
  21   error
  22 endif
  23
  24 if (foobar(3, foof) != foof(3))
  25   error
  26 endif
  27
  28 if (foobar_i(3, foo_i) != foo_i(3))
  29   error
  30 endif
  31
  32
  33 if (foobar_d(3.5, foo_d) != foo_d(3.5))
  34   error
  35 endif
  36
  37 a = A();
  38 if (foobarm(3, a, A.foom_cb_ptr) != a.foom(3))
  39   error
  40 endif