/[eiffelstudio]/branches/eth/eve/eweasel/tests/exec335/test.e
ViewVC logotype

Contents of /branches/eth/eve/eweasel/tests/exec335/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 85216 - (show annotations)
Fri Dec 24 12:50:07 2010 UTC (9 years, 1 month ago) by jasonw
File size: 635 byte(s)
<<Merged from trunk#85213.>>
1 class TEST
2
3 create
4 make
5
6 feature
7
8 make
9 local
10 ti64: TEST1 [INTEGER_64]
11 tr64: TEST1 [REAL_64]
12 r64: REAL_64
13 i64: INTEGER_64
14 do
15 create ti64
16 create tr64
17
18 r64 := 5.0
19 i64 := 5
20
21 ti64.test_standard_twin (i64)
22 tr64.test_standard_twin (r64)
23
24 if ti64.value /= i64 then
25 io.put_string ("Not OK!%N")
26 end
27
28 if tr64.value /= r64 then
29 io.put_string ("Not OK!%N")
30 end
31
32 r64 := 8.0
33 i64 := 8
34
35 ti64.test_twin (i64)
36 tr64.test_twin (r64)
37
38 if ti64.value /= i64 then
39 io.put_string ("Not OK!%N")
40 end
41
42 if tr64.value /= r64 then
43 io.put_string ("Not OK!%N")
44 end
45 end
46
47 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23