1//<-- CLI SHELL MODE -->
2// =============================================================================
3// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4// Copyright (C) 2008 - INRIA
5//
6//  This file is distributed under the same license as the Scilab package.
7// =============================================================================
8a=dir('SCI\bin');
9f1=a(2);
10r1=newest(f1);
11clear a f1 r1
12realtimeinit(2);
13realtime(0);
14for k=1:4
15	realtime(k);
16	mputl("",TMPDIR+"/newest_"+string(k));
17end
18if newest([]) <> [] then bugmes();quit;end
19if newest()   <> [] then bugmes();quit;end
20if newest("SCI/etc/scilab.start") <> 1 then bugmes();quit;end
21if newest("SCI/nofile.txt")       <> 1 then bugmes();quit;end
22if newest(TMPDIR+"/newest_1",TMPDIR+"/newest_2",TMPDIR+"/newest_3",TMPDIR+"/newest_4") <> 4 then bugmes();quit;end
23if newest(TMPDIR+"/newest_2",TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1") <> 3 then bugmes();quit;end
24if newest(TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/newest_2") <> 2 then bugmes();quit;end
25if newest(TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/newest_2",TMPDIR+"/newest_3") <> 1 then bugmes();quit;end
26if newest([TMPDIR+"/newest_1" TMPDIR+"/newest_2" TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
27if newest([TMPDIR+"/newest_2" TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
28if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/newest_2"] ) <> 2 then bugmes();quit;end
29if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/newest_2" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
30if newest([TMPDIR+"/newest_1" TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
31if newest([TMPDIR+"/newest_2" TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 2 then bugmes();quit;end
32if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" TMPDIR+"/newest_2"] ) <> 3 then bugmes();quit;end
33if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
34if newest([TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
35if newest([TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
36if newest([TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/newest_2"] ) <> 2 then bugmes();quit;end
37if newest([TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" ; TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
38if newest(TMPDIR+"/newest_1",TMPDIR+"/no_file",TMPDIR+"/newest_3",TMPDIR+"/newest_4") <> 4 then bugmes();quit;end
39if newest(TMPDIR+"/no_file",TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1") <> 3 then bugmes();quit;end
40if newest(TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/no_file") <> 2 then bugmes();quit;end
41if newest(TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/no_file",TMPDIR+"/newest_3") <> 1 then bugmes();quit;end
42if newest([TMPDIR+"/newest_1" TMPDIR+"/no_file" TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
43if newest([TMPDIR+"/no_file" TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
44if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/no_file"] ) <> 2 then bugmes();quit;end
45if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/no_file" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
46if newest([TMPDIR+"/newest_1" TMPDIR+"/no_file" ; TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
47if newest([TMPDIR+"/no_file" TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 2 then bugmes();quit;end
48if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" TMPDIR+"/no_file"] ) <> 3 then bugmes();quit;end
49if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" ; TMPDIR+"/no_file" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
50if newest([TMPDIR+"/newest_1" ; TMPDIR+"/no_file" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
51if newest([TMPDIR+"/no_file" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
52if newest([TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/no_file"] ) <> 2 then bugmes();quit;end
53if newest([TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/no_file" ; TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
54if execstr('newest(''rrr'',''SCI\bin\libscilab.dll'',3)','errcatch') <> 999 then bugmes();quit;end
55