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

Contents of /trunk/eweasel/tests/melt022/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: 1093 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 ensure-extend-linked-list
10 test_description After initial melting of a root class whose creation procedure has an empty body, a local of type LINKED_LIST [STRING] is added and the routine body is modified to create the linked list and extend it with one string. The assertion level is `ensure'. When the system is recompiled and executed, system execution ends with a segmentation fault in `go_to' of LINKED_LIST.
11
12 copy_sub Ace $TEST Ace
13 define LOCALS ""
14 define BODY ""
15 copy_sub test.e $CLUSTER test.e
16 compile_melted
17 compile_result ok
18
19 define LOCALS "list: LINKED_LIST [STRING]"
20 define BODY "!!list.make; list.extend ("weasel"); io.putstring (list.i_th (1)); io.new_line;"
21 copy_sub test.e $CLUSTER test.e
22 compile_melted
23 compile_result ok
24
25 execute_work NONE exec_output1
26 execute_result ok
27 compare exec_output1 output
28
29 test_end

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.23