* Bug #13111 fixed - Elementary_functions: fix 0 and -0 for sqrt.
[scilab.git] / scilab / modules / elementary_functions / tests / nonreg_tests / bug_13111.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- Non-regression test for bug 13111 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=13111
14 //
15 // <-- Short Description -->
16 // sqrt returned different results when imaginary part was -0 versus 0.
17
18 assert_checkequal(sqrt(-4-0*%i), 2*%i);
19 assert_checkequal(sqrt(-4-0*%i), sqrt(-4+0*%i));
20
21 assert_checkequal(sqrt(-%inf-0*%i), complex(0, %inf));
22 assert_checkequal(sqrt(-%inf-0*%i), sqrt(-%inf+0*%i));