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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 69867 - (show annotations)
Fri Aug 3 22:26:25 2007 UTC (12 years, 5 months ago) by manus
File size: 716 byte(s)
New test showing that a 6.0 release cannot retrieve a 5.7 TUPLE object.

1 class
2 TEST
3
4 create
5 make
6
7 feature -- Initialization
8
9 make is
10 -- Creation procedure.
11 local
12 a: ANY
13 do
14 object := ["sam", ["sim", "som"], "sum", -1]
15 -- Uncomment the line below to recreate a 5.7 storable.
16 -- store
17 retrieve
18 end
19
20 feature {NONE} -- Implementation
21
22 store is
23 local
24 l_file: RAW_FILE
25 do
26 create l_file.make_open_write ("data")
27 l_file.independent_store (Current)
28 l_file.close
29 end
30
31 retrieve is
32 local
33 a: like Current
34 l_file: RAW_FILE
35 do
36 create l_file.make_open_read ("data")
37 a ?= l_file.retrieved
38 l_file.close
39 if not is_deep_equal (a) then
40 print ("Error%N")
41 end
42 end
43
44 object: TUPLE [STRING, TUPLE [STRING, STRING], STRING, INTEGER]
45
46 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23