bug_14028: force flag of genlib did not rebuild bin file.
[scilab.git] / scilab / modules / io / tests / nonreg_tests / bug_14028.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- Non-regression test for bug 14028 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=14028
14 //
15 // <-- Short Description -->
16 // force flag of genlib does not rebuild bin file.
17
18 cd TMPDIR;
19 mkdir("lib1");
20 mputl(["function ret = lib_test";"  ret= ""lib1""";"endfunction"], "lib1/lib_test.sci");
21
22 genlib("lib1lib","lib1",%f);
23 info1 = fileinfo("lib1/lib_test.bin");
24
25 genlib("lib1lib","lib1",%f);
26 info2 = fileinfo("lib1/lib_test.bin");
27 assert_checktrue(info1(6) == info2(6));
28
29 mputl(["function ret = lib_test";"  ret= ""lib1.2""";"endfunction"], "lib1/lib_test.sci");
30 genlib("lib1lib","lib1",%f);
31 info1 = fileinfo("lib1/lib_test.bin");
32
33 //to be sure date change
34 sleep(2000);
35
36 genlib("lib1lib","lib1",%t);
37 info2 = fileinfo("lib1/lib_test.bin");
38 assert_checkfalse(info1(6) == info2(6));