* Bug #15472 fixed - mdelete('test') worked like mdelete('test.*') under Windows
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_15472.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2018 - ESI Group - Adeline CARNIS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10 //
11 // <-- Non-regression test for bug 15472 -->
12 //
13 // http://bugzilla.scilab.org/show_bug.cgi?id=15472
14 //
15 // <-- Short Description -->
16 // mdelete("test") worked like mdelete("test.*") under Windows 
17 // =============================================================================
18 // bug is in "listfiles" function and not directly mdelete.
19
20 cd(TMPDIR);
21 mputl("", "test");
22 mputl("", "test2");
23 mputl("", "test.sci");
24 assert_checkequal(isfile(["test" "test2" "test.sci"]), [%t %t %t]);
25 x = listfiles("test");
26 assert_checkequal(x, "test");
27
28 createdir("dir1");
29 mputl("", "dir1/test");
30 createdir("dir2");
31 mputl("", "dir2/test");
32 createdir("dir3");
33 mputl("", "dir3/test");
34
35 ref = [ fullfile("dir1", "test")
36         fullfile("dir2", "test")
37         fullfile("dir2", "test")]
38     
39 x = listfiles(ref);
40 assert_checkequal(x, ref);