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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 102060 - (show annotations)
Fri Aug 24 09:50:10 2018 UTC (12 months, 3 weeks ago) by alexk
File size: 1414 byte(s)
Added a test for bug#19449. In addition to test#final120 and test#runtime001, it includes cases for inequality, tilda equality, uses of equality tests in assignments where code generation is different.
1 class TEST
2
3 inherit
4 MEMORY
5
6 create
7 make
8
9 feature {NONE} -- Creation
10
11 make
12 local
13 b: BOOLEAN
14 do
15 value := "abc"
16 if f = f then
17 print ("Test #1: OK%N")
18 else
19 print ("Test #1: Failed%N")
20 end
21 if f /= f then
22 print ("Test #2: Failed%N")
23 else
24 print ("Test #2: OK%N")
25 end
26 if f ~ f then
27 print ("Test #3: OK%N")
28 else
29 print ("Test #3: Failed%N")
30 end
31 if f /~ f then
32 print ("Test #4: Failed%N")
33 else
34 print ("Test #4: OK%N")
35 end
36 print
37 (if f = f then
38 "Test #5: OK%N"
39 else
40 "Test #5: Failed%N"
41 end)
42 print
43 (if f /= f then
44 "Test #6: Failed%N"
45 else
46 "Test #6: OK%N"
47 end)
48 print
49 (if f ~ f then
50 "Test #7: OK%N"
51 else
52 "Test #7: Failed%N"
53 end)
54 print
55 (if f /~ f then
56 "Test #8: Failed%N"
57 else
58 "Test #8: OK%N"
59 end)
60 b := f = f
61 if b then
62 print ("Test #9: OK%N")
63 else
64 print ("Test #9: Failed%N")
65 end
66 b := f /= f
67 if b then
68 print ("Test #10: Failed%N")
69 else
70 print ("Test #10: OK%N")
71 end
72 b := f ~ f
73 if b then
74 print ("Test #11: OK%N")
75 else
76 print ("Test #11: Failed%N")
77 end
78 b := f /~ f
79 if b then
80 print ("Test #12: Failed%N")
81 else
82 print ("Test #12: OK%N")
83 end
84 end
85
86 feature -- Testing
87
88 f: STRING
89 do
90 create Result.make (100000)
91 Result := value
92 full_collect
93 end
94
95 value: STRING
96
97 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23