21 lines
320 B
Mathematica
21 lines
320 B
Mathematica
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
grouping
|
|
|
|
x = grouping.test1(42);
|
|
if (x != 42)
|
|
error("failed");
|
|
endif
|
|
|
|
grouping.test2(42);
|
|
|
|
x = (grouping.do_unary(37, grouping.NEGATE));
|
|
if (x != -37)
|
|
error("failed");
|
|
endif
|
|
|
|
grouping.cvar.test3 = 42;
|