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