update some tests 31/20831/2
Antoine ELIAS [Sun, 10 Feb 2019 08:45:43 +0000 (09:45 +0100)]
Change-Id: Iecd65b557744ecaaa194df6fde4eb192b7579df7

scilab/modules/arnoldi/tests/nonreg_tests/bug_dsaupd.dia.ref [deleted file]
scilab/modules/arnoldi/tests/nonreg_tests/bug_dsaupd.tst [deleted file]
scilab/modules/ast/tests/unit_tests/analysis2.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4574.dia.ref [deleted file]
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4574.tst
scilab/modules/dynamic_link/tests/nonreg_tests/bug_7907.dia.ref [deleted file]
scilab/modules/dynamic_link/tests/nonreg_tests/bug_7907.tst
scilab/modules/gui/tests/unit_tests/layer.dia.ref [deleted file]
scilab/modules/gui/tests/unit_tests/layer.tst

diff --git a/scilab/modules/arnoldi/tests/nonreg_tests/bug_dsaupd.dia.ref b/scilab/modules/arnoldi/tests/nonreg_tests/bug_dsaupd.dia.ref
deleted file mode 100644 (file)
index e901aed..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Vincent COUVERT <vincent.couvert@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// Tests for function dsaupd (added after a bug in the gateway: PutLhsVar missing)
-N = 1000;
-A = sprand(N, N, 0.01);
-IDO   = 0;
-BMAT  = "I"; //standard eigenvalue problem
-WHICH = "LM";
-NEV   = 4; //NEVth eigen values are solved
-TOL   = 1D-10;
-RESID = zeros(N,1); //
-NCV   = 10;
-V = zeros(N, NCV);
-ISHIFT = 1;
-LEVEC  = 0;
-MXITER = 100; //INPUT
-NB     = 1;
-NCONV  = 0;
-IUPD   = 0;
-MODE   = 1;
-NP     = 100;
-NUMOP  = 0;
-NUMOPB = 0;
-NUMREO = 0;
-IPARAM = [ISHIFT, LEVEC,  MXITER, NB, NCONV, IUPD, MODE, NP, NUMOP, NUMOPB, NUMREO];
-IPNTR = zeros(1,14);
-WORKD = zeros(3, N);
-WORKL = zeros(1, NCV**2 + 8 * NCV);
-INFO = 0;
-i = 0;
-tic();
-[IDO,RESID,V,IPARAM,IPNTR,WORKD,WORKL,INFO] = dsaupd(IDO,BMAT,N,WHICH,NEV,TOL,RESID,NCV,V,IPARAM,IPNTR,WORKD,WORKL,INFO);
-while (IDO <> 99) & (IDO <> 3)
-    [IDO,RESID,V,IPARAM,IPNTR,WORKD,WORKL,INFO] = dsaupd(IDO,BMAT,N,WHICH,NEV,TOL,RESID,NCV,V,IPARAM,IPNTR,WORKD,WORKL,INFO);
-    if (IDO == 1) then
-        WORKD(IPNTR(2):(IPNTR(2)+N - 1)) = A * WORKD(IPNTR(1):(IPNTR(1)+N - 1));
-    elseif (IDO == 3) then
-    end;
-    i = i + 1;
-end;
-t1 = toc();
-printf("loop %d",i);
-loop 77
-b = rand(N,1);
-tic();
-for j = 1:i
-    b = A * b;
-end
-toc();
diff --git a/scilab/modules/arnoldi/tests/nonreg_tests/bug_dsaupd.tst b/scilab/modules/arnoldi/tests/nonreg_tests/bug_dsaupd.tst
deleted file mode 100644 (file)
index 4347d9f..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Vincent COUVERT <vincent.couvert@inria.fr>
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- CLI SHELL MODE -->
-
-// Tests for function dsaupd (added after a bug in the gateway: PutLhsVar missing)
-
-
-N = 1000;
-
-A = sprand(N, N, 0.01);
-
-IDO   = 0;
-BMAT  = "I"; //standard eigenvalue problem
-WHICH = "LM";
-NEV   = 4; //NEVth eigen values are solved
-TOL   = 1D-10;
-RESID = zeros(N,1); //
-NCV   = 10;
-
-V = zeros(N, NCV);
-
-ISHIFT = 1;
-LEVEC  = 0;
-MXITER = 100; //INPUT
-NB     = 1;
-NCONV  = 0;
-IUPD   = 0;
-MODE   = 1;
-NP     = 100;
-NUMOP  = 0;
-NUMOPB = 0;
-NUMREO = 0;
-
-IPARAM = [ISHIFT, LEVEC,  MXITER, NB, NCONV, IUPD, MODE, NP, NUMOP, NUMOPB, NUMREO];
-
-IPNTR = zeros(1,14);
-WORKD = zeros(3, N);
-WORKL = zeros(1, NCV**2 + 8 * NCV);
-
-INFO = 0;
-
-i = 0;
-tic();
-
-[IDO,RESID,V,IPARAM,IPNTR,WORKD,WORKL,INFO] = dsaupd(IDO,BMAT,N,WHICH,NEV,TOL,RESID,NCV,V,IPARAM,IPNTR,WORKD,WORKL,INFO);
-
-while (IDO <> 99) & (IDO <> 3)
-    [IDO,RESID,V,IPARAM,IPNTR,WORKD,WORKL,INFO] = dsaupd(IDO,BMAT,N,WHICH,NEV,TOL,RESID,NCV,V,IPARAM,IPNTR,WORKD,WORKL,INFO);
-    if (IDO == 1) then
-        WORKD(IPNTR(2):(IPNTR(2)+N - 1)) = A * WORKD(IPNTR(1):(IPNTR(1)+N - 1));
-    elseif (IDO == 3) then
-    end;
-
-    i = i + 1;
-end;
-t1 = toc();
-printf("loop %d",i);
-
-b = rand(N,1);
-tic();
-for j = 1:i
-    b = A * b;
-end
-toc();
index c4a6a50..9e4584c 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
 // <-- CLI SHELL MODE -->
+// <-- NOT FIXED --> 6.0.1 -> 6.0.2
 //
 
 a = 1:5;
diff --git a/scilab/modules/dynamic_link/tests/nonreg_tests/bug_4574.dia.ref b/scilab/modules/dynamic_link/tests/nonreg_tests/bug_4574.dia.ref
deleted file mode 100644 (file)
index 91b2c7e..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2009 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// <-- Non-regression test for bug 4574 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=4574
-//
-// <-- Short Description -->
-// ilib_build does not check if library is already loaded in scilab.
-ilib_verbose(0);
-chdir(TMPDIR);
-i=['#include ""api_scilab.h""'
-   'int intfun1(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt opt, int nout, scilabVar* out)'
-   '{'
-   '  return 0;'
-   '}'];
-mputl(i,'intfun1.c');
-ilib_build('foo',['scifun1','intfun1'],'intfun1.c',[]);
-exec loader.sce;
-i=['#include ""api_scilab.h""'
-   'int intfun1(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt opt, int nout, scilabVar* out)'
-   '{'
-   '  return 1;'
-   '}'];
-mputl(i,'intfun2.c');
-cmdstr = "ilib_build(''foo'',[''scifun1'',''intfun2''],''intfun2.c'',[]);"
- cmdstr  = 
- ilib_build('foo',['scifun1','intfun2'],'intfun2.c',[]);
-ierr = execstr(cmdstr, 'errcatch');
-if ierr <> 999 then bugmes();quit;end
index 2dfb033..ea8fa3f 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 
 // <-- Non-regression test for bug 4574 -->
 //
@@ -37,5 +38,4 @@ mputl(i,'intfun2.c');
 
 cmdstr = "ilib_build(''foo'',[''scifun1'',''intfun2''],''intfun2.c'',[]);"
 ierr = execstr(cmdstr, 'errcatch');
-if ierr <> 999 then pause,end
-
+assert_checktrue(ierr <> 0);
diff --git a/scilab/modules/dynamic_link/tests/nonreg_tests/bug_7907.dia.ref b/scilab/modules/dynamic_link/tests/nonreg_tests/bug_7907.dia.ref
deleted file mode 100644 (file)
index 9f4a285..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-// <-- ENGLISH IMPOSED -->
-//
-// <-- Non-regression test for bug 7907 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7907
-// <-- Short Description -->
-// ilib_build, ilib_for_link, ... did not check 'files' input argument.
-// 
-//
-if getos() <> "Windows" then
-  fnameref = "ilib_gen_Make_unix";
-  idargref = 2;
-else
-  fnameref = "ilib_gen_Make";
-  idargref = 3;
-end
-ilib_verbose(0);
-cd(TMPDIR);
-// check with old extension (file fun1.c exists) (no more managed)
-mputl("void sci_fun1(){}", TMPDIR + "/fun1.c");
-files = "fun1.o";
-if execstr("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(gettext("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3) then bugmes();quit;end
-mdelete(TMPDIR + "/fun1.c");
-// check with old extension (file fun2.c does not exist)
-files = "fun2.o";
-if execstr("ilib_build(""build_c"", [""fun2"", ""sci_fun2""],files,[]);", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(gettext("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3) then bugmes();quit;end
-if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_for_link", 2) then bugmes();quit;end
-if execstr("ilib_mex_build(""libmex"", [""mexf16"", ""mexfunction16"", ""cmex""],[""fun1.c""],[],[],"""","""","""");", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_mex_build", 3) then bugmes();quit;end
-// =============================================================================
index e39660c..6016301 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
-// <-- ENGLISH IMPOSED -->
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 7907 -->
 //
@@ -31,18 +31,18 @@ cd(TMPDIR);
 // check with old extension (file fun1.c exists) (no more managed)
 mputl("void sci_fun1(){}", TMPDIR + "/fun1.c");
 files = "fun1.o";
-if execstr("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", "errcatch") <> 999 then pause,end
-if lasterror() <> msprintf(gettext("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3) then pause, end
+msgref = msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3);
+assert_checkerror("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", msgref);
 mdelete(TMPDIR + "/fun1.c");
 
 // check with old extension (file fun2.c does not exist)
 files = "fun2.o";
-if execstr("ilib_build(""build_c"", [""fun2"", ""sci_fun2""],files,[]);", "errcatch") <> 999 then pause,end
-if lasterror() <> msprintf(gettext("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3) then pause, end
 
-if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then pause, end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_for_link", 2) then pause, end
+msgref = msprintf(_("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3);
+assert_checkerror("ilib_build(""build_c"", [""fun2"", ""sci_fun2""],files,[]);", msgref);
 
-if execstr("ilib_mex_build(""libmex"", [""mexf16"", ""mexfunction16"", ""cmex""],[""fun1.c""],[],[],"""","""","""");", "errcatch") <> 999 then pause, end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_mex_build", 3) then pause, end
-// =============================================================================
+msgref = msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_for_link", 2);
+assert_checkerror("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", msgref);
+
+msgref = msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_mex_build", 3);
+assert_checkerror("ilib_mex_build(""libmex"", [""mexf16"", ""mexfunction16"", ""cmex""],[""fun1.c""],[],[],"""","""","""");", msgref);
diff --git a/scilab/modules/gui/tests/unit_tests/layer.dia.ref b/scilab/modules/gui/tests/unit_tests/layer.dia.ref
deleted file mode 100644 (file)
index 1aaa568..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2014 - Scilab Enterprises - Antoine ELIAS
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- TEST WITH GRAPHIC -->
-function layer = create_layer(count)
-    c = get(0);c.usedeprecatedskin = "off"
-    f = figure("dockable", "off" ,"infobar_visible", "off", "toolbar_visible", "off", "menubar_visible", "off", "layout", "border")
-    f.figure_size = [300, 300];
-    //layer
-    layer = uicontrol(f, "style", "layer", "constraints", createConstraints("border", "center"));
-    for i = 1:count
-        fr1 = uicontrol(layer, "style", "frame");
-        fr1.layout_options = createLayoutOptions("border", [10, 10]);
-        fr1.layout = "border";
-        uicontrol(fr1, "string", "button " + string(i) + "1", "constraints", createConstraints("border", "top"));
-        uicontrol(fr1, "string", "button " + string(i) + "2", "constraints", createConstraints("border", "left"));
-        uicontrol(fr1, "string", "button " + string(i) + "3", "constraints", createConstraints("border", "center"));
-        uicontrol(fr1, "string", "button " + string(i) + "4", "constraints", createConstraints("border", "bottom"));
-        uicontrol(fr1, "string", "button " + string(i) + "5", "constraints", createConstraints("border", "right"));
-    end
-endfunction
-//1 layer
-layer = create_layer(1);
-visible1 = ['on'];
-assert_checkequal(layer.value, 1);
-assert_checkequal(layer.children.visible, visible1);
-layer.value = 2;
-assert_checkequal(layer.value, 2);
-//if value is out of bounds, nothing happen but value is normally set
-assert_checkequal(layer.children.visible, visible1);
-//4 layers
-delete(gcf());
-layer = create_layer(4);
-visible1 = ['on' 'off' 'off' 'off'];
-visible2 = ['off' 'on' 'off' 'off'];
-visible3 = ['off' 'off' 'on' 'off'];
-visible4 = ['off' 'off' 'off' 'on'];
-assert_checkequal(layer.value, 1);
-assert_checkequal(layer.children.visible, visible1);
-layer.value = 2;
-assert_checkequal(layer.value, 2);
-assert_checkequal(layer.children.visible, visible2);
-layer.value = 3;
-assert_checkequal(layer.value, 3);
-assert_checkequal(layer.children.visible, visible3);
-layer.value = 4;
-assert_checkequal(layer.value, 4);
-assert_checkequal(layer.children.visible, visible4);
-layer.value = 10;
-assert_checkequal(layer.value, 10);
-//if value is out of bounds, nothing happen but value is normally set
-assert_checkequal(layer.children.visible, visible4);
index 4c046eb..30169d7 100644 (file)
@@ -4,8 +4,9 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+//
 // <-- TEST WITH GRAPHIC -->
+// <-- NO CHECK REF -->
 
 function layer = create_layer(count)
     c = get(0);c.usedeprecatedskin = "off"
@@ -43,10 +44,10 @@ assert_checkequal(layer.children.visible, visible1);
 delete(gcf());
 layer = create_layer(4);
 
-visible1 = ['on' 'off' 'off' 'off'];
-visible2 = ['off' 'on' 'off' 'off'];
-visible3 = ['off' 'off' 'on' 'off'];
-visible4 = ['off' 'off' 'off' 'on'];
+visible1 = ['on';'off';'off';'off'];
+visible2 = ['off';'on';'off';'off'];
+visible3 = ['off';'off';'on';'off'];
+visible4 = ['off';'off';'off';'on'];
 
 assert_checkequal(layer.value, 1);
 assert_checkequal(layer.children.visible, visible1);