/[eiffelstudio]/trunk/eweasel/tests/fixed036/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/fixed036/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 1 month ago) by manus
File size: 676 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 -- To reproduce error:
8 -- Compile class as is. Finish_freezing. Execute `test'.
9 -- Dies with a PANIC.
10
11 class
12 TEST
13 creation
14 make
15 feature
16
17 make is
18 local
19 k: INTEGER;
20 do
21 if k <= 10000 then
22 k := k + 1;
23 io.putstring ("Starting make%N");
24 io.putstring ("Attempt number "); io.putint (k);
25 io.new_line;
26 try;
27 end
28 rescue
29 retry;
30 end;
31
32 try is
33 require
34 0 < 0
35 do
36 io.putstring ("In try%N");
37 ensure
38 0 < 0
39 end;
40 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23