fix tests getURL [fileio], macrovar/2654/4608/7163 in [functions] 37/20737/2
Samuel GOUGEON [Thu, 24 Jan 2019 23:48:44 +0000 (00:48 +0100)]
Change-Id: I26314e1a373d7f29c880e1d7d3ce5162809e3d01

scilab/modules/fileio/tests/unit_tests/getURL.dia.ref [deleted file]
scilab/modules/fileio/tests/unit_tests/getURL.tst
scilab/modules/functions/tests/nonreg_tests/bug_2654.tst
scilab/modules/functions/tests/nonreg_tests/bug_4608.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_4608.tst
scilab/modules/functions/tests/nonreg_tests/bug_7163.dia.ref [deleted file]
scilab/modules/functions/tests/nonreg_tests/bug_7163.tst
scilab/modules/functions/tests/unit_tests/macrovar.dia.ref [deleted file]
scilab/modules/functions/tests/unit_tests/macrovar.tst

diff --git a/scilab/modules/fileio/tests/unit_tests/getURL.dia.ref b/scilab/modules/fileio/tests/unit_tests/getURL.dia.ref
deleted file mode 100644 (file)
index e51f09e..0000000
+++ /dev/null
@@ -1,72 +0,0 @@
-//<-- CLI SHELL MODE -->
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2011 - Sylvestre LEDRU
-// Copyright (C) 2013 - Scilab Enterprises
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-function checkFile(filePath, expectedFilePath, minimalFileSize)
-    assert_checkequal(filePath, expectedFilePath)
-    info = fileinfo(filePath);
-    assert_checktrue(info(1) > minimalFileSize);
-    deletefile(filePath);
-endfunction
-function checkFileAndContent(filePath, expectedFilePath, minimalFileSize, keywordToFind)
-    fd = mopen(filePath, "r");
-    assert_checktrue(grep(mgetl(fd), keywordToFind) <> []);
-    mclose(fd);
-    checkFile(filePath, expectedFilePath, minimalFileSize);
-endfunction
-function checkContent(filePath, content, keyword, keywordToFind)
-    assert_checktrue(length(content) > 10);
-    assert_checktrue(grep(content, keywordToFind) <> []);
-    deletefile(filePath);
-endfunction
-curdir = pwd();
-destdir = fullfile(TMPDIR, "getURL");
-mkdir(destdir);
-cd(destdir);
-// Check downloaded file
-filePath = getURL("http://www.scilab.org");
-checkFile(filePath, fullfile(destdir, "index.html"), 1000);
-filePath = getURL("http://www.scilab.org/");
-checkFile(filePath, fullfile(destdir, "index.html"), 1000);
-filePath = getURL("http://www.scilab.org/product/man/numderivative.html");
-checkFile(filePath, fullfile(destdir, "numderivative.html"), 1000);
-filePath = getURL("www.scilab.org");
-checkFile(filePath, fullfile(destdir, "index.html"), 1000);
-filePath = getURL("www.scilab.org/product/man/numderivative.html");
-checkFile(filePath, fullfile(destdir, "numderivative.html"), 1000);
-filePath = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
-checkFile(filePath, fullfile(destdir, "README"), 10);
-filePath = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README", fullfile(destdir, "README_Debian"));
-checkFileAndContent(filePath, fullfile(destdir, "README_Debian"), 10, "Linux");
-filePath = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README", destdir);
-checkFileAndContent(filePath, fullfile(destdir, "README"), 10, "Linux");
-// HTTPS
-filePath = getURL("https://encrypted.google.com");
-checkFileAndContent(filePath, fullfile(destdir, "index.html"), 100, "html");
-filePath = getURL("http://httpbin.org/basic-auth/user/passwd", fullfile(destdir, "testauth"), "user", "passwd");
-checkFileAndContent(filePath, fullfile(destdir, "testauth"), 10, "authenticated");
-// Check returned content
-[filePath, content] = getURL("http://www.scilab.org:80");
-checkContent(filePath, content, 1000, "html");
-[filePath, content] = getURL("http://plop:ae@www.scilab.org:80");
-checkContent(filePath, content, 1000, "html");
-[filePath, content] = getURL("http://www.scilab.org/aze");
-checkContent(filePath, content, 100, "aze");
-[filePath, content] = getURL("http://www.scilab.org");
-checkContent(filePath, content, 1000, "html");
-[filePath, content] = getURL("http://www.scilab.org/");
-checkContent(filePath, content, 1000, "html");
-[filePath, content] = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
-checkContent(filePath, content, 10, "Linux");
-// HTTPS
-[filePath, content] = getURL("https://encrypted.google.com");
-checkContent(filePath, content, 100, "html");
-[filePath, content] = getURL("http://httpbin.org/basic-auth/user/passwd", destdir, "user", "passwd");
-checkContent(filePath, content, 10, "authenticated");
-// Badly formatted URL
-assert_checkerror("getURL(''http://plop@ae:www.scilab.org:80'');", [], 999);
-cd(curdir);
index 411772d..f6616aa 100644 (file)
@@ -1,4 +1,3 @@
-//<-- CLI SHELL MODE -->
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2011 - Sylvestre LEDRU
@@ -6,6 +5,8 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//<-- CLI SHELL MODE -->
+//<-- NO CHECK REF -->
 
 function checkFile(filePath, expectedFilePath, minimalFileSize)
     assert_checkequal(filePath, expectedFilePath)
@@ -72,7 +73,7 @@ checkContent(filePath, content, 1000, "html");
 checkContent(filePath, content, 1000, "html");
 
 [filePath, content] = getURL("http://www.scilab.org/aze");
-checkContent(filePath, content, 100, "aze");
+checkContent(filePath, content, 100, "ESI");
 
 [filePath, content] = getURL("http://www.scilab.org");
 checkContent(filePath, content, 1000, "html");
index d8b8fb4..3e73a5c 100644 (file)
@@ -6,7 +6,6 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
-// <-- NOT FIXED --> 6.0.0
 
 // <-- Non-regression test for bug 2654 -->
 //
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_4608.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_4608.dia.ref
deleted file mode 100644 (file)
index e066703..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2009-2010 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// <-- Non-regression test for bug 4608 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=4608
-//
-// <-- Short Description -->
-// get_function_path returns a non-consistent path
-// ver is in "core" module
-r = get_function_path('ver');
-ref = pathconvert(SCI + '/modules/core/macros/ver.sci',%f);
-if getlongpathname(r) <> getlongpathname(ref) then bugmes();quit;end
-ierr = execstr('get_function_path(1)','errcatch');
-if ierr <> 999 then bugmes();quit;end
-ierr = execstr('get_function_path([''ver'',''typeof''])','errcatch');
-if ierr <> 999 then bugmes();quit;end
index 5963b7f..6e49e91 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 
 // <-- Non-regression test for bug 4608 -->
 //
@@ -21,7 +22,7 @@ ref = pathconvert(SCI + '/modules/core/macros/ver.sci',%f);
 if getlongpathname(r) <> getlongpathname(ref) then pause,end
 
 ierr = execstr('get_function_path(1)','errcatch');
-if ierr <> 999 then pause,end
+if ierr <> 10000 then pause,end
 
 ierr = execstr('get_function_path([''ver'',''typeof''])','errcatch');
-if ierr <> 999 then pause,end
+if ierr <> 10000 then pause,end
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_7163.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_7163.dia.ref
deleted file mode 100644 (file)
index 3c3ab0c..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Vincent COUVERT
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 7163 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7163
-//
-// <-- Short Description -->
-// tree2code wrongly replaced every (:) occurence in a function definition with (eye()).
-function foo(r)
-    r(:)=1
-endfunction
-txt = tree2code(macr2tree(foo));
-if or(txt<>["function [] = foo(r)";"r(:) = 1";"endfunction";""]) then bugmes();quit;end
index 4da9c1d..939f3bf 100644 (file)
@@ -6,11 +6,12 @@
 // =============================================================================
 //
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 //
 // <-- Non-regression test for bug 7163 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7163
+// http://bugzilla.scilab.org/7163
 //
 // <-- Short Description -->
 // tree2code wrongly replaced every (:) occurence in a function definition with (eye()).
@@ -21,4 +22,4 @@ endfunction
 
 txt = tree2code(macr2tree(foo));
 
-if or(txt<>["function [] = foo(r)";"r(:) = 1";"endfunction";""]) then pause; end
+if or(txt<>["function foo(r)";"r(:) = 1";"endfunction";""]) then pause; end
diff --git a/scilab/modules/functions/tests/unit_tests/macrovar.dia.ref b/scilab/modules/functions/tests/unit_tests/macrovar.dia.ref
deleted file mode 100644 (file)
index 79a58c1..0000000
+++ /dev/null
@@ -1,145 +0,0 @@
-//<-- CLI SHELL MODE -->
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Antoine ELIAS
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-funcprot(0);
-//1 in, 0 out
-ref = list("i1", [], [], [], []);
-function foo(i1)
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-//1 in, 1 out
-ref = list("i1", "o1", [], [], []);
-function o1 = foo(i1)
-    o1 = i1;
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-//n in, n out
-ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], [], [], []);
-function [o1, o2, o3] = foo(i1, i2, i3, i4)
-    o1 = i1 + i2;
-    o2 = i2 + i3;
-    o3 = i3 + i4;
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-//add local vars
-ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], [], [], ["l1";"l2";"l3"]);
-function [o1, o2, o3] = foo(i1, i2, i3, i4)
-    l1 = i1 + i2;
-    l2 = i2 + i3;
-    l3 = i3 + i4;
-    o1 = l1;
-    o2 = l2;
-    o3 = l3;
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-//add external vars
-e1 = 1;
-e2 = 2;
-e3 = 3;
-ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], ["e1";"e2";"e3"], [], ["l1";"l2";"l3"]);
-function [o1, o2, o3] = foo(i1, i2, i3, i4)
-    l1 = i1 + i2;
-    l2 = i2 + i3;
-    l3 = i3 + i4;
-    o1 = l1 + e1;
-    o2 = l2 + e2;
-    o3 = l3 + e3;
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-//add function calls
-e1 = 1;
-e2 = 2;
-e3 = 3;
-ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], ["e1";"e2";"e3"], ["cos";"sin";"tan"], ["l1";"l2";"l3"]);
-function [o1, o2, o3] = foo(i1, i2, i3, i4)
-    l1 = i1 + i2;
-    l2 = i2 + i3;
-    l3 = i3 + i4;
-    o1 = cos(l1 + e1);
-    o2 = sin(l2 + e2);
-    o3 = tan(l3 + e3);
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([], [], ["u";"t"], [], ["y"]);
-function [] = foo()
-    y = [u;t];
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([], [], ["u";"t"], [], ["y"]);
-function [] = foo()
-    y(1) = [u;t];
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([], [], ["u";"t"], [], ["y";"z"]);
-function [] = foo()
-    [y,z] = [u;t];
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([], [], ["u";"t"], [], ["y";"z"]);
-function [] = foo()
-    [y(1),z(2)] = [u;t];
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([], [], ["u";"t"], [], ["bar";"y"]);
-function [] = foo()
-    function bar()
-    endfunction
-    bar();
-    y = [u;t];
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([], [], ["u";"t"], [], ["bar";"y"]);
-function [] = foo()
-    function bar()
-    endfunction
-    y = [u;t];
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list(["x1";"x2"], ["y"], ["a"], [], ["loc"]);
-function y = foo(x1, x2)
-    loc = 1;
-    y = a*x1+x2-loc
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
-ref = list([],[],[],["length";"typeof";"steadycos";"lincos";"ppol";"obscont";"clear"],["M";"m";"l";"ph";"i";"scs_m";"X";"U";"Y";"XP";"sys";"Kc";"Kf";"Contr";"z0";"th0"]);
-function foo()
-    M=10;
-    m=3;
-    l=3;
-    ph=0.1;
-    for i=1:length(scs_m.objs)
-        if typeof(scs_m.objs(i)) == "Block" then
-            if scs_m.objs(i).gui == "SUPER_f" then
-                scs_m=scs_m.objs(i).model.rpar;
-                break
-            end
-        end
-    end
-    [X,U,Y,XP]=steadycos(scs_m,[],[],[],[],1,1:$);
-    sys= lincos(scs_m,X,U);
-    Kc=-ppol(sys.A,sys.B,[-1,-1,-1,-1]);
-    Kf=-ppol(sys.A',sys.C',[-2,-2,-2,-2]);Kf=Kf';
-    Contr=obscont(sys,Kc,Kf);
-    clear("scs_m","X","Y","XP","Kc","Kp","sys","%cpr");
-    z0=-4;
-    th0=.02;
-endfunction
-val = macrovar(foo);
-assert_checkequal(ref, val);
index 47c94cd..858ae55 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 //<-- CLI SHELL MODE -->
-//<-- NOT FIXED --> 6.0.0
+//<-- NO CHECK REF -->
 
 funcprot(0);