/[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 65296 - (hide annotations)
Thu Nov 30 19:56:25 2006 UTC (13 years, 2 months ago) by manus
Original Path: trunk/Src/eweasel/tests/store003/test.e
File size: 631 byte(s)
Initial revision for the eweasel delivery provided by David Hollenberg
  from the University of Southern California under the GPL v2.0 license.

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    
9     create
10     make
11    
12     feature -- Initialization
13    
14     make is
15     local
16     file : RAW_FILE
17     manu: MANU [STRING]
18     a: ARRAY [expanded A]
19     do
20     create manu.make ("Fdsfds", 123, 1)
21     create file.make_open_write ("stored")
22     file.independent_store (manu)
23     file.close
24    
25     create file.make_open_read ("stored")
26     manu := Void
27     manu ?= file.retrieved
28     file.close
29     print (manu = Void); io.new_line
30     end
31    
32     end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23