Split encoding tests
Pierre MARECHAL [Thu, 7 May 2009 09:15:46 +0000 (11:15 +0200)]
105 files changed:
scilab/modules/core/tests/unit_tests/getmd5.encoding.tst [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/getmd5.tst
scilab/modules/core/tests/unit_tests/libraryinfo.encoding.tst [moved from scilab/modules/core/tests/unit_tests/libraryinfo.tst with 100% similarity]
scilab/modules/dynamic_link/tests/unit_tests/link.encoding.tst [moved from scilab/modules/dynamic_link/tests/unit_tests/link_path.tst with 100% similarity]
scilab/modules/fileio/tests/nonreg_tests/bug_1023.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1315.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1526.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1586.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1620.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1693.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1867.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1897.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2038.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2107.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2149.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2181.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2208.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2399.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2484.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2555.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2636.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2639.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2697.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2700.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2706.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2891.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3075.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3076.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3089.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3232.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3529.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3663.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3664.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3679.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3684.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3700.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3714.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3830.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3896.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3897.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3898.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3905.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3931.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3934.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_4228.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_654.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_656.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_657.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_799.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_C.dia.ref
scilab/modules/fileio/tests/unit_tests/cd.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/cd.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/cd.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/chdir.dia.ref
scilab/modules/fileio/tests/unit_tests/chdir.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/chdir.encoding.tst [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/chdir.tst
scilab/modules/fileio/tests/unit_tests/copyfile.dia.ref
scilab/modules/fileio/tests/unit_tests/deletefile.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/deletefile.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/deletefile.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/dir.dia.ref
scilab/modules/fileio/tests/unit_tests/fileext.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/fileext.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/fileext.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/fileinfo.dia.ref
scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.tst [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/fileinfo.tst
scilab/modules/fileio/tests/unit_tests/fileparts.dia.ref
scilab/modules/fileio/tests/unit_tests/findfiles.dia.ref
scilab/modules/fileio/tests/unit_tests/fprintfMat.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/fprintfMat.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/fprintfMat.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/fscanfMat.dia.ref
scilab/modules/fileio/tests/unit_tests/fullpath.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/fullpath.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/fullpath.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/getshortlongpathname.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/getshortlongpathname.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/getshortlongpathname.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/is_absolute_path.dia.ref
scilab/modules/fileio/tests/unit_tests/isdir.dia.ref
scilab/modules/fileio/tests/unit_tests/mclose.dia.ref
scilab/modules/fileio/tests/unit_tests/mdelete.dia.ref
scilab/modules/fileio/tests/unit_tests/meof.dia.ref
scilab/modules/fileio/tests/unit_tests/merror.dia.ref
scilab/modules/fileio/tests/unit_tests/mfprintf.dia.ref
scilab/modules/fileio/tests/unit_tests/mfscanf.dia.ref
scilab/modules/fileio/tests/unit_tests/mgetstr.dia.ref
scilab/modules/fileio/tests/unit_tests/mkdir.dia.ref
scilab/modules/fileio/tests/unit_tests/mopen.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/mopen.encoding.tst [moved from scilab/modules/fileio/tests/unit_tests/mopen.tst with 98% similarity]
scilab/modules/fileio/tests/unit_tests/mputl.dia.ref
scilab/modules/fileio/tests/unit_tests/mseek.dia.ref
scilab/modules/fileio/tests/unit_tests/msscanf.dia.ref
scilab/modules/fileio/tests/unit_tests/newest.dia.ref
scilab/modules/fileio/tests/unit_tests/newest.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/newest.encoding.tst [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/newest.tst
scilab/modules/fileio/tests/unit_tests/non-iso-filename.dia.ref
scilab/modules/fileio/tests/unit_tests/pwd.encoding.dia.ref [moved from scilab/modules/fileio/tests/unit_tests/pwd.tst with 97% similarity]
scilab/modules/fileio/tests/unit_tests/pwd.encoding.tst [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/removedir.dia.ref
scilab/modules/fileio/tests/unit_tests/removedir.encoding.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/removedir.encoding.tst [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/removedir.tst
scilab/modules/fileio/tests/unit_tests/rmdir.dia.ref
scilab/modules/fileio/tests/unit_tests/sscanf.dia.ref
scilab/modules/history_manager/tests/unit_tests/historyfile.encoding.tst [moved from scilab/modules/history_manager/tests/unit_tests/historyfile.tst with 100% similarity]
scilab/modules/io/tests/unit_tests/searchenv.encoding.tst [moved from scilab/modules/io/tests/unit_tests/searchenv.tst with 100% similarity]

diff --git a/scilab/modules/core/tests/unit_tests/getmd5.encoding.tst b/scilab/modules/core/tests/unit_tests/getmd5.encoding.tst
new file mode 100644 (file)
index 0000000..af02332
--- /dev/null
@@ -0,0 +1,38 @@
+// =============================================================================\r
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
+// Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>\r
+//\r
+//  This file is distributed under the same license as the Scilab package.\r
+// =============================================================================\r
+\r
+cd(TMPDIR);\r
+\r
+if MSDOS then\r
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");\r
+else\r
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");\r
+end\r
+\r
+tab_ref = [\r
+"世界您好",\r
+"азеазея",\r
+"ハロー・ワールド",\r
+"เฮลโลเวิลด์",\r
+"حريات وحقوق",\r
+"프로그램",\r
+"תוכנית"];\r
+\r
+v_ref = [\r
+'67737ef45b718d9e151929715a2a9557',\r
+'0e68dfdd1701d509731099cb245b05f0',\r
+'3451966ed3a31bf8ebc5ff621e54ed46',\r
+'090d128546828182ff488b8dcf24792c',\r
+'cc4031dc819e21b7428480ddcf8761d3',\r
+'c654f8795440063a2bed82518065ecf0',\r
+'d4c784f6566873efb0bb25c858b28fc8'];\r
+\r
+for i = 1 : size(tab_ref,'*')\r
+       fz = TMPDIR + filesep() + "dir_" + tab_ref(i) + filesep() + "file_" + tab_ref(i);\r
+       if getmd5(fz) <> v_ref(i) then pause,end\r
+end\r
+cd(TMPDIR); \r
index 97a2f09..ecaada4 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.\r
 // =============================================================================\r
 \r
+// <-- JVM NOT MANDATORY -->\r
+\r
 // Test 1\r
 // =============================================================================\r
 \r
@@ -56,37 +58,3 @@ if getmd5(A,"string") <> B then pause, end
 // =============================================================================\r
 \r
 if or(size(getmd5( SCI+'/modules/core/etc/'+['core.start' 'core.quit'])) <> [1 2]) then pause, end\r
-\r
-// Test 8\r
-// =============================================================================\r\r \r
-cd(TMPDIR);\r
-\r
-if MSDOS then\r
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");\r
-else\r
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");\r
-end\r
-\r
-tab_ref = [\r
-"世界您好",\r
-"азеазея",\r
-"ハロー・ワールド",\r
-"เฮลโลเวิลด์",\r
-"حريات وحقوق",\r
-"프로그램",\r
-"תוכנית"];\r
-\r
-v_ref = [\r
-'67737ef45b718d9e151929715a2a9557',\r
-'0e68dfdd1701d509731099cb245b05f0',\r
-'3451966ed3a31bf8ebc5ff621e54ed46',\r
-'090d128546828182ff488b8dcf24792c',\r
-'cc4031dc819e21b7428480ddcf8761d3',\r
-'c654f8795440063a2bed82518065ecf0',\r
-'d4c784f6566873efb0bb25c858b28fc8'];\r
-\r
-for i = 1 : size(tab_ref,'*')\r
-       fz = TMPDIR + filesep() + "dir_" + tab_ref(i) + filesep() + "file_" + tab_ref(i);\r
-       if getmd5(fz) <> v_ref(i) then pause,end\r
-end
-cd(TMPDIR); \r
index 50a1074..0cc1b78 100644 (file)
@@ -1,32 +1,35 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1023 -->
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=1023
 //
 // <-- Short Description -->
-//    mfscanf cores dump scilab.
+//    mfscanf cores dump scilab. 
 //
-//    I have a file named links.txt, its size is 350k. When I
-//    try to run the below code, line 5 kills scilab with the
-//    error "error in fscanf : cannot allocate more memory". But
-//    the command "free" tells me I have 182Mb free memory.
+//    I have a file named links.txt, its size is 350k. When I 
+//    try to run the below code, line 5 kills scilab with the 
+//    error "error in fscanf : cannot allocate more memory". But 
+//    the command "free" tells me I have 182Mb free memory. 
 //
-//    =================================================
-//    filename = "/home/fsilva/kazus.ebooks/links.txt"
-//    inputfile = mopen(filename,"r")
+//    ================================================= 
+//    filename = "/home/fsilva/kazus.ebooks/links.txt" 
+//    inputfile = mopen(filename,"r") 
 //
-//    [n,a] = mfscanf(-1,inputfile,"%s");
-//    [m,b] = mfscanf(-1,inputfile,"%s"); //line 5
+//    [n,a] = mfscanf(-1,inputfile,"%s"); 
+//    [m,b] = mfscanf(-1,inputfile,"%s"); //line 5 
 //
 //    mclose(inputfile);
-// Copyright INRIA
-// Scilab Project - Serge Steer
-// Copyright INRIA 2006
-// Date : 11 janvier 2006
 Tref=['xxxx';'yyy';'z'];
 mputl(Tref,TMPDIR+'/bug1023.txt');
 u=mopen(TMPDIR+'/bug1023.txt','r');
-[n,a] = mfscanf(-1,u,"%s");
+[n,a] = mfscanf(-1,u,"%s"); 
 [m,b] = mfscanf(-1,u,"%s");
 if n<>1        then bugmes();quit;end
 if or(a<>Tref) then bugmes();quit;end
index 5419209..566b820 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1315 -->
 //
 // <-- Bugzilla URL -->
index ac0d20c..0e1b328 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1526 -->
 //
 // <-- Bugzilla URL -->
@@ -8,9 +15,6 @@
 //   using windows encoding is read badly on Scilab/Linux with the fscanfMat primitive.
 //   This problem seems to come from the bad read of end-line characters.
 //   A work-around of this bug, is to use 'dos2unix' on Linux to convert the file.
-// Pierre MARECHAL - Scilab Project
-// Copyright INRIA
-// 12/02/2008
 mat_ref = [ ..
     0.15    0.19    0.96 ;
     0.55    0.81    0.57 ;
index 8a2cca9..e6a4685 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1586 -->
 //
 // <-- Bugzilla URL -->
 //    status  =
 //        0.
 // ...
-// Copyright INRIA
-// Scilab Project - Pierre MARECHAL
-// Copyright INRIA 2005
-// Date : 28 octobre 2005
 dirToSave = pwd();
 cd(TMPDIR);
 [status,msg]=mkdir('bug1586');
index 584e523..7adb29e 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1620 -->
 //
 // <-- Bugzilla URL -->
 // <-- Short Description -->
 //    Lorsque j'essaie de lire une matrice de taille 500x148, soit:
 //    -le programme me charge la matrice mais en decalant les elements (le
-//    premier de la deuxi�me ligne devient le dernier de la premiere) et en
+//    premier de la deuxième ligne devient le dernier de la premiere) et en
 //    donnant la taille 500x149 -> il ne remonte aucun probleme, ce qui est
 //    pervers!
 //    - soit scilab me dit que la fonction fscanfMat ne dispose pas de
 //    memoire suffisante pour lire la matrice
-//    - soit scilab plante avec le message d�crit ci-dessous.
+//    - soit scilab plante avec le message décrit ci-dessous.
 //
 //    Lorsque je charge une matrice beaucoup plus grosse en nombre
-//    d'�l�ments
-//    (mais avec moins de colones), je n'ai aucun probl�me. Il  ne s'agit
-//    donc pas vraiment d'un probl�me de taille m�moire.
-//    J'ai essay� d'augmenter la taille de la pile avec la commande
+//    d'éléments
+//    (mais avec moins de colones), je n'ai aucun problème. Il  ne s'agit
+//    donc pas vraiment d'un problème de taille mémoire.
+//    J'ai essayé d'augmenter la taille de la pile avec la commande
 //    gstacksize
 //    (n), mais cela n'a pas eu d'effet. Qu'en pensez vous?
-//    La commande clear nettoie-t-elle efficacement la m�moire?
+//    La commande clear nettoie-t-elle efficacement la mémoire?
 //    Merci de votre aide.
-// Copyright INRIA
-// Scilab Project - Pierre MARECHAL
-// Copyright INRIA 2006
-// Date : 9 janvier 2006
 a=rand(500,148);
 fprintfMat(TMPDIR+"/bug1620.txt",a);
 b=fscanfMat(TMPDIR+"/bug1620.txt");
index c6ff38e..f35b783 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1693 -->
 //
 // <-- Bugzilla URL -->
@@ -14,7 +15,7 @@
 // ...
 // ================== Test 1 ==================
 cd('\');
-if MSDOS
+if MSDOS 
        if pwd() <> 'C:\' then bugmes();quit;end
 else
        if pwd() <> '/' then bugmes();quit;end
index 751c174..9d123ae 100644 (file)
@@ -1,14 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1867 -->
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=1867
 //
 // <-- Short Description -->
-//    msscanf fails to parse formats with a large number of entries (larger
+//    msscanf fails to parse formats with a large number of entries (larger 
 //    than 30 it
 //    seems).
-// A.C
-// Copyright INRIA 2006
 str1 = '1 2 3 4 5 6 7 8 9 10';
 L1 = msscanf(str1,"%d %d %d %d %d %d %d %d %d %d");
 if or(L1<>[1:10]) then bugmes();quit;end
index c966abc..86985ef 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1897 -->
 //
 // <-- Bugzilla URL -->
 //swap errors when wapping double precision numbers
 n=10921;
 y=linspace(0,10,n);
-u=mopen(TMPDIR+'/test','wb');mput(y,'db',u);mclose(u);
-u=mopen(TMPDIR+'/test','rb');yy=mget(size(y,'*'),'db',u);mclose(u);
+u=mopen(TMPDIR+'/test','wb');mput(y,'db',u);mclose(u);                    
+u=mopen(TMPDIR+'/test','rb');yy=mget(size(y,'*'),'db',u);mclose(u);       
 k=find(yy<>y);
 if k<>[] then bugmes();quit;end
 n=10921;
 y=linspace(0,10,n);
-u=mopen(TMPDIR+'/test','wb');mput(y,'dl',u);mclose(u);
-u=mopen(TMPDIR+'/test','rb');yy=mget(size(y,'*'),'dl',u);mclose(u);
+u=mopen(TMPDIR+'/test','wb');mput(y,'dl',u);mclose(u);                    
+u=mopen(TMPDIR+'/test','rb');yy=mget(size(y,'*'),'dl',u);mclose(u);       
 k=find(yy<>y);
 if k<>[] then bugmes();quit;end
index 6ed9cae..ed3435e 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2038 -->
 //
 // <-- Bugzilla URL -->
@@ -11,9 +18,6 @@
 //
 //    See also
 //    http://groups.google.it/group/comp.soft-sys.math.scilab/browse_thread/thread/2f81e9afd1d7d6f1/e33536bff4dc1ecf#e33536bff4dc1ecf
-// Author : Scilab Project - Allan CORNET
-// Copyright INRIA
-// Date : 3 july 2006
 my_test_dir_1 = TMPDIR+"/bug_2038_dir";
 my_test_dir_2 = TMPDIR+"/bug_2038_dir/bug_2038_sub_dir";
 my_test_dir_1_res = mkdir(my_test_dir_1);
index adb44be..5f445d0 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2107 -->
 //
 // <-- Bugzilla URL -->
@@ -17,15 +18,15 @@ LINE = "AAAAAAAAAAAAAA      2005/01/06      10:55:50.0000   4       BBBBBBBBBBBBBBBB        2005/01/11 00
 STRINGS = string(ones(800,1));
 STRINGS = strsubst(STRINGS,string(1),LINE);
 filename = TMPDIR+'/test_2107.txt';
-fid = mopen(filename,'wt');
+fid = mopen(filename,'wt');   
 mputl(STRINGS,fid);
-mclose(fid);
+mclose(fid);  
 clear LINE;
 clear STRINGS;
 // checks file
-fid = mopen(filename,'rt');
+fid = mopen(filename,'rt');   
 [n,a,b,c,d,e,f,g,h,i,j,k] = mfscanf(-1,fid,'%s\t%s %s\t%s\t%s\t%s %s\t%s %s\t%s%s\n');
-mclose(fid);
+mclose(fid);  
 if n <> 11 then bugmes();quit;end
 if and(a <> 'AAAAAAAAAAAAAA') then bugmes();quit;end
 if and(b <> '2005/01/06') then bugmes();quit;end
index f7c0e6d..db63290 100644 (file)
@@ -1,3 +1,11 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006      - INRIA - Allan CORNET <allan.cornet@inria.fr>
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2149 -->
 //
 // <-- Bugzilla URL -->
 //    with complex matrices (or matrices of integers, booleans, etc).
 //
 //    Francois
-// Copyright INRIA
-// Scilab Project - Allan CORNET
-// Copyright INRIA 2006
-// Re-Written By Pierre MARECHAL
-// Copyright INRIA 2007
 M=[1+%i;2+3*%i];
 if execstr('fprintfMat(TMPDIR+''/pipo.txt'',M,''%f'',[''comment un'';''comment 2''])','errcatch') == 0 then bugmes();quit;end
 M=[1.2,2.3];
index 6114d78..90f9deb 100644 (file)
@@ -10,7 +10,7 @@
 // http://bugzilla.scilab.org/show_bug.cgi?id=2181
 //
 // <-- Short Description -->
-//    getrelativefilename crashes when the two arguments it receives refer to
+//    getrelativefilename crashes when the two arguments it receives refer to 
 //    different drives.
 //
 //    Francois
index 589b430..ec85a8d 100644 (file)
@@ -1,9 +1,10 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA
+// Copyright (C) 2008 - INRIA 
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // test bug 2208
 fd = mopen(TMPDIR+'/bug_2208.txt','wt');
 if mtell(fd) <> 0 then bugmes();quit;end
index d3f7303..c116c56 100644 (file)
@@ -1,14 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2399 -->
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=2399
 //
 // <-- Short Description -->
-//    msscanf crashes scilab when scanning a vector of strings for float
+//    msscanf crashes scilab when scanning a vector of strings for float 
 //    values on Linux.
-// Author : Scilab Project - Pierre MARECHAL
-// Copyright INRIA
-// Date : 05 mai 2007
 toks = ['noddy';'holden'];
 vals = msscanf(-1,toks,'%f');
 if vals <> [] then bugmes();quit;end
index 9bea214..3a62868 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2484 -->
 //
 // <-- Bugzilla URL -->
index 4c513ac..750a14c 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 1526 -->
 //
 // <-- Bugzilla URL -->
@@ -8,9 +15,6 @@
 //   using windows encoding is read badly on Scilab/Linux with the fscanfMat primitive.
 //   This problem seems to come from the bad read of end-line characters.
 //   A work-around of this bug, is to use 'dos2unix' on Linux to convert the file.
-// Pierre MARECHAL - Scilab Project
-// Copyright INRIA
-// 12/02/2008
 mat_ref = [ ..
     72. 21. 26. 77. 11. ; ..
     19. 31. 63. 21. 19. ; ..
index 9209552..60b56d6 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2636 -->
 //
 // <-- Bugzilla URL -->
@@ -6,10 +13,6 @@
 // <-- Short Description -->
 //    Scilab is not able to copy a file in an empty Directory.
 //
-// Copyright INRIA
-// Scilab Project - Pierre MARECHAL
-// Copyright INRIA 2007
-// Date : 28 Jan 2007
 mkdir(TMPDIR+"/bug_2636");
 mputl("test",TMPDIR+"/bug_2636.txt");
 copyfile(TMPDIR+"/bug_2636.txt",TMPDIR+"/bug_2636/bug_2636.txt");
index e13f88b..ffca5ff 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2639 -->
 //
 // <-- Bugzilla URL -->
@@ -5,10 +12,6 @@
 //
 // <-- Short Description -->
 //    'ls' function is crashing when trying to list in an empty directory
-// Copyright INRIA
-// Scilab Project - Pierre MARECHAL
-// Copyright INRIA 2007
-// Date : 13 dec. 2007
 cd(TMPDIR);
 mkdir(TMPDIR+'/test_bug2639');
 files_1 = ls(TMPDIR+'/test_bug2639');
index 2e0276f..d77ae5d 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2697 -->
 //
 // <-- Bugzilla URL -->
@@ -5,9 +12,6 @@
 //
 // <-- Short Description -->
 // msprintf crashes scilab when it's called with bad number of argument.
-// Pierre MARECHAL - Scilab Project
-// Copyright INRIA
-// 10/02/2008
 // test 1 : not enough input arguments
 if execstr("msprintf(""string = %s , number = %d .\n"",""Hello world"")","errcatch") == 0 then bugmes();quit;end
 // test2 : too many input arguments
index 9a40305..abc4fcb 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2700 -->
 //
 // <-- Bugzilla URL -->
@@ -5,10 +12,6 @@
 //
 // <-- Short Description -->
 //    Read 22 ( and plus ) columns matrix with fscanfMat crashes Scilab
-// Copyright INRIA
-// Scilab Project - Sylvestre LEDRU
-// Copyright INRIA 2008
-// Date : 8 feb. 2008
 m  = 1000;
 n  = 100;
 a  = rand(m,n,"u");
index 8106b67..aeb5415 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 2706 -->
 //
 // <-- Bugzilla URL -->
@@ -5,10 +12,6 @@
 //
 // <-- Short Description -->
 //    listfiles is giving wrong result under Linux on a file without extension
-// Copyright INRIA
-// Scilab Project - Sylvestre LEDRU
-// Copyright INRIA 2008
-// Date : 8 feb. 2008
 cd(TMPDIR);
 mputl("","toto");
 file_without_extension=listfiles("toto");
index d0c3dd5..19d8f2d 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 cd('home');
 mkdir('testdir');
 cd('testdir');
index 86bfb07..7418ffc 100644 (file)
@@ -7,14 +7,14 @@
 // <-- Non-regression test for bug 3075 -->
 //
 // <-- Short Description -->
-//    get_absolute_file_path() doesn't return error message when the input
+//    get_absolute_file_path() doesn't return error message when the input 
 //    argument hasn't the right size or a correct value.
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=3075
 //
 a=mopen(TMPDIR+'test.sce','wt');
-if get_absolute_file_path('test.sce') <> TMPDIR then bugmes();quit;end
+if get_absolute_file_path('test.sce') <> TMPDIR then bugmes();quit;end 
 mclose(a);
 ierr = execstr('get_absolute_file_path('''')','errcatch');
 if ierr <> 999 then bugmes();quit;end
index 0477409..9e81184 100644 (file)
@@ -7,7 +7,7 @@
 // <-- Non-regression test for bug 3076 -->
 //
 // <-- Short Description -->
-//    getrelativefilename() doesn't return error message when input arguments
+//    getrelativefilename() doesn't return error message when input arguments 
 //    havn't the right size.
 //
 // <-- Bugzilla URL -->
index 57261f2..d7344d0 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3089 -->
 //
 // <-- Bugzilla URL -->
index c4ac0ef..e55a6be 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3232 -->
 //
 // <-- Bugzilla URL -->
index 87a0ec4..825c0d7 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3529 -->
 //
 // <-- Bugzilla URL -->
index 13c3575..1f20f85 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3663 -->
 //
 // <-- Bugzilla URL -->
index bddc463..e8b0640 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3664 -->
 //
 // <-- Bugzilla URL -->
index 9a70fb9..4ff586e 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3679 -->
 //
 // <-- Bugzilla URL -->
@@ -14,7 +15,7 @@
 test_path = get_absolute_file_path('bug_3679.tst');
 fid = mopen('SCI/modules/fileio/tests/nonreg_tests/'+'bug_3679.txt','rt');
 for i=1:6
-  [n,y(i)]=mfscanf(fid, '%lg');
+  [n,y(i)]=mfscanf(fid, '%lg');  
 end
 mclose(fid);
 ref = [22.631  23.021  24.280  23.551  22.974  23.309]';
index 90f6487..56324e5 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3684 -->
 //
 // <-- Bugzilla URL -->
index 2eea210..c24d314 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3700 -->
 //
 // <-- Bugzilla URL -->
index 0c810fd..4e03be7 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3714 -->
 //
 // <-- Bugzilla URL -->
index fa8d132..3e45cfe 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3830 -->
 //
 // <-- Bugzilla URL -->
index 2b7e764..c597ac5 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3896 -->
 //
 // <-- Bugzilla URL -->
index f4f260f..38567a2 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3897 -->
 //
 // <-- Bugzilla URL -->
@@ -14,7 +15,7 @@
 fd = mopen(TMPDIR+'/text_1.txt','wt');
 mfprintf(-1,'Hello World 1\n');
 r = sind(90);
-mfprintf(-1,'Hello World 2 \n');
+mfprintf(-1,'Hello World 2 \n'); 
 mclose(fd);
 fd = mopen(TMPDIR+'/text_1.txt','rt');
 ierr = execstr("mfprintf(fd,''Hello World 3\n'');","errcatch");
index edbd363..3a7f544 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3898 -->
 //
 // <-- Bugzilla URL -->
index 7ab1021..ac5ffba 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3905 -->
 //
 // <-- Bugzilla URL -->
index 5d53db1..f03b03f 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3931 -->
 //
 // <-- Bugzilla URL -->
index ad72c28..2575cf0 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 3934 -->
 //
 // <-- Bugzilla URL -->
index e2e3fc2..4d51092 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 4228 -->
 //
 // <-- Bugzilla URL -->
index c379dcd..232b888 100644 (file)
@@ -1,10 +1,17 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 654 -->
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=654
 //
 // <-- Short Description -->
-//    listfiles(getenv('SCI')+"/tcl") gives wrong result.
+//    listfiles(getenv('SCI')+"/tcl") gives wrong result. 
 //
 //    - or the syntax is accepted and the result should be correct
 //    - or an error message should be displayed
index 18c5df8..34c11c8 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 656 -->
 //
 // <-- Bugzilla URL -->
@@ -9,7 +16,7 @@
 //    isdir(getenv('SCI'))
 //    isdir(getenv('SCI')+"/")
 //
-//    True for Linux, the first one is True for Windows and False
+//    True for Linux, the first one is True for Windows and False 
 //    for the second one
 if ~isdir(getenv('SCI'))                            then bugmes();quit;end
 if ~isdir(getenv('SCI')+"/")                        then bugmes();quit;end
index b0f4949..924e6b5 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 657 -->
 //
 // <-- Bugzilla URL -->
@@ -8,10 +15,6 @@
 //    just after a wrong isdir instruction
 //
 //    Note that max(int8(10),-2.6) gives wrong result
-// Copyright INRIA
-// Scilab Project - Pierre MARECHAL
-// Copyright INRIA 2005
-// Date : 6 fevrier 2005
 test1 = max(int8(10),2);
 err   = execstr('isdir(test1)','errcatch');
 test2 = max(int8(10),2);
index 867ba7e..8ef6c8d 100644 (file)
@@ -1,15 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug 799 -->
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=799
 //
 // <-- Short Description -->
-//    Reload large matrix file from disk with "fscanfMat" command
+//    Reload large matrix file from disk with "fscanfMat" command 
 //    crashes Scilab.
-// Copyright INRIA
-// Scilab Project - Pierre MARECHAL
-// Copyright INRIA 2005
-// Date : 6 fevrier 2005
 stacksize(19e6);
 m = 10593;
 n = 696;
index 3d00362..a306803 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // <-- Non-regression test for bug C -->
 //
 // <-- OLD BUG -->
diff --git a/scilab/modules/fileio/tests/unit_tests/cd.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/cd.encoding.dia.ref
new file mode 100644 (file)
index 0000000..ce693f8
--- /dev/null
@@ -0,0 +1,28 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+tmp = cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+for i = 1 : size(tab_ref,'*')
+       sz = "dir_" + tab_ref(i);
+       a = cd(sz);
+       if (a <> (tmp + filesep() + sz)) then bugmes();quit;end
+       cd(TMPDIR);
+end
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM MANDATORY -->
+
 tmp = cd(TMPDIR);
 
 if MSDOS then
index 93a9028..cb61e3b 100644 (file)
@@ -4,11 +4,11 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-chdir(TMPDIR);
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
-a = chdir("dir_азеазея");
-if(a <> %T) then bugmes();quit;end
+// <-- JVM NOT MANDATORY -->
+a = chdir(TMPDIR);
+if ~a then bugmes();quit;end
+b = chdir(SCI);
+if ~b then bugmes();quit;end
+c = chdir(pathconvert(SCI+"/nowhere"));
+Ne peux pas aller dans le répertoire SCI/nowhere/.
+if c then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/chdir.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/chdir.encoding.dia.ref
new file mode 100644 (file)
index 0000000..91c84e6
--- /dev/null
@@ -0,0 +1,16 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+a = chdir(TMPDIR);
+if(a <> %T) then bugmes();quit;end
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+b = chdir("dir_азеазея");
+if(b <> %T) then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/chdir.encoding.tst b/scilab/modules/fileio/tests/unit_tests/chdir.encoding.tst
new file mode 100644 (file)
index 0000000..7476359
--- /dev/null
@@ -0,0 +1,20 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- JVM MANDATORY -->
+
+a = chdir(TMPDIR);
+if(a <> %T) then pause, end
+
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+
+b = chdir("dir_азеазея");
+if(b <> %T) then pause, end
index 46904db..5726c80 100644 (file)
@@ -5,13 +5,13 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-chdir(TMPDIR);
+// <-- JVM NOT MANDATORY -->
 
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
+a = chdir(TMPDIR);
+if ~a then pause, end
 
-a = chdir("dir_азеазея");
-if(a <> %T) then pause, end
+b = chdir(SCI);
+if ~b then pause, end
+
+c = chdir(pathconvert(SCI+"/nowhere"));
+if c then pause, end
index 9fa614a..ea6fd12 100644 (file)
@@ -5,6 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // =============================================================================
 // Date   : 13/12/2007
 //
diff --git a/scilab/modules/fileio/tests/unit_tests/deletefile.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/deletefile.encoding.dia.ref
new file mode 100644 (file)
index 0000000..7f6981d
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"תוכנית"];
+cd(SCI);
+for i = 1 : size(tab_ref,'*')
+  pathnam = TMPDIR + filesep() + 'dir_' + tab_ref(i);
+  filenam = pathnam + filesep() + 'file_' + tab_ref(i);
+  if deletefile(filenam) <> %t then bugmes();quit;end
+  if ls(pathnam) <> [] then bugmes();quit;end
+end
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM MANDATORY -->
+
 cd(TMPDIR);
 
 if MSDOS then
index 5c6f932..2b46568 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 //===============================
 d=dir('SCI/modules/core/macros/*.sci');
 if d(2) == [] then bugmes();quit;end
@@ -12,7 +19,7 @@ if d(2) == [] then bugmes();quit;end
 if MSDOS then
  TMP = getenv('TMP');
 else
- if isdir('/tmp') then
+ if isdir('/tmp') then 
    TMP = '/tmp';
  else
    TMP = TMPDIR;
diff --git a/scilab/modules/fileio/tests/unit_tests/fileext.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/fileext.encoding.dia.ref
new file mode 100644 (file)
index 0000000..b515243
--- /dev/null
@@ -0,0 +1,25 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"حريات وحقوق",
+"תוכנית"];
+for i = 1 : size(tab_ref,'*')
+       fz = TMPDIR + filesep() + "dir_" + tab_ref(i) + filesep() + 'file_' + tab_ref(i) +'.txt';
+       fd = mopen(fz,'wt');
+       mclose(fd);
+       if fileext(fz) <> '.txt' then bugmes();quit;end
+end
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM MANDATORY -->
+
 cd(TMPDIR);
 
 if MSDOS then
index fffd600..359fef1 100644 (file)
@@ -4,33 +4,20 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-cd(TMPDIR);
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
-tab_ref = [
-"世界您好",
-"азеазея",
-"ハロー・ワールド",
-"حريات وحقوق",
-"תוכנית"];
-for i = 1 : size(tab_ref,'*')
-  fz = TMPDIR + filesep() + 'dir_' + tab_ref(i) + filesep() + 'file_' + tab_ref(i);
-  if ls(fz) == [] then bugmes();quit;end
-  if fileinfo(fz) == [] then bugmes();quit;end
-end
+// <-- JVM NOT MANDATORY -->
 [x,err] = fileinfo(SCI);
 if err <> 0 then bugmes();quit;end
-if size(x,'*') <> 13 then bugmes();quit;end
-[x,err] = fileinfo('My_file_not_exist');
+if size(x,"*") <> 13 then bugmes();quit;end
+[x,err] = fileinfo("My_file_not_exist");
 if err == 0 then bugmes();quit;end
 if x <> [] then bugmes();quit;end
-ierr = execstr('fileinfo([SCI,SCIHOME])','errcatch');
+ierr = execstr("fileinfo([SCI,SCIHOME])","errcatch");
 if ierr <> 999 then bugmes();quit;end
-FILES = [SCI;'My_file_not_exist';SCIHOME;TMPDIR];
+FILES = [SCI;"My_file_not_exist";SCIHOME;TMPDIR];
 [X,ERRS] = fileinfo(FILES);
-if ~and(isnan(X(2,:))) <> %F then bugmes();quit;end
-if size(X(1,:),'*') <> 13 then bugmes();quit;end
-if size(FILES,'*') <> size(ERRS,'*') then bugmes();quit;end
+if    or(isnan(X(1,:))) then bugmes();quit;end
+if ~ and(isnan(X(2,:))) then bugmes();quit;end
+if    or(isnan(X(3,:))) then bugmes();quit;end
+if    or(isnan(X(4,:))) then bugmes();quit;end
+if size(X(1,:),"*") <> 13 then bugmes();quit;end
+if size(FILES,"*") <> size(ERRS,"*") then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.dia.ref
new file mode 100644 (file)
index 0000000..f93eaef
--- /dev/null
@@ -0,0 +1,24 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"حريات وحقوق",
+"תוכנית"];
+for i = 1 : size(tab_ref,'*')
+  fz = TMPDIR + filesep() + 'dir_' + tab_ref(i) + filesep() + 'file_' + tab_ref(i);
+  if ls(fz) == [] then bugmes();quit;end
+  if fileinfo(fz) == [] then bugmes();quit;end
+end
diff --git a/scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.tst b/scilab/modules/fileio/tests/unit_tests/fileinfo.encoding.tst
new file mode 100644 (file)
index 0000000..37918d2
--- /dev/null
@@ -0,0 +1,29 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- JVM MANDATORY -->
+
+cd(TMPDIR);
+
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"حريات وحقوق",
+"תוכנית"];
+
+for i = 1 : size(tab_ref,'*')
+  fz = TMPDIR + filesep() + 'dir_' + tab_ref(i) + filesep() + 'file_' + tab_ref(i);
+  if ls(fz) == [] then pause,end
+  if fileinfo(fz) == [] then pause,end
+end
index 9398766..3e7625d 100644 (file)
@@ -5,41 +5,26 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-cd(TMPDIR);
-
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
-
-tab_ref = [
-"世界您好",
-"азеазея",
-"ハロー・ワールド",
-"حريات وحقوق",
-"תוכנית"];
-
-for i = 1 : size(tab_ref,'*')
-  fz = TMPDIR + filesep() + 'dir_' + tab_ref(i) + filesep() + 'file_' + tab_ref(i);
-  if ls(fz) == [] then pause,end
-  if fileinfo(fz) == [] then pause,end
-end
+// <-- JVM NOT MANDATORY -->
 
 [x,err] = fileinfo(SCI);
 if err <> 0 then pause,end
-if size(x,'*') <> 13 then pause,end
+if size(x,"*") <> 13 then pause,end
 
-[x,err] = fileinfo('My_file_not_exist');
+[x,err] = fileinfo("My_file_not_exist");
 if err == 0 then pause,end
 if x <> [] then pause,end
 
-ierr = execstr('fileinfo([SCI,SCIHOME])','errcatch');
+ierr = execstr("fileinfo([SCI,SCIHOME])","errcatch");
 if ierr <> 999 then pause,end
 
-FILES = [SCI;'My_file_not_exist';SCIHOME;TMPDIR];
+FILES = [SCI;"My_file_not_exist";SCIHOME;TMPDIR];
 [X,ERRS] = fileinfo(FILES);
-if ~and(isnan(X(2,:))) <> %F then pause,end
 
-if size(X(1,:),'*') <> 13 then pause,end
-if size(FILES,'*') <> size(ERRS,'*') then pause,end
+if    or(isnan(X(1,:))) then pause,end
+if ~ and(isnan(X(2,:))) then pause,end
+if    or(isnan(X(3,:))) then pause,end
+if    or(isnan(X(4,:))) then pause,end
+
+if size(X(1,:),"*") <> 13 then pause,end
+if size(FILES,"*") <> size(ERRS,"*") then pause,end
index 3300f24..6693b8e 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 //===============================
 // Tests fileparts
 //===============================
index 331279b..489ec56 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 cd('SCI/etc');
 f1 = findfiles();
 f2 = findfiles(SCI+'/etc');
diff --git a/scilab/modules/fileio/tests/unit_tests/fprintfMat.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/fprintfMat.encoding.dia.ref
new file mode 100644 (file)
index 0000000..776822c
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"حريات وحقوق",
+"תוכנית"];
+ref =1:20;
+for i = 1 : size(tab_ref,'*')
+  pathnam = TMPDIR + filesep() + 'dir_' + tab_ref(i);
+  filenam = pathnam + filesep() + 'file_' + tab_ref(i) + '.mat';
+  fprintfMat(filenam,ref,'%f');
+  r = fscanfMat(filenam);
+  if or (r <> ref) then bugmes();quit;end
+end
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM MANDATORY -->
+
 cd(TMPDIR);
 
 if MSDOS then
index 9741571..549b0a9 100644 (file)
@@ -1,41 +1,47 @@
-// Copyright ENPC
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - ENPC
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 // test of fscanfMat and fprintfMat
 // --------------------------------
 n=50;
 a=rand(n,n,'u');
-// now the data
+// now the data 
 fd=mopen(TMPDIR+'/Mat','w');
 texte=['Some text ';'Some more text'];
-for t=texte
+for t=texte 
   mfprintf(fd,'%s\n',t);
-end
+end 
 for i=1:n ,
   for j=1:n, mfprintf(fd,'%5.2f ',a(i,j));end;
   mfprintf(fd,'\n');   
 end
 mclose(fd);
 a1=fscanfMat(TMPDIR+'/Mat');
-if maxi(a1-a) > 1.e-1 then bugmes();quit;end
+if maxi(a1-a) > 1.e-1 then bugmes();quit;end 
 [a1,txt]=fscanfMat(TMPDIR+'/Mat');
-if ~and(txt==texte) then bugmes();quit;end
-if maxi(a1-a) > 1.e-1 then bugmes();quit;end
-// ---- test with fprintfMat
+if ~and(txt==texte) then bugmes();quit;end 
+if maxi(a1-a) > 1.e-1 then bugmes();quit;end 
+// ---- test with fprintfMat 
 n=50;
 a=rand(n,n,'u');
 fprintfMat(TMPDIR+'/Mat',a,'%5.2f');
 a1=fscanfMat(TMPDIR+'/Mat');
-if maxi(a1-a) > 1.e-1 then bugmes();quit;end
-// ---- test with fprintfMat
+if maxi(a1-a) > 1.e-1 then bugmes();quit;end 
+// ---- test with fprintfMat 
 n=50;
 a=rand(n,n,'u');
 fprintfMat(TMPDIR+'/Mat',a,'%5.2f',txt);
 [a1,txt1]=fscanfMat(TMPDIR+'/Mat');
-if maxi(a1-a) > 1.e-1 then bugmes();quit;end
-if ~and(txt==txt1) then bugmes();quit;end
+if maxi(a1-a) > 1.e-1 then bugmes();quit;end 
+if ~and(txt==txt1) then bugmes();quit;end 
 n=100;
 a=rand(n,n,'u');
 fprintfMat(TMPDIR+'/Mat',a)
 [a1]=fscanfMat(TMPDIR+'/Mat');
-if maxi(a1-a) > 1.e-1 then bugmes();quit;end
+if maxi(a1-a) > 1.e-1 then bugmes();quit;end 
 [a1,S]=fscanfMat(TMPDIR+'/Mat');
-if S<>emptystr() then bugmes();quit;end
+if S<>emptystr() then bugmes();quit;end 
diff --git a/scilab/modules/fileio/tests/unit_tests/fullpath.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/fullpath.encoding.dia.ref
new file mode 100644 (file)
index 0000000..479b7f4
--- /dev/null
@@ -0,0 +1,33 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+for i = 1 : size(tab_ref,'*')
+       sz = "dir_" + tab_ref(i);
+       cd(sz);
+       createdir('sub_' + sz);
+       cd('sub_' + sz);
+       r = fullpath('../file_' + tab_ref(i));
+       if r <> TMPDIR + filesep() + sz + filesep() + 'file_' + tab_ref(i) then bugmes();quit;end
+       cd '../';
+       removedir('sub_' + sz);
+       cd(TMPDIR);
+end
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM MANDATORY -->
+
 cd(TMPDIR);
 
 if MSDOS then
diff --git a/scilab/modules/fileio/tests/unit_tests/getshortlongpathname.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/getshortlongpathname.encoding.dia.ref
new file mode 100644 (file)
index 0000000..aee7ae7
--- /dev/null
@@ -0,0 +1,30 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+for i = 1 : size(tab_ref,'*')
+       dz = "dir_" + tab_ref(i);
+       p = cd(dz);
+       fz = "file_" + tab_ref(i);
+       fullfz = TMPDIR + filesep() + dz + filesep() + fz;
+       if getlongpathname(getshortpathname(fullfz)) <> fullfz then bugmes();quit;end
+       cd(TMPDIR);
+end
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM MANDATORY -->
+
 cd(TMPDIR);
 
 if MSDOS then
index 980d2ad..50d8517 100644 (file)
@@ -1,10 +1,11 @@
 // =============================================================================
-// Auhtor : Pierre MARECHAL
-//          Scilab Team
-// Copyright INRIA 2007
-//
-// Date   : 28/11/2007
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
+// =============================================================================
 // Determines if the path is an absolute name.
 // =============================================================================
 if is_absolute_path("test_1")                then bugmes();quit;end
index c6d12ba..66e7145 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // =============================================================================
 // Unitary tests for isdir function
 // =============================================================================
index 03a53a2..138ce71 100644 (file)
@@ -5,6 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 fd = mopen(TMPDIR + filesep() + 'mclose_tst','wt');
 mclose(TMPDIR + filesep() + 'mclose_tst');
 ierr = execstr('mclose([''file1'',''file2''])','errcatch');
index d40b5c8..977b3b2 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // =============================================================================
 // Unitary tests for mdelete function
 // =============================================================================
index d5782fd..afabe5e 100644 (file)
@@ -4,8 +4,8 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-w=1;
-//ouvrir le fichier
+w=1; 
+//ouvrir le fichier 
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2009 - DIGITEO - Allan CORNET
@@ -13,7 +13,7 @@ w=1;
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 FLN = 'SCI/modules/fileio/tests/unit_tests/text.txt';
-fd = mopen(FLN,'rt');
+fd = mopen(FLN,'rt'); 
 i = 0;
 while ~meof(fd) do
    mfscanf(1, fd, "%c");
index 0dc3d3a..ed87986 100644 (file)
@@ -8,7 +8,7 @@ mclearerr();
 [a,b] = merror();
 if a <> 0 then bugmes();quit;end
 ierr = execstr('mclose(999);','errcatch');
-mclose : Ne peut pas fermer le fichier dont le descripteur est 19 : Le fichier n'est pas actif.
+mclose : Ne peut pas fermer le fichier dont le descripteur est 15 : Le fichier n'est pas actif.
 ierr = execstr('[a,b] = merror(999);','errcatch');
 if ierr <> 999 then bugmes();quit;end
 ierr = execstr('merror([1 1])','errcatch');
index 400308b..dde5dcb 100644 (file)
@@ -1,4 +1,11 @@
-// Copyright INRIA/ENPC
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+// Copyright (C) ????-2008 - ENPC
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 function [rep]=Fprintf(varargin)
        fd = mopen(TMPDIR+"/fprintf.rep","w");
        varargin(0)=fd;
index a2ff978..0f67fa7 100644 (file)
@@ -1,4 +1,11 @@
-// Copyright ENPC/INRIA
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+// Copyright (C) ????-2008 - ENPC
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
 deff('[n,a,b,c,d,e]=Fscanf(str,f)',['fd=mopen(TMPDIR+''/fscanf.rep'',''w'');';
        'mputstr(str,fd);mclose(fd);';
        'fd=mopen(TMPDIR+''/fscanf.rep'',''r'');';
@@ -51,26 +58,26 @@ if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf('123','%2hd');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('123','%5hd');
-//------------- test format %n
-// Note that %n returned values are not counted in n
+//------------- test format %n 
+// Note that %n returned values are not counted in n 
 s1='123 45.67 pipo';s2=' foo';
 [n,a,b,c,d,e]=Fscanf(s1+s2,'%d%lf%s%n%s');
 if n<>4|a<>123|b<>45.67|c<>'pipo'|d<>length(s1)|e<>'foo' then bugmes();quit;end
-//------------- test format %u
+//------------- test format %u 
 [n,a]=Fscanf('+123','%u');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf(' 123','%2u');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('+123','%5u');
 if n<>1|a<>123 then bugmes();quit;end
-//------------- test format %lu
+//------------- test format %lu 
 [n,a]=Fscanf('+123','%lu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf(' 123','%2lu');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=Fscanf('+123','%5lu');
 if n<>1|a<>123 then bugmes();quit;end
-//------------- test format %hu
+//------------- test format %hu 
 [n,a]=Fscanf('+123','%hu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=Fscanf(' 123','%2hu');
@@ -142,8 +149,8 @@ if n<>1|a<>'12' then bugmes();quit;end
 [n,a]=Fscanf('123','%5s');
 if n<>1|a<>'123' then bugmes();quit;end
 //------------- test format %c
-//XXXX : attention a finir .... il faut ? scaner \n comme
-//un seul caractere
+//XXXX : attention a finir .... il faut ? scaner \n comme 
+//un seul caractere  
 [n,a,b,c,d]=Fscanf(' 12\n','%c%c%c%c');
 if n<>4|a<>' '|b<>'1'|c<>'2' then bugmes();quit;end
 //------------- test format [
@@ -152,28 +159,28 @@ if n<>2|a<>'012345abc'|b<>'zoo' then bugmes();quit;end
 //------------- test format [
 [n,a,b]=Fscanf('012345abczoo','%[^c]c%s');
 if n<>2|a<>'012345ab'|b<>'zoo' then bugmes();quit;end
-//------------- test ignoring arguments
+//------------- test ignoring arguments 
 [n,a,b]=Fscanf('123 4 pipo poo','%*s%s%*s%s');
 if n<>2|a<>'4'|b<>'poo' then bugmes();quit;end
-//------------- test [ * ^
+//------------- test [ * ^ 
 [n,a]=Fscanf('123 4 pipo poo','%[^\n]\n');
 if n<>1|a<>'123 4 pipo poo' then bugmes();quit;end
 [n,a]=Fscanf('123 4 pipo Xpoo','%*[^X]X%s');
 if n<>1|a<>'poo' then bugmes();quit;end
-//------------- test composed directives
+//------------- test composed directives 
 [n,a]=Fscanf('123 4','123%le');
 if n<>1|a<>4 then bugmes();quit;end
 [n,a,b,c]=Fscanf('xxxxx 4 test 23.45','xxxxx%d%s%le');
 if n<>3|a<>4|b<>'test'|c<>23.45 then bugmes();quit;end
 [n,a,b]=Fscanf('123 456','%le%le');
 if n<>2|a<>123|b<>456 then bugmes();quit;end
-//------------- test mismatch
+//------------- test mismatch 
 [n,a]=Fscanf('123 poo','123%le');
 if n<>0 then bugmes();quit;end
 //------------- test end-of-file
 [n,a]=Fscanf('123','123%le');
 if n<>-1 then bugmes();quit;end
-//------------- test with matrix scan
+//------------- test with matrix scan 
 n=5
  n  =
  
@@ -183,24 +190,24 @@ A1=strcat(string(A),' ','c');
 tmpf=TMPDIR+'/fscanf.rep';
 mputl(A1,tmpf);
 F='%d';F=strcat(F(ones(1,n)),' ');
-// all lines read as int we scan a 5x5 matrix
+// all lines read as int we scan a 5x5 matrix 
 fd=mopen(tmpf,'r');A2=mfscanf(-1,fd,F);mclose(fd);
 if norm(A2-A) > %eps then bugmes();quit;end
-// read just 2 lines
+// read just 2 lines 
 fd=mopen(tmpf,'r');A2=mfscanf(2,fd,F);mclose(fd);
 if norm(A2-A(1:2,:)) > %eps then bugmes();quit;end
-// explicit columns we scan five columns
+// explicit columns we scan five columns 
 fd=mopen(tmpf,'r');[n,a,b,c,d,e]=mfscanf(-1,fd,F);mclose(fd);
-if n<>5 then bugmes();quit;end
+if n<>5 then bugmes();quit;end 
 if norm([a,b,c,d,e]-A) > %eps then bugmes();quit;end
 // all lines read as int but we scan only 2 columns using %*[^\n] to ignore the rest
 fd=mopen(tmpf,'r');A2=mfscanf(-1,fd,'%d%d%*[^\n]\n');mclose(fd);
 if norm(A2-A(:,1:2)) > %eps then bugmes();quit;end
-// all lines read as string
+// all lines read as string 
 F='%s';F=strcat(F(ones(1,n)),' ');
 fd=mopen(tmpf,'r');A2=mfscanf(-1,fd,F);mclose(fd);
 if A2<>string(A) then bugmes();quit;end
-// read just 2 lines
+// read just 2 lines 
 fd=mopen(tmpf,'r');A2=mfscanf(2,fd,F);mclose(fd);
 if A2<>string(A(1:2,:))  then bugmes();quit;end
 // mixed types read column 1 and 2 as string and others as int
index 8352810..496c0c3 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 NB_CHARS = 43;
 REF_NB_CHARS = 1478;
 textfile = 'SCI/modules/fileio/tests/unit_tests/text.txt';
index 2e29870..d6753ab 100644 (file)
@@ -1,10 +1,11 @@
 // =============================================================================
-// Auhtor : Pierre MARECHAL
-//          Scilab Team
-// Copyright INRIA 2007
-//
-// Date   : 28/11/2007
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
+// =============================================================================
 // Unitary tests for mkdir function
 // =============================================================================
 // TEST 1 : absolute path with one input argument
diff --git a/scilab/modules/fileio/tests/unit_tests/mopen.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/mopen.encoding.dia.ref
new file mode 100644 (file)
index 0000000..bcf4bb3
--- /dev/null
@@ -0,0 +1,49 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+cd(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"תוכנית"];
+lang_name = ["Simplified Chinese",
+        "Cyrillic",
+        "Japanese",
+        "Thai",
+        "Arabish",
+        "Vietanmien",
+        "Hebreu"];
+for i = 1 : size(tab_ref,'*')
+       dz = "dir_" + tab_ref(i);
+       p = cd(dz);
+       
+       fd1 = mopen('file_'+tab_ref(i),'rt');
+       r1 = mgetl(fd1);
+       mclose(fd1);
+       
+       ref_str = 'str_' + tab_ref(i) + ' : ' + lang_name(i);
+       if (r1 <> ref_str) then bugmes();quit;end
+       
+       cd(TMPDIR);
+       
+       filenam = TMPDIR + filesep() + "dir_" + tab_ref(i) + filesep() + 'file_'+tab_ref(i);
+       fd2 = mopen(filenam);
+       r2 = mgetl(fd2);
+       mclose(fd2);
+       
+       if (r2 <> ref_str) then bugmes();quit;end
+       
+end
@@ -4,6 +4,9 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+
+// <-- JVM MANDATORY -->
+
 cd(TMPDIR);
 if MSDOS then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
index 7963ad6..81c0fa9 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 // =============================================================================
 // Unitary tests for mputl function
 // =============================================================================
index 145d1df..614b319 100644 (file)
@@ -8,7 +8,7 @@ file3=TMPDIR + '/test3.bin';
 fd1= mopen(file3,'wb');
 for i=1:10
   mput(i,'d');
-end
+end 
 mseek(0);
 mput(678,'d');
 mseek(0,fd1,'end');
index f6e50df..da02cfe 100644 (file)
@@ -5,6 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 //--------------test format %i
 [n,a]=msscanf('123','%i');
 if n<>1|a<>123 then bugmes();quit;end
@@ -53,26 +54,26 @@ if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf('123','%2hd');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('123','%5hd');
-//------------- test format %n
-// Note that %n returned values are not counted in n
+//------------- test format %n 
+// Note that %n returned values are not counted in n 
 s1='123 45.67 pipo';s2=' foo';
 [n,a,b,c,d,e]=msscanf(s1+s2,'%d%lf%s%n%s');
 if n<>4|a<>123|b<>45.67|c<>'pipo'|d<>length(s1)|e<>'foo' then bugmes();quit;end
-//------------- test format %u
+//------------- test format %u 
 [n,a]=msscanf('+123','%u');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf(' 123','%2u');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('+123','%5u');
 if n<>1|a<>123 then bugmes();quit;end
-//------------- test format %lu
+//------------- test format %lu 
 [n,a]=msscanf('+123','%lu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf(' 123','%2lu');
 if n<>1|a<>12 then bugmes();quit;end
 [n,a]=msscanf('+123','%5lu');
 if n<>1|a<>123 then bugmes();quit;end
-//------------- test format %hu
+//------------- test format %hu 
 [n,a]=msscanf('+123','%hu');
 if n<>1|a<>123 then bugmes();quit;end
 [n,a]=msscanf(' 123','%2hu');
@@ -153,61 +154,61 @@ if n<>2|a<>'012345abc'|b<>'zoo' then bugmes();quit;end
 //------------- test format [
 [n,a,b]=msscanf('012345abczoo','%[^c]c%s');
 if n<>2|a<>'012345ab'|b<>'zoo' then bugmes();quit;end
-//------------- test ignoring arguments
+//------------- test ignoring arguments 
 [n,a,b]=msscanf('123 4 pipo poo','%*s%s%*s%s');
 if n<>2|a<>'4'|b<>'poo' then bugmes();quit;end
-//------------- test [ * ^
+//------------- test [ * ^ 
 [n,a]=msscanf('123 4 pipo Xpoo','%*[^X]X%s');
 if n<>1|a<>'poo' then bugmes();quit;end
-//------------- test ignoring arguments
+//------------- test ignoring arguments 
 [n,a,b]=msscanf('123 4 pipo poo','%*s%s%*s%s');
 //if n<>2|a<>'4'|b<>'poo' then bugmes();quit;end
-//------------- test composed directives
+//------------- test composed directives 
 [n,a]=msscanf('123 4','123%le');
 if n<>1|a<>4 then bugmes();quit;end
 [n,a,b,c]=msscanf('xxxxx 4 test 23.45','xxxxx%d%s%le');
 if n<>3|a<>4|b<>'test'|c<>23.45 then bugmes();quit;end
 [n,a,b]=msscanf('123 456','%le%le');
 if n<>2|a<>123|b<>456 then bugmes();quit;end
-//------------- test mismatch
+//------------- test mismatch 
 [n,a]=msscanf('123 poo','123%le');
 if n<>0 then bugmes();quit;end
 //------------- test end-of-file
 [n,a]=msscanf('123','123%le');
 if n<>-1 then bugmes();quit;end
-//------------- test with matrix scan
+//------------- test with matrix scan 
 n=5;
 A=int(10*rand(n,n));
 A1=strcat(string(A),' ','c');
 F='%d';F=strcat(F(ones(1,n)),' ');
-// all lines read as int we scan a 5x5 matrix
+// all lines read as int we scan a 5x5 matrix 
 A2=msscanf(-1,A1,F);
-if norm(A2-A) > %eps then bugmes();quit;end
-// read just 2 lines
+if norm(A2-A) > %eps then bugmes();quit;end 
+// read just 2 lines 
 A2=msscanf(2,A1,F);
-if norm(A2-A(1:2,:)) > %eps then bugmes();quit;end
-// explicit columns we scan five columns
+if norm(A2-A(1:2,:)) > %eps then bugmes();quit;end 
+// explicit columns we scan five columns 
 [n,a,b,c,d,e]=msscanf(-1,A1,F);
-if n<>5 then bugmes();quit;end
-if norm([a,b,c,d,e]-A) > %eps then bugmes();quit;end
-// all lines read as int but we scan only 2 columns
+if n<>5 then bugmes();quit;end 
+if norm([a,b,c,d,e]-A) > %eps then bugmes();quit;end 
+// all lines read as int but we scan only 2 columns 
 A2=msscanf(-1,A1,'%d%d');
-if norm(A2-A(:,1:2)) > %eps then bugmes();quit;end
-// all lines read as string
+if norm(A2-A(:,1:2)) > %eps then bugmes();quit;end 
+// all lines read as string 
 F='%s';F=strcat(F(ones(1,n)),' ');
 A2=msscanf(-1,A1,F);
-if A2<>string(A) then bugmes();quit;end
-// read just 2 lines
+if A2<>string(A) then bugmes();quit;end 
+// read just 2 lines 
 A2=msscanf(2,A1,F);
-if A2<>string(A(1:2,:))  then bugmes();quit;end
+if A2<>string(A(1:2,:))  then bugmes();quit;end 
 // mixed types read column 1 and 2 as string and others as int
 Fs='%s';Fs=strcat(Fs(ones(1,2)),' ');
 Fd='%d';Fd=strcat(Fd(ones(1,n-2)),' ');
 [n,a,b,c,d,e]=msscanf(-1,A1,Fs+' '+Fd);
-if n<>5 then bugmes();quit;end
-if norm([eval(a),eval(b),c,d,e]-A) > %eps then bugmes();quit;end
+if n<>5 then bugmes();quit;end 
+if norm([eval(a),eval(b),c,d,e]-A) > %eps then bugmes();quit;end 
 // same example but returned values are compacted in L
 L=msscanf(-1,A1,Fs+' '+Fd);
-if length(L)<>3 then bugmes();quit;end
-if norm(getfield(3,L)-A(:,3:n)) > %eps then bugmes();quit;end
-if getfield(2,L)<>string(A(:,1:2)) then bugmes();quit;end
+if length(L)<>3 then bugmes();quit;end 
+if norm(getfield(3,L)-A(:,3:n)) > %eps then bugmes();quit;end 
+if getfield(2,L)<>string(A(:,1:2)) then bugmes();quit;end 
index ba62b5e..39c4e9c 100644 (file)
@@ -1,74 +1,53 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2009 - DIGITEO
+// Copyright (C) 2008 - INRIA
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-chdir(TMPDIR);
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
-tab_ref = [
-"世界您好",
-"азеазея",
-"ハロー・ワールド",
-"เฮลโลเวิลด์",
-"حريات وحقوق",
-"프로그램",
-"프로그램",
-"תוכנית"];
-sleep(2);
-if(fileinfo("test_time") <> [])
-       deletefile("test_time");
-end
-f = mopen("test_time", "w");
-mclose(f);
-ref = 0;
-FileNameList = ["test_time"];
-for i = 1 : size(tab_ref,'*')
-       FileNameList(i+1) = "dir_" + tab_ref(i) + filesep() + "file_" + tab_ref(i);
-end
-a = newest(FileNameList);
-if(a <> 1) then 
-       pause
-end
 a=dir('SCI\bin');
 f1=a(2);
 r1=newest(f1);
 clear a f1 r1
 realtimeinit(2);
 realtime(0);
-tab_ref = [
-"世界您好",
-"азеазея",
-"ハロー・ワールド",
-"حريات وحقوق",
-"תוכנית"];
-for k=1 : size(tab_ref,"*")
+for k=1:4
        realtime(k);
-       mputl("",TMPDIR+"/newest_"+tab_ref(k));
+       mputl("",TMPDIR+"/newest_"+string(k));
 end
 if newest([]) <> [] then bugmes();quit;end
 if newest()   <> [] then bugmes();quit;end
 if newest("SCI/etc/scilab.start") <> 1 then bugmes();quit;end
 if newest("SCI/nofile.txt")       <> 1 then bugmes();quit;end
-for i = 1 : size(tab_ref,"*")
-       for j = size(tab_ref,"*") : -1 : 1
-               if(i <> j) then
-                       ref = max(i,j);
-                       if(ref == i) then
-                               ref = 1;
-                       else;
-                               ref = 2;
-                       end
-                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)) <> ref) then bugmes();quit;end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then bugmes();quit;end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then bugmes();quit;end
-                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file") <> 1)  then bugmes();quit;end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file"]) <> 1)  then bugmes();quit;end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/no_file"]) <> 1)  then bugmes();quit;end
-               end
-       end
-end
+if newest(TMPDIR+"/newest_1",TMPDIR+"/newest_2",TMPDIR+"/newest_3",TMPDIR+"/newest_4") <> 4 then bugmes();quit;end
+if newest(TMPDIR+"/newest_2",TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1") <> 3 then bugmes();quit;end
+if newest(TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/newest_2") <> 2 then bugmes();quit;end
+if newest(TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/newest_2",TMPDIR+"/newest_3") <> 1 then bugmes();quit;end
+if newest([TMPDIR+"/newest_1" TMPDIR+"/newest_2" TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
+if newest([TMPDIR+"/newest_2" TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/newest_2"] ) <> 2 then bugmes();quit;end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/newest_2" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
+if newest([TMPDIR+"/newest_1" TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
+if newest([TMPDIR+"/newest_2" TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 2 then bugmes();quit;end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" TMPDIR+"/newest_2"] ) <> 3 then bugmes();quit;end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
+if newest([TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
+if newest([TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
+if newest([TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/newest_2"] ) <> 2 then bugmes();quit;end
+if newest([TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" ; TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
+if newest(TMPDIR+"/newest_1",TMPDIR+"/no_file",TMPDIR+"/newest_3",TMPDIR+"/newest_4") <> 4 then bugmes();quit;end
+if newest(TMPDIR+"/no_file",TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1") <> 3 then bugmes();quit;end
+if newest(TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/no_file") <> 2 then bugmes();quit;end
+if newest(TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/no_file",TMPDIR+"/newest_3") <> 1 then bugmes();quit;end
+if newest([TMPDIR+"/newest_1" TMPDIR+"/no_file" TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
+if newest([TMPDIR+"/no_file" TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/no_file"] ) <> 2 then bugmes();quit;end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/no_file" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
+if newest([TMPDIR+"/newest_1" TMPDIR+"/no_file" ; TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
+if newest([TMPDIR+"/no_file" TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 2 then bugmes();quit;end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" TMPDIR+"/no_file"] ) <> 3 then bugmes();quit;end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" ; TMPDIR+"/no_file" TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
+if newest([TMPDIR+"/newest_1" ; TMPDIR+"/no_file" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4"] ) <> 4 then bugmes();quit;end
+if newest([TMPDIR+"/no_file" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1"] ) <> 3 then bugmes();quit;end
+if newest([TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/no_file"] ) <> 2 then bugmes();quit;end
+if newest([TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/no_file" ; TMPDIR+"/newest_3"] ) <> 1 then bugmes();quit;end
+if execstr('newest(''rrr'',''SCI\bin\libscilab.dll'',3)','errcatch') <> 999 then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/newest.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/newest.encoding.dia.ref
new file mode 100644 (file)
index 0000000..e2dcd53
--- /dev/null
@@ -0,0 +1,75 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM MANDATORY -->
+chdir(TMPDIR);
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+sleep(2);
+if(fileinfo("test_time") <> [])
+       deletefile("test_time");
+end
+f = mopen("test_time", "w");
+mclose(f);
+ref = 0;
+FileNameList = ["test_time"];
+for i = 1 : size(tab_ref,'*')
+       FileNameList(i+1) = "dir_" + tab_ref(i) + filesep() + "file_" + tab_ref(i);
+end
+a = newest(FileNameList);
+if(a <> 1) then 
+       pause
+end
+a=dir('SCI\bin');
+f1=a(2);
+r1=newest(f1);
+clear a f1 r1
+realtimeinit(2);
+realtime(0);
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"حريات وحقوق",
+"תוכנית"];
+for k=1 : size(tab_ref,"*")
+       realtime(k);
+       mputl("",TMPDIR+"/newest_"+tab_ref(k));
+end
+if newest([]) <> [] then bugmes();quit;end
+if newest()   <> [] then bugmes();quit;end
+if newest("SCI/etc/scilab.start") <> 1 then bugmes();quit;end
+if newest("SCI/nofile.txt")       <> 1 then bugmes();quit;end
+for i = 1 : size(tab_ref,"*")
+       for j = size(tab_ref,"*") : -1 : 1
+               if(i <> j) then
+                       ref = max(i,j);
+                       if(ref == i) then
+                               ref = 1;
+                       else;
+                               ref = 2;
+                       end
+                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)) <> ref) then bugmes();quit;end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then bugmes();quit;end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then bugmes();quit;end
+                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file") <> 1)  then bugmes();quit;end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file"]) <> 1)  then bugmes();quit;end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/no_file"]) <> 1)  then bugmes();quit;end
+               end
+       end
+end
diff --git a/scilab/modules/fileio/tests/unit_tests/newest.encoding.tst b/scilab/modules/fileio/tests/unit_tests/newest.encoding.tst
new file mode 100644 (file)
index 0000000..3fd5469
--- /dev/null
@@ -0,0 +1,92 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- JVM MANDATORY -->
+
+chdir(TMPDIR);
+
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+
+sleep(2);
+
+if(fileinfo("test_time") <> [])
+       deletefile("test_time");
+end
+
+f = mopen("test_time", "w");
+mclose(f);
+
+ref = 0;
+FileNameList = ["test_time"];
+for i = 1 : size(tab_ref,'*')
+       FileNameList(i+1) = "dir_" + tab_ref(i) + filesep() + "file_" + tab_ref(i);
+end
+
+a = newest(FileNameList);
+if(a <> 1) then 
+       pause
+end
+
+a=dir('SCI\bin');
+f1=a(2);
+r1=newest(f1);
+clear a f1 r1
+
+realtimeinit(2);
+realtime(0);
+
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"حريات وحقوق",
+"תוכנית"];
+
+
+for k=1 : size(tab_ref,"*")
+       realtime(k);
+       mputl("",TMPDIR+"/newest_"+tab_ref(k));
+end
+
+if newest([]) <> [] then pause,end
+if newest()   <> [] then pause,end
+
+if newest("SCI/etc/scilab.start") <> 1 then pause,end
+if newest("SCI/nofile.txt")       <> 1 then pause,end
+
+for i = 1 : size(tab_ref,"*")
+       for j = size(tab_ref,"*") : -1 : 1
+               if(i <> j) then
+                       ref = max(i,j);
+                       if(ref == i) then
+                               ref = 1;
+                       else;
+                               ref = 2;
+                       end
+                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)) <> ref) then pause, end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then pause, end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then pause, end
+                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file") <> 1)  then pause, end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file"]) <> 1)  then pause, end
+                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/no_file"]) <> 1)  then pause, end
+               end
+       end
+end
index 9160604..482eac6 100644 (file)
@@ -1,48 +1,9 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2009 - DIGITEO
+// Copyright (C) 2008 - INRIA
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
-chdir(TMPDIR);
-
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
-
-tab_ref = [
-"世界您好",
-"азеазея",
-"ハロー・ワールド",
-"เฮลโลเวิลด์",
-"حريات وحقوق",
-"프로그램",
-"프로그램",
-"תוכנית"];
-
-sleep(2);
-
-if(fileinfo("test_time") <> [])
-       deletefile("test_time");
-end
-
-f = mopen("test_time", "w");
-mclose(f);
-
-ref = 0;
-FileNameList = ["test_time"];
-for i = 1 : size(tab_ref,'*')
-       FileNameList(i+1) = "dir_" + tab_ref(i) + filesep() + "file_" + tab_ref(i);
-end
-
-a = newest(FileNameList);
-if(a <> 1) then 
-       pause
-end
-
 a=dir('SCI\bin');
 f1=a(2);
 r1=newest(f1);
@@ -51,17 +12,9 @@ clear a f1 r1
 realtimeinit(2);
 realtime(0);
 
-tab_ref = [
-"世界您好",
-"азеазея",
-"ハロー・ワールド",
-"حريات وحقوق",
-"תוכנית"];
-
-
-for k=1 : size(tab_ref,"*")
+for k=1:4
        realtime(k);
-       mputl("",TMPDIR+"/newest_"+tab_ref(k));
+       mputl("",TMPDIR+"/newest_"+string(k));
 end
 
 if newest([]) <> [] then pause,end
@@ -70,21 +23,45 @@ if newest()   <> [] then pause,end
 if newest("SCI/etc/scilab.start") <> 1 then pause,end
 if newest("SCI/nofile.txt")       <> 1 then pause,end
 
-for i = 1 : size(tab_ref,"*")
-       for j = size(tab_ref,"*") : -1 : 1
-               if(i <> j) then
-                       ref = max(i,j);
-                       if(ref == i) then
-                               ref = 1;
-                       else;
-                               ref = 2;
-                       end
-                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)) <> ref) then pause, end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then pause, end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/newest_"+tab_ref(j)]) <> ref)  then pause, end
-                       if(newest(TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file") <> 1)  then pause, end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i), TMPDIR+"/no_file"]) <> 1)  then pause, end
-                       if(newest([TMPDIR+"/newest_"+tab_ref(i); TMPDIR+"/no_file"]) <> 1)  then pause, end
-               end
-       end
-end
+if newest(TMPDIR+"/newest_1",TMPDIR+"/newest_2",TMPDIR+"/newest_3",TMPDIR+"/newest_4") <> 4 then pause,end
+if newest(TMPDIR+"/newest_2",TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1") <> 3 then pause,end
+if newest(TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/newest_2") <> 2 then pause,end
+if newest(TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/newest_2",TMPDIR+"/newest_3") <> 1 then pause,end
+
+if newest([TMPDIR+"/newest_1" TMPDIR+"/newest_2" TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then pause,end
+if newest([TMPDIR+"/newest_2" TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 3 then pause,end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/newest_2"] ) <> 2 then pause,end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/newest_2" TMPDIR+"/newest_3"] ) <> 1 then pause,end
+
+if newest([TMPDIR+"/newest_1" TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then pause,end
+if newest([TMPDIR+"/newest_2" TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 2 then pause,end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" TMPDIR+"/newest_2"] ) <> 3 then pause,end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" TMPDIR+"/newest_3"] ) <> 1 then pause,end
+
+if newest([TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4"] ) <> 4 then pause,end
+if newest([TMPDIR+"/newest_2" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1"] ) <> 3 then pause,end
+if newest([TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/newest_2"] ) <> 2 then pause,end
+if newest([TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/newest_2" ; TMPDIR+"/newest_3"] ) <> 1 then pause,end
+
+
+if newest(TMPDIR+"/newest_1",TMPDIR+"/no_file",TMPDIR+"/newest_3",TMPDIR+"/newest_4") <> 4 then pause,end
+if newest(TMPDIR+"/no_file",TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1") <> 3 then pause,end
+if newest(TMPDIR+"/newest_3",TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/no_file") <> 2 then pause,end
+if newest(TMPDIR+"/newest_4",TMPDIR+"/newest_1",TMPDIR+"/no_file",TMPDIR+"/newest_3") <> 1 then pause,end
+
+if newest([TMPDIR+"/newest_1" TMPDIR+"/no_file" TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then pause,end
+if newest([TMPDIR+"/no_file" TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 3 then pause,end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/no_file"] ) <> 2 then pause,end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" TMPDIR+"/no_file" TMPDIR+"/newest_3"] ) <> 1 then pause,end
+
+if newest([TMPDIR+"/newest_1" TMPDIR+"/no_file" ; TMPDIR+"/newest_3" TMPDIR+"/newest_4"] ) <> 4 then pause,end
+if newest([TMPDIR+"/no_file" TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" TMPDIR+"/newest_1"] ) <> 2 then pause,end
+if newest([TMPDIR+"/newest_3" TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" TMPDIR+"/no_file"] ) <> 3 then pause,end
+if newest([TMPDIR+"/newest_4" TMPDIR+"/newest_1" ; TMPDIR+"/no_file" TMPDIR+"/newest_3"] ) <> 1 then pause,end
+
+if newest([TMPDIR+"/newest_1" ; TMPDIR+"/no_file" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4"] ) <> 4 then pause,end
+if newest([TMPDIR+"/no_file" ; TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1"] ) <> 3 then pause,end
+if newest([TMPDIR+"/newest_3" ; TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/no_file"] ) <> 2 then pause,end
+if newest([TMPDIR+"/newest_4" ; TMPDIR+"/newest_1" ; TMPDIR+"/no_file" ; TMPDIR+"/newest_3"] ) <> 1 then pause,end
+
+if execstr('newest(''rrr'',''SCI\bin\libscilab.dll'',3)','errcatch') <> 999 then pause,end
index c5738fe..bbf9263 100644 (file)
@@ -35,7 +35,7 @@ olddir=pwd();
     // =========================================================================
     fd=mopen(fileName,'w');
     if (fileinfo(fileName)==[]) then bugmes();quit;end
-    mclose(fd);// ok
+    mclose(fd);// ok 
     // 4. copyfile (host,unix)
     // =========================================================================
     copyfile(fileName,fileWithExt);
@@ -49,11 +49,11 @@ olddir=pwd();
     mputl([specialName+'1';specialName+'2'],fileName+'_mputl');
     if (fileinfo(fileName+'_mputl')==[]) then bugmes();quit;end
     fd=mopen(fileName+"_"+specialName,'w');
-    mfprintf(fd,'%s %f',specialName+'3',%pi);
+    mfprintf(fd,'%s %f',specialName+'3',%pi); 
     filestuff=fileinfo(fileName+"_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
-    // 6. Fortran style open/close
+    // 6. Fortran style open/close 
     // filename fixed, but string in fortran file still in UTF encoding
     // =========================================================================
     fd = mopen(fileName+'_open','w');
@@ -63,7 +63,7 @@ olddir=pwd();
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
     fd = mopen(fileName+'_fprintf','wt');
-    mfprintf(fd,'%s %s',specialName+'3',string(%pi));
+    mfprintf(fd,'%s %s',specialName+'3',string(%pi)); 
     mclose(fd);
     filestuff=fileinfo(fileName+'_fprintf');
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
@@ -129,7 +129,7 @@ olddir=pwd();
     // =========================================================================
     fd=mopen(fileName,'w');
     if (fileinfo(fileName)==[]) then bugmes();quit;end
-    mclose(fd);// ok
+    mclose(fd);// ok 
     // 4. copyfile (host,unix)
     // =========================================================================
     copyfile(fileName,fileWithExt);
@@ -143,11 +143,11 @@ olddir=pwd();
     mputl([specialName+'1';specialName+'2'],fileName+'_mputl');
     if (fileinfo(fileName+'_mputl')==[]) then bugmes();quit;end
     fd=mopen(fileName+"_"+specialName,'w');
-    mfprintf(fd,'%s %f',specialName+'3',%pi);
+    mfprintf(fd,'%s %f',specialName+'3',%pi); 
     filestuff=fileinfo(fileName+"_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
-    // 6. Fortran style open/close
+    // 6. Fortran style open/close 
     // filename fixed, but string in fortran file still in UTF encoding
     // =========================================================================
     fd = mopen(fileName+'_open','w');
@@ -157,7 +157,7 @@ olddir=pwd();
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
     fd = mopen(fileName+'_fprintf','wt');
-    mfprintf(fd,'%s %s',specialName+'3',string(%pi));
+    mfprintf(fd,'%s %s',specialName+'3',string(%pi)); 
     mclose(fd);
     filestuff=fileinfo(fileName+'_fprintf');
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
@@ -4,15 +4,13 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+// <-- JVM MANDATORY -->
 chdir(TMPDIR);
-
 if MSDOS then
        unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
 else
        unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
 end
-
 tab_ref = [
 "世界您好",
 "азеазея",
@@ -22,7 +20,6 @@ tab_ref = [
 "프로그램",
 "프로그램",
 "תוכנית"];
-
 for i = 1 : size(tab_ref,'*')
        sz = "dir_" + tab_ref(i);
        a = chdir(sz);
diff --git a/scilab/modules/fileio/tests/unit_tests/pwd.encoding.tst b/scilab/modules/fileio/tests/unit_tests/pwd.encoding.tst
new file mode 100644 (file)
index 0000000..117be40
--- /dev/null
@@ -0,0 +1,39 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009 - DIGITEO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- JVM MANDATORY -->
+
+chdir(TMPDIR);
+
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+
+for i = 1 : size(tab_ref,'*')
+       sz = "dir_" + tab_ref(i);
+       a = chdir(sz);
+       if(a <> %T) then
+               pause
+       end
+       b = pwd();
+       if(b <> (TMPDIR + filesep() + sz)) then
+               pause
+       end
+       cd(TMPDIR);
+end
index cf30667..8b7af3a 100644 (file)
@@ -4,20 +4,16 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
+// <-- JVM NOT MANDATORY -->
 // ============================================================================
 // Unitary tests for removedir function
 // ============================================================================
-chdir(TMPDIR);
-warning("off");
-a = createdir("test_removedir");
-if(a <> %T) then bugmes();quit;end
-cd("test_removedir");
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
-chdir(TMPDIR);
-b = removedir("test_removedir");
-if (b <> %T) then bugmes();quit;end
-if(isdir("test_removedir") <> %F) then bugmes();quit;end
+baseDir=pathconvert(TMPDIR+"/test_removedir",%F,%F);
+mkdir(baseDir);
+mkdir(pathconvert(baseDir+"/test_removedir_1",%F,%F));
+mkdir(pathconvert(baseDir+"/test_removedir_1/test_removedir_2",%F,%F));
+mkdir(pathconvert(baseDir+"/test_removedir_1/test_removedir_2/test_removedir_3",%F,%F));
+if ~isdir(pathconvert(baseDir+"/test_removedir_1/test_removedir_2/test_removedir_3",%F,%F)) then bugmes();quit;end
+res=removedir(baseDir);
+if ~res then bugmes();quit;end
+if isdir(baseDir) then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/removedir.encoding.dia.ref b/scilab/modules/fileio/tests/unit_tests/removedir.encoding.dia.ref
new file mode 100644 (file)
index 0000000..20b6c4e
--- /dev/null
@@ -0,0 +1,24 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre Ledru
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+// <-- JVM MANDATORY -->
+// ============================================================================
+// Unitary tests for removedir function
+// ============================================================================
+chdir(TMPDIR);
+warning("off");
+a = createdir("test_removedir");
+if(a <> %T) then bugmes();quit;end
+cd("test_removedir");
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+chdir(TMPDIR);
+b = removedir("test_removedir");
+if (b <> %T) then bugmes();quit;end
+if(isdir("test_removedir") <> %F) then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/removedir.encoding.tst b/scilab/modules/fileio/tests/unit_tests/removedir.encoding.tst
new file mode 100644 (file)
index 0000000..cc95a70
--- /dev/null
@@ -0,0 +1,31 @@
+// ============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Sylvestre Ledru
+//
+//  This file is distributed under the same license as the Scilab package.
+// ============================================================================
+
+// <-- JVM MANDATORY -->
+
+// ============================================================================
+// Unitary tests for removedir function
+// ============================================================================
+
+chdir(TMPDIR);
+
+warning("off");
+a = createdir("test_removedir");
+if(a <> %T) then pause, end
+
+cd("test_removedir");
+if MSDOS then
+       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
+else
+       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
+end
+
+chdir(TMPDIR);
+b = removedir("test_removedir");
+if (b <> %T) then pause,end
+if(isdir("test_removedir") <> %F) then pause, end
+
index 76d16d8..149ade1 100644 (file)
@@ -5,25 +5,22 @@
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 // ============================================================================
 // Unitary tests for removedir function
 // ============================================================================
 
-chdir(TMPDIR);
+baseDir=pathconvert(TMPDIR+"/test_removedir",%F,%F);
 
-warning("off");
-a = createdir("test_removedir");
-if(a <> %T) then pause, end
+mkdir(baseDir);
+mkdir(pathconvert(baseDir+"/test_removedir_1",%F,%F));
+mkdir(pathconvert(baseDir+"/test_removedir_1/test_removedir_2",%F,%F));
+mkdir(pathconvert(baseDir+"/test_removedir_1/test_removedir_2/test_removedir_3",%F,%F));
 
-cd("test_removedir");
-if MSDOS then
-       unix_w(jre_path()+"\bin\java.exe -cp "+SCI+"\modules\localization\tests\unit_tests CreateDir");
-else
-       unix_w(jre_path()+"/bin/java -classpath "+SCI+"/modules/localization/tests/unit_tests CreateDir");
-end
+if ~isdir(pathconvert(baseDir+"/test_removedir_1/test_removedir_2/test_removedir_3",%F,%F)) then pause,end
 
-chdir(TMPDIR);
-b = removedir("test_removedir");
-if (b <> %T) then pause,end
-if(isdir("test_removedir") <> %F) then pause, end
+res=removedir(baseDir);
 
+if ~res then pause,end
+if isdir(baseDir) then pause,end
index c1550c2..697a02a 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
+// <-- JVM NOT MANDATORY -->
 // ============================================================================
 // Unitary tests for rmdir function
 // ============================================================================
index e9e3107..7fc7f3f 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
 n = 50;
 nstr = strcat(string(1:n),' ');
 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
@@ -86,7 +87,7 @@ if sscanf('123','%5x')<>291 then bugmes();quit;end
 if sscanf('123','%c')<>'1' then bugmes();quit;end
 if sscanf('     123','%c')<>' ' then bugmes();quit;end
 if sscanf('123','%0c')<>'1' then bugmes();quit;end
-//test des format complexes
+//test des format complexes 
 if sscanf('123 4','%*s%s')<>'4' then bugmes();quit;end
 if sscanf('123 4','123%e')<>4 then bugmes();quit;end
 [a,b,c]=sscanf('xxxxx 4 test 23.45','xxxxx%i%s%e')