request 234
[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 n = 50;
9 nstr = strcat(string(1:n),' ');
10 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
11
12 ierr = execstr("sscanf(1,''%d'')", "errcatch");
13 if ierr <> 999 then pause,end
14
15 [A1, A2, A3, A4, A5, A6, A7, A8] = sscanf(nstr, fstr);
16 ref = 1:8 ;
17 if or([A1, A2, A3, A4, A5, A6, A7, A8] <> ref) then pause,end
18
19 v = 'v';
20 args = strcat( v(ones(n,1)) + string(1:n)',',');
21 ierr = execstr('[' + args + '] = sscanf(nstr, fstr);','errcatch');
22 ref = 1:n ;
23 ierr = execstr('r = or([' + args + '] <> ref)','errcatch');
24 if ierr <> 0 then pause,end
25 if r <> %f then pause,end
26
27 n = 500;
28 nstr = strcat(string(1:n),' ');
29 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
30 v = 'v';
31 args = strcat( v(ones(n,1)) + string(1:n)',',');
32 ierr = execstr('[' + args + '] = sscanf(nstr, fstr);','errcatch');
33 if ierr <> 999 then pause,end
34
35 n = 50;
36 nstr = strcat(string(1:n),' ');
37 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
38
39 mputl(nstr,TMPDIR+'/fscanf.txt');
40 [A1, A2, A3, A4, A5, A6, A7, A8] = fscanf(TMPDIR+'/fscanf.txt',fstr);
41 ref = 1:8 ;
42 if or([A1, A2, A3, A4, A5, A6, A7, A8] <> ref) then pause,end
43
44 v = 'v';
45 args = strcat( v(ones(n,1)) + string(1:n)',',');
46 ierr = execstr('[' + args + '] = fscanf(TMPDIR+''/fscanf.txt'', fstr);','errcatch');
47 ref = 1:n ;
48 ierr = execstr('r = or([' + args + '] <> ref)','errcatch');
49 if ierr <> 0 then pause,end
50 if r <> %f then pause,end
51
52 n = 500;
53 nstr = strcat(string(1:n),' ');
54 fstr = strcat(strsubst(string(ones(1,n)),'1','%d'), ' ');
55 v = 'v';
56 args = strcat( v(ones(n,1)) + string(1:n)',',');
57 ierr = execstr('[' + args + '] = fscanf(TMPDIR+''/fscanf.txt'', fstr);','errcatch');
58 if ierr <> 999 then pause,end
59
60 //test format %i %d
61 if sscanf('123','%i')<>123 then pause,end
62 if sscanf('     123','%i')<>123 then pause,end
63 if sscanf('123','%2i')<>12 then pause,end
64 if sscanf('123','%0i')<>123 then pause,end
65 if sscanf('123','%5i')<>123 then pause,end
66 //test format %u
67 if sscanf('+123','%u')<>123 then pause,end
68 if sscanf(' 123','%2u')<>12 then pause,end
69 if sscanf('123','%0u')<>123 then pause,end
70 if sscanf('+123','%5u')<>123 then pause,end
71 //test format %e %f %g
72
73 if sscanf('123','%e')<>123 then pause,end
74 if sscanf('     123','%e')<>123 then pause,end
75 if sscanf('123','%2e')<>12 then pause,end
76 if sscanf('123','%0e')<>123 then pause,end
77 if sscanf('123','%5e')<>123 then pause,end
78
79 //test format %s
80 if sscanf('123','%s')<>'123' then pause,end
81 if sscanf('     123','%s')<>'123' then pause,end
82 if sscanf('123','%2s')<>'12' then pause,end
83 if sscanf('123','%0s')<>'123' then pause,end
84 if sscanf('123','%5s')<>'123' then pause,end
85
86 //test format %o
87 if sscanf('123','%o')<>83 then pause,end
88 if sscanf('     123','%o')<>83 then pause,end
89 if sscanf('123','%2o')<>10 then pause,end
90 if sscanf('123','%0o')<>83 then pause,end
91 if sscanf('123','%5o')<>83 then pause,end
92
93 //test format %x
94 if sscanf('123','%x')<>291 then pause,end
95 if sscanf('     123','%x')<>291 then pause,end
96 if sscanf('123','%2x')<>18 then pause,end
97 if sscanf('123','%0x')<>291 then pause,end
98 if sscanf('123','%5x')<>291 then pause,end
99
100 //test format %c
101 if sscanf('123','%c')<>'1' then pause,end
102 if sscanf('     123','%c')<>' ' then pause,end
103 if sscanf('123','%0c')<>'1' then pause,end
104
105 //test des format complexes 
106 if sscanf('123 4','%*s%s')<>'4' then pause,end
107 if sscanf('123 4','123%e')<>4 then pause,end
108 [a,b,c]=sscanf('xxxxx 4 test 23.45','xxxxx%i%s%e')
109 if a<>4|b<>'test'|c<>23.45 then pause,end
110
111 [a,b]=sscanf('123\n456','%e%e')
112 if a<>123|b<>456 then pause,end