fprintf('*******************************************************************************\n');
fprintf('*** IGNORE *** OKs and FAILUREs --- code will abort if something has gone wrong\n');

x = rand;
y = x;
assert(testequal(x, y));
assert(~testequal(x, y + eps));
assert(testequal([x x 7*x; 2*x 3*x 5*x], [x x 7*x; 2*x 3*x 5*x]));
assert(~testequal([x x 7*x; 2*x 3*x 4*x], [x x 7*x]));
assert(testequal([x x 7*x; 2*x 3*x 5*x], [x x 7*x; 2*x 3*x 5*x], [x x 7*x; 2*x 3*x 5*x], [x x 7*x; 2*x 3*x 5*x]));
assert(~testequal([x x 7*x; 2*x 3*x 5*x], [x x 7*x; 2*x 3*x 5*x], [x x+eps 7*x; 2*x 3*x 5*x], [x x 7*x; 2*x 3*x 5*x]));

assert(testequal([x x 7*x; 2*x 3*x nan], [x x 7*x; 2*x 3*x nan]));

fprintf('*** END IGNORE *** OKs and FAILUREs count after now\n');
fprintf('*******************************************************************************\n');

test_exit