scilab/modules/fileio/tests/unit_tests/sscanf.dia.ref

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