92 lines
2.1 KiB
Objective-C
92 lines
2.1 KiB
Objective-C
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
minherit
|
|
|
|
a = minherit.Foo();
|
|
b = minherit.Bar();
|
|
c = minherit.FooBar();
|
|
d = minherit.Spam();
|
|
|
|
if (a.xget() != 1)
|
|
error("Bad attribute value")
|
|
endif
|
|
|
|
if (b.yget() != 2)
|
|
error("Bad attribute value")
|
|
endif
|
|
|
|
if (c.xget() != 1 || c.yget() != 2 || c.zget() != 3)
|
|
error("Bad attribute value")
|
|
endif
|
|
|
|
if (d.xget() != 1 || d.yget() != 2 || d.zget() != 3 || d.wget() != 4)
|
|
error("Bad attribute value")
|
|
endif
|
|
|
|
|
|
if (minherit.xget(a) != 1)
|
|
error("Bad attribute value %d",minherit.xget(a))
|
|
endif
|
|
|
|
if (minherit.yget(b) != 2)
|
|
error("Bad attribute value %d",minherit.yget(b))
|
|
endif
|
|
|
|
if (minherit.xget(c) != 1 || minherit.yget(c) != 2 || minherit.zget(c) != 3)
|
|
error("Bad attribute value %d %d %d",minherit.xget(c),minherit.yget(c),minherit.zget(c))
|
|
endif
|
|
|
|
if (minherit.xget(d) != 1 || minherit.yget(d) != 2 || minherit.zget(d) != 3 || minherit.wget(d) != 4)
|
|
error("Bad attribute value %d %d %d %d",minherit.xget(d),minherit.yget(d),minherit.zget(d),minherit.wget(d))
|
|
endif
|
|
|
|
# Cleanse all of the pointers and see what happens
|
|
|
|
aa = minherit.toFooPtr(a);
|
|
bb = minherit.toBarPtr(b);
|
|
cc = minherit.toFooBarPtr(c);
|
|
dd = minherit.toSpamPtr(d);
|
|
|
|
if (aa.xget() != 1)
|
|
error("Bad attribute value");
|
|
endif
|
|
|
|
if (bb.yget() != 2)
|
|
error("Bad attribute value");
|
|
endif
|
|
|
|
if (cc.xget() != 1 || cc.yget() != 2 || cc.zget() != 3)
|
|
error("Bad attribute value")
|
|
endif
|
|
|
|
if (dd.xget() != 1 || dd.yget() != 2 || dd.zget() != 3 || dd.wget() != 4)
|
|
error("Bad attribute value")
|
|
endif
|
|
|
|
if (minherit.xget(aa) != 1)
|
|
error("Bad attribute value %d",minherit.xget(aa));
|
|
endif
|
|
|
|
if (minherit.yget(bb) != 2)
|
|
error("Bad attribute value %d",minherit.yget(bb));
|
|
endif
|
|
|
|
if (minherit.xget(cc) != 1 || minherit.yget(cc) != 2 || minherit.zget(cc) != 3)
|
|
error("Bad attribute value %d %d %d",minherit.xget(cc),minherit.yget(cc),minherit.zget(cc));
|
|
endif
|
|
|
|
if (minherit.xget(dd) != 1 || minherit.yget(dd) != 2 || minherit.zget(dd) != 3 || minherit.wget(dd) != 4)
|
|
error("Bad attribute value %d %d %d %d",minherit.xget(dd),minherit.yget(dd),minherit.zget(dd),minherit.wget(dd))
|
|
endif
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|