1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2010 - INRIA - Serge Steer
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- JVM NOT MANDATORY -->
// <-- Non-regression test for bug 7236 -->
//
// <-- Bugzilla URL -->
// http://bugzilla.scilab.org/show_bug.cgi?id=7236
//
// <-- Short Description -->
// sci2exp(-%inf) return a wrong value -nf and not -%inf,
// a consequence of bug 1371 fix
if sci2exp(%inf)<>"%inf" then bugmes();quit;end
if sci2exp(-%inf)<>"-%inf" then bugmes();quit;end
if sci2exp(%nan)<>"%nan" then bugmes();quit;end
if string(%inf)<>"Inf" then bugmes();quit;end
if string(-%inf)<>"-Inf" then bugmes();quit;end
if string(1-imult(%inf))<>" 1-%i*Inf" then bugmes();quit;end
if string(1+imult(%inf))<>" 1+%i*Inf" then bugmes();quit;end
if sci2exp(1-imult(%inf))<>" 1-%i*%inf" then bugmes();quit;end
if sci2exp(1+imult(%inf))<>" 1+%i*%inf" then bugmes();quit;end
|
