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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 87426 - (show annotations)
Sat Oct 8 10:44:48 2011 UTC (8 years ago) by alexk
File size: 829 byte(s)
Prepared tests for new syntax defaults.
1 note
2 description : "System's root class"
3
4 class
5 TEST
6
7 create
8 make
9
10 feature -- Initialization
11
12 make
13 -- Creation procedure.
14 local
15 c1, c2, c3, c4: CHARACTER_8
16 c32: CHARACTER_32
17 do
18 io.put_string ("CHARACTER_8 tests%N")
19 c1 := '%/0x65/'
20 io.put_character (c1)
21 io.put_new_line
22 c2 := '%/101/'
23 io.put_character (c2)
24 io.put_new_line
25 c3 := '%/0b01100101/'
26 io.put_character (c3)
27 io.put_new_line
28 c4 := '%/0c145/'
29 io.put_character (c4)
30 io.put_new_line
31 io.put_boolean (c1 = c2 and c2 = c3 and c3 = c4)
32 io.put_new_line
33 io.put_string ("CHARACTER_32 tests%N")
34 c32 := '%/0x12345678/'
35 io.put_string (c32.out)
36 io.put_new_line
37 c32 := '%/0b100000000/'
38 io.put_string (c32.out)
39 io.put_new_line
40 c32 := '%/0c777/'
41 io.put_string (c32.out)
42 io.put_new_line
43 end
44
45 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23