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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91297 - (show annotations)
Tue Feb 26 21:19:13 2013 UTC (6 years, 10 months ago) by manus
File size: 773 byte(s)
Added an output to ensure we check the case where nothing is being retrieved.

1 note
2 description: "System's root class"
3
4 class
5 TEST
6
7 inherit
8 SERIALIZATION_HELPER
9
10 create
11 make, default_create
12
13 feature -- Initialization
14
15 make
16 -- Creation procedure.
17 local
18 l_obj: ANY
19 l_objects: like retrieved_objects
20 do
21 set_is_pointer_value_stored (True)
22 l_obj := (create {STORABLE_TEST}.make)
23 store_object (l_obj, "stored")
24 l_objects := retrieved_objects ("stored")
25 if l_objects.count /= storable_types.count then
26 io.put_string ("Error occurred. List of successful retrieval:%N")
27 across l_objects as l_item loop
28 io.put_string ("Retrieved " + l_item.key + "%N")
29 end
30 elseif not across l_objects as l_item all deep_equal (l_item.item, l_obj) end then
31 io.put_string ("Some objects are not equal!%N")
32 end
33 end
34
35 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23