5590
|
1 %% Automatically generated from DejaGNU files |
|
2 |
|
3 %% test/octave.test/eval-catch/eval-catch-1.m |
|
4 %!test |
|
5 %! eval ("clear a; a;", ""); |
|
6 |
|
7 %% test/octave.test/eval-catch/eval-catch-2.m |
|
8 %!test |
|
9 %! eval ("", "error('Shouldn't get here');"); |
|
10 |
|
11 %% test/octave.test/eval-catch/eval-catch-3.m |
|
12 %!test |
|
13 %! eval ("clear a; a; x = 0;", "x = 1;"); |
|
14 %! assert (x, 1); |
|
15 |
5775
|
16 %% FIXME This is redundant with the changes to the above |
5590
|
17 %% test/octave.test/eval-catch/eval-catch-4.m |
|
18 |
|
19 %% test/octave.test/eval-catch/eval-catch-5.m |
|
20 %!test |
|
21 %! eval ("clear a; a; str = '';", "str=lasterr;"); |
|
22 %! assert(lasterr()(1:20),"error: `a' undefined"); |
|
23 %! assert(str(1:20),"error: `a' undefined"); |
|
24 |
|
25 %% test/octave.test/eval-catch/eval-catch-6.m |
|
26 %!test |
|
27 %! eval ("error (\"user-defined error\"); str = '';", "str = lasterr;"); |
|
28 %! assert(lasterr()(1:25),"error: user-defined error"); |
|
29 %! assert(str(1:25),"error: user-defined error"); |
|
30 |
|
31 %% test/octave.test/eval-catch/eval-catch-7.m |
|
32 %!function ms = mangle (s) |
|
33 %! ## Wrap angle brackets around S. |
|
34 %! ms = strcat ("<", s, ">"); |
|
35 %!test |
|
36 %! eval ("clear a; a; str='';", "str = mangle (lasterr);"); |
|
37 %! assert(mangle(lasterr)(1:21),"<error: `a' undefined"); |
|
38 %! assert(str(1:21),"<error: `a' undefined"); |
|
39 |
|
40 %% test/octave.test/eval-catch/eval-catch-8.m |
|
41 %!test |
|
42 %! eval ("eval (\"clear a; a;str1='';\", \"str1=lasterr;\"); clear b; b; str2='';", |
|
43 %! "str2 = lasterr;"); |
|
44 %! assert(str1(1:20),"error: `a' undefined"); |
|
45 %! assert(str2(1:20),"error: `b' undefined"); |
|
46 |
|
47 %% test/octave.test/eval-catch/eval-catch-9.m |
|
48 %!test |
|
49 %! eval ("clear a; a; str1='';", |
|
50 %! "eval (\"clear b; b; str2='';\", \"str2=lasterr;\"); str1=lasterr;"); |
|
51 %! assert(str1(1:20),"error: `b' undefined"); |
|
52 %! assert(str2(1:20),"error: `b' undefined"); |
|
53 |
|
54 %% test/octave.test/eval-catch/eval-catch-10.m |
|
55 %!test |
|
56 %! eval ("eval (\"clear a; a; str='';\",\"error (strcat (\\\"rethrow: \\\", lasterr));str='';\");", |
|
57 %! "str=lasterr;"); |
|
58 %! assert(str(1:36),"error: rethrow: error: `a' undefined"); |