9e66af3fef
- If Octave segfaults during cleanup, it usually cannot dump its core and therefore just freezes, which hold up e.g Travis build jobs
49 lines
1.1 KiB
Mathematica
49 lines
1.1 KiB
Mathematica
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
director_abstract
|
|
|
|
MyFoo=@() subclass(director_abstract.Foo(),@ping);
|
|
function out=ping(self)
|
|
out="MyFoo::ping()";
|
|
end
|
|
|
|
|
|
a = MyFoo();
|
|
|
|
if (!strcmp(a.ping(),"MyFoo::ping()"))
|
|
error(a.ping())
|
|
endif
|
|
|
|
if (!strcmp(a.pong(),"Foo::pong();MyFoo::ping()"))
|
|
error(a.pong())
|
|
endif
|
|
|
|
|
|
MyExample1=@() subclass(director_abstract.Example1(),'Color',@(self,r,g,b) r);
|
|
MyExample2=@(a,b) subclass(director_abstract.Example2(a,b),'Color',@(self,r,g,b) g);
|
|
MyExample3=@() subclass(director_abstract.Example3_i(),'Color',@(self,r,g,b) b);
|
|
|
|
me1 = MyExample1();
|
|
if (director_abstract.Example1.get_color(me1, 1,2,3) != 1)
|
|
error
|
|
endif
|
|
|
|
me2 = MyExample2(1,2);
|
|
if (me2.get_color(me2, 1,2,3) != 2)
|
|
error
|
|
endif
|
|
|
|
me3 = MyExample3();
|
|
if (me3.get_color(me3, 1,2,3) != 3)
|
|
error
|
|
endif
|
|
|
|
|
|
# don't check that we cannot construct abstract bases, since we have no
|
|
# way of disambiguating that with the normal construction case using
|
|
# subclass. furthermore, calling a pure virtual method will still generate
|
|
# an error.
|
|
|