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

Contents of /trunk/eweasel/tests/store003/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: 890 byte(s)
Added an output to ensure we check the case where nothing is being retrieved.

1
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 class TEST
8 inherit
9 SERIALIZATION_HELPER
10
11 create
12 make
13
14 feature -- Initialization
15
16 make
17 local
18 manu: MANU [STRING]
19 l_objects: like retrieved_objects
20 do
21 create manu.make ("Fdsfds", 123, 1)
22 store_object (manu, "stored")
23 l_objects := retrieved_objects ("stored")
24 if l_objects.count /= storable_types.count then
25 io.put_string ("Error occurred. List of successful retrieval:%N")
26 across l_objects as l_item loop
27 io.put_string ("Retrieved " + l_item.key + "%N")
28 end
29 elseif not across l_objects as l_item all deep_equal (l_item.item, manu) end then
30 io.put_string ("Some objects are not equal!%N")
31 end
32 end
33
34 a: ARRAY [expanded A]
35
36 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23