Merge remote-tracking branch 'origin/master' into YaSp
[scilab.git] / scilab / modules / fileio / tests / unit_tests / sscanf.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 n = 50;
11 nstr = strcat(string(1:n),' ');
12 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
13
14 ierr = execstr("sscanf(1,''%d'')", "errcatch");
15 if ierr <> 999 then pause,end
16
17 [A1, A2, A3, A4, A5, A6, A7, A8] = sscanf(nstr, fstr);
18 ref = 1:8 ;
19 if or([A1, A2, A3, A4, A5, A6, A7, A8] <> ref) then pause,end
20
21 v = 'v';
22 args = strcat( v(ones(n,1)) + string(1:n)',',');
23 ierr = execstr('[' + args + '] = sscanf(nstr, fstr);','errcatch');
24 ref = 1:n ;
25 ierr = execstr('r = or([' + args + '] <> ref)','errcatch');
26 if ierr <> 0 then pause,end
27 if r <> %f then pause,end
28
29 n = 500;
30 nstr = strcat(string(1:n),' ');
31 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
32 v = 'v';
33 args = strcat( v(ones(n,1)) + string(1:n)',',');
34 ierr = execstr('[' + args + '] = sscanf(nstr, fstr);','errcatch');
35 if ierr <> 999 then pause,end
36
37 n = 50;
38 nstr = strcat(string(1:n),' ');
39 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
40
41 mputl(nstr,TMPDIR+'/fscanf.txt');
42 [A1, A2, A3, A4, A5, A6, A7, A8] = fscanf(TMPDIR+'/fscanf.txt',fstr);
43 ref = 1:8 ;
44 if or([A1, A2, A3, A4, A5, A6, A7, A8] <> ref) then pause,end
45
46 v = 'v';
47 args = strcat( v(ones(n,1)) + string(1:n)',',');
48 ierr = execstr('[' + args + '] = fscanf(TMPDIR+''/fscanf.txt'', fstr);','errcatch');
49 ref = 1:n ;
50 ierr = execstr('r = or([' + args + '] <> ref)','errcatch');
51 if ierr <> 0 then pause,end
52 if r <> %f then pause,end
53
54 n = 500;
55 nstr = strcat(string(1:n),' ');
56 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
57 v = 'v';
58 args = strcat( v(ones(n,1)) + string(1:n)',',');
59 ierr = execstr('[' + args + '] = fscanf(TMPDIR+''/fscanf.txt'', fstr);','errcatch');
60 if ierr <> 999 then pause,end
61
62 //test format %i %d
63 if sscanf('123','%i')<>123 then pause,end
64 if sscanf('     123','%i')<>123 then pause,end
65 if sscanf('123','%2i')<>12 then pause,end
66 if sscanf('123','%0i')<>123 then pause,end
67 if sscanf('123','%5i')<>123 then pause,end
68 //test format %u
69 if sscanf('+123','%u')<>123 then pause,end
70 if sscanf(' 123','%2u')<>12 then pause,end
71 if sscanf('123','%0u')<>123 then pause,end
72 if sscanf('+123','%5u')<>123 then pause,end
73 //test format %e %f %g
74
75 if sscanf('123','%e')<>123 then pause,end
76 if sscanf('     123','%e')<>123 then pause,end
77 if sscanf('123','%2e')<>12 then pause,end
78 if sscanf('123','%0e')<>123 then pause,end
79 if sscanf('123','%5e')<>123 then pause,end
80
81 //test format %s
82 if sscanf('123','%s')<>'123' then pause,end
83 if sscanf('     123','%s')<>'123' then pause,end
84 if sscanf('123','%2s')<>'12' then pause,end
85 if sscanf('123','%0s')<>'123' then pause,end
86 if sscanf('123','%5s')<>'123' then pause,end
87
88 //test format %o
89 if sscanf('123','%o')<>83 then pause,end
90 if sscanf('     123','%o')<>83 then pause,end
91 if sscanf('123','%2o')<>10 then pause,end
92 if sscanf('123','%0o')<>83 then pause,end
93 if sscanf('123','%5o')<>83 then pause,end
94
95 //test format %x
96 if sscanf('123','%x')<>291 then pause,end
97 if sscanf('     123','%x')<>291 then pause,end
98 if sscanf('123','%2x')<>18 then pause,end
99 if sscanf('123','%0x')<>291 then pause,end
100 if sscanf('123','%5x')<>291 then pause,end
101
102 //test format %c
103 if sscanf('123','%c')<>'1' then pause,end
104 if sscanf('     123','%c')<>' ' then pause,end
105 if sscanf('123','%0c')<>'1' then pause,end
106
107 //test des format complexes 
108 if sscanf('123 4','%*s%s')<>'4' then pause,end
109 if sscanf('123 4','123%e')<>4 then pause,end
110 [a,b,c]=sscanf('xxxxx 4 test 23.45','xxxxx%i%s%e')
111 if a<>4|b<>'test'|c<>23.45 then pause,end
112
113 [a,b]=sscanf('123\n456','%e%e')
114 if a<>123|b<>456 then pause,end