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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 77645 - (show annotations)
Sun Mar 8 07:19:55 2009 UTC (10 years, 7 months ago) by manus
File size: 1341 byte(s)
Added a new test showing that some object test don't work as their ?= counterpart does.

1 class
2 TEST
3
4 create
5 make
6
7 feature
8
9 make is
10 local
11 o: SYSTEM_OBJECT
12 r_64: REAL_64
13 r_32: REAL_32
14 i_64: INTEGER_64
15 i_32: INTEGER_32
16 i_16: INTEGER_16
17 i_8: INTEGER_8
18 n_64: NATURAL_64
19 n_32: NATURAL_32
20 n_16: NATURAL_16
21 n_8: NATURAL_8
22 b: BOOLEAN
23 p: POINTER
24 do
25 o := r_64
26 if not attached {REAL_64} o as v then
27 print ("Failure%N")
28 end
29 o := r_32
30 if not attached {REAL_32} o as v then
31 print ("Failure%N")
32 end
33 o := i_64
34 if not attached {INTEGER_64} o as v then
35 print ("Failure%N")
36 end
37 o := i_32
38 if not attached {INTEGER_32} o as v then
39 print ("Failure%N")
40 end
41 o := i_16
42 if not attached {INTEGER_16} o as v then
43 print ("Failure%N")
44 end
45 o := i_8
46 if not attached {INTEGER_8} o as v then
47 print ("Failure%N")
48 end
49 o := n_64
50 if not attached {NATURAL_64} o as v then
51 print ("Failure%N")
52 end
53 o := n_32
54 if not attached {NATURAL_32} o as v then
55 print ("Failure%N")
56 end
57 o := n_16
58 if not attached {NATURAL_16} o as v then
59 print ("Failure%N")
60 end
61 o := n_8
62 if not attached {NATURAL_8} o as v then
63 print ("Failure%N")
64 end
65 o := b
66 if not attached {BOOLEAN} o as v then
67 print ("Failure%N")
68 end
69 o := p
70 if not attached {POINTER} o as v then
71 print ("Failure%N")
72 end
73 end
74
75 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23