/[eiffelstudio]/trunk/eweasel/tests/rdtp002/parser_test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/rdtp002/parser_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: 833 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 indexing
2 description : "System's root class"
3 note : "Initial version automatically generated"
4
5 class
6 PARSER_TEST
7
8 create
9 make
10
11 feature
12
13 make is
14 local
15 l_parser: EIFFEL_PARSER
16 l_input_file: PLAIN_TEXT_FILE
17 l_file_name: FILE_NAME
18 do
19 create l_file_name.make_from_string ("$TEST")
20 l_file_name.set_file_name ("test")
21 create l_input_file.make_open_read (l_file_name)
22 l_input_file.read_stream (l_input_file.count)
23 l_input_file.close
24
25 create l_parser.make_with_factory (create {AST_ROUNDTRIP_FACTORY})
26 l_parser.parse_from_string (l_input_file.last_string)
27 if l_parser.root_node /= Void and then l_parser.match_list /= Void then
28 if l_input_file.last_string.is_equal (l_parser.match_list.out) then
29 io.put_string ("OK%N")
30 else
31 io.put_string ("Failed%N")
32 end
33 end
34 end
35
36 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23