/[eiffelstudio]/trunk/eweasel/tests/melt025/tcf
ViewVC logotype

Contents of /trunk/eweasel/tests/melt025/tcf

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: 866 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 -- This is a test control file
8
9 test_name bit-two-to-the-twenty-four
10 test_description A class has a procedure with a local entity of type BIT N, where N is >= 2 ^ 24. The system compiles fine, but when executed it dies with a run-time panic if it was melted. Frozen code works fine for BIT sizes up to at least 200_000_000.
11
12 copy_sub Ace $TEST Ace
13 define BIT_LENGTH 20_000_000
14 copy_sub test.e $CLUSTER test.e
15 compile_melted
16 compile_result validity_error TEST VTBT
17
18 define BIT_LENGTH 32767
19 copy_sub test.e $CLUSTER test.e
20 resume_compile
21
22 compile_result ok
23
24 execute_work NONE exec_output1
25 execute_result ok
26 compare exec_output1 output
27
28 test_end

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.23