scilab/modules/integer/tests/nonreg_tests/bug_623.dia.ref

   1 //<-- CLI SHELL MODE -->
   2 // =============================================================================
   3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   4 // Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
   5 //
   6 //  This file is distributed under the same license as the Scilab package.
   7 // =============================================================================
   8 // <-- Non-regression test for bug 623 -->
   9 //
  10 // <-- Bugzilla URL -->
  11 // http://bugzilla.scilab.org/show_bug.cgi?id=623
  12 //
  13 // <-- Short Description -->
  14 //    Even after applying the patch corresponding to bug report
  15 //    608, integer cast to boolean is still not perfect.
  16 uno =  int8(1);
  17 1   == [uno uno];
  18 if or(1<>[uno uno])     then bugmes();quit;end
  19 if or([1 1]<>[uno uno]) then bugmes();quit;end
  20 if or([uno uno]<>1)     then bugmes();quit;end
  21 if or([uno uno]<>[1 1]) then bugmes();quit;end
  22 if execstr("uint8(1) & %t" ,"errcatch")  <> 999 then bugmes();quit;end
  23 if execstr("%t&uint8(1)"   ,"errcatch")  <> 999 then bugmes();quit;end
  24 if execstr("int32(1) & %t" ,"errcatch")  <> 999 then bugmes();quit;end
  25 if execstr("%t&int32(1)"   ,"errcatch")  <> 999 then bugmes();quit;end
  26 if execstr("uint32(1) & %t","errcatch")  <> 999 then bugmes();quit;end
  27 if execstr("%t&uint32(1)"  ,"errcatch")  <> 999 then bugmes();quit;end
  28 if execstr("int16(1) & %t" ,"errcatch")  <> 999 then bugmes();quit;end
  29 if execstr("%t&int16(1)"   ,"errcatch")  <> 999 then bugmes();quit;end
  30 if execstr("int8(1) & %f " ,"errcatch")  <> 999 then bugmes();quit;end
  31 if execstr("%t&int8(1)"    ,"errcatch")  <> 999 then bugmes();quit;end