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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 2 months ago) by manus
File size: 705 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 b: BOOLEAN
12 c: CHARACTER
13 i: INTEGER
14 do
15 from
16 c := '%/0/'
17 until
18 c >= '%/127/'
19 loop
20 i := 0
21 inspect c
22 when '%/0/' .. '%/50/' then
23 i := 1
24 when
25 '%/54/', '%/56/', '%/58/', '%/60/', '%/62/'
26 then
27 i := 2
28 else
29 i := 3
30 end
31 if c <= '%/50/' then
32 b := i = 1
33 elseif '%/54/' <= c and c <= '%/62/' and c.code \\ 2 = 0 then
34 b := i = 2
35 else
36 b := i = 3
37 end
38 if not b then
39 io.put_string ("Failed at c=%"%%/")
40 io.put_integer (c.code)
41 io.put_string ("/%"")
42 io.put_new_line
43 end
44 c := c + 1
45 end
46 end
47
48 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23