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

Contents of /trunk/eweasel/tests/melt065/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 585 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
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 create
9 make
10 feature
11 make (args: ARRAY [STRING]) is
12 local
13 f: PLAIN_TEXT_FILE
14 arg: INTEGER
15 do
16 arg := args.item (1).to_integer
17 print ("Weasels%N")
18 if arg = 1 then
19 create f.make (profinfo_name)
20 if not f.exists then
21 print ("File " + profinfo_name + " not found%N")
22 end
23 end
24 end
25
26 profinfo_name: STRING is "$PROFINFO_NAME"
27
28 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23