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

Contents of /trunk/eweasel/tests/melt035/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: 627 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 creation
9 make
10 feature
11 make is
12 do
13 Current.try;
14 end
15
16 try is
17 require
18 show ("Precondition", True);
19 local
20 m: expanded TEST1;
21 do
22 io.putint (m.value); io.new_line;
23 ensure
24 show ("Postcondition", old show ("Old expression", True));
25 end
26
27 show (s: STRING; b: BOOLEAN): BOOLEAN is
28 do
29 io.putstring (s); io.new_line;
30 Result := b;
31 end
32 invariant
33 show ("Invariant", True);
34
35 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23