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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 79129 - (show annotations)
Mon Jun 8 03:51:30 2009 UTC (10 years, 3 months ago) by manus
File size: 413 byte(s)
Made tests work regardless of the version of EiffelBase being used, i.e. the one in $EIFFEL_SRC/library
  and the truly void-safe one in $EIFFEL_SRC/experimental/library.

1
2 class TEST
3 create
4 make
5 feature
6
7 make is
8 local
9 test2: TEST2 [TEST1 [DOUBLE]]
10 s: SPECIAL [TEST1 [TEST1 [DOUBLE]]]
11 t: HASH_TABLE [TEST1 [TEST1 [DOUBLE]], STRING]
12 x: TEST1 [TEST1 [DOUBLE]]
13 do
14 create test2.make
15
16 create s.make_filled (x, 5)
17
18 check s.filled_with (x, 0, 4) end
19 create t.make (5)
20 t.put (x, "Weasel")
21 print (t.item ("Weasel").generating_type)
22 io.new_line
23 end
24
25 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23