Update tests after https://codereview.scilab.org/#/c/12099/ (a warning is issued... 33/12133/2
Vincent COUVERT [Thu, 25 Jul 2013 14:47:25 +0000 (16:47 +0200)]
test_run fileio mkdir
test_run fileio movefile
test_run fileio bug_3089

Change-Id: Ib09869a68d74211aee7dd71f3d9da7f8869143f2

scilab/modules/fileio/tests/nonreg_tests/bug_3089.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3089.tst
scilab/modules/fileio/tests/nonreg_tests/bug_3089.win.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/copyfile.win.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/mkdir.dia.ref
scilab/modules/fileio/tests/unit_tests/mkdir.tst
scilab/modules/fileio/tests/unit_tests/mkdir.win.dia.ref [new file with mode: 0644]
scilab/modules/fileio/tests/unit_tests/movefile.dia.ref
scilab/modules/fileio/tests/unit_tests/movefile.tst
scilab/modules/fileio/tests/unit_tests/movefile.win.dia.ref [new file with mode: 0644]

index 60c5b2d..5688971 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
 // <-- Non-regression test for bug 3089 -->
 //
 // <-- Bugzilla URL -->
@@ -14,6 +15,7 @@
 // chdir seems to have problems with directory names containing nordic characters like æ ø and å.
 newdir = TMPDIR + filesep() +'æøå_dir';
 r = removedir(newdir);
+removedir: Warning: Directory 'TMPDIR/æøå_dir' doesn't exists.
 if r <> %f then bugmes();quit;end
 r = mkdir(newdir);
 if r <> 1 then bugmes();quit;end
index 25c9d15..11b2e7f 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
 
 // <-- Non-regression test for bug 3089 -->
 //
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_3089.win.dia.ref b/scilab/modules/fileio/tests/nonreg_tests/bug_3089.win.dia.ref
new file mode 100644 (file)
index 0000000..979e01d
--- /dev/null
@@ -0,0 +1,29 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
+// <-- Non-regression test for bug 3089 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=3089
+//
+// <-- Short Description -->
+// chdir seems to have problems with directory names containing nordic characters like æ ø and å.
+newdir = TMPDIR + filesep() +'æøå_dir';
+r = removedir(newdir);
+removedir: Warning: Directory 'TMPDIR\æøå_dir' doesn't exists.
+if r <> %f then bugmes();quit;end
+r = mkdir(newdir);
+if r <> 1 then bugmes();quit;end
+r = cd(newdir);
+if r == [] then bugmes();quit;end
+r = chdir(newdir);
+if r <> %t then bugmes();quit;end
+r = chdir(TMPDIR);
+if r <> %t then bugmes();quit;end
+r = removedir(newdir);
+if r <> %t then bugmes();quit;end
diff --git a/scilab/modules/fileio/tests/unit_tests/copyfile.win.dia.ref b/scilab/modules/fileio/tests/unit_tests/copyfile.win.dia.ref
new file mode 100644 (file)
index 0000000..adfc959
--- /dev/null
@@ -0,0 +1,119 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Bruno JOFRET <bruno.jofret@inria.fr>
+// Copyright (C) 2007-2008 - INRIA - Allan CORNET
+// Copyright (C) 2009 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// =============================================================================
+// Date   : 13/12/2007
+//
+// Unitary tests for copyfile function
+// =============================================================================
+// TEST 1 : copyfile
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"프로그램",
+"프로그램",
+"תוכנית"];
+cd TMPDIR;
+mkdir test_copyfile_source;
+mkdir test_copyfile_target;
+cd('test_copyfile_source');
+for i = 1 : size(tab_ref,"*")
+       filename = tab_ref(i) + '.orig';
+       mputl('I am a dummy String : ' + tab_ref(i), filename);
+       if fileinfo(filename) == [] then bugmes();quit;end
+end
+for i = 1 : size(tab_ref,"*")
+       orig = tab_ref(i) + '.orig';
+       dest = tab_ref(i) + '.dest';
+       r = copyfile(TMPDIR+'/test_copyfile_source/' + orig, TMPDIR+'/test_copyfile_target/' + dest);
+       if r <> 1 then bugmes();quit;end
+       if fileinfo(TMPDIR+'/test_copyfile_target/' + dest) == [] then bugmes();quit;end
+end
+cd TMPDIR;
+rmdir('test_copyfile_source', 's');
+rmdir('test_copyfile_target', 's');
+// =============================================================================
+cd TMPDIR;
+dir1="test dir with space";
+dir2="test dir with space number 2";
+file1='dummyFile.dummy';
+mkdir(dir1);
+mkdir(dir2);
+mputl('I am a dummy String', dir1+'/'+file1);
+copyfile(dir1+'/'+file1,dir2);
+lsResult = ls(dir2+'/'+file1);
+if lsResult == [] then bugmes();quit;end
+// =============================================================================
+removedir(TMPDIR+'/etc');
+removedir: Warning: Directory 'TMPDIR\etc' doesn't exists.
+ierr = execstr("copyfile(SCI+""etc"",TMPDIR)","errcatch");
+if ierr <> 999 then bugmes();quit;end
+// =============================================================================
+ref_files = ['fileio.start','fileio.quit'];
+// =============================================================================
+// copy a directory into a directory
+a = copyfile(SCI+'/modules/fileio/etc',TMPDIR);
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
+mdelete(TMPDIR + filesep() + ref_files(1));
+mdelete(TMPDIR + filesep() + ref_files(2));
+// =============================================================================
+// copy a directory into a directory  with separator(s)
+a = copyfile(SCI+'/modules/fileio/etc',TMPDIR + filesep());
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
+mdelete(TMPDIR + filesep() + ref_files(1));
+mdelete(TMPDIR + filesep() + ref_files(2));
+// =============================================================================
+// copy a directory into a directory  with separator(s)
+a = copyfile(SCI+'/modules/fileio/etc' + filesep(), TMPDIR);
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
+mdelete(TMPDIR + filesep() + ref_files(1));
+mdelete(TMPDIR + filesep() + ref_files(2));
+// =============================================================================
+// copy a directory into a directory  with separator(s)
+a = copyfile(SCI+'/modules/fileio/etc' + filesep(), TMPDIR  + filesep());
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + ref_files(2)) == [] then bugmes();quit;end
+mdelete(TMPDIR + filesep() + ref_files(1));
+mdelete(TMPDIR + filesep() + ref_files(2));
+// =============================================================================
+// copy a file to a file
+mdelete(TMPDIR + '/scilab.start');
+a = copyfile(SCI+'/etc/scilab.start', TMPDIR + '/scilab.start');
+if fileinfo(TMPDIR + '/scilab.start') == [] then bugmes();quit;end
+mdelete(TMPDIR + '/scilab.start');
+// =============================================================================
+// copy a file into a directory
+mdelete(TMPDIR + '/scilab.quit');
+a = copyfile(SCI+'/etc/scilab.quit', TMPDIR);
+if fileinfo(TMPDIR + '/scilab.quit') == [] then bugmes();quit;end
+mdelete(TMPDIR + '/scilab.quit');
+// =============================================================================
+// copy a file into a directory with separator
+mdelete(TMPDIR + '/modules.xml');
+a = copyfile(SCI+'/etc/modules.xml', TMPDIR + filesep());
+if fileinfo(TMPDIR + '/modules.xml') == [] then bugmes();quit;end
+mdelete(TMPDIR + '/modules.xml');
+// =============================================================================
+// copy directory with sub-directories
+mkdir(TMPDIR + '/copyfile_test');
+a = copyfile(SCI+'/modules/fileio/tests', TMPDIR + filesep() + 'copyfile_test');
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + '/copyfile_test/unit_tests/copyfile.tst') == [] then bugmes();quit;end
+rmdir(TMPDIR + '/copyfile_test');
+// =============================================================================
index 6218f2b..b40af17 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
 // =============================================================================
 // Unitary tests for mkdir function
 // =============================================================================
@@ -55,8 +56,11 @@ removedir(test_1_dir);
 removedir(test_2_dir);
 removedir(test_3_dir);
 removedir(test_4_dir);
+removedir: Warning: Directory 'TMPDIR/mkdir_test_3/mkdir_test_4' doesn't exists.
 removedir(test_5_dir);
+removedir: Warning: Directory 'TMPDIR/mkdir_test_1' doesn't exists.
 removedir(test_6_dir);
+removedir: Warning: Directory 'TMPDIR/mkdir_test_6' doesn't exists.
 removedir(test_7_dir);
 // TEST : error messages
 try
index 0dc0901..e22f22e 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
 
 // =============================================================================
 // Unitary tests for mkdir function
diff --git a/scilab/modules/fileio/tests/unit_tests/mkdir.win.dia.ref b/scilab/modules/fileio/tests/unit_tests/mkdir.win.dia.ref
new file mode 100644 (file)
index 0000000..5ebc468
--- /dev/null
@@ -0,0 +1,79 @@
+// =============================================================================
+// 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.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
+// =============================================================================
+// Unitary tests for mkdir function
+// =============================================================================
+// TEST 1 : absolute path with one input argument
+cd;
+test_1_dir = TMPDIR+"/mkdir_test_1";
+status_1   = mkdir(test_1_dir);
+if status_1 <> 1      then bugmes();quit;end
+if ~isdir(test_1_dir) then bugmes();quit;end
+// TEST 2 : absolute path with 2 input arguments
+cd;
+test_2_dir = TMPDIR+"/mkdir_test_2";
+status_2   = mkdir(TMPDIR,"mkdir_test_2");
+if status_2 <> 1      then bugmes();quit;end
+if ~isdir(test_2_dir) then bugmes();quit;end
+// TEST 3 : relative path
+cd TMPDIR;
+test_3_dir = TMPDIR+"/mkdir_test_3";
+status_3   = mkdir("mkdir_test_3");
+if status_3 <> 1          then bugmes();quit;end
+if ~isdir(test_3_dir)     then bugmes();quit;end
+if ~isdir("mkdir_test_3") then bugmes();quit;end
+// TEST 4 : relative path with sub-directory
+cd TMPDIR;
+test_4_dir = TMPDIR+"/mkdir_test_3/mkdir_test_4";
+status_4   = mkdir("mkdir_test_3/mkdir_test_4");
+if status_4 <> 1                       then bugmes();quit;end
+if ~isdir(test_4_dir)                  then bugmes();quit;end
+if ~isdir("mkdir_test_3/mkdir_test_4") then bugmes();quit;end
+// TEST 5 : Bad Case - The directory already exists
+cd;
+test_5_dir  =  test_1_dir;
+status_5    =  mkdir(test_5_dir);
+if status_5 <> 2 then bugmes();quit;end
+// TEST 6 : Bad Case - The file already exists
+cd;
+test_6_dir  =  TMPDIR+"/mkdir_test_6";
+[fd_6,err_6] = mopen(test_6_dir,"wb");
+mclose(fd_6);
+status_6    =  mkdir(test_6_dir);
+if status_6 <> -2 then bugmes();quit;end
+// TEST 7 : mkdir creates in the same instruction one folder and one subfolder.
+cd;
+test_7_dir  =  TMPDIR+"/mkdir_test_7/mkdir_test_7";
+status_7    =  mkdir(test_7_dir);
+if status_7 <> 1 then bugmes();quit;end
+removedir(test_1_dir);
+removedir(test_2_dir);
+removedir(test_3_dir);
+removedir(test_4_dir);
+removedir: Warning: Directory 'TMPDIR\mkdir_test_3\mkdir_test_4' doesn't exists.
+removedir(test_5_dir);
+removedir: Warning: Directory 'TMPDIR\mkdir_test_1' doesn't exists.
+removedir(test_6_dir);
+removedir: Warning: Directory 'TMPDIR\mkdir_test_6' doesn't exists.
+removedir(test_7_dir);
+// TEST : error messages
+try
+  mkdir([])
+catch
+  [str,n]=lasterror();
+  if n <> 999 then bugmes();quit;end
+  if str <> msprintf(_("%s: Wrong type for input argument #%d: String expected.\n"), "mkdir", 1) then bugmes();quit;end
+end
+try
+  mkdir(["a", "b"])
+catch
+  [str,n]=lasterror();
+  if n <> 999 then bugmes();quit;end
+  if str <> msprintf(_("%s: Wrong size for input argument #%d: A string expected.\n"), "mkdir", 1) then bugmes();quit;end
+end
index dc5a12e..15ab21b 100644 (file)
@@ -5,6 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
 // =============================================================================
 // Unitary tests for movefile function
 // =============================================================================
@@ -52,6 +53,7 @@ rmdir(TMPDIR + filesep() + dir1, 's');
 rmdir(TMPDIR + filesep() + dir2, 's');
 // =============================================================================
 removedir(TMPDIR+'/etc');
+removedir: Warning: Directory 'TMPDIR/etc' doesn't exists.
 ierr = execstr("movefile(TMPDIR+""/etc"",TMPDIR)","errcatch");
 if ierr <> 999 then bugmes();quit;end
 // =============================================================================
index 4afc796..f528e3a 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
 
 // =============================================================================
 // Unitary tests for movefile function
diff --git a/scilab/modules/fileio/tests/unit_tests/movefile.win.dia.ref b/scilab/modules/fileio/tests/unit_tests/movefile.win.dia.ref
new file mode 100644 (file)
index 0000000..15963a6
--- /dev/null
@@ -0,0 +1,126 @@
+// =============================================================================
+// 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.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+// <-- ENGLISH IMPOSED -->
+// =============================================================================
+// Unitary tests for movefile function
+// =============================================================================
+tab_ref = [
+"世界您好",
+"азеазея",
+"ハロー・ワールド",
+"เฮลโลเวิลด์",
+"حريات وحقوق",
+"תוכנית"];
+cd TMPDIR;
+mkdir test_copyfile_source;
+mkdir test_copyfile_target;
+cd('test_copyfile_source');
+for i = 1 : size(tab_ref,"*")
+       filename = tab_ref(i) + '.orig';
+       mputl('I am a dummy String : ' + tab_ref(i), filename);
+       if fileinfo(filename) == [] then bugmes();quit;end
+end
+for i = 1 : size(tab_ref,"*")
+       orig = tab_ref(i) + '.orig';
+       dest = tab_ref(i) + '.dest';
+       r = movefile(TMPDIR+'/test_copyfile_source/' + orig, TMPDIR+'/test_copyfile_target/' + dest);
+       if r <> 1 then bugmes();quit;end
+       if fileinfo(TMPDIR+'/test_copyfile_source/' + orig) <> [] then bugmes();quit;end
+       if fileinfo(TMPDIR+'/test_copyfile_target/' + dest) == [] then bugmes();quit;end
+end
+cd TMPDIR;
+rmdir('test_copyfile_source', 's');
+rmdir('test_copyfile_target', 's');
+// =============================================================================
+cd TMPDIR;
+dir1="test dir with space";
+dir2="test dir with space number 2";
+file1='dummyFile.dummy';
+mkdir(dir1);
+mkdir(dir2);
+mputl('I am a dummy String', dir1+'/'+file1);
+movefile(dir1+'/'+file1,dir2);
+lsResult = ls(dir2+'/'+file1);
+if lsResult == [] then bugmes();quit;end
+lsResult = ls(dir1+'/'+file1);
+if lsResult <> [] then bugmes();quit;end
+rmdir(TMPDIR + filesep() + dir1, 's');
+rmdir(TMPDIR + filesep() + dir2, 's');
+// =============================================================================
+removedir(TMPDIR+'/etc');
+removedir: Warning: Directory 'TMPDIR\etc' doesn't exists.
+ierr = execstr("movefile(TMPDIR+""/etc"",TMPDIR)","errcatch");
+if ierr <> 999 then bugmes();quit;end
+// =============================================================================
+ref_files = ['fileio.start','fileio.quit'];
+// =============================================================================
+// move a directory into a directory
+dest = 'dirtomove1';
+renamedDst = 'renameddir1';
+a = copyfile(SCI+'/modules/fileio/etc',TMPDIR + filesep() + dest);
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + dest + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + dest + filesep() + ref_files(2)) == [] then bugmes();quit;end
+a = movefile(TMPDIR + filesep() + dest, TMPDIR + filesep() + renamedDst);
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + renamedDst + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + renamedDst + filesep() + ref_files(2)) == [] then bugmes();quit;end
+mdelete(TMPDIR + filesep() + renamedDst + filesep() + ref_files(1));
+mdelete(TMPDIR + filesep() + renamedDst + filesep() + ref_files(2));
+rmdir(TMPDIR + filesep() + renamedDst);
+// =============================================================================
+// move a directory into a directory  with separator(s)
+dest = 'dirtomove2';
+renamedDst = 'renameddir2';
+mkdir(TMPDIR, renamedDst);
+a = copyfile(SCI+'/modules/fileio/etc',TMPDIR + filesep() + dest);
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + dest + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + dest + filesep() + ref_files(2)) == [] then bugmes();quit;end
+a = movefile(TMPDIR + filesep() + dest, TMPDIR + filesep() + renamedDst + filesep());
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + renamedDst + filesep() + ref_files(1)) == [] then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + renamedDst + filesep() + ref_files(2)) == [] then bugmes();quit;end
+mdelete(TMPDIR + filesep() + renamedDst + filesep() + ref_files(1));
+mdelete(TMPDIR + filesep() + renamedDst + filesep() + ref_files(2));
+rmdir(TMPDIR + filesep() + renamedDst);
+// =============================================================================
+// move a file into a directory
+dest = 'dirtomove2';
+renamedDst = 'renameddir2';
+mkdir(TMPDIR, dest);
+a = copyfile(SCI+'/modules/fileio/etc/fileio.start',TMPDIR + filesep() + dest);
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + dest + '/fileio.start') == [] then bugmes();quit;end
+mkdir(TMPDIR, renamedDst);
+a = movefile(TMPDIR + filesep() + dest + '/fileio.start', TMPDIR + filesep() + renamedDst + filesep());
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + filesep() + renamedDst + filesep() + '/fileio.start') == [] then bugmes();quit;end
+rmdir(TMPDIR + filesep() + renamedDst,'s');
+rmdir(TMPDIR + filesep() + dest,'s');
+// =============================================================================
+// move a file into a file
+mdelete(TMPDIR + '/scilab.quit');
+a = copyfile(SCI+'/etc/scilab.quit', TMPDIR);
+if (a <> 1) then bugmes();quit;end
+a = movefile(TMPDIR + '/scilab.quit', TMPDIR + '/renamed_scilab.quit');
+if fileinfo(TMPDIR + '/scilab.quit') <> [] then bugmes();quit;end
+if fileinfo(TMPDIR + '/renamed_scilab.quit') == [] then bugmes();quit;end
+mdelete(TMPDIR + '/renamed_scilab.quit');
+// =============================================================================
+// move directory with sub-directories
+mkdir(TMPDIR + '/copyfile_test');
+a = copyfile(SCI+'/modules/fileio/tests', TMPDIR + filesep() + 'copyfile_test');
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + '/copyfile_test/unit_tests/copyfile.tst') == [] then bugmes();quit;end
+a = movefile(TMPDIR + filesep() + 'copyfile_test', TMPDIR + filesep() + 'copyfile_test2');
+if (a <> 1) then bugmes();quit;end
+if fileinfo(TMPDIR + '/copyfile_test/unit_tests/copyfile.tst') <> [] then bugmes();quit;end
+if fileinfo(TMPDIR + '/copyfile_test2/unit_tests/copyfile.tst') == [] then bugmes();quit;end
+rmdir(TMPDIR + '/copyfile_test2','s');
+// =============================================================================