Mercurial > hg > octave-nkf

comparison test/test_prefer.m @ 5781:faafc2d98b8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-02 19:40:19 by jwe]
author jwe
date Tue, 02 May 2006 19:40:21 +0000
parents ace8d8d26933
children 1138ced03f14
comparison
equal deleted inserted replaced
5780:cbf717bf8150 5781:faafc2d98b8d
52 %! a = 1; 52 %! a = 1;
53 %! assert(all ([a -1] == (1:-2:-1))); 53 %! assert(all ([a -1] == (1:-2:-1)));
54 54
55 %% test/octave.test/prefer/prefer-12.m 55 %% test/octave.test/prefer/prefer-12.m
56 %!test 56 %!test
57 %! wsn = warn_str_to_num; 57 %! wsn = warning ("query", "Octave:str-to-num");
58 %! warn_str_to_num = 0; 58 %! warning ("off", "Octave:str-to-num");
59 %! assert("d" + 0,100); 59 %! assert("d" + 0,100);
60 %! warn_str_to_num = wsn; 60 %! warning (wsn.state, "Octave:str-to-num");
61 61
62 %% test/octave.test/prefer/prefer-13.m 62 %% test/octave.test/prefer/prefer-13.m
63 %!test 63 %!test
64 %! wsn = warn_str_to_num; 64 %! wsn = warning ("query", "Octave:str-to-num");
65 %! warn_str_to_num = 1; 65 %! warning ("on", "Octave:str-to-num");
66 %! fail("'d' + 0","warning"); 66 %! fail("'d' + 0","warning");
67 %! warn_str_to_num = wsn; 67 %! warning (wsn.state, "Octave:str-to-num");
68 68
69 %% test/octave.test/prefer/prefer-14.m 69 %% test/octave.test/prefer/prefer-14.m
70 %!test 70 %!test
71 %! wir = warn_imag_to_real; 71 %! wir = warning ("query", "Ocave:imag-to-real");
72 %! warn_imag_to_real = 0; 72 %! warning ("off", "Ocave:imag-to-real");
73 %! assert(eye (1+i),1); 73 %! assert(eye (1+i),1);
74 %! warn_imag_to_real = wir; 74 %! warning (wir.state, "Ocave:imag-to-real");
75 75
76 %% test/octave.test/prefer/prefer-15.m 76 %% test/octave.test/prefer/prefer-15.m
77 %!test 77 %!test
78 %! wir = warn_imag_to_real; 78 %! wir = warning ("query", "Ocave:imag-to-real");
79 %! warn_imag_to_real = 1; 79 %! warning ("on", "Ocave:imag-to-real");
80 %! fail("eye (1+i)","warning"); 80 %! fail("eye (1+i)","warning");
81 %! warn_imag_to_real = wir; 81 %! warning (wir.state, "Ocave:imag-to-real");
82 82
83 %% test/octave.test/prefer/prefer-17.m 83 %% test/octave.test/prefer/prefer-17.m
84 %!test 84 %!test
85 %! wrre = warn_resize_on_range_error; 85 %! wrre = warning ("query", "Octave:resize-on-range-error");
86 %! warn_resize_on_range_error = 0; 86 %! warning ("off", "Octave:resize-on-range-error");
87 %! clear a; 87 %! clear a;
88 %! a(2) = 1; a(3) = 2; 88 %! a(2) = 1; a(3) = 2;
89 %! assert(all (a == [0,1,2])); 89 %! assert(all (a == [0,1,2]));
90 %! warn_resize_on_range_error = wrre; 90 %! warning (wrre.state, "Octave:resize-on-range-error");
91 91
92 %% test/octave.test/prefer/prefer-18.m 92 %% test/octave.test/prefer/prefer-18.m
93 %!test 93 %!test
94 %! clear a; 94 %! clear a;
95 %! a(1) = 1; a(2) = 2; 95 %! a(1) = 1; a(2) = 2;
189 %! assert(??); 189 %! assert(??);
190 %! silent_functions = sf; 190 %! silent_functions = sf;
191 191
192 %% test/octave.test/prefer/prefer-32.m 192 %% test/octave.test/prefer/prefer-32.m
193 %!test 193 %!test
194 %! wndz = warn_neg_dim_as_zero; 194 %! wndz = warning ("query", "Octave:neg-dim-as-zero");
195 %! warn_neg_dim_as_zero = 1; 195 %! warning ("on", "Octave:neg-dim-as-zero");
196 %! fail("eye (-1) == []","warning"); 196 %! fail("eye (-1) == []","warning");
197 %! warn_neg_dim_as_zero = wndz; 197 %! warning (wndz.state, "Octave:neg-dim-as-zero");
198 198
199 %% test/octave.test/prefer/prefer-33.m 199 %% test/octave.test/prefer/prefer-33.m
200 %!test 200 %!test
201 %! wndz = warn_neg_dim_as_zero; 201 %! wndz = warning ("query", "Octave:neg-dim-as-zero");
202 %! warn_neg_dim_as_zero = 0; 202 %! warning ("off", "Octave:neg-dim-as-zero");
203 %! assert(all (size (eye (-1)) == [0, 0])); 203 %! assert(all (size (eye (-1)) == [0, 0]));
204 %! warn_neg_dim_as_zero = wndz; 204 %! warning (wndz.state, "Octave:neg-dim-as-zero");
205 205
206 %% test/octave.test/prefer/prefer-34.m 206 %% test/octave.test/prefer/prefer-34.m
207 %!test 207 %!test
208 %! watv = warn_assign_as_truth_value; 208 %! watv = warning ("query", "Octave:assign-as-truth-value");
209 %! warn_assign_as_truth_value = 0; 209 %! warning ("off", "Octave:assign-as-truth-value");
210 %! if (x = 1) 1; endif 210 %! if (x = 1) 1; endif
211 %! warn_assign_as_truth_value = watv; 211 %! warning (watv.state, "Octave:assign-as-truth-value");
212 212
213 %% test/octave.test/prefer/prefer-35.m 213 %% test/octave.test/prefer/prefer-35.m
214 %!test 214 %!test
215 %! watv = warn_assign_as_truth_value; 215 %! watv = warning ("query", "Octave:assign-as-truth-value");
216 %! warn_assign_as_truth_value = 1; 216 %! warning ("on", "Octave:assign-as-truth-value");
217 %! fail("if (x = 1) 1; endif","warning"); 217 %! fail("if (x = 1) 1; endif","warning");
218 %! warn_assign_as_truth_value = watv; 218 %! warning (watv.state, "Octave:assign-as-truth-value");
219 219
220 %% test/octave.test/prefer/prefer-38.m 220 %% test/octave.test/prefer/prefer-38.m
221 %!test 221 %!test
222 %! wdbz = warn_divide_by_zero; 222 %! wdbz = warning ("query", "Octave:divide-by-zero");
223 %! warn_divide_by_zero = 0; 223 %! warning ("off", "Octave:divide-by-zero");
224 %! assert(isinf (1/0)); 224 %! assert(isinf (1/0));
225 %! warn_divide_by_zero = wdbz; 225 %! warning (wdbz.state, "Octave:divide-by-zero");
226 226
227 %% test/octave.test/prefer/prefer-39.m 227 %% test/octave.test/prefer/prefer-39.m
228 %!test 228 %!test
229 %! wdbz = warn_divide_by_zero; 229 %! wdbz = warning ("query", "Octave:divide-by-zero");
230 %! warn_divide_by_zero = 1; 230 %! warning ("on", "Octave:divide-by-zero");
231 %! a = 1; 231 %! a = 1;
232 %! b = 0; 232 %! b = 0;
233 %! fail("isinf (a/b);","warning") 233 %! fail("isinf (a/b);","warning")
234 %! warn_divide_by_zero = wdbz; 234 %! warning (wdbz.state, "Octave:divide-by-zero");
235 235