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

Contents of /trunk/eweasel/tests/exec216/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: 633 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 class TEST
2
3 create
4 make
5
6 feature {NONE} -- Creation
7
8 make is
9 -- Run test.
10 local
11 x: TEST
12 do
13 io.put_string ("Evaluate.")
14 io.put_new_line
15 x := empty_once
16 if x /= Void then
17 io.put_string ("Failed.")
18 io.put_new_line
19 end
20 io.put_string ("Access.")
21 io.put_new_line
22 x := empty_once
23 if x /= Void then
24 io.put_string ("Failed.")
25 io.put_new_line
26 end
27 io.put_string ("Done.")
28 io.put_new_line
29 rescue
30 io.put_string ("Failed.")
31 io.put_new_line
32 end
33
34 feature {NONE} -- Implementation
35
36 empty_once: TEST is
37 -- Once function that does not assign to a result.
38 once
39 end
40
41 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23