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

Annotation of /trunk/eweasel/tests/store005/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: 846 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 91241
9 manus 91236 inherit
10     SERIALIZATION_HELPER
11 manus 65296
12     create
13     make
14    
15     feature
16    
17 manus 91236 make
18 manus 65296 local
19 manus 91236 l_objects: like retrieved_objects
20 manus 65296 do
21     tuple_int := [32]
22 manus 91236 store_object (tuple_int, "stored")
23     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 91236 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, tuple_int) end then
30     io.put_string ("Some objects are not equal!%N")
31     end
32 manus 65296 end
33    
34     tuple_int: TUPLE [INTEGER]
35    
36     end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23