50 lines
1.1 KiB
Mathematica
50 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("failed");
|
|
endif
|
|
|
|
me2 = MyExample2(1,2);
|
|
if (me2.get_color(me2, 1,2,3) != 2)
|
|
error("failed");
|
|
endif
|
|
|
|
me3 = MyExample3();
|
|
if (me3.get_color(me3, 1,2,3) != 3)
|
|
error("failed");
|
|
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.
|
|
|