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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 583 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 class TEST
8 inherit
9 SHARED
10 creation
11 make
12 feature
13 make is
14 do
15 !!t.make;
16 set_ok;
17 io.putstring ("In make%N");
18 try;
19 end
20
21 t: TEST2;
22
23 try is
24 local
25 x: expanded TEST1
26
27 do
28 io.putstring ("In try%N");
29 io.putdouble (x.d); io.new_line;
30 rescue
31 io.putstring ("In try rescue clause%N");
32 x.do_nothing
33 unset_ok;
34 x := t.x;
35 retry;
36 end
37
38 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23