/[eiffelstudio]/trunk/eweasel/tests/rdtp003/test_agent.e
ViewVC logotype

Contents of /trunk/eweasel/tests/rdtp003/test_agent.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 86987 - (show annotations)
Thu Aug 11 21:49:58 2011 UTC (8 years, 3 months ago) by manus
File size: 1182 byte(s)
New test similar to rdtp001 except that it ensures that the implementation of `is_equivalent' from AST_EIFFEL is correct by comparing the result of two parsings of the same class and verifying they are indeed equivalent.

1 indexing
2 description: ""
3 date: "$Date$"
4 revision: "$Revision$"
5
6 class
7 TEST_AGENT
8
9 feature
10
11 test_agent is
12 do
13 print (agent io.print ("FDFSD"))
14 print (agent io.print (?))
15 print (agent io.print)
16 print (agent print)
17 print (agent print (?))
18 print (agent print ("REWR"))
19 end
20
21 test_inline (a_dir: DIRECTORY) is
22 -- Process files and directories under `a_dir'.
23 require
24 a_dir_not_void: a_dir /= Void
25 a_dir_exists: a_dir.exists
26 local
27 dir_names, file_names: ARRAY [STRING]
28 do
29 dir_names := a_dir.directory_names
30 if dir_names /= Void then
31 dir_names.do_all (agent (a_path: STRING; a_dir_name: STRING)
32 local
33 l_dir: DIRECTORY
34 do
35 create l_dir.make (a_path + operating_environment.Directory_separator.out + a_dir_name)
36 if l_dir.exists then
37 test_recursive (l_dir)
38 end
39 end (a_dir.name, ?))
40 end
41
42 a_dir.open_read
43 file_names := a_dir.filenames
44 if file_names /= Void then
45 file_names.do_all (agent (a_path: STRING; a_dir_name: STRING)
46 do
47 update_eiffel_class (
48 a_path + operating_environment.Directory_separator.out + a_dir_name)
49 end (a_dir.name, ?))
50 end
51 end
52
53 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23