Fix references
Pierre Marechal [Fri, 22 Aug 2008 13:14:53 +0000 (13:14 +0000)]
65 files changed:
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_1649.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3296.dia.ref
scilab/modules/data_structures/tests/nonreg_tests/bug_424.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/addinter.unix.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/addinter.win.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2484.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2581.dia.ref
scilab/modules/fileio/tests/unit_tests/msscanf.dia.ref
scilab/modules/graphic_export/tests/unit_tests/non_empty_file.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_120.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_1257.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_140.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_1479.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_1484.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_1689.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_1857.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2154.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2165.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2250.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2458.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2577.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2597.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2631.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2722.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2749.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2797.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2818.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2819.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2838.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2884.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2890.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3061.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3085.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3091.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3092.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3115.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_313.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3133.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3158.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_404.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_711.dia.ref
scilab/modules/graphics/tests/unit_tests/figure.axes_size.dia.ref
scilab/modules/graphics/tests/unit_tests/figure.event_handler.dia.ref
scilab/modules/graphics/tests/unit_tests/figure.figure_position.dia.ref
scilab/modules/graphics/tests/unit_tests/figure.figure_size.dia.ref
scilab/modules/graphics/tests/unit_tests/get_figure_handle.dia.ref
scilab/modules/graphics/tests/unit_tests/is_handle_valid.dia.ref
scilab/modules/graphics/tests/unit_tests/load_old_file.dia.ref
scilab/modules/graphics/tests/unit_tests/rotation_memory_leak.dia.ref
scilab/modules/graphics/tests/unit_tests/save_load.dia.ref
scilab/modules/graphics/tests/unit_tests/surface.hiddencolor.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_1990.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_2183.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_2196.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_2517.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_3031.dia.ref
scilab/modules/gui/tests/nonreg_tests/bug_56.dia.ref
scilab/modules/io/tests/nonreg_tests/bug_167.dia.ref
scilab/modules/matio/tests/unit_tests/loadmatfile.dia.ref
scilab/modules/matio/tests/unit_tests/savematfile.dia.ref
scilab/modules/randlib/tests/unit_tests/Rand.dia.ref
scilab/modules/randlib/tests/unit_tests/grand.dia.ref
scilab/modules/sound/tests/nonreg_tests/bug_141.dia.ref
scilab/modules/string/tests/nonreg_tests/bug_1305.dia.ref
scilab/modules/tclsci/tests/nonreg_tests/bug_3303.dia.ref

index f812d28..258db13 100644 (file)
@@ -26,4 +26,4 @@
 //     53.    54.    55.    56.
 //
 z = ['1' '2' '3' '4'; '5' '6' '7' '8'];
-if or(asciimat(z)<>[49 50 51 52 ; 53 54 55 56]) then pause;end
+if or(asciimat(z)<>[49 50 51 52 ; 53 54 55 56]) then bugmes();quit;end
index daa54b1..517200d 100644 (file)
@@ -13,4 +13,4 @@
 // Wrong error message in exists
 execstr("exists(4)", "errcatch");
 msg = lasterror();
-if msg<> msprintf(gettext("%s: Wrong type for argument %d: String matrix expected.\n"), "exists", 1) then pause; end
+if msg<> msprintf(gettext("%s: Wrong type for argument %d: String matrix expected.\n"), "exists", 1) then bugmes();quit;end
index 2b0fa16..21bee8a 100644 (file)
@@ -11,4 +11,4 @@
 //
 // <-- Short Description -->
 //    hypermatrix insertion problem
-if execstr("S=[];for k=1:5,S(1:2,1:3,k)=rand(2,3);end","errcatch")<>0 then pause; end
+if execstr("S=[];for k=1:5,S(1:2,1:3,k)=rand(2,3);end","errcatch")<>0 then bugmes();quit;end
index 32c02da..b82deaa 100644 (file)
@@ -29,10 +29,10 @@ if ~c_link('libintertest') then
   // enable message
   warning(warning_mode);
   //  check addinter add scifun1
-  if ( funptr('scifun1') == 0 ) then pause;end
-  if norm(scifun1(%pi)- sin(%pi+1)/%pi ) > %eps then pause;end
+  if ( funptr('scifun1') == 0 ) then bugmes();quit;end
+  if norm(scifun1(%pi)- sin(%pi+1)/%pi ) > %eps then bugmes();quit;end
   // remove scifun1
-  if clearfun('scifun1') <> %T  then pause;end
+  if clearfun('scifun1') <> %T  then bugmes();quit;end
   // remove dynamic library link
   ulink();
   chdir(curPath);
index ab706d7..7b812f8 100644 (file)
@@ -21,10 +21,10 @@ if ~c_link('libintertest') then
   // enable message
   warning(warning_mode);
   //  check addinter add scifun1
-  if ( funptr('scifun1') == 0 ) then pause;end
-  if norm(scifun1(%pi)- sin(%pi+1)/%pi ) > %eps then pause;end
+  if ( funptr('scifun1') == 0 ) then bugmes();quit;end
+  if norm(scifun1(%pi)- sin(%pi+1)/%pi ) > %eps then bugmes();quit;end
   // remove scifun1
-  if clearfun('scifun1') <> %T  then pause;end
+  if clearfun('scifun1') <> %T  then bugmes();quit;end
   // remove dynamic library link
   ulink();
   chdir(curPath);
index 930bf24..9bea214 100644 (file)
@@ -14,7 +14,7 @@
 a    = list();
 a(2) = 10;
 save(TMPDIR+"/test.sav",a);
-if execstr("listvarinfile(TMPDIR+""/test.sav"");", "errcatch")<>0 then pause; end
+if execstr("listvarinfile(TMPDIR+""/test.sav"");", "errcatch")<>0 then bugmes();quit;end
 Name                     Type           Size            Bytes     
 ---------------------------------------------------------------
 a                        list           2               43        
index 6367270..222597b 100644 (file)
@@ -13,7 +13,7 @@
 //    mprintf is broken
 colors=["red";"green";"blue";"pink";"black"];
 RGB=[1 0 0;0 1 0;0 0 1;1 0.75 0.75;0 0 0];
-if execstr("mprintf(""%d\t%s\t%f\t%f\t%f\n"",(1:5)'',colors,RGB);", "errcatch")<>0 then pause; end
+if execstr("mprintf(""%d\t%s\t%f\t%f\t%f\n"",(1:5)'',colors,RGB);", "errcatch")<>0 then bugmes();quit;end
 1      red     1.000000        0.000000        0.000000
 2      green   0.000000        1.000000        0.000000
 3      blue    0.000000        0.000000        1.000000
index 0de8560..f6e50df 100644 (file)
@@ -182,32 +182,32 @@ A1=strcat(string(A),' ','c');
 F='%d';F=strcat(F(ones(1,n)),' ');
 // all lines read as int we scan a 5x5 matrix
 A2=msscanf(-1,A1,F);
-if norm(A2-A) > %eps then pause;end
+if norm(A2-A) > %eps then bugmes();quit;end
 // read just 2 lines
 A2=msscanf(2,A1,F);
-if norm(A2-A(1:2,:)) > %eps then pause;end
+if norm(A2-A(1:2,:)) > %eps then bugmes();quit;end
 // explicit columns we scan five columns
 [n,a,b,c,d,e]=msscanf(-1,A1,F);
-if n<>5 then pause;end
-if norm([a,b,c,d,e]-A) > %eps then pause;end
+if n<>5 then bugmes();quit;end
+if norm([a,b,c,d,e]-A) > %eps then bugmes();quit;end
 // all lines read as int but we scan only 2 columns
 A2=msscanf(-1,A1,'%d%d');
-if norm(A2-A(:,1:2)) > %eps then pause;end
+if norm(A2-A(:,1:2)) > %eps then bugmes();quit;end
 // all lines read as string
 F='%s';F=strcat(F(ones(1,n)),' ');
 A2=msscanf(-1,A1,F);
-if A2<>string(A) then pause;end
+if A2<>string(A) then bugmes();quit;end
 // read just 2 lines
 A2=msscanf(2,A1,F);
-if A2<>string(A(1:2,:))  then pause;end
+if A2<>string(A(1:2,:))  then bugmes();quit;end
 // mixed types read column 1 and 2 as string and others as int
 Fs='%s';Fs=strcat(Fs(ones(1,2)),' ');
 Fd='%d';Fd=strcat(Fd(ones(1,n-2)),' ');
 [n,a,b,c,d,e]=msscanf(-1,A1,Fs+' '+Fd);
-if n<>5 then pause;end
-if norm([eval(a),eval(b),c,d,e]-A) > %eps then pause;end
+if n<>5 then bugmes();quit;end
+if norm([eval(a),eval(b),c,d,e]-A) > %eps then bugmes();quit;end
 // same example but returned values are compacted in L
 L=msscanf(-1,A1,Fs+' '+Fd);
-if length(L)<>3 then pause;end
-if norm(getfield(3,L)-A(:,3:n)) > %eps then pause;end
-if getfield(2,L)<>string(A(:,1:2)) then pause;end
+if length(L)<>3 then bugmes();quit;end
+if norm(getfield(3,L)-A(:,3:n)) > %eps then bugmes();quit;end
+if getfield(2,L)<>string(A(:,1:2)) then bugmes();quit;end
index 0680520..be74586 100644 (file)
@@ -17,37 +17,37 @@ xs2bmp(figIndex, TMPDIR+"/textExport.bmp")
 fileSize = fileinfo(TMPDIR+"/textExport.bmp");
 // check that file size is greater than 10K
 minimumSize = 10000;
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.bmp");
 // same for other formats
 xs2gif(figIndex, TMPDIR+"/textExport.gif")
 fileSize = fileinfo(TMPDIR+"/textExport.gif");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.gif");
 xs2jpg(figIndex, TMPDIR+"/textExport.jpg")
 fileSize = fileinfo(TMPDIR+"/textExport.jpg");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.jpg");
 xs2png(figIndex, TMPDIR+"/textExport.png")
 fileSize = fileinfo(TMPDIR+"/textExport.png");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.png");
 // vectorial export
 // increase minimum size
 minimumSize = 10000;
 xs2ps(figIndex, TMPDIR+"/textExport.ps")
 fileSize = fileinfo(TMPDIR+"/textExport.ps");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.ps");
 xs2eps(figIndex, TMPDIR+"/textExport.eps")
 fileSize = fileinfo(TMPDIR+"/textExport.eps");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.eps");
 xs2svg(figIndex, TMPDIR+"/textExport.svg")
 fileSize = fileinfo(TMPDIR+"/textExport.svg");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.svg");
 xs2pdf(figIndex, TMPDIR+"/textExport.pdf")
 fileSize = fileinfo(TMPDIR+"/textExport.pdf");
-if (fileSize(1) < minimumSize) then pause; end;
+if (fileSize(1) < minimumSize) then bugmes();quit;end;
 mdelete(TMPDIR+"/textExport.pdf");
index ead85b5..a296930 100644 (file)
@@ -40,8 +40,8 @@ dataBounds1 = curFig.children(2).data_bounds
     0.01  - 29.4651    
     100.    30.537043  
 // chack that the X bounds are [fmin, fmax]
-if (dataBounds1(1,1) <> fmin) then pause; end;
-if (dataBounds1(2,1) <> fmax) then pause; end;
+if (dataBounds1(1,1) <> fmin) then bugmes();quit;end;
+if (dataBounds1(2,1) <> fmax) then bugmes();quit;end;
 // same for magnitude plot
 dataBounds2 = curFig.children(3).data_bounds
  dataBounds2  =
@@ -49,5 +49,5 @@ dataBounds2 = curFig.children(3).data_bounds
     0.01  - 0.1723667  
     100.    9.4565594  
 // chack that the X bounds are [fmin, fmax]
-if (dataBounds2(1,1) <> fmin) then pause; end;
-if (dataBounds2(2,1) <> fmax) then pause; end;
+if (dataBounds2(1,1) <> fmin) then bugmes();quit;end;
+if (dataBounds2(2,1) <> fmax) then bugmes();quit;end;
index b289bee..d54ab59 100644 (file)
@@ -24,4 +24,4 @@ subplot(1,2,2)
 axes1 = f.children(1);
 axes2 = f.children(2);
 axes1.rotation_angles = [20,30];
-if (axes2.rotation_angles <> axes1.rotation_angles) then pause; end
+if (axes2.rotation_angles <> axes1.rotation_angles) then bugmes();quit;end
index c971423..2afe9ef 100644 (file)
@@ -16,4 +16,4 @@ nenner=poly([1.3435,0.855],"z","coeff");
 sys=syslin("d",zaehler./nenner);
 execstr("plzr(sys);", "errcatch");
 [msg, num, x, y] = lasterror();
-if (msg<>gettext("plzr: The given transfer fuction is not proper.")) | (num<>10000) then pause; end
+if (msg<>gettext("plzr: The given transfer fuction is not proper.")) | (num<>10000) then bugmes();quit;end
index f971835..a8e5916 100644 (file)
@@ -21,20 +21,20 @@ v = xget ("line mode"),
  v  =
  
     1.  
-if (v <> 1) then pause; end
+if (v <> 1) then bugmes();quit;end
 ha.line_mode = "off";
 // should be off
 v = xget ("line mode"),
  v  =
  
     0.  
-if (v <> 0) then pause; end;
+if (v <> 0) then bugmes();quit;end;
 delete (hf);
 // second program
 hf = scf ();
 ha = hf.children;
 xset ("line mode", 1);
-if ( ha.line_mode <> "on") then pause; end;
+if ( ha.line_mode <> "on") then bugmes();quit;end;
 xset ("line mode", 0);
-if (ha.line_mode <> "off") then pause; end;
+if (ha.line_mode <> "off") then bugmes();quit;end;
 delete (hf);
index 28a1f02..554f328 100644 (file)
@@ -17,4 +17,4 @@ xclip(rect);
 WARNING : Function xclip is obsolete.
 WARNING : Please use clip_state and clip_box instead.
 
-if (xget("clipping") <> rect) then pause; end
+if (xget("clipping") <> rect) then bugmes();quit;end
index 3eb9c54..a951a8f 100644 (file)
@@ -17,7 +17,7 @@ figureSize = [800, 600];
 // check that final figure size is the one specified
 hf = gcf();
 xset ("wpdim", figureSize(1), figureSize(2));
-if (hf.figure_size <> figureSize) then pause; end;
+if (hf.figure_size <> figureSize) then bugmes();quit;end;
 figureSize = [640, 480];
 hf.figure_size = figureSize;
-if (hf.figure_size <> figureSize) then pause; end;
+if (hf.figure_size <> figureSize) then bugmes();quit;end;
index ac1b78c..4ff5459 100644 (file)
@@ -18,16 +18,16 @@ x=[0.001 0.01 0.1 1.0 10. 100];y=[20 30 40 50 60 70];
 mtlb_semilogx(x,y)
 // check that current axes has log flags "ln";
 axes = gca();
-if (axes.log_flags <> "lnn") then pause; end
+if (axes.log_flags <> "lnn") then bugmes();quit;end
 // mtlb_semilogy
 x=[1:0.1:10];y=2*x^2;
 mtlb_semilogy(x,y)
 // check that current axes has log flags "nl";
 axes = gca();
-if (axes.log_flags <> "nln") then pause; end
+if (axes.log_flags <> "nln") then bugmes();quit;end
 // mtlb_loglog
 x=[1:0.1:10];y=2*x^2;
 mtlb_loglog(x,y)
 // check that current axes has log flags "ll";
 axes = gca();
-if (axes.log_flags <> "lln") then pause; end
+if (axes.log_flags <> "lln") then bugmes();quit;end
index 61f558f..4272c81 100644 (file)
@@ -21,10 +21,10 @@ e.color_flag // valeur 2 ok
  
     2.  
 errorNum = execstr("e.color_flag=2", "errcatch"); //message d'erreur : bug
-if (errorNum <> 0) then pause; end;
+if (errorNum <> 0) then bugmes();quit;end;
 e.cdata_mapping // valeur direct=ok
  ans  =
  
  direct   
 errorNum = execstr("e.cdata_mapping=''direct''", "errcatch"); //message d'erreur : bug
-if (errorNum <> 0) then pause; end;
+if (errorNum <> 0) then bugmes();quit;end;
index 4dbc268..420f9a2 100644 (file)
@@ -14,5 +14,5 @@
 // Impossible to save Scilab variables when there are no more existing handles.
 f = gcf();
 delete(f);
-if execstr("save(TMPDIR+""/bug_2165.tst"");", "errcatch")<>0 then pause; end
+if execstr("save(TMPDIR+""/bug_2165.tst"");", "errcatch")<>0 then bugmes();quit;end
 WARNING : save_graphichandle: handle no more valid ignored.
index 66fe9fe..9966147 100644 (file)
@@ -22,5 +22,5 @@ save(pathconvert(TMPDIR+"/bug_2250.scg",%f), f)
 delete(f)
 load(pathconvert(TMPDIR+"/bug_2250.scg",%f))
 figureloaded = gcf();
-if figureloaded.background<>backgroundvariable then pause; end
-if figureloaded.user_data<>userdatavariable then pause;end
+if figureloaded.background<>backgroundvariable then bugmes();quit;end
+if figureloaded.user_data<>userdatavariable then bugmes();quit;end
index 8ff1c13..a1cc7cb 100644 (file)
@@ -30,6 +30,6 @@ for k=1:nbComputation, show_pixmap(),free=[free,getmemory()];end
 // compute used memory during compuations
 usedMemory = free(1) - free(nbComputation);
 // 5 mega
-if (usedMemory > 5000) then pause; end
+if (usedMemory > 5000) then bugmes();quit;end
 Type 'resume' or 'abort' to return to standard level prompt.
 
index eb7e9a0..a0ceddc 100644 (file)
@@ -21,4 +21,4 @@ delete(h);
 // a call to h should not open a window
 if is_handle_valid(h)<>%f then bugmes();quit;end;
 // no window should have been created
-if (winsid() <> []) then pause; end
+if (winsid() <> []) then bugmes();quit;end
index 0e01944..e0c364f 100644 (file)
@@ -17,5 +17,5 @@ f = gcf();
 drawaxis();
 xsave(TMPDIR+"/bug_2597.scg");
 delete(f);
-if execstr("load(TMPDIR+""/bug_2597.scg"");","errcatch")<>0 then pause;end
+if execstr("load(TMPDIR+""/bug_2597.scg"");","errcatch")<>0 then bugmes();quit;end
 delete(gcf());
index 636e14a..28c2f0d 100644 (file)
@@ -17,4 +17,4 @@
 name = 'Something';
 my_figure_handle             = scf(10);
 my_figure_handle.figure_name = name;
-if (my_figure_handle.figure_name <> name) then pause; end;
+if (my_figure_handle.figure_name <> name) then bugmes();quit;end;
index 716f55c..57eee46 100644 (file)
@@ -19,7 +19,7 @@ x=linspace(-%pi,%pi,100);
 plot2d(x,sin(x));
 axes = gca();
 // axes box should be off
-if (axes.box <> "off") then pause; end;
+if (axes.box <> "off") then bugmes();quit;end;
 // reset default model axes
 sda();
 clf();
@@ -28,7 +28,7 @@ axes.box="off";
 x=linspace(-%pi,%pi,100);
 plot2d(x,sin(x));
 // axes box should be off
-if (axes.box <> "off") then pause; end
+if (axes.box <> "off") then bugmes();quit;end
 // for plot
 sda();
 dAxes = gda();
@@ -38,7 +38,7 @@ clf();
 plot(1:10);
 axes = gca();
 // box should be "off" since axes at at origin
-if (axes.box <> "off") then pause; end
+if (axes.box <> "off") then bugmes();quit;end
 // for plot
 sda();
 clf();
@@ -48,4 +48,4 @@ dAxes.y_location = "left";
 plot(1:10);
 axes = gca();
 // box should be "on"
-if (axes.box <> "on") then pause; end
+if (axes.box <> "on") then bugmes();quit;end
index 76a9669..baae8b3 100644 (file)
@@ -46,4 +46,4 @@ end
 // user complained that it use to use 20Mb of memory
 endFreeMemory = getmemory();
 // give 4 meg
-if ((initFreeMemory - endFreeMemory) > 4096) then pause; end
+if ((initFreeMemory - endFreeMemory) > 4096) then bugmes();quit;end
index 681584b..2a30afe 100644 (file)
@@ -29,4 +29,4 @@ plot(x,f)
  Error 27 at line 0 : Division by zero...   
 plot(x,x)
 // check we are not in drawlater mode anymore
-if (curFig.immediate_drawing <> "on") then pause; end
+if (curFig.immediate_drawing <> "on") then bugmes();quit;end
index edc2502..add6527 100644 (file)
@@ -16,4 +16,4 @@
 clf();
 axes = gca();
 // no box should be present
-if (axes.box == "on") then pause; end;
+if (axes.box == "on") then bugmes();quit;end;
index dd3fca3..4e2a8cf 100644 (file)
@@ -14,6 +14,6 @@
 // When setting the property "auto_ticks" of the Axes, it is not set properly.
 a=gca();
 a.auto_ticks=["off" "off" "off"];
-if (a.auto_ticks <> ["off", "off", "off"]) then pause; end;
+if (a.auto_ticks <> ["off", "off", "off"]) then bugmes();quit;end;
 a.auto_ticks=["on" "on" "off"];
-if (a.auto_ticks <> ["on", "on", "off"]) then pause; end;
+if (a.auto_ticks <> ["on", "on", "off"]) then bugmes();quit;end;
index 0174382..0bf3a34 100644 (file)
@@ -21,5 +21,5 @@ legends(["Circle with radius 1";..
          "Circle with radius 2";..
          "Circle with radius 5"],..
          [1,5,6],opt="below");
-if (ha.isoview <> "on") then pause; end
+if (ha.isoview <> "on") then bugmes();quit;end
 // check that the axes are still in isoview mode
index 43d5c5b..5dfb1fa 100644 (file)
@@ -25,6 +25,6 @@ end
 fig = gcf();
 axesSize = fig.axes_size;
 for i = 1:4
-  if (pixPos(i,1) < 0 | pixPos(i,1) > axesSize(1)) then pause; end
-  if (pixPos(i,2) < 0 | pixPos(i,2) > axesSize(2)) then pause; end
+  if (pixPos(i,1) < 0 | pixPos(i,1) > axesSize(1)) then bugmes();quit;end
+  if (pixPos(i,2) < 0 | pixPos(i,2) > axesSize(2)) then bugmes();quit;end
 end
index d182940..6942dff 100644 (file)
@@ -16,7 +16,7 @@ x=logspace(-2,2,100);
 plot(x,x);
 a=gca();a.log_flags='ll';
 // check that there is ticks along X and Y axes
-if (a.x_ticks.labels == []) then pause;end;
-if (a.x_ticks.locations == []) then pause;end;
-if (a.y_ticks.labels == []) then pause;end;
-if (a.x_ticks.locations == []) then pause;end;
+if (a.x_ticks.labels == []) then bugmes();quit;end;
+if (a.x_ticks.locations == []) then bugmes();quit;end;
+if (a.y_ticks.labels == []) then bugmes();quit;end;
+if (a.x_ticks.locations == []) then bugmes();quit;end;
index dd971c7..af62796 100644 (file)
@@ -26,7 +26,7 @@ fig = gcf();
 axesSize = fig.axes_size;
 // check that the label is drawn on top of the canvas and visible
 for i = 1:4
-  if (pixPos(i,2) < 0 | pixPos(i,2) > axesSize(2) * 0.1) then pause; end
+  if (pixPos(i,2) < 0 | pixPos(i,2) > axesSize(2) * 0.1) then bugmes();quit;end
 end
 // second test
 // create two plots
@@ -41,7 +41,7 @@ for i = 1:4
 end
 // check that the label is drawn on top of the canvas and visible
 for i = 1:4
-  if (pixPos(i,2) < 0 | pixPos(i,2) > axesSize(2) * 0.1) then pause; end
+  if (pixPos(i,2) < 0 | pixPos(i,2) > axesSize(2) * 0.1) then bugmes();quit;end
 end
 // check that title of a1 is in the middle of the canvas
 subplot(212);
@@ -52,5 +52,5 @@ for i = 1:4
 end
 // check that the label is drawn on top of the canvas and visible
 for i = 1:4
-  if (pixPos(i,2) < axesSize(2) * 0.4 | pixPos(i,2) > axesSize(2) * 0.6) then pause; end
+  if (pixPos(i,2) < axesSize(2) * 0.4 | pixPos(i,2) > axesSize(2) * 0.6) then bugmes();quit;end
 end
index 6f28d4b..a4af49e 100644 (file)
@@ -15,4 +15,4 @@
 my_handle = scf();
 my_handle.figure_size = [400,400] ;  // OK
 my_handle.figure_size = [400,600];   // used to failed
-if (my_handle.figure_size <> [400, 600]) then pause; end;
+if (my_handle.figure_size <> [400, 600]) then bugmes();quit;end;
index accea08..f4be099 100644 (file)
@@ -19,7 +19,7 @@ figSize1 = fig.figure_size;
 for i = 1:100,
   fig = gcf();
   figSize2 = fig.figure_size;
-  if (figSize2 <> figSize1) then pause;end
+  if (figSize2 <> figSize1) then bugmes();quit;end
 end
 delete(fig);
 // same for axes_size
@@ -27,7 +27,7 @@ fig = scf();
 axesSize1 = fig.axes_size;
 for i = 1:100,
   axesSize2 = fig.axes_size;
-  if (axesSize2 <> axesSize1) then pause;end
+  if (axesSize2 <> axesSize1) then bugmes();quit;end
 end
 delete(fig);
 // same for figure_position
@@ -35,5 +35,5 @@ fig = scf();
 figPos1 = fig.figure_position;
 for i = 1:100,
   figPos2 = fig.figure_position;
-  if (figPos2 <> figPos1) then pause;end
+  if (figPos2 <> figPos1) then bugmes();quit;end
 end
index d715e56..cd555e6 100644 (file)
@@ -18,6 +18,6 @@ plot2d();
 clf(f4,'reset');
 defaultFig = gdf();
 // check that axes_size are set to default
-if (f4.axes_size <> defaultFig.axes_size) then pause; end;
+if (f4.axes_size <> defaultFig.axes_size) then bugmes();quit;end;
 // check that figure is empty
-if (f4.children.children <> [] ) then pause; end;
+if (f4.children.children <> [] ) then bugmes();quit;end;
index fae8b33..d2d970b 100644 (file)
@@ -15,5 +15,5 @@
 clf()
 plot([0.01,100],[1,10]);a=gca();a.log_flags='lln';
 // check that ticks loacations are right
-if ( a.x_ticks.locations <> [0.01;0.1;1;10;100] ) then pause; end
-if ( a.y_ticks.locations <> [1;10] ) then pause; end
+if ( a.x_ticks.locations <> [0.01;0.1;1;10;100] ) then bugmes();quit;end
+if ( a.y_ticks.locations <> [1;10] ) then bugmes();quit;end
index cd6b85e..b96c3c9 100644 (file)
@@ -31,5 +31,5 @@ WARNING : Please use clip_state and clip_box instead.
 xsegs(10*x1+200*ones(x1),10*y1+200*ones(y1));
 // check that xsegs is clipped
 segs = gce();
-if (segs.clip_state <> "on") then pause; end;
-if (segs.clip_box <> clipBox) then pause; end
+if (segs.clip_state <> "on") then bugmes();quit;end;
+if (segs.clip_box <> clipBox) then bugmes();quit;end
index 6d23c38..ce47adf 100644 (file)
@@ -20,4 +20,4 @@ my_axis = gca();
 if my_axis.rotation_angles <> [70 70] then bugmes();quit;end;
 // should not change info message
 my_axe.rotation_angles = [70, 70];
-if (my_fig.info_message <> infoMessage) then pause; end
+if (my_fig.info_message <> infoMessage) then bugmes();quit;end
index 28f4a48..1e7fce0 100644 (file)
@@ -21,4 +21,4 @@ zoom_rect([0.5,0.5,0.6,0.6]);
 a.margins = [0,0,0,0];
 // get user coordinates of the upper left point of the window
 [x, y] = xchange(0, 0, "i2f");
-if ( abs(x - 0.5) > 0.01 | abs(y - 0.6) > 0.01) then pause;end
+if ( abs(x - 0.5) > 0.01 | abs(y - 0.6) > 0.01) then bugmes();quit;end
index efd5960..d9e9a94 100644 (file)
@@ -43,16 +43,16 @@ axesBounds4 = axes4.axes_bounds;
 subplot(3,3,4);
 plot2d(T,T);
 // check that data bounds did not change for other plots
-if (axes1.data_bounds <> dataBounds1) then pause; end;
-if (axes2.data_bounds <> dataBounds2) then pause; end;
-if (axes3.data_bounds <> dataBounds3) then pause; end;
+if (axes1.data_bounds <> dataBounds1) then bugmes();quit;end;
+if (axes2.data_bounds <> dataBounds2) then bugmes();quit;end;
+if (axes3.data_bounds <> dataBounds3) then bugmes();quit;end;
 // margins should not have change for any of plots
-if (axes1.margins <> margins1) then pause; end;
-if (axes2.margins <> margins2) then pause; end;
-if (axes3.margins <> margins3) then pause; end;
-if (axes4.margins <> margins4) then pause; end;
+if (axes1.margins <> margins1) then bugmes();quit;end;
+if (axes2.margins <> margins2) then bugmes();quit;end;
+if (axes3.margins <> margins3) then bugmes();quit;end;
+if (axes4.margins <> margins4) then bugmes();quit;end;
 // axes_bounds also
-if (axes1.axes_bounds <> axesBounds1) then pause; end;
-if (axes2.axes_bounds <> axesBounds2) then pause; end;
-if (axes3.axes_bounds <> axesBounds3) then pause; end;
-if (axes4.axes_bounds <> axesBounds4) then pause; end;
+if (axes1.axes_bounds <> axesBounds1) then bugmes();quit;end;
+if (axes2.axes_bounds <> axesBounds2) then bugmes();quit;end;
+if (axes3.axes_bounds <> axesBounds3) then bugmes();quit;end;
+if (axes4.axes_bounds <> axesBounds4) then bugmes();quit;end;
index 2555c4e..173aeae 100644 (file)
@@ -20,7 +20,7 @@ for k=1:10,
   xset('wpos', pos(1), pos(2));
   pos = xget('wpos');
 end
-if (pos <> initPos) then pause; end;
+if (pos <> initPos) then bugmes();quit;end;
 // also
 pos = initPos;
 f=gcf();
@@ -28,4 +28,4 @@ for k=1:10,
   f.figure_position=pos;
   pos = f.figure_position;
 end
-if (pos <> initPos) then pause; end;
+if (pos <> initPos) then bugmes();quit;end;
index 17a9fbf..e2d12d1 100644 (file)
@@ -16,8 +16,8 @@ my_default_axes_size   = my_figure.axes_size;
 // auto_resize = "on"
 my_figure.auto_resize = "on";
 my_figure.axes_size = my_default_axes_size + 200;
-if or( my_figure.figure_size <> (my_default_figure_size + 200) ) then pause; end
-if or( my_figure.axes_size   <> (my_default_axes_size   + 200) ) then pause; end
+if or( my_figure.figure_size <> (my_default_figure_size + 200) ) then bugmes();quit;end
+if or( my_figure.axes_size   <> (my_default_axes_size   + 200) ) then bugmes();quit;end
 // Delete
 delete(my_figure);
 // Test 2 : auto_resize = "off"
@@ -31,7 +31,7 @@ my_default_axes_size   = my_figure.axes_size;
 // auto_resize = "on"
 my_figure.auto_resize = "off";
 my_figure.axes_size = my_default_axes_size + 200;
-if or( my_figure.figure_size <> my_default_figure_size) then pause; end
-if or( my_figure.axes_size   <> (my_default_axes_size + 200) ) then pause; end
+if or( my_figure.figure_size <> my_default_figure_size) then bugmes();quit;end
+if or( my_figure.axes_size   <> (my_default_axes_size + 200) ) then bugmes();quit;end
 // Delete
 delete(my_figure);
index e44dd1a..50e2df5 100644 (file)
 // Create a default figure
 my_figure = scf();
 // check default values
-if (my_figure.event_handler <> "") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 // setEventhandler("mypersonnaleventhanlder") test
 seteventhandler("mypersonnaleventhanlder");
-if (my_figure.event_handler <> "mypersonnaleventhanlder") then pause; end
-if (my_figure.event_handler_enable <> "on") then pause; end
+if (my_figure.event_handler <> "mypersonnaleventhanlder") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "on") then bugmes();quit;end
 // setEventhandler("") test
 seteventhandler("");
-if (my_figure.event_handler <> "") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 // my_figure.event_handler = "mypersonnaleventhanlder"
 my_figure.event_handler = "mypersonnaleventhanlder";
-if (my_figure.event_handler <> "mypersonnaleventhanlder") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "mypersonnaleventhanlder") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 // my_figure.event_handler_enable = "on"
 my_figure.event_handler_enable = "on";
-if (my_figure.event_handler <> "mypersonnaleventhanlder") then pause; end
-if (my_figure.event_handler_enable <> "on") then pause; end
+if (my_figure.event_handler <> "mypersonnaleventhanlder") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "on") then bugmes();quit;end
 // my_figure.event_handler = ""
 // Erasing event_handler make enable flag go 'off'
  my_figure.event_handler = "";
-if (my_figure.event_handler <> "") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 // my_figure.event_handler_enable = "on";
 // Forcing event handler enable without event handler raise a warning
-if (my_figure.event_handler <> "") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 // my_figure.event_handler = "mypersonnaleventhanlder"
 // then enable
 // then disable
 my_figure.event_handler = "mypersonnaleventhanlder";
-if (my_figure.event_handler <> "mypersonnaleventhanlder") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "mypersonnaleventhanlder") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 my_figure.event_handler_enable = "on";
-if (my_figure.event_handler <> "mypersonnaleventhanlder") then pause; end
-if (my_figure.event_handler_enable <> "on") then pause; end
+if (my_figure.event_handler <> "mypersonnaleventhanlder") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "on") then bugmes();quit;end
 my_figure.event_handler_enable = "off";
-if (my_figure.event_handler <> "mypersonnaleventhanlder") then pause; end
-if (my_figure.event_handler_enable <> "off") then pause; end
+if (my_figure.event_handler <> "mypersonnaleventhanlder") then bugmes();quit;end
+if (my_figure.event_handler_enable <> "off") then bugmes();quit;end
 // Delete
 delete(my_figure);
index 813d60d..fd2c6d9 100644 (file)
@@ -11,6 +11,6 @@ clf(my_figure,"reset");
 // Get default value
 my_df_figure_position = my_figure.figure_position;
 my_figure.figure_position = my_df_figure_position + 100;
-if or( my_figure.figure_position <> (my_df_figure_position + 100) ) then pause; end
+if or( my_figure.figure_position <> (my_df_figure_position + 100) ) then bugmes();quit;end
 // Delete
 delete(my_figure);
index ca9f09a..fd4bf53 100644 (file)
@@ -16,8 +16,8 @@ my_default_axes_size   = my_figure.axes_size;
 // auto_resize = "on"
 my_figure.auto_resize = "on";
 my_figure.figure_size = my_default_figure_size + 200;
-if or( my_figure.figure_size <> (my_default_figure_size + 200) ) then pause; end
-if or( my_figure.axes_size   <> (my_default_axes_size   + 200) ) then pause; end
+if or( my_figure.figure_size <> (my_default_figure_size + 200) ) then bugmes();quit;end
+if or( my_figure.axes_size   <> (my_default_axes_size   + 200) ) then bugmes();quit;end
 // Delete
 delete(my_figure);
 // Test 2 : auto_resize = "off"
@@ -31,7 +31,7 @@ my_default_axes_size   = my_figure.axes_size;
 // auto_resize = "on"
 my_figure.auto_resize = "off";
 my_figure.figure_size = my_default_figure_size + 200;
-if or( my_figure.figure_size <> (my_default_figure_size + 200) ) then pause; end
-if or( my_figure.axes_size   <> my_default_axes_size ) then pause; end
+if or( my_figure.figure_size <> (my_default_figure_size + 200) ) then bugmes();quit;end
+if or( my_figure.axes_size   <> my_default_axes_size ) then bugmes();quit;end
 // Delete
 delete(my_figure);
index 2b9fcb0..9a67664 100644 (file)
@@ -13,8 +13,8 @@ f200 = scf(200);
 // gcf is f200
 f45bis = get_figure_handle(45);
 // check that this is the same handle
-if (f45bis <> f45) then pause; end;
+if (f45bis <> f45) then bugmes();quit;end;
 // check that gcf did not change
-if (gcf() <> f200) then pause; end;
+if (gcf() <> f200) then bugmes();quit;end;
 // try to find a figure that does not exists
-if (get_figure_handle(12) <> []) then pause; end
+if (get_figure_handle(12) <> []) then bugmes();quit;end
index 387db1d..c7c807b 100644 (file)
@@ -8,7 +8,7 @@
 // test is_handle_valid function
 // check that current objects are valid
 test = is_handle_valid([gcf(), gca(), gce()]);
-if (test <> [%t, %t, %t]) then pause; end;
+if (test <> [%t, %t, %t]) then bugmes();quit;end;
 // create 11 polylines
 plot([0:10; 0:10; 0:10], [0:10; 0:0.5:5; 0:2:20]);
 // check polylines validity
@@ -30,7 +30,7 @@ Polyline
 Polyline 
 Polyline 
 test = is_handle_valid(polylines);
-if (test <> [%t; %t; %t; %t; %t; %t; %t; %t; %t; %t; %t]) then pause; end
+if (test <> [%t; %t; %t; %t; %t; %t; %t; %t; %t; %t; %t]) then bugmes();quit;end
 // delete some polylines
 delete(polylines(3:7));
 // print validity
@@ -48,4 +48,4 @@ test = is_handle_valid(polylines)
   T  
   T  
   T  
-if (test <> [%t; %t; %f; %f; %f; %f; %f; %t; %t; %t; %t]) then pause; end
+if (test <> [%t; %t; %f; %f; %f; %f; %f; %t; %t; %t; %t]) then bugmes();quit;end
index 3752a4a..9a16960 100644 (file)
@@ -17,73 +17,73 @@ load(SCI + "/modules/graphics/tests/unit_tests/load_old_file.scg");
 // check some data
 fig = gcf();
 // check figure
-if fig.figure_id <> 0 then pause; end
-if fig.background <> 8 then pause; end
-if fig.pixel_drawing_mode <> "copy" then pause; end
-if size(fig.children, '*') <> 1 then pause; end
+if fig.figure_id <> 0 then bugmes();quit;end
+if fig.background <> 8 then bugmes();quit;end
+if fig.pixel_drawing_mode <> "copy" then bugmes();quit;end
+if size(fig.children, '*') <> 1 then bugmes();quit;end
 // check axes
 axes = f.children;
-if axes.type <> "Axes" then pause; end
-if size(axes.children, '*') <> 5 then pause; end
-if axes.axes_visible <> ["on", "on", "on"] then pause; end
-if axes.x_location <> "bottom" then pause; end
-if axes.grid <> [-1, -1] then pause; end
-if axes.font_style <> 6 then pause; end
-if axes.data_bounds <> [-10, 2; 10, 2] then pause; end
-if axes.margins <> [0.125, 0.125, 0.125, 0.125] then pause; end
-if axes.axes_bounds <> [0,0,1,1] then pause; end
-if axes.hiddencolor <> 4 then pause; end
-if axes.user_data <> [] then pause; end;
-if axes.clip_state <> "clipgrf" then pause; end
-if axes.view <> "2d" then pause; end
+if axes.type <> "Axes" then bugmes();quit;end
+if size(axes.children, '*') <> 5 then bugmes();quit;end
+if axes.axes_visible <> ["on", "on", "on"] then bugmes();quit;end
+if axes.x_location <> "bottom" then bugmes();quit;end
+if axes.grid <> [-1, -1] then bugmes();quit;end
+if axes.font_style <> 6 then bugmes();quit;end
+if axes.data_bounds <> [-10, 2; 10, 2] then bugmes();quit;end
+if axes.margins <> [0.125, 0.125, 0.125, 0.125] then bugmes();quit;end
+if axes.axes_bounds <> [0,0,1,1] then bugmes();quit;end
+if axes.hiddencolor <> 4 then bugmes();quit;end
+if axes.user_data <> [] then bugmes();quit;end;
+if axes.clip_state <> "clipgrf" then bugmes();quit;end
+if axes.view <> "2d" then bugmes();quit;end
 // check first compound
 comp1 = axes.children(1);
-if comp1.type <> "Compound" then pause; end
-if size(comp1.children, '*') <> 3 then pause; end
-if comp1.visible <> "on" then pause; end
+if comp1.type <> "Compound" then bugmes();quit;end
+if size(comp1.children, '*') <> 3 then bugmes();quit;end
+if comp1.visible <> "on" then bugmes();quit;end
 // check compund children
-if comp1.children(1).type <> "Polyline" then pause; end
-if comp1.children(1).foreground <> 3 then pause; end
-if comp1.children(2).type <> "Polyline" then pause; end
-if comp1.children(2).foreground <> 2 then pause; end
-if comp1.children(3).type <> "Polyline" then pause; end
-if comp1.children(3).foreground <> 1 then pause; end
+if comp1.children(1).type <> "Polyline" then bugmes();quit;end
+if comp1.children(1).foreground <> 3 then bugmes();quit;end
+if comp1.children(2).type <> "Polyline" then bugmes();quit;end
+if comp1.children(2).foreground <> 2 then bugmes();quit;end
+if comp1.children(3).type <> "Polyline" then bugmes();quit;end
+if comp1.children(3).foreground <> 1 then bugmes();quit;end
 // check segs
 segs = axes.children(2);
-if segs.type <> "Segs" then pause; end
-if segs.segs_color <> [5,5,5,5,5,5,5,5] then pause; end
-if segs.arrow_size <> 1 then pause; end
-if segs.line_style <> 0 then pause; end
-if size(segs.data) <> [16, 2] then pause; end
+if segs.type <> "Segs" then bugmes();quit;end
+if segs.segs_color <> [5,5,5,5,5,5,5,5] then bugmes();quit;end
+if segs.arrow_size <> 1 then bugmes();quit;end
+if segs.line_style <> 0 then bugmes();quit;end
+if size(segs.data) <> [16, 2] then bugmes();quit;end
 // check first rectangle
 rect1 = axes.children(3);
-if rect1.type <> "Rectangle" then pause; end
-if rect1.mark_size <> 0 then pause; end
-if rect1.data <> [-2, 0.25, 4, 0.5]; then pause; end
-if rect1.background <> -2; then pause; end
-if rect1.fill_mode <> "on" then pause; end
-if rect1.line_mode <> "on" then pause; end
-if rect1.clip_state <> "clipgrf" then pause; end
-if rect1.user_data <> [] then pause; end
+if rect1.type <> "Rectangle" then bugmes();quit;end
+if rect1.mark_size <> 0 then bugmes();quit;end
+if rect1.data <> [-2, 0.25, 4, 0.5]; then bugmes();quit;end
+if rect1.background <> -2; then bugmes();quit;end
+if rect1.fill_mode <> "on" then bugmes();quit;end
+if rect1.line_mode <> "on" then bugmes();quit;end
+if rect1.clip_state <> "clipgrf" then bugmes();quit;end
+if rect1.user_data <> [] then bugmes();quit;end
 // check second rectangle
 rect2 = axes.children(4);
-if rect2.type <> "Rectangle" then pause; end
-if rect2.mark_size <> 0 then pause; end
-if rect2.data <> [-4, 0.5, 8, 1]; then pause; end
-if rect2.background <> -2; then pause; end
-if rect2.fill_mode <> "off" then pause; end
-if rect2.line_mode <> "on" then pause; end
-if rect2.clip_state <> "clipgrf" then pause; end
-if rect2.user_data <> [] then pause; end
+if rect2.type <> "Rectangle" then bugmes();quit;end
+if rect2.mark_size <> 0 then bugmes();quit;end
+if rect2.data <> [-4, 0.5, 8, 1]; then bugmes();quit;end
+if rect2.background <> -2; then bugmes();quit;end
+if rect2.fill_mode <> "off" then bugmes();quit;end
+if rect2.line_mode <> "on" then bugmes();quit;end
+if rect2.clip_state <> "clipgrf" then bugmes();quit;end
+if rect2.user_data <> [] then bugmes();quit;end
 // check second compound
 comp2 = axes.children(5);
-if comp2.type <> "Compound" then pause; end
-if size(comp2.children, '*') <> 1 then pause; end
-if comp2.visible <> "on" then pause; end
-if comp2.user_data <> [] then pause; end
+if comp2.type <> "Compound" then bugmes();quit;end
+if size(comp2.children, '*') <> 1 then bugmes();quit;end
+if comp2.visible <> "on" then bugmes();quit;end
+if comp2.user_data <> [] then bugmes();quit;end
 // check polyline
-if comp2.children(1).type <> "Polyline" then pause; end
-if comp2.children(1).foreground <> 1 then pause; end
-if size(comp2.children(1).data) <> [79, 2] then pause; end
-if comp2.children(1).interp_color_mode <> "off" then pause; end
-if comp2.children(1).fill_mode <> "off" then pause; end
+if comp2.children(1).type <> "Polyline" then bugmes();quit;end
+if comp2.children(1).foreground <> 1 then bugmes();quit;end
+if size(comp2.children(1).data) <> [79, 2] then bugmes();quit;end
+if comp2.children(1).interp_color_mode <> "off" then bugmes();quit;end
+if comp2.children(1).fill_mode <> "off" then bugmes();quit;end
index 98cdd0a..a536b2f 100644 (file)
@@ -17,4 +17,4 @@ endFreeMemory = getmemory();
 // not much should have been allocated.
 memoryIncrease = beginFreeMemory - endFreeMemory;
 // let say that the rotation should not use more than 10 Meg
-if (memoryIncrease > 10000) then pause; end
+if (memoryIncrease > 10000) then bugmes();quit;end
index 181d032..3946712 100644 (file)
@@ -26,11 +26,11 @@ load(TMPDIR + "savePlot.scg");
 axes = gca();
 // check axes properties
 surf1 = axes.children(1);
-if (surf1.clip_box <> [1, 2, 3, 4]) then pause; end
-if (surf1.clip_state <> "on") then pause; end
+if (surf1.clip_box <> [1, 2, 3, 4]) then bugmes();quit;end
+if (surf1.clip_state <> "on") then bugmes();quit;end
 surf2 = axes.children(2);
-if (surf2.clip_box <> []) then pause; end
-if (surf2.clip_state <> "clipgrf") then pause; end
+if (surf2.clip_box <> []) then bugmes();quit;end
+if (surf2.clip_state <> "clipgrf") then bugmes();quit;end
 // same for grayplot
 clf();
 x = 0:10;
@@ -51,11 +51,11 @@ load(TMPDIR + "savePlot.scg");
 axes = gca();
 // check axes properties
 surf1 = axes.children(1);
-if (surf1.clip_box <> [1, 2, 3, 4]) then pause; end
-if (surf1.clip_state <> "on") then pause; end
+if (surf1.clip_box <> [1, 2, 3, 4]) then bugmes();quit;end
+if (surf1.clip_state <> "on") then bugmes();quit;end
 surf2 = axes.children(2);
-if (surf2.clip_box <> []) then pause; end
-if (surf2.clip_state <> "clipgrf") then pause; end
+if (surf2.clip_box <> []) then bugmes();quit;end
+if (surf2.clip_state <> "clipgrf") then bugmes();quit;end
 // same for Matplot
 clf();
 x = 0:10;
@@ -76,11 +76,11 @@ load(TMPDIR + "savePlot.scg");
 axes = gca();
 // check axes properties
 surf1 = axes.children(1);
-if (surf1.clip_box <> [1, 2, 3, 4]) then pause; end
-if (surf1.clip_state <> "on") then pause; end
+if (surf1.clip_box <> [1, 2, 3, 4]) then bugmes();quit;end
+if (surf1.clip_state <> "on") then bugmes();quit;end
 surf2 = axes.children(2);
-if (surf2.clip_box <> []) then pause; end
-if (surf2.clip_state <> "clipgrf") then pause; end
+if (surf2.clip_box <> []) then bugmes();quit;end
+if (surf2.clip_state <> "clipgrf") then bugmes();quit;end
 // same for fec
 clf();
 x = 0:10;
@@ -103,8 +103,8 @@ load(TMPDIR + "savePlot.scg");
 axes = gca();
 // check axes properties
 surf1 = axes.children(1).children(1);
-if (surf1.clip_box <> [1, 2, 3, 4]) then pause; end
-if (surf1.clip_state <> "on") then pause; end
+if (surf1.clip_box <> [1, 2, 3, 4]) then bugmes();quit;end
+if (surf1.clip_state <> "on") then bugmes();quit;end
 surf2 = axes.children(2).children(1);
-if (surf2.clip_box <> []) then pause; end
-if (surf2.clip_state <> "clipgrf") then pause; end
+if (surf2.clip_box <> []) then bugmes();quit;end
+if (surf2.clip_state <> "clipgrf") then bugmes();quit;end
index 4294fe6..78754cb 100644 (file)
@@ -13,14 +13,14 @@ WARNING: Ambiguous surface property
 srf = gce();
 // set hidden color to some value and check them
 srf.hiddencolor = 0;
-if (srf.hiddencolor <> 0) then pause; end
+if (srf.hiddencolor <> 0) then bugmes();quit;end
 srf.hiddencolor = -1;
-if (srf.hiddencolor <> -1) then pause; end
+if (srf.hiddencolor <> -1) then bugmes();quit;end
 srf.hiddencolor = -2;
-if (srf.hiddencolor <> -2) then pause; end
+if (srf.hiddencolor <> -2) then bugmes();quit;end
 // get colormap size
 fig = gcf();
 cmapSize = size(fig.color_map);
 cmapSize = cmapSize(1);
 srf.hiddencolor = cmapSize;
-if (srf.hiddencolor <> cmapSize) then pause; end
+if (srf.hiddencolor <> cmapSize) then bugmes();quit;end
index fb1c9f7..82e22d1 100644 (file)
@@ -14,6 +14,6 @@
 // <-- Short Description -->
 //   objfigure "position" initially undefined
 f = figure(123);
-if isempty(get(f,"position")) then pause; end
+if isempty(get(f,"position")) then bugmes();quit;end
 set(f,"position",[100 400 100 800]);
-if or(get(f,"position")<>[100 400 100 800]) then pause;end             
+if or(get(f,"position")<>[100 400 100 800]) then bugmes();quit;end             
index 647af55..5f8b192 100644 (file)
@@ -48,4 +48,4 @@ CallbackType = -1
 Userdata = []
 Tag = 
 // Now type something in the entry box
-if execstr("get(h,""string"")", "errcatch")<>0 then pause; end
+if execstr("get(h,""string"")", "errcatch")<>0 then bugmes();quit;end
index a6fa9b4..69c33ba 100644 (file)
@@ -20,11 +20,11 @@ h1 = uicontrol(f1,"style","slider","position",[10 10 100 80]);
 // Reset previous parent
 set(h1,"parent",f1);
 pos = get(h1, "position");
-if pos(3) < pos(4) then pause; end
+if pos(3) < pos(4) then bugmes();quit;end
 // Change parent
 set(h1,"parent",f2);
 pos = get(h1, "position");
-if pos(3) < pos(4) then pause; end
+if pos(3) < pos(4) then bugmes();quit;end
 // --- Pushbuttons ---
 h2 = uicontrol(f1,"style","pushbutton","position",[10 10 100 100])
  h2  =
@@ -62,30 +62,30 @@ bg = get(h2, "backgroundcolor");
 relief = get(h2, "relief");
 // Reset previous parent
 set(h2,"parent",f1);
-if or(get(h2, "backgroundcolor")<>bg) then pause; end
-if or(get(h2, "relief")<>relief) then pause; end
+if or(get(h2, "backgroundcolor")<>bg) then bugmes();quit;end
+if or(get(h2, "relief")<>relief) then bugmes();quit;end
 // Change parent
 set(h2,"parent",f2);
-if or(get(h2, "backgroundcolor")<>bg) then pause; end
-if or(get(h2, "relief")<>relief) then pause; end
+if or(get(h2, "backgroundcolor")<>bg) then bugmes();quit;end
+if or(get(h2, "relief")<>relief) then bugmes();quit;end
 // --- Edits ---
 h3 = uicontrol(f1,"style","edit","position",[10 10 100 100],"string","aaaaa");
 txt = get(h3, "string");
 // Reset previous parent
 set(h3,"parent",f1);
-if or(get(h3, "string")<>txt) then pause; end
+if or(get(h3, "string")<>txt) then bugmes();quit;end
 // Change parent
 set(h3,"parent",f2);
-if or(get(h3, "string")<>txt) then pause; end
+if or(get(h3, "string")<>txt) then bugmes();quit;end
 // --- ListBoxes ---
 h4 = uicontrol(f1,"style","listbox","position",[10 10 100 100],"string",["1","2","X"],"value",2);
 bg = get(h4, "backgroundcolor");
 val = get(h4, "value");
 // Reset previous parent
 set(h4,"parent",f1);
-if or(get(h4, "backgroundcolor")<>bg) then pause; end
-if or(get(h4, "value")<>val) then pause; end
+if or(get(h4, "backgroundcolor")<>bg) then bugmes();quit;end
+if or(get(h4, "value")<>val) then bugmes();quit;end
 // Change parent
 set(h4,"parent",f2);
-if or(get(h4, "backgroundcolor")<>bg) then pause; end
-if or(get(h4, "value")<>val) then pause; end
+if or(get(h4, "backgroundcolor")<>bg) then bugmes();quit;end
+if or(get(h4, "value")<>val) then bugmes();quit;end
index 149eb1a..cc81da5 100644 (file)
@@ -14,4 +14,4 @@
 // <-- Short Description -->
 //     "position" property format "x|y|w|h" not accepted by figure(), despite what said in help
 f = figure(1,"position","0|0|300|500");
-if or(get(f,"position")<>[0 0 300 500]) then pause; end
+if or(get(f,"position")<>[0 0 300 500]) then bugmes();quit;end
index 0bfb5c5..40926d1 100644 (file)
@@ -14,4 +14,4 @@
 // <-- Short Description -->
 //   uicontrol property names could be abbreviated in scilab 4.1.2, need to be extended in scilab 5
 figure();
-if execstr("uicontrol(""posi"",[10 10 100 100])", "errcatch")<>0 then pause; end
+if execstr("uicontrol(""posi"",[10 10 100 100])", "errcatch")<>0 then bugmes();quit;end
index 3c6e64a..10bccfc 100644 (file)
@@ -17,5 +17,5 @@
 // not give the result 1 as desired
 f = figure(1);
 h = uicontrol("tag","F");
-if isempty(findobj("tag","F")) then pause; end
-if findobj("tag","F")<>h then pause; end
+if isempty(findobj("tag","F")) then bugmes();quit;end
+if findobj("tag","F")<>h then bugmes();quit;end
index 8598466..c4f3b63 100644 (file)
@@ -12,7 +12,7 @@
 // <-- Short Description -->
 //    sprintf error
 if MSDOS then
-       if sprintf("%e", 1e-10) <> "1.000000e-010" then pause; end
+       if sprintf("%e", 1e-10) <> "1.000000e-010" then bugmes();quit;end
 else
-       if sprintf("%e", 1e-10) <> "1.000000e-10" then pause; end
+       if sprintf("%e", 1e-10) <> "1.000000e-10" then bugmes();quit;end
 end
index 49df172..f24aa13 100644 (file)
@@ -20,12 +20,12 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR CELL ARRAYS
   //
   if binFormats(formatIndex) <> "-v4" then // Cell arrays can not be stored in Matlab 4 binary files
-    if or(emptycell <> cell()) then pause; end
-    if or(scalarcell <> makecell([1 1], 1.23)) then pause; end
-    if or(rowcell <> makecell([1 3], "abc", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], 1.23)) then pause; end
-    if or(colcell <> makecell([3 1], [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], "abc", 1.23)) then pause; end
-    if or(arraycell <> makecell([2 3], "a", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], int8(1), "abc", 1.23, eye(100,100))) then pause; end
-    if or(stringcell <> makecell([2 3], "abc", "def", "ghi", "jkl", "mno", "pqr")) then pause; end
+    if or(emptycell <> cell()) then bugmes();quit;end
+    if or(scalarcell <> makecell([1 1], 1.23)) then bugmes();quit;end
+    if or(rowcell <> makecell([1 3], "abc", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], 1.23)) then bugmes();quit;end
+    if or(colcell <> makecell([3 1], [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], "abc", 1.23)) then bugmes();quit;end
+    if or(arraycell <> makecell([2 3], "a", [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i], int8(1), "abc", 1.23, eye(100,100))) then bugmes();quit;end
+    if or(stringcell <> makecell([2 3], "abc", "def", "ghi", "jkl", "mno", "pqr")) then bugmes();quit;end
     clear emptycell scalarcell rowcell colcell arraycell stringcell
   end
   //
@@ -33,21 +33,21 @@ for formatIndex = 1:size(binFormats, "*")
   //
   if binFormats(formatIndex) <> "-v4" then // Struct arrays can not be stored in Matlab 4 binary files
     sciemptystruct = struct();
-    if or(emptystruct <> sciemptystruct) then pause; end
+    if or(emptystruct <> sciemptystruct) then bugmes();quit;end
     sciscalarstruct = struct("f1", 10, "ftwo", "Hello", "field3", int8(12));
-    if or(scalarstruct <> sciscalarstruct) then pause; end
+    if or(scalarstruct <> sciscalarstruct) then bugmes();quit;end
     scirowstruct = struct("field1", 10, "field2", "Hello", "field3", int8(12));
     scirowstruct(1,2).field1 = "test";
     scirowstruct(1,2).field2 = eye(10, 10);
     scirowstruct(1,3).field2 = "a field contents";
     scirowstruct(1,3).field3 = 1.23+4.56*%i;
-    if or(rowstruct <> scirowstruct) then pause; end
+    if or(rowstruct <> scirowstruct) then bugmes();quit;end
     scicolstruct = struct("name", 10, "phone", "Hello", "address", int8(12));
     scicolstruct(2,1).name = "test";
     scicolstruct(2,1).phone = eye(10, 10);
     scicolstruct(3,1).phone = "a field contents";
     scicolstruct(3,1).address = 1.23+4.56*%i;
-    if or(colstruct <> scicolstruct) then pause; end
+    if or(colstruct <> scicolstruct) then bugmes();quit;end
     sciarraystruct = struct("field1", 10, "field2", "Hello", "field3", int8(12));
     sciarraystruct(1,2).field1 = "test";
     sciarraystruct(1,2).field2 = eye(10, 10);
@@ -57,7 +57,7 @@ for formatIndex = 1:size(binFormats, "*")
     sciarraystruct(2,1).phone = eye(10, 10);
     sciarraystruct(3,1).phone = "a field contents";
     sciarraystruct(3,1).address = 1.23+4.56*%i;
-    if or(arraystruct <> sciarraystruct) then pause; end
+    if or(arraystruct <> sciarraystruct) then bugmes();quit;end
     clear emptystruct scalarstruct rowstruct colstruct arraystruct
     clear sciemptystruct sciscalarstruct scirowstruct scicolstruct sciarraystruct
   end
@@ -68,24 +68,24 @@ for formatIndex = 1:size(binFormats, "*")
   //
   // TESTS FOR CHARACTER ARRAYS
   //
-  if or(emptystringmatrix <> "") then pause; end
-  if or(stringscalar <> "a") then pause; end
-  if or(stringrowvector <> ["abc"]) then pause; end
-  if or(stringcolvector <> ["a";"b";"c"]) then pause; end
-  if or(stringmatrix <> ["abc";"def"]) then pause; end
+  if or(emptystringmatrix <> "") then bugmes();quit;end
+  if or(stringscalar <> "a") then bugmes();quit;end
+  if or(stringrowvector <> ["abc"]) then bugmes();quit;end
+  if or(stringcolvector <> ["a";"b";"c"]) then bugmes();quit;end
+  if or(stringmatrix <> ["abc";"def"]) then bugmes();quit;end
   clear emptystringmatrix stringscalar stringrowvector stringcolvector stringmatrix
   //
   // TESTS FOR DOUBLE PRECISION ARRAYS
   //
-  if or(emptydoublematrix <> []) then pause; end
-  if or(realdoublescalar <> 1.23) then pause; end
-  if or(cplxdoublescalar <> 1.23 + 4.56*%i) then pause; end
-  if or(realdoublerowvector <> [1.23 -4.56 7.89]) then pause; end
-  if or(cplxdoublerowvector <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i]) then pause; end
-  if or(realdoublecolvector <> [1.23;-4.56;7.89]) then pause; end
-  if or(cplxdoublecolvector <> [1.23+7.89*%i;4.56-1.23*%i;7.89+4.56*%i]) then pause; end
-  if or(realdoublematrix <> [1.23 -4.56 7.89;9.87 6.54 -3.21]) then pause; end
-  if or(cplxdoublematrix <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i;9.87+3.21*%i 6.54+9.87*%i 3.21-6.54*%i]) then pause; end
+  if or(emptydoublematrix <> []) then bugmes();quit;end
+  if or(realdoublescalar <> 1.23) then bugmes();quit;end
+  if or(cplxdoublescalar <> 1.23 + 4.56*%i) then bugmes();quit;end
+  if or(realdoublerowvector <> [1.23 -4.56 7.89]) then bugmes();quit;end
+  if or(cplxdoublerowvector <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i]) then bugmes();quit;end
+  if or(realdoublecolvector <> [1.23;-4.56;7.89]) then bugmes();quit;end
+  if or(cplxdoublecolvector <> [1.23+7.89*%i;4.56-1.23*%i;7.89+4.56*%i]) then bugmes();quit;end
+  if or(realdoublematrix <> [1.23 -4.56 7.89;9.87 6.54 -3.21]) then bugmes();quit;end
+  if or(cplxdoublematrix <> [1.23+7.89*%i 4.56-1.23*%i 7.89+4.56*%i;9.87+3.21*%i 6.54+9.87*%i 3.21-6.54*%i]) then bugmes();quit;end
   clear emptydoublematrix realdoublescalar cplxdoublescalar realdoublerowvector cplxdoublerowvector realdoublecolvector cplxdoublecolvector realdoublematrix cplxdoublematrix
   //
   // TESTS FOR SINGLE PRECISION ARRAYS
@@ -95,95 +95,95 @@ for formatIndex = 1:size(binFormats, "*")
   // TESTS FOR SPARSE MATRICES
   //
   if binFormats(formatIndex) <> "-v4" then // Integers can not be stored in Matlab 4 binary files
-  if or(emptysparse <> []) then pause; end
-  if or(realscalarsparse <> sparse(1.23)) then pause; end
-  //if or(cplxscalarsparse <> sparse(1.23 + 4.56i)) then pause; end
-  if or(realrowvectorsparse <> sparse([1.23 0 7.89])) then pause; end
-  //if or(cplxrowvectorsparse <> sparse([1.23+7.89i 0 7.89+4.56i])) then pause; end
-  if or(realcolvectorsparse <> sparse([1.23;0;7.89])) then pause; end
-  //if or(cplxcolvectorsparse <> sparse([1.23+7.89i;;7.89+4.56i])) then pause; end
-  if or(realmatrixsparse <> sparse([1.23 0 7.89;0 6.54 -3.21])) then pause; end
-  //if or(cplxmatrixsparse <> sparse([1.23+7.89i 0 7.89+4.56i;0 6.54+9.87i 3.21-6.54i])) then pause; end
+  if or(emptysparse <> []) then bugmes();quit;end
+  if or(realscalarsparse <> sparse(1.23)) then bugmes();quit;end
+  //if or(cplxscalarsparse <> sparse(1.23 + 4.56i)) then bugmes();quit;end
+  if or(realrowvectorsparse <> sparse([1.23 0 7.89])) then bugmes();quit;end
+  //if or(cplxrowvectorsparse <> sparse([1.23+7.89i 0 7.89+4.56i])) then bugmes();quit;end
+  if or(realcolvectorsparse <> sparse([1.23;0;7.89])) then bugmes();quit;end
+  //if or(cplxcolvectorsparse <> sparse([1.23+7.89i;;7.89+4.56i])) then bugmes();quit;end
+  if or(realmatrixsparse <> sparse([1.23 0 7.89;0 6.54 -3.21])) then bugmes();quit;end
+  //if or(cplxmatrixsparse <> sparse([1.23+7.89i 0 7.89+4.56i;0 6.54+9.87i 3.21-6.54i])) then bugmes();quit;end
 end
   if binFormats(formatIndex) <> "-v4" then // Integers can not be stored in Matlab 4 binary files
     //
     // TESTS FOR 8-BITS SIGNED INTEGERS
     //
-    if or(emptyint8matrix <> int8([])) then pause; end
-    if or(int8scalar <> int8(1)) then pause; end
-    if or(int8rowvector <> int8([1 -4 7])) then pause; end
-    if or(int8colvector <> int8([1;-4;7])) then pause; end
-    if or(int8matrix <> int8([1 -4 7;-9 6 -3])) then pause; end
+    if or(emptyint8matrix <> int8([])) then bugmes();quit;end
+    if or(int8scalar <> int8(1)) then bugmes();quit;end
+    if or(int8rowvector <> int8([1 -4 7])) then bugmes();quit;end
+    if or(int8colvector <> int8([1;-4;7])) then bugmes();quit;end
+    if or(int8matrix <> int8([1 -4 7;-9 6 -3])) then bugmes();quit;end
     clear emptyint8matrix int8scalar int8rowvector int8colvector int8matrix
     //
     // TESTS FOR 16-BITS SIGNED INTEGERS
     //
-    if or(emptyint16matrix <> int16([])) then pause; end
-    if or(int16scalar <> int16(1)) then pause; end
-    if or(int16rowvector <> int16([1 -4 7])) then pause; end
-    if or(int16colvector <> int16([1;-4;7])) then pause; end
-    if or(int16matrix <> int16([1 -4 7;-9 6 -3])) then pause; end
+    if or(emptyint16matrix <> int16([])) then bugmes();quit;end
+    if or(int16scalar <> int16(1)) then bugmes();quit;end
+    if or(int16rowvector <> int16([1 -4 7])) then bugmes();quit;end
+    if or(int16colvector <> int16([1;-4;7])) then bugmes();quit;end
+    if or(int16matrix <> int16([1 -4 7;-9 6 -3])) then bugmes();quit;end
     clear emptyint16matrix int16scalar int16rowvector int16colvector int16matrix
     //
     // TESTS FOR 32-BITS SIGNED INTEGERS
     //
-    if or(emptyint32matrix <> int32([])) then pause; end
-    if or(int32scalar <> int32(1)) then pause; end
-    if or(int32rowvector <> int32([1 -4 7])) then pause; end
-    if or(int32colvector <> int32([1;-4;7])) then pause; end
-    if or(int32matrix <> int32([1 -4 7;-9 6 -3])) then pause; end
+    if or(emptyint32matrix <> int32([])) then bugmes();quit;end
+    if or(int32scalar <> int32(1)) then bugmes();quit;end
+    if or(int32rowvector <> int32([1 -4 7])) then bugmes();quit;end
+    if or(int32colvector <> int32([1;-4;7])) then bugmes();quit;end
+    if or(int32matrix <> int32([1 -4 7;-9 6 -3])) then bugmes();quit;end
     clear emptyint32matrix int32scalar int32rowvector int32colvector int32matrix
     // TODO: int64 tests ?
     //
     // TESTS FOR 8-BITS UNSIGNED INTEGERS
     //
-    if or(emptyuint8matrix <> uint8([])) then pause; end
-    if or(uint8scalar <> uint8(1)) then pause; end
-    //if or(uint8rowvector <> uint8([1 -4 7])) then pause; end
-    if or(uint8rowvector <> [1 0 7]) then pause; end
-    //if or(uint8colvector <> uint8([1;-4;7])) then pause; end
-    if or(uint8colvector <> [1;0;7]) then pause; end
-    //if or(uint8matrix <> uint8([1 -4 7;-9 6 -3])) then pause; end
-    if or(uint8matrix <> [1 0 7;0 6 0]) then pause; end
+    if or(emptyuint8matrix <> uint8([])) then bugmes();quit;end
+    if or(uint8scalar <> uint8(1)) then bugmes();quit;end
+    //if or(uint8rowvector <> uint8([1 -4 7])) then bugmes();quit;end
+    if or(uint8rowvector <> [1 0 7]) then bugmes();quit;end
+    //if or(uint8colvector <> uint8([1;-4;7])) then bugmes();quit;end
+    if or(uint8colvector <> [1;0;7]) then bugmes();quit;end
+    //if or(uint8matrix <> uint8([1 -4 7;-9 6 -3])) then bugmes();quit;end
+    if or(uint8matrix <> [1 0 7;0 6 0]) then bugmes();quit;end
     clear emptyuint8matrix uint8scalar uint8rowvector uint8colvector uint8matrix
     //
     // TESTS FOR 16-BITS UNSIGNED INTEGERS
     //
-    if or(emptyuint16matrix <> uint16([])) then pause; end
-    if or(uint16scalar <> uint16(1)) then pause; end
-    //if or(uint16rowvector <> uint16([1 -4 7])) then pause; end
-    if or(uint16rowvector <> [1 0 7]) then pause; end
-    //if or(uint16colvector <> uint16([1;-4;7])) then pause; end
-    if or(uint16colvector <> [1;0;7]) then pause; end
-    //if or(uint16matrix <> uint16([1 -4 7;-9 6 -3])) then pause; end
-    if or(uint16matrix <> [1 0 7;0 6 0]) then pause; end
+    if or(emptyuint16matrix <> uint16([])) then bugmes();quit;end
+    if or(uint16scalar <> uint16(1)) then bugmes();quit;end
+    //if or(uint16rowvector <> uint16([1 -4 7])) then bugmes();quit;end
+    if or(uint16rowvector <> [1 0 7]) then bugmes();quit;end
+    //if or(uint16colvector <> uint16([1;-4;7])) then bugmes();quit;end
+    if or(uint16colvector <> [1;0;7]) then bugmes();quit;end
+    //if or(uint16matrix <> uint16([1 -4 7;-9 6 -3])) then bugmes();quit;end
+    if or(uint16matrix <> [1 0 7;0 6 0]) then bugmes();quit;end
     clear emptyuint16matrix uint16scalar uint16rowvector uint16colvector uint16matrix
     //
     // TESTS FOR 32-BITS UNSIGNED INTEGERS
     //
-    if or(emptyuint32matrix <> uint32([])) then pause; end
-    if or(uint32scalar <> uint32(1)) then pause; end
-    //if or(uint32rowvector <> uint32([1 -4 7])) then pause; end
-    if or(uint32rowvector <> [1 0 7]) then pause; end
-    //if or(uint32colvector <> uint32([1;-4;7])) then pause; end
-    if or(uint32colvector <> [1;0;7]) then pause; end
-    //if or(uint32matrix <> uint32([1 -4 7;-9 6 -3])) then pause; end
-    if or(uint32matrix <> [1 0 7;0 6 0]) then pause; end
+    if or(emptyuint32matrix <> uint32([])) then bugmes();quit;end
+    if or(uint32scalar <> uint32(1)) then bugmes();quit;end
+    //if or(uint32rowvector <> uint32([1 -4 7])) then bugmes();quit;end
+    if or(uint32rowvector <> [1 0 7]) then bugmes();quit;end
+    //if or(uint32colvector <> uint32([1;-4;7])) then bugmes();quit;end
+    if or(uint32colvector <> [1;0;7]) then bugmes();quit;end
+    //if or(uint32matrix <> uint32([1 -4 7;-9 6 -3])) then bugmes();quit;end
+    if or(uint32matrix <> [1 0 7;0 6 0]) then bugmes();quit;end
     clear emptyuint32matrix uint32scalar uint32rowvector uint32colvector uint32matrix
     // TODO: uint64 tests ?
     //
     // TESTS FOR ND-ARRAYS
     //
     sciemptyNDarray = hypermat([0 0 0], []);
-    if or(emptyNDarray.dims <> sciemptyNDarray.dims) | or(emptyNDarray.entries <> sciemptyNDarray.entries) then pause; end
-    if or(realdoubleNDarray <> matrix(1:24, 2, 3, 4)) then pause; end
-    if or(complexdoubleNDarray <> matrix((1:24) + (1:24)*%i, 2, 3, 4)) then pause; end
+    if or(emptyNDarray.dims <> sciemptyNDarray.dims) | or(emptyNDarray.entries <> sciemptyNDarray.entries) then bugmes();quit;end
+    if or(realdoubleNDarray <> matrix(1:24, 2, 3, 4)) then bugmes();quit;end
+    if or(complexdoubleNDarray <> matrix((1:24) + (1:24)*%i, 2, 3, 4)) then bugmes();quit;end
     clear sciemptyNDarray emptyNDarray realdoubleNDarray complexdoubleNDarray
   end
   //
   // MISC
   //
-  if or(eye100x100 <> eye(100,100)) then pause; end
+  if or(eye100x100 <> eye(100,100)) then bugmes();quit;end
 end
  
  SCI/modules/matio/tests/unit_tests/eye100x100-v4.mat  
index 91f9bb1..3f4e860 100644 (file)
@@ -170,7 +170,7 @@ for varIndex=1:size(varNames,"*")
        execstr("clear "+varNames(varIndex)); // Clear variable
        execstr("loadmatfile "+filename); // Load file contaning variable
        execstr("compareOK=and(sci"+varNames(varIndex)+"=="+varNames(varIndex)+")"); // Compare
-       if ~compareOK then pause;end // Stop execution if necessary
+       if ~compareOK then bugmes();quit;end // Stop execution if necessary
        clear compareOK
        mdelete(filename)
     end
index 82ffd1c..fdfe9f8 100644 (file)
@@ -81,7 +81,7 @@ if norm(P-PS,"inf") < %eps then bugmes();quit;end
 // test fo perm
 N=1000;
 Mat=grand(N,'prm',[1:10]');
-if sum([1:10]')/10 - sum(Mat,'c')/N > 0 then pause;end
+if sum([1:10]')/10 - sum(Mat,'c')/N > 0 then bugmes();quit;end
 // test for nbn
 N=10000;A=5;B=0.7;
 Rdev=grand(1,N,'nbn',A,B);
index 86386ab..c87bb7e 100644 (file)
@@ -275,7 +275,7 @@ PS=(1:N)'/N;
 // test fo perm
 N=1000;
 Mat=grand(N,'prm',[1:10]');
-if sum([1:10]')/10 - sum(Mat,'c')/N > 0 then pause;end
+if sum([1:10]')/10 - sum(Mat,'c')/N > 0 then bugmes();quit;end
 // test for nbn
 N=10000;A=5;B=0.7;
 Rdev=grand(1,N,'nbn',A,B);
index bb76184..d3b547d 100644 (file)
@@ -11,7 +11,7 @@
 //
 // <-- Short Description -->
 //    savewave crashes my machine
-if execstr("savewave(TMPDIR+""/toto.WAV"", rand(1:10000), 11025);", "errcatch")<>0 then pause; end
+if execstr("savewave(TMPDIR+""/toto.WAV"", rand(1:10000), 11025);", "errcatch")<>0 then bugmes();quit;end
 Writing Wave file: Microsoft PCM format, 1 channel, 11025 samp/sec
         22050 byte/sec, 2 block align, 16 bits/samp
 Finished writing Wave file, 20000 data bytes
index 1385d24..64ab4bc 100644 (file)
@@ -12,4 +12,4 @@
 function b=bobo(); a=7; if a>1 then; b=5; end; endfunction
 txt = tree2code(macr2tree(bobo),%t);
 txtref = ["function [b] = bobo()";"  a = 7;";"  if a>1 then";"    b = 5;";"  end;";"endfunction";""];
-if or(txt<>txtref) then pause; end
+if or(txt<>txtref) then bugmes();quit;end
index 8f322cf..24b2425 100644 (file)
 // <-- Short Description -->
 // Shambolic error management or parsing in slave Tcl interpreters
 // First command executed in main interpreter
-if execstr("TCL_EvalStr(""wrongcommand"");", "errcatch")==0 then pause; end
+if execstr("TCL_EvalStr(""wrongcommand"");", "errcatch")==0 then bugmes();quit;end
 msg = lasterror();
 msg = strsubst(msg, ascii(9), "\n");
 msg = sprintf("%s", msg);
 msgref = ["TCL_EvalStr,  at line 1";"invalid command name ""wrongcommand""    while executing""wrongcommand"""];
-if or(msg<>msgref) then pause; end
+if or(msg<>msgref) then bugmes();quit;end
 TCL_CreateSlave("slave");
 // Command executed in slave: error message returned must not depend on previous error in main
-if execstr("TCL_EvalStr(""wrongcommandinslave"",""slave"")", "errcatch")==0 then pause; end
+if execstr("TCL_EvalStr(""wrongcommandinslave"",""slave"")", "errcatch")==0 then bugmes();quit;end
 msg = lasterror();
 msg = strsubst(msg, ascii(9), "\n");
 msg = sprintf("%s", msg);
 msgref = ["TCL_EvalStr, invalid command name ""wrongcommandinslave"" at line 1";"invalid command name ""wrongcommandinslave""    while executing""wrongcommandinslave"""];
-if or(msg<>msgref) then pause; end
+if or(msg<>msgref) then bugmes();quit;end
 // Second command executed in main interpreter
-if execstr("TCL_EvalStr(""wrongcommand2"");", "errcatch")==0 then pause; end
+if execstr("TCL_EvalStr(""wrongcommand2"");", "errcatch")==0 then bugmes();quit;end
 msg = lasterror();
 msg = strsubst(msg, ascii(9), "\n");
 msg = sprintf("%s", msg);
 msgref = ["TCL_EvalStr,  at line 1";"invalid command name ""wrongcommand2""    while executing""wrongcommand2"""];
-if or(msg<>msgref) then pause; end
+if or(msg<>msgref) then bugmes();quit;end
 // Command executed again in slave: must give the same error message
-if execstr("TCL_EvalStr(""wrongcommandinslave"",""slave"")", "errcatch")==0 then pause; end
+if execstr("TCL_EvalStr(""wrongcommandinslave"",""slave"")", "errcatch")==0 then bugmes();quit;end
 msg = lasterror();
 msg = strsubst(msg, ascii(9), "\n");
 msg = sprintf("%s", msg);
 msgref = ["TCL_EvalStr, invalid command name ""wrongcommandinslave"" at line 1";"invalid command name ""wrongcommandinslave""    while executing""wrongcommandinslave"""];
-if or(msg<>msgref) then pause; end
+if or(msg<>msgref) then bugmes();quit;end