tests/melt062/test.e


--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

class TEST
inherit
        EXCEPTIONS
creation
        make
feature
        make is
                local
                        tried: BOOLEAN
                        s: SEQ_STRING
                do
                        if not tried then
                                !!x;
                                x.test_me;
                        end
                rescue
                        create s.make (0)
                        s.append (exception_trace)
                        s.start
                        s.search_string_after ("Invalid_object", 0);
                        if s.after then
                                tried := True
                                retry
                        end;
                end
        
        x: TEST2;
end
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	inherit
9	EXCEPTIONS
10	creation
11	make
12	feature
13	make is
14	local
15	tried: BOOLEAN
16	s: SEQ_STRING
17	do
18	if not tried then
19	!!x;
20	x.test_me;
21	end
22	rescue
23	create s.make (0)
24	s.append (exception_trace)
25	s.start
26	s.search_string_after ("Invalid_object", 0);
27	if s.after then
28	tried := True
29	retry
30	end;
31	end
32
33	x: TEST2;
34	end
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision