* Bug 10078 fixed: isinf(polynomials) was not reliable
[scilab.git] / scilab / modules / elementary_functions / tests / nonreg_tests / bug_10078.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2019 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10 //
11 // <-- Non-regression test for bug 10078 -->
12 //
13 // <-- Bugzilla URL -->
14 // http://bugzilla.scilab.org/10078
15 //
16 // <-- Short Description -->
17 // isinf() was not reliable for polynomials
18
19 p = poly([1 %inf],"s","coeff");
20 assert_checktrue(isinf(p));
21 p = poly([1 %inf %i],"s","coeff");
22 assert_checktrue(isinf(p));
23 p = poly([1 %nan %inf],"x","coeff");
24 assert_checktrue(isinf(p));
25 p = poly([1 %nan %inf %i],"x","coeff");
26 assert_checktrue(isinf(p));
27
28 assert_checkequal(isinf(poly(%inf,"x","coeff")), %t);
29 assert_checkequal(isinf([p p]), [%t %t]);
30 assert_checkequal(isinf([p ; p]), [%t ; %t]);
31 assert_checkequal(isinf(cat(3,p,p)), cat(3,%t,%t));