f097b0ed2efba4dbadd3be9e24c302c51b78409a
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_8874.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - INRIA - Serge Steer
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 8874 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=8874
12 //
13 // <-- ENGLISH IMPOSED -->
14 // <-- Short Description -->
15 // Wrong display of complex numbers with Inf or Nan real or Imaginary
16 // parts
17 setlanguage("en_US")
18  ans  =
19  
20   T  
21 A=[complex(-1,%inf),complex(1,%nan),complex(%inf,%nan),complex(%nan,%nan);
22    1                2               3                  4];
23 As=sparse(A);
24 P=poly(A(1,:),'s','c');
25 format("v")
26 // Check string
27 assert_checkequal(string(complex(0,%inf)),"%i*Inf");
28 assert_checkequal(string(complex(1,%inf))," 1+%i*Inf");
29 assert_checkequal(string(complex(-1,%inf)),"-1+%i*Inf");
30 assert_checkequal(string(complex(1,%nan))," 1+%i*Nan");
31 assert_checkequal(string(complex(%inf,%nan))," Inf+%i*Nan");
32 assert_checkequal(string(complex(-%inf,%nan)),"-Inf+%i*Nan");
33 assert_checkequal(string(complex(%nan,%nan))," Nan+%i*Nan");
34 assert_checkequal(string(A),["-1+%i*Inf"," 1+%i*Nan"," Inf+%i*Nan"," Nan+%i*Nan";" 1"," 2"," 3"," 4"]);
35 //Check display
36 complex(0,%inf)
37  ans  =
38  
39     Infi  
40 complex(1,%inf)
41  ans  =
42  
43     1. + Infi  
44 complex(-1,%inf)
45  ans  =
46  
47   - 1. + Infi  
48 complex(1,%nan)
49  ans  =
50  
51     1. + Nani  
52 complex(%inf,%nan)
53  ans  =
54  
55     Inf + Nani  
56 complex(-%inf,%nan)
57  ans  =
58  
59   - Inf + Nani  
60 complex(%nan,%nan)
61  ans  =
62  
63     Nan + Nani  
64 A
65  A  =
66  
67   - 1. + Infi    1. + Nani    Inf + Nani    Nan + Nani  
68     1.           2.           3.            4.          
69 As
70  As  =
71  
72 (    2,    4) sparse matrix
73  
74 (    1,    1)     - 1. + Infi 
75 (    1,    2)       1. + Nani 
76 (    1,    3)       Inf + Nani 
77 (    1,    4)       Nan + Nani 
78 (    2,    1)       1. 
79 (    2,    2)       2. 
80 (    2,    3)       3. 
81 (    2,    4)       4. 
82 P
83  P  =
84  
85 Real part
86
87  
88                 2       
89   - 1 + s + Infs + Nans 
90 Imaginary part
91
92  
93                      2      3  
94     Inf + Nans + Nans + Nans   
95 format("e")
96 // Check string
97 assert_checkequal(string(complex(0,%inf)),"%i*Inf");
98 assert_checkequal(string(complex(1,%inf))," 1.000D+00+%i*Inf");
99 assert_checkequal(string(complex(-1,%inf)),"-1.000D+00+%i*Inf");
100 assert_checkequal(string(complex(1,%nan))," 1.000D+00+%i*Nan");
101 assert_checkequal(string(complex(%inf,%nan))," Inf+%i*Nan");
102 assert_checkequal(string(complex(-%inf,%nan)),"-Inf+%i*Nan");
103 assert_checkequal(string(complex(%nan,%nan))," Nan+%i*Nan");
104 assert_checkequal(string(A),["-1.000D+00+%i*Inf"," 1.000D+00+%i*Nan"," Inf+%i*Nan"," Nan+%i*Nan";
105                     " 1.000D+00"," 2.000D+00"," 3.000D+00"," 4.000D+00"]);
106 //Check display
107 complex(0,%inf)
108  ans  =
109  
110     Infi  
111 complex(1,%inf)
112  ans  =
113  
114     1.000D+00 + Infi  
115 complex(-1,%inf)
116  ans  =
117  
118   - 1.000D+00 + Infi  
119 complex(1,%nan)
120  ans  =
121  
122     1.000D+00 + Nani  
123 complex(%inf,%nan)
124  ans  =
125  
126     Inf + Nani  
127 complex(-%inf,%nan)
128  ans  =
129  
130   - Inf + Nani  
131 complex(%nan,%nan)
132  ans  =
133  
134     Nan + Nani  
135 A
136  A  =
137  
138   - 1.000D+00 + Infi    1.000D+00 + Nani    Inf + Nani    Nan + Nani  
139     1.000D+00           2.000D+00           3.000D+00     4.000D+00   
140 As
141  As  =
142  
143 (    2,    4) sparse matrix
144  
145 (    1,    1)     - 1.000D+00 + Infi 
146 (    1,    2)       1.000D+00 + Nani 
147 (    1,    3)       Inf + Nani 
148 (    1,    4)       Nan + Nani 
149 (    2,    1)       1.000D+00 
150 (    2,    2)       2.000D+00 
151 (    2,    3)       3.000D+00 
152 (    2,    4)       4.000D+00 
153 P
154  P  =
155  
156 Real part
157
158  
159                                  2      3  
160   - 1.000D+00 + 1.000D+00s + Infs + Nans   
161 Imaginary part
162
163  
164                      2      3  
165     Inf + Nans + Nans + Nans