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 // <-- JVM NOT MANDATORY -->
   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