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

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