/[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 65296 - (show annotations)
Thu Nov 30 19:56:25 2006 UTC (13 years, 1 month 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
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