0001 function mptest_ex1(quiet) 0002 if nargin < 1 0003 quiet = 0; 0004 end 0005 t_begin(4, quiet); 0006 t_ok(pi > 3, 'size of pi'); 0007 if have_feature('octave') 0008 t_ok(1, 'Octave-only test foo'); 0009 t_ok(1, 'Octave-only test bar'); 0010 else 0011 t_skip(2, 'foo and bar tests require Octave'); 0012 end 0013 t_is(2+2, 4, 12, '2+2 still equals 4'); 0014 t_end;