[doc] label_properties improved
[scilab.git] / scilab / modules / fileio / tests / unit_tests / fileparts.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 //===============================
9 // Tests fileparts
10 //===============================
11 // Error messages
12 errmsg1 = msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "fileparts", 1, 2);
13 assert_checkerror("fileparts(SCI+''/etc/scilab.start'', ""extension"", ""extension"")", errmsg1);
14 errmsg2 = msprintf(_("%s: Wrong number of output arguments: %d expected.\n"),  "fileparts", 1);
15 assert_checkerror("[a,b] = fileparts(SCI+''/etc/scilab.start'',""extension"")", errmsg2);
16 errmsg3 = msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "fileparts", 1);
17 assert_checkerror("[path,fname,extension] = fileparts([]);", errmsg3);
18 errmsg4 = msprintf(_("%s: Wrong value for input argument #%d.\n"), "fileparts", 2);
19 assert_checkerror("extension = fileparts(SCI+''/etc/scilab.start'',''rpr'');", errmsg4);
20 errmsg5 = msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "fileparts", 2);
21 assert_checkerror("extension = fileparts(SCI+''/etc/scilab.start'',10);", errmsg5);
22 errmsg6 = msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"), "fileparts", 1);
23 assert_checkerror("extension = fileparts(10,10);", errmsg6);
24 errmsg7 = msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"), "fileparts", 2);
25 assert_checkerror("fileparts(SCI+''/etc/scilab.start'', [""extension"", ""extension""])", errmsg7);
26 // For a string
27 [path,fname,extension] = fileparts(SCI+'/etc/scilab.start');
28 assert_checkequal(path, pathconvert(SCI+'/etc/',%t,%t));
29 assert_checkequal(fname, 'scilab');
30 assert_checkequal(extension, '.start');
31 //===============================
32 r = fileparts(SCI+'/etc/scilab.start','path');
33 assert_checkequal(r, pathconvert(SCI+'/etc/',%t,%f));
34 //===============================
35 r = fileparts(SCI+'/etc/scilab.start','fname');
36 assert_checkequal(r, 'scilab');
37 //===============================
38 r = fileparts(SCI+'/etc/scilab.start','extension');
39 assert_checkequal(r, '.start');
40 //===============================
41 // For an empty string
42 [path,fname,extension] = fileparts("");
43 assert_checkequal(path, "");
44 assert_checkequal(fname, "");
45 assert_checkequal(extension, "");
46 //===============================
47 r = fileparts("", 'path');
48 assert_checkequal(r, "");
49 //===============================
50 r = fileparts("", 'fname');
51 assert_checkequal(fname, "");
52 //===============================
53 r = fileparts("", 'extension');
54 assert_checkequal(extension, "");
55 // For a matrix of strings (1x2)
56 [path,fname,extension] = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab.start']);
57 assert_checkequal(path, [pathconvert(SCI+'/etc/',%t,%t), pathconvert(SCI+'/etc/',%t,%t)]);
58 assert_checkequal(fname, ['scilab', 'scilab']);
59 assert_checkequal(extension, ['.start', '.start']);
60 //===============================
61 r = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab.start'],'path');
62 assert_checkequal(r, [pathconvert(SCI+'/etc/',%t,%f), pathconvert(SCI+'/etc/',%t,%f)]);
63 //===============================
64 r = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab.start'],'fname');
65 assert_checkequal(r, ['scilab', 'scilab']);
66 //===============================
67 r = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab.start'],'extension');
68 assert_checkequal(r, ['.start', '.start']);
69 // For a matrix of strings (2x1)
70 [path,fname,extension] = fileparts([SCI+'/etc/scilab.start'; SCI+'/etc/scilab.start']);
71 assert_checkequal(path, [pathconvert(SCI+'/etc/',%t,%t); pathconvert(SCI+'/etc/',%t,%t)]);
72 assert_checkequal(fname, ['scilab'; 'scilab']);
73 assert_checkequal(extension, ['.start'; '.start']);
74 //===============================
75 r = fileparts([SCI+'/etc/scilab.start'; SCI+'/etc/scilab.start'],'path');
76 assert_checkequal(r, [pathconvert(SCI+'/etc/',%t,%f); pathconvert(SCI+'/etc/',%t,%f)]);
77 //===============================
78 r = fileparts([SCI+'/etc/scilab.start'; SCI+'/etc/scilab.start'],'fname');
79 assert_checkequal(r, ['scilab'; 'scilab']);
80 //===============================
81 r = fileparts([SCI+'/etc/scilab.start'; SCI+'/etc/scilab.start'],'extension');
82 assert_checkequal(r, ['.start'; '.start']);
83 // For a matrix of strings with no extension
84 [path,fname,extension] = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab']);
85 assert_checkequal(path, [pathconvert(SCI+'/etc/',%t,%t), pathconvert(SCI+'/etc/',%t,%t)]);
86 assert_checkequal(fname, ['scilab', 'scilab']);
87 assert_checkequal(extension, ['.start', ""]);
88 //===============================
89 r = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab'],'path');
90 assert_checkequal(r, [pathconvert(SCI+'/etc/',%t,%f), pathconvert(SCI+'/etc/',%t,%f)]);
91 //===============================
92 r = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab'],'fname');
93 assert_checkequal(r, ['scilab', 'scilab']);
94 //===============================
95 r = fileparts([SCI+'/etc/scilab.start', SCI+'/etc/scilab'],'extension');
96 assert_checkequal(r, ['.start', ""]);
97 // For a matrix of strings with no path
98 [path,fname,extension] = fileparts([SCI+'/etc/scilab.start', 'scilab.start']);
99 assert_checkequal(path, [pathconvert(SCI+'/etc/',%t,%t), ""]);
100 assert_checkequal(fname, ['scilab', 'scilab']);
101 assert_checkequal(extension, ['.start', ".start"]);
102 //===============================
103 r = fileparts([SCI+'/etc/scilab.start', 'scilab.start'], 'path');
104 assert_checkequal(r, [pathconvert(SCI+'/etc/',%t,%f), ""]);
105 //===============================
106 r = fileparts([SCI+'/etc/scilab.start', 'scilab.start'], 'fname');
107 assert_checkequal(r, ['scilab', 'scilab']);
108 //===============================
109 r = fileparts([SCI+'/etc/scilab.start', 'scilab.start'], 'extension');
110 assert_checkequal(r, ['.start', '.start']);