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>
6 // This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 // <-- Non-regression test for bug 623 -->
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=623
13 // <-- Short Description -->
14 // Even after applying the patch corresponding to bug report
15 // 608, integer cast to boolean is still not perfect.
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