bc47e3879b1906b0e09fc0e524fdc1bdcc337b86
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_1540.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2005-2008 - INRIA - Allan CORNET
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 1540 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=1540
14 //
15 x = %inf ;
16 printf ("x = %d\nx = %f\nx = %e\nx = %g\n" ,x,x,x,x) ;
17
18 x = %nan ;
19 printf ("x = %d\nx = %f\nx = %e\nx = %g\n" ,x,x,x,x) ;   
20
21 x = %nan ;
22 y = %inf ;
23 printf ("x = %d\ny = %f\nx = %e\ny = %g\n" ,x,x,x,x) ;   
24
25 x = %inf ;
26 printf ("x = %d\nx = %f\nx = %e\nx = %g\n" ,x,x,x,x) ;
27
28 x = %nan ;
29 printf ("x = %d\nx = %f\nx = %e\nx = %g\n" ,x,x,x,x) ;   
30
31 x = %nan ;
32 r = sprintf ("x = %d",x) ;   
33 if r <> 'x = Nan' then pause,end
34
35 y = %inf ;
36 r = sprintf ("y = %d",y) ;   
37 if r <> 'y = Inf' then pause,end
38
39 x = %nan ;
40 r = msprintf ("x = %d",x) ;   
41 if r <> 'x = Nan' then pause,end
42
43 y = %inf ;
44 r = msprintf ("y = %d",y) ;   
45 if r <> 'y = Inf' then pause,end