2744
|
1 ## The following functions need to have tests written for them: |
|
2 |
2727
|
3 # disp |
|
4 # save |
|
5 # load |
2760
|
6 # fputs |
|
7 # fgetl |
|
8 # fgets |
|
9 # fprintf |
|
10 # fscanf |
|
11 # ferror |
2758
|
12 |
|
13 set test puts-1 |
|
14 set prog_output "foo\nans = 0" |
|
15 do_test puts-1.m |
|
16 |
|
17 set test puts-2 |
4457
|
18 set prog_output "^ans = -1" |
2758
|
19 do_test puts-2.m |
|
20 |
|
21 set test puts-3 |
4468
|
22 set prog_output "\n... puts:.*" |
2758
|
23 do_test puts-3.m |
|
24 |
|
25 set test puts-4 |
4468
|
26 set prog_output "\n... puts:.*" |
2758
|
27 do_test puts-4.m |
|
28 |
|
29 set test sscanf-1 |
4457
|
30 set prog_output "^ans = 1" |
2758
|
31 do_test sscanf-1.m |
|
32 |
|
33 set test sscanf-2 |
|
34 set prog_output "\n... sscanf:.*" |
|
35 do_test sscanf-2.m |
|
36 |
|
37 set test sscanf-3 |
4457
|
38 set prog_output "^error:.*" |
2758
|
39 do_test sscanf-3.m |
|
40 |
|
41 set test sscanf-4 |
|
42 set prog_output "\n... sscanf:.*" |
|
43 do_test sscanf-4.m |
|
44 |
4046
|
45 set test sscanf-5 |
4457
|
46 set prog_output "^ans = 1" |
4046
|
47 do_test sscanf-5.m |
|
48 |
2758
|
49 set test printf-1 |
4715
|
50 set prog_output "test: 1\nx = 8" |
2758
|
51 do_test printf-1.m |
|
52 |
|
53 set test printf-2 |
4457
|
54 set prog_output "^error:.*" |
2758
|
55 do_test printf-2.m |
|
56 |
|
57 set test printf-3 |
4468
|
58 set prog_output "\n... printf:.*" |
2758
|
59 do_test printf-3.m |
|
60 |
|
61 set test sprintf-1 |
4457
|
62 set prog_output "^ans = 1" |
2758
|
63 do_test sprintf-1.m |
|
64 |
|
65 set test sprintf-2 |
4457
|
66 set prog_output "^error:.*" |
2758
|
67 do_test sprintf-2.m |
|
68 |
|
69 set test sprintf-3 |
|
70 set prog_output "\n... sprintf:." |
|
71 do_test sprintf-3.m |
|
72 |
|
73 set test fopen-1 |
4457
|
74 set prog_output "^ans = 1" |
2758
|
75 do_test fopen-1.m |
|
76 |
|
77 set test fopen-2 |
4457
|
78 set prog_output "^error:.*" |
2758
|
79 do_test fopen-2.m |
|
80 |
|
81 set test fopen-3 |
4457
|
82 set prog_output "^error:.*" |
2758
|
83 do_test fopen-3.m |
|
84 |
|
85 set test fopen-4 |
4457
|
86 set prog_output "^error:.*" |
2758
|
87 do_test fopen-4.m |
|
88 |
|
89 set test fopen-5 |
|
90 set prog_output "\n... fopen:.*" |
|
91 do_test fopen-5.m |
|
92 |
|
93 set test fopen-6 |
|
94 set prog_output "\n... fopen:.*" |
|
95 do_test fopen-6.m |
|
96 |
|
97 set test fclose-1 |
4457
|
98 set prog_output "^error:.*" |
2758
|
99 do_test fclose-1.m |
|
100 |
|
101 set test fclose-2 |
|
102 set prog_output "\n... fclose:.*" |
|
103 do_test fclose-2.m |
|
104 |
|
105 set test tmpnam-1 |
4457
|
106 set prog_output "^ans = 1" |
2758
|
107 do_test tmpnam-1.m |
|
108 |
|
109 set test tmpnam-2 |
4457
|
110 set prog_output "^warning:.*" |
2945
|
111 do_test tmpnam-2.m |
|
112 |
|
113 set test tmpnam-3 |
4457
|
114 set prog_output "^warning:.*" |
2945
|
115 do_test tmpnam-3.m |
|
116 |
|
117 set test tmpnam-4 |
2758
|
118 set prog_output "\n... tmpnam:.*" |
2945
|
119 do_test tmpnam-4.m |
2758
|
120 |
2760
|
121 ## set test file-io-1 |
|
122 ## set prog_output "ok" |
|
123 ## do_test file-io-1.m |
2758
|
124 |
2760
|
125 set test binary-io-1 |
|
126 set prog_output "ok" |
|
127 do_test binary-io-1.m |
|
128 |
|
129 set test file-pos-1 |
|
130 set prog_output "ok" |
|
131 do_test file-pos-1.m |
2758
|
132 |
|
133 set test fputs-1 |
|
134 set prog_output "\n... fputs:.*" |
|
135 do_test fputs-1.m |
|
136 |
|
137 set test fputs-2 |
|
138 set prog_output "\n... fputs:.*" |
|
139 do_test fputs-2.m |
|
140 |
|
141 set test fputs-3 |
4457
|
142 set prog_output "^ans = -1" |
2758
|
143 do_test fputs-3.m |
|
144 |
|
145 set test fgetl-1 |
|
146 set prog_output "\n... fgetl:.*" |
|
147 do_test fgetl-1.m |
|
148 |
|
149 set test fgetl-2 |
|
150 set prog_output "\n... fgetl:.*" |
|
151 do_test fgetl-2.m |
|
152 |
|
153 set test fgetl-3 |
4457
|
154 set prog_output "^error:.*" |
2758
|
155 do_test fgetl-3.m |
|
156 |
|
157 set test fgets-1 |
|
158 set prog_output "\n... fgets:.*" |
|
159 do_test fgets-1.m |
|
160 |
|
161 set test fgets-2 |
|
162 set prog_output "\n... fgets:.*" |
|
163 do_test fgets-2.m |
|
164 |
|
165 set test fgets-3 |
4457
|
166 set prog_output "^error:.*" |
2758
|
167 do_test fgets-3.m |
|
168 |
|
169 set test fprintf-1 |
|
170 set prog_output "\n... fprintf:.*" |
|
171 do_test fprintf-1.m |
|
172 |
|
173 set test fprintf-2 |
|
174 set prog_output "\n... fprintf:.*" |
|
175 do_test fprintf-2.m |
|
176 |
|
177 set test fprintf-3 |
2874
|
178 set prog_output "\n... fprintf:.*" |
|
179 do_test fprintf-3.m |
|
180 |
|
181 set test fprintf-4 |
4457
|
182 set prog_output "^error:.*" |
2874
|
183 do_test fprintf-4.m |
|
184 |
|
185 set test fprintf-5 |
4457
|
186 set prog_output "^error:.*" |
2874
|
187 do_test fprintf-5.m |
2758
|
188 |
|
189 set test fscanf-1 |
|
190 set prog_output "\n... fscanf:.*" |
|
191 do_test fscanf-1.m |
|
192 |
|
193 set test fscanf-2 |
|
194 set prog_output "\n... fscanf:.*" |
|
195 do_test fscanf-2.m |
|
196 |
|
197 set test fscanf-3 |
4457
|
198 set prog_output "^error:.*" |
2758
|
199 do_test fscanf-3.m |
|
200 |
|
201 set test fread-1 |
|
202 set prog_output "\n... fread:.*" |
|
203 do_test fread-1.m |
|
204 |
|
205 set test fread-2 |
|
206 set prog_output "\n... fread:.*" |
|
207 do_test fread-2.m |
|
208 |
|
209 set test fread-3 |
4457
|
210 set prog_output "^error:.*" |
2758
|
211 do_test fread-3.m |
|
212 |
|
213 set test fwrite-1 |
|
214 set prog_output "\n... fwrite:.*" |
|
215 do_test fwrite-1.m |
|
216 |
|
217 set test fwrite-2 |
|
218 set prog_output "\n... fwrite:.*" |
|
219 do_test fwrite-2.m |
|
220 |
|
221 set test fwrite-3 |
4457
|
222 set prog_output "^error:.*" |
2758
|
223 do_test fwrite-3.m |
|
224 |
|
225 set test feof-1 |
|
226 set prog_output "\n... feof:.*" |
|
227 do_test feof-1.m |
|
228 |
|
229 set test feof-2 |
|
230 set prog_output "\n... feof:.*" |
|
231 do_test feof-2.m |
|
232 |
|
233 set test feof-3 |
4457
|
234 set prog_output "^error:.*" |
2758
|
235 do_test feof-3.m |
|
236 |
|
237 set test ferror-1 |
|
238 set prog_output "\n... ferror:.*" |
|
239 do_test ferror-1.m |
|
240 |
|
241 set test ferror-2 |
|
242 set prog_output "\n... ferror:.*" |
|
243 do_test ferror-2.m |
|
244 |
|
245 set test ferror-3 |
4457
|
246 set prog_output "^error:.*" |
2758
|
247 do_test ferror-3.m |
|
248 |
|
249 set test ftell-1 |
|
250 set prog_output "\n... ftell:.*" |
|
251 do_test ftell-1.m |
|
252 |
|
253 set test ftell-2 |
|
254 set prog_output "\n... ftell:.*" |
|
255 do_test ftell-2.m |
|
256 |
|
257 set test ftell-3 |
4457
|
258 set prog_output "^error:.*" |
2758
|
259 do_test ftell-3.m |
|
260 |
|
261 set test fseek-1 |
|
262 set prog_output "\n... fseek:.*" |
|
263 do_test fseek-1.m |
|
264 |
|
265 set test fseek-2 |
|
266 set prog_output "\n... fseek:.*" |
|
267 do_test fseek-2.m |
|
268 |
|
269 set test fseek-3 |
4457
|
270 set prog_output "^error:.*" |
2758
|
271 do_test fseek-3.m |
|
272 |
|
273 set test frewind-1 |
|
274 set prog_output "\n... frewind:.*" |
|
275 do_test frewind-1.m |
|
276 |
|
277 set test frewind-2 |
|
278 set prog_output "\n... frewind:.*" |
|
279 do_test frewind-2.m |
|
280 |
|
281 set test frewind-3 |
4457
|
282 set prog_output "^error:.*" |
2758
|
283 do_test frewind-3.m |