import source from 1.3.40
[external/swig.git] / Examples / test-suite / octave / inherit_missing_runme.m
1 inherit_missing
2
3 a = inherit_missing.new_Foo();
4 b = inherit_missing.Bar();
5 c = inherit_missing.Spam();
6
7 x = inherit_missing.do_blah(a);
8 if (!strcmp(x, "Foo::blah"))
9     error("Whoa! Bad return %s", x)
10 endif
11
12 x = inherit_missing.do_blah(b);
13 if (!strcmp(x, "Bar::blah"))
14     error("Whoa! Bad return %s", x)
15 endif
16
17 x = inherit_missing.do_blah(c);
18 if (!strcmp(x, "Spam::blah"))
19     error("Whoa! Bad return %s", x)
20 endif
21
22 inherit_missing.delete_Foo(a);