/[eiffelstudio]/trunk/eweasel/tests/lib025/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/lib025/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 73812 - (show annotations)
Tue Jun 10 23:44:30 2008 UTC (11 years, 8 months ago) by manus
File size: 3803 byte(s)
New test for the new FILE routines `read_xxx_thread_aware'.

1 class TEST
2
3 inherit
4 ARGUMENTS
5
6 create
7 make
8
9 feature
10
11 make is
12 --
13 local
14 f: PLAIN_TEXT_FILE
15 do
16 create f.make_open_read (test_file_name)
17 f.read_word
18 check_object (f.last_string, expected_word_1)
19 check_object (f.separator.out, " ")
20 f.read_word
21 check_object (f.last_string, expected_word_2)
22 check_object (f.separator.out, "%T")
23 f.read_word
24 check_object (f.last_string, expected_word_3)
25 check_object (f.separator.out, " ")
26 f.read_word
27 check_object (f.last_string, expected_word_4)
28 check_object (f.separator.out, "%N")
29 f.read_word
30 check_object (f.last_string, expected_word_1)
31 check_object (f.separator.out, " ")
32 f.close
33
34 create f.make_open_read (test_file_name)
35 f.read_word_thread_aware
36 check_object (f.last_string, expected_word_1)
37 check_object (f.separator.out, " ")
38 f.read_word_thread_aware
39 check_object (f.last_string, expected_word_2)
40 check_object (f.separator.out, "%T")
41 f.read_word_thread_aware
42 check_object (f.last_string, expected_word_3)
43 check_object (f.separator.out, " ")
44 f.read_word_thread_aware
45 check_object (f.last_string, expected_word_4)
46 check_object (f.separator.out, "%N")
47 f.read_word_thread_aware
48 check_object (f.last_string, expected_word_1)
49 check_object (f.separator.out, " ")
50 f.close
51
52 create f.make_open_read (test_file_name)
53 from
54 f.read_line
55 check_object (f.last_string, expected_value)
56 until
57 f.end_of_file
58 loop
59 f.read_line
60 if not f.end_of_file then
61 check_object (f.last_string, expected_value)
62 end
63 end
64 f.close
65
66 create f.make_open_read (test_file_name)
67 from
68 f.read_line_thread_aware
69 check_object (f.last_string, expected_value)
70 until
71 f.end_of_file
72 loop
73 f.read_line_thread_aware
74 if not f.end_of_file then
75 check_object (f.last_string, expected_value)
76 end
77 end
78 f.close
79
80 create f.make_open_read (test_file_name)
81 f.read_stream (expected_value.count)
82 check_object (f.last_string, expected_value)
83 f.close
84
85 create f.make_open_read (test_file_name)
86 f.read_stream_thread_aware (expected_value.count)
87 check_object (f.last_string, expected_value)
88 f.close
89 end
90
91 feature {NONE} -- Implementation
92
93 check_object (a_str1, a_str2: STRING) is
94 local
95 l_result: BOOLEAN
96 do
97 l_result := equal (a_str1, a_str2)
98 if not l_result then
99 print ("Not OK")
100 end
101 end
102
103 test_file_name: STRING = "file.txt"
104 expected_value: STRING = "qaqaqaqaqaqaqaqaqaqaqaqaqaqaqaq aqaqaqaqaqaqaqaqaqaqaqaqaqaqaqa%Tqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqa qaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqa"
105
106 expected_word_1: STRING = "qaqaqaqaqaqaqaqaqaqaqaqaqaqaqaq"
107 expected_word_2: STRING = "aqaqaqaqaqaqaqaqaqaqaqaqaqaqaqa"
108 expected_word_3: STRING = "qaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqa"
109 expected_word_4: STRING = "qaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqaqa"
110
111 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23