//
// <-- Short Description -->
// fileparts crashed scilab when matrix of strings was passed as input argument.
-//
-if execstr("fileparts(ls(""SCI/modules/fileio/macros/*.sci""))", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong size for input argument #%d: A string expected.\n"), "fileparts", 1) then bugmes();quit;end
+// Following the commit: https://codereview.scilab.org/#/c/11620/, fileparts
+// manages the matrix of strings.
+assert_checktrue(execstr("fileparts(ls(""SCI/modules/fileio/macros/*.sci""))", "errcatch") == 0);
//
// <-- Short Description -->
// fileparts crashed scilab when matrix of strings was passed as input argument.
-//
+// Following the commit: https://codereview.scilab.org/#/c/11620/, fileparts
+// manages the matrix of strings.
-if execstr("fileparts(ls(""SCI/modules/fileio/macros/*.sci""))", "errcatch") <> 999 then pause, end
-if lasterror() <> msprintf(_("%s: Wrong size for input argument #%d: A string expected.\n"), "fileparts", 1) then pause, end
\ No newline at end of file
+assert_checktrue(execstr("fileparts(ls(""SCI/modules/fileio/macros/*.sci""))", "errcatch") == 0);
//
// <-- Short Description -->
// getrelativename does not manage matrix of strings
-assert_checkequal(getrelativefilename([SCI+'/bin',SCI+'/bin'], [SCI+'/ACKNOWLEDGMENTS',SCI+'/ACKNOWLEDGMENTS']),["../ACKNOWLEDGMENTS", "../ACKNOWLEDGMENTS"]);
+computed = getrelativefilename([SCI+'/bin',SCI+'/bin'], [SCI+'/ACKNOWLEDGMENTS',SCI+'/ACKNOWLEDGMENTS']);
+expected = pathconvert(["../ACKNOWLEDGMENTS", "../ACKNOWLEDGMENTS"], %f);
+assert_checkequal(computed,expected);
// <-- Short Description -->
// getrelativename does not manage matrix of strings
-assert_checkequal(getrelativefilename([SCI+'/bin',SCI+'/bin'], [SCI+'/ACKNOWLEDGMENTS',SCI+'/ACKNOWLEDGMENTS']),["../ACKNOWLEDGMENTS", "../ACKNOWLEDGMENTS"]);
+computed = getrelativefilename([SCI+'/bin',SCI+'/bin'], [SCI+'/ACKNOWLEDGMENTS',SCI+'/ACKNOWLEDGMENTS']);
+expected = pathconvert(["../ACKNOWLEDGMENTS", "../ACKNOWLEDGMENTS"], %f);
+assert_checkequal(computed,expected);
// Error messages
errmsg1 = msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "getrelativefilename", 2);
assert_checkerror("getrelativefilename()", errmsg1);
-errmsg2 = msprintf(_("%s: Wrong type for input argument #%d: Matrix of strings expected.\n"), "getrelativefilename", 1);
+errmsg2 = msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "getrelativefilename", 1);
assert_checkerror("getrelativefilename([],[])", errmsg2);
errmsg3 = msprintf(_("%s: Incompatible input arguments #%d and #%d: Same size expected.\n"), "getrelativefilename", 1, 2);
assert_checkerror("getrelativefilename([__dir1,__dir1], __file1)", errmsg3);
errmsg1 = msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "getrelativefilename", 2);
assert_checkerror("getrelativefilename()", errmsg1);
-errmsg2 = msprintf(_("%s: Wrong type for input argument #%d: Matrix of strings expected.\n"), "getrelativefilename", 1);
+errmsg2 = msprintf(_("%s: Wrong type for input argument #%d: A matrix of strings expected.\n"), "getrelativefilename", 1);
assert_checkerror("getrelativefilename([],[])", errmsg2);
errmsg3 = msprintf(_("%s: Incompatible input arguments #%d and #%d: Same size expected.\n"), "getrelativefilename", 1, 2);