[fileio] fix failing mkdir unit test 96/20696/3
St├ęphane Mottelet [Mon, 14 Jan 2019 17:43:07 +0000 (18:43 +0100)]
Test was failing due to TMPDIR expansion in error message. Added
assert_checkfalse() in the case where removedir fails (when directories
to remove do not exist).

Change-Id: I6efee8e35a79c55de2dd037720852c78c12d5e5b

scilab/modules/fileio/tests/unit_tests/mkdir.dia.ref [deleted file]
scilab/modules/fileio/tests/unit_tests/mkdir.tst
scilab/modules/fileio/tests/unit_tests/mkdir.win.dia.ref [deleted file]

diff --git a/scilab/modules/fileio/tests/unit_tests/mkdir.dia.ref b/scilab/modules/fileio/tests/unit_tests/mkdir.dia.ref
deleted file mode 100644 (file)
index cd7a770..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-// =============================================================================
-// 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' does not exist.
-removedir(test_5_dir);
-removedir: Warning: Directory 'TMPDIR/mkdir_test_1' does not exist.
-removedir(test_6_dir);
-removedir: Warning: Directory 'TMPDIR/mkdir_test_6' does not exist.
-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: string expected.\n"), "mkdir", 1) then bugmes();quit;end
-end
index 8f21605..f18bd5b 100644 (file)
@@ -7,6 +7,7 @@
 
 // <-- CLI SHELL MODE -->
 // <-- ENGLISH IMPOSED -->
+// <-- NO CHECK REF -->
 
 // =============================================================================
 // Unitary tests for mkdir function
@@ -79,9 +80,9 @@ if status_7 <> 1 then pause,end
 removedir(test_1_dir);
 removedir(test_2_dir);
 removedir(test_3_dir);
-removedir(test_4_dir);
-removedir(test_5_dir);
-removedir(test_6_dir);
+assert_checkfalse(removedir(test_4_dir));
+assert_checkfalse(removedir(test_5_dir));
+assert_checkfalse(removedir(test_6_dir));
 removedir(test_7_dir);
 
 // TEST : error messages
diff --git a/scilab/modules/fileio/tests/unit_tests/mkdir.win.dia.ref b/scilab/modules/fileio/tests/unit_tests/mkdir.win.dia.ref
deleted file mode 100644 (file)
index 629ef36..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-// =============================================================================
-// 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' does not exist.
-removedir(test_5_dir);
-removedir: Warning: Directory 'TMPDIR\mkdir_test_1' does not exist.
-removedir(test_6_dir);
-removedir: Warning: Directory 'TMPDIR\mkdir_test_6' does not exist.
-removedir(test_7_dir);
-// TEST : error messages
-try
-  mkdir([])
-catch
-  [str,n]=lasterror();
-  if n <> 10000 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 <> 10000 then bugmes();quit;end
-  if str <> msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "mkdir", 1) then bugmes();quit;end
-end