bug 6547 non regression test
Allan CORNET [Fri, 5 Feb 2010 14:24:01 +0000 (15:24 +0100)]
scilab/CHANGES_5.3.X
scilab/modules/functions/tests/nonreg_tests/bug_6549.dia.ref [new file with mode: 0644]
scilab/modules/functions/tests/nonreg_tests/bug_6549.tst [new file with mode: 0644]

index 864ade6..928fb25 100644 (file)
@@ -36,6 +36,8 @@ Bug fixes:
 
 * bug 6543 fixed - neldermead issues for automatic restarts.
 
+* bug 6549 fixed - genlib function had a behavior which was not consistent with the load function.
+
 * bug 6550 fixed - lib(".") returned a relative path in library variable created.
 
 * bug 6556 fixed - fprintf() returned an error if it's called 2 times (or more) on the same file.
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_6549.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_6549.dia.ref
new file mode 100644 (file)
index 0000000..b2712e8
--- /dev/null
@@ -0,0 +1,78 @@
+// =============================================================================
+// 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.
+// =============================================================================
+// <-- Non-regression test for bug 6549 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=6549
+//
+// <-- Short Description -->
+// genlib function had a behavior which was not consistent with the load function.
+// =============================================================================
+f = [
+"function titi()"
+"  disp(''titi'');"
+"endfunction"
+""
+"function tata()"
+"  disp(''tata'');"
+"endfunction"
+""
+"function toto()"
+"  disp(''toto'');"
+"endfunction"
+""
+];
+cd TMPDIR;
+mkdir('bug_6549');
+cd('bug_6549'); 
+mputl(f,'toto.sci');
+if genlib('bug_6549lib',TMPDIR + '/bug_6549') <> %t then bugmes();quit;end;
+// =============================================================================
+ierr = execstr('toto','errcatch');
+ toto   
+if ierr <> 0 then bugmes();quit;end
+ierr = execstr('titi','errcatch');
+ titi   
+if ierr <> 0 then bugmes();quit;end
+ierr = execstr('tata','errcatch');
+ tata   
+if ierr <> 0 then bugmes();quit;end
+clear bug_6549lib titi toto tata ierr;
+// =============================================================================
+load(TMPDIR + '/bug_6549/lib');
+ierr = execstr('toto','errcatch');
+ toto   
+if ierr <> 0 then bugmes();quit;end
+ierr = execstr('titi','errcatch');
+ titi   
+if ierr <> 0 then bugmes();quit;end
+ierr = execstr('tata','errcatch');
+ tata   
+if ierr <> 0 then bugmes();quit;end
+clear bug_6549lib titi toto tata ierr;
+// =============================================================================
+bug_6549lib = lib(TMPDIR + '/bug_6549');
+ierr = execstr('toto','errcatch');
+ toto   
+if ierr <> 0 then bugmes();quit;end
+ierr = execstr('titi','errcatch');
+ titi   
+if ierr <> 0 then bugmes();quit;end
+ierr = execstr('tata','errcatch');
+ tata   
+if ierr <> 0 then bugmes();quit;end
+clear bug_6549lib titi toto tata ierr;
+// =============================================================================
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_6549.tst b/scilab/modules/functions/tests/nonreg_tests/bug_6549.tst
new file mode 100644 (file)
index 0000000..f302a01
--- /dev/null
@@ -0,0 +1,60 @@
+// =============================================================================
+// 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.
+// =============================================================================
+// <-- Non-regression test for bug 6549 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=6549
+//
+// <-- Short Description -->
+// genlib function had a behavior which was not consistent with the load function.
+// =============================================================================
+f = [
+"function titi()"
+"  disp(''titi'');"
+"endfunction"
+""
+"function tata()"
+"  disp(''tata'');"
+"endfunction"
+""
+"function toto()"
+"  disp(''toto'');"
+"endfunction"
+""
+];
+cd TMPDIR;
+mkdir('bug_6549');
+cd('bug_6549'); 
+mputl(f,'toto.sci');
+if genlib('bug_6549lib',TMPDIR + '/bug_6549') <> %t then pause,end;
+// =============================================================================
+ierr = execstr('toto','errcatch');
+if ierr <> 0 then pause,end
+ierr = execstr('titi','errcatch');
+if ierr <> 0 then pause,end
+ierr = execstr('tata','errcatch');
+if ierr <> 0 then pause,end
+clear bug_6549lib titi toto tata ierr;
+// =============================================================================
+load(TMPDIR + '/bug_6549/lib');
+ierr = execstr('toto','errcatch');
+if ierr <> 0 then pause,end
+ierr = execstr('titi','errcatch');
+if ierr <> 0 then pause,end
+ierr = execstr('tata','errcatch');
+if ierr <> 0 then pause,end
+clear bug_6549lib titi toto tata ierr;
+// =============================================================================
+bug_6549lib = lib(TMPDIR + '/bug_6549');
+ierr = execstr('toto','errcatch');
+if ierr <> 0 then pause,end
+ierr = execstr('titi','errcatch');
+if ierr <> 0 then pause,end
+ierr = execstr('tata','errcatch');
+if ierr <> 0 then pause,end
+clear bug_6549lib titi toto tata ierr;
+// =============================================================================