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

Annotation of /trunk/eweasel/tests/store003/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91297 - (hide 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 manus 65296
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 manus 91233 inherit
9     SERIALIZATION_HELPER
10 manus 65296
11     create
12     make
13    
14     feature -- Initialization
15    
16 manus 91233 make
17 manus 65296 local
18     manu: MANU [STRING]
19 manus 91235 l_objects: like retrieved_objects
20 manus 65296 do
21     create manu.make ("Fdsfds", 123, 1)
22 manus 91233 store_object (manu, "stored")
23 manus 91235 l_objects := retrieved_objects ("stored")
24     if l_objects.count /= storable_types.count then
25 manus 91297 io.put_string ("Error occurred. List of successful retrieval:%N")
26 manus 91235 across l_objects as l_item loop
27     io.put_string ("Retrieved " + l_item.key + "%N")
28 manus 91233 end
29 manus 91237 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 manus 91233 end
32 manus 65296 end
33    
34 manus 82996 a: ARRAY [expanded A]
35    
36 manus 65296 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23