3 CONTEXT_DIFF='@CONTEXT_DIFF@'
10 ----------------------------------------------------------------
11 -- Testing syntax checking, static checking and modules.
12 -- This group of checks will produce about 100 lines of output of the form
14 -- --!!! <description of feature being tested>
16 -- You should report a problem if any other output is generated.
17 ----------------------------------------------------------------"
19 # Test syntax/static checks on use of qualified names
20 perl runstdtest hugs +q -pHugs: -s13 "-Otest/qual1.hs" "-o1test/qual1.output"
21 perl runstdtest hugs +q -pHugs: -s13 "-Otest/qual2.hs" "-o1test/qual2.output"
22 perl runstdtest hugs +q -pHugs: -s13 "-Otest/qual3.hs" "-o1test/qual3.output"
23 perl runstdtest hugs +q -pHugs: -s13 "-Otest/qual4.hs" "-o1test/qual4.output"
24 perl runstdtest hugs +q -pHugs: -s13 "-Otest/qual5.hs" "-o1test/qual5.output"
25 perl runstdtest hugs +q -pHugs: -s17 "-Otest/syntax.hs" "-o1test/syntax.output"
27 # ToDo: test for duplicate modules
28 perl runstdtest hugs -O-i +q -pHugs: -s13 "-Otest/mod1.hs" "-o1test/mod1.output"
29 perl runstdtest hugs -O-i +q -pHugs: -s13 "-Otest/mod2.hs" "-o1test/mod2.output"
30 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod3.hs" "-o1test/mod3.output"
31 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod4.hs" "-o1test/mod4.output"
32 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod5.hs" "-o1test/mod5.output"
33 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod6.hs" "-o1test/mod6.output"
34 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod7.hs" "-o1test/mod7.output"
35 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod8.hs" "-o1test/mod8.output"
36 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod9.hs" "-o1test/mod9.output"
38 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod10.hs" "-o1test/mod10.output"
39 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod11.hs" "-o1test/mod11.output"
40 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod12.hs" "-o1test/mod12.output"
41 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod13.hs" "-o1test/mod13.output"
42 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod14.hs" "-o1test/mod14.output"
43 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod15.hs" "-o1test/mod15.output"
44 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod16.hs" "-o1test/mod16.output"
45 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod17.hs" "-o1test/mod17.output"
46 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod18.hs" "-o1test/mod18.output"
47 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod19.hs" "-o1test/mod19.output"
49 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod20.hs" "-o1test/mod20.output"
50 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod21.hs" "-o1test/mod21.output"
51 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod22.hs" "-o1test/mod22.output"
52 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod23.hs" "-o1test/mod23.output"
53 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod24.hs" "-o1test/mod24.output"
54 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod25.hs" "-o1test/mod25.output"
55 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod26.hs" "-o1test/mod26.output"
56 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod27.hs" "-o1test/mod27.output"
57 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod28.hs" "-o1test/mod28.output"
58 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod29.hs" "-o1test/mod29.output"
60 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod30.hs" "-o1test/mod30.output"
61 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod31.hs" "-o1test/mod31.output"
62 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod32.hs" "-o1test/mod32.output"
63 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod33.hs" "-o1test/mod33.output"
64 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod34.hs" "-o1test/mod34.output"
65 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod35.hs" "-o1test/mod35.output"
66 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod36.hs" "-o1test/mod36.output"
67 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod37.hs" "-o1test/mod37.output"
68 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod38.hs" "-o1test/mod38.output"
69 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod39.hs" "-o1test/mod39.output"
71 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod40.hs" "-o1test/mod40.output"
72 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod41.hs" "-o1test/mod41.output"
73 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod42.hs" "-o1test/mod42.output"
74 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod43.hs" "-o1test/mod43.output"
75 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod44.hs" "-o1test/mod44.output"
76 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod45.hs" "-o1test/mod45.output"
77 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod46.hs" "-o1test/mod46.output"
78 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod47.hs" "-o1test/mod47.output"
79 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod48.hs" "-o1test/mod48.output"
80 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod49.hs" "-o1test/mod49.output"
82 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod50.hs" "-o1test/mod50.output"
83 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod51.hs" "-o1test/mod51.output"
84 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod52.hs" "-o1test/mod52.output"
85 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod53.hs" "-o1test/mod53.output"
86 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod54.hs" "-o1test/mod54.output"
87 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod55.hs" "-o1test/mod55.output"
88 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod56.hs" "-o1test/mod56.output"
89 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod57.hs" "-o1test/mod57.output"
90 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod58.hs" "-o1test/mod58.output"
91 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod59.hs" "-o1test/mod59.output"
93 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod60.hs" "-o1test/mod60.output"
94 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod61.hs" "-o1test/mod61.output"
95 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod62.hs" "-o1test/mod62.output"
96 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod63.hs" "-o1test/mod63.output"
97 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod64.hs" "-o1test/mod64.output"
98 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod65.hs" "-o1test/mod65.output"
99 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod66.hs" "-o1test/mod66.output"
100 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod67.hs" "-o1test/mod67.output"
101 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod68.hs" "-o1test/mod68.output"
102 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod69.hs" "-o1test/mod69.output"
104 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod70.hs" "-o1test/mod70.output"
105 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod71.hs" "-o1test/mod71.output"
106 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod72.hs" "-o1test/mod72.output"
107 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod73.hs" "-o1test/mod73.output"
108 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod74.hs" "-o1test/mod74.output"
109 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod75.hs" "-o1test/mod75.output"
110 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod76.hs" "-o1test/mod76.output"
111 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod77.hs" "-o1test/mod77.output"
112 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod78.hs" "-o1test/mod78.output"
113 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod79.hs" "-o1test/mod79.output"
115 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod80.hs" "-o1test/mod80.output"
116 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod81.hs" "-o1test/mod81.output"
117 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod82.hs" "-o1test/mod82.output"
118 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod83.hs" "-o1test/mod83.output"
119 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod84.hs" "-o1test/mod84.output"
120 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod85.hs" "-o1test/mod85.output"
121 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod86.hs" "-o1test/mod86.output"
122 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod87.hs" "-o1test/mod87.output"
123 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod88.hs" "-o1test/mod88.output"
124 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod89.hs" "-o1test/mod89.output"
126 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod90.hs" "-o1test/mod90.output"
127 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod91.hs" "-o1test/mod91.output"
128 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod92.hs" "-o1test/mod92.output"
129 perl runstdtest hugs +q -pHugs: -s17 "-Otest/mod93.hs" "-o1test/mod93.output"
130 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod94.hs" "-o1test/mod94.output"
131 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod95.hs" "-o1test/mod95.output"
132 perl runstdtest hugs +q -pHugs: -s18 "-Otest/mod96.hs" "-o1test/mod96.output"
133 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod97.hs" "-o1test/mod97.output"
134 perl runstdtest hugs +q -pHugs: -s13 "-Otest/mod98.hs" "-o1test/mod98.output"
136 # Check opaque import/export of tycons
137 perl runstdtest hugs +q -pHugs: -s21 "-Otest/T2.hs" "-o1test/T2.output"
138 # Check transparent import of type synonyms
139 perl runstdtest hugs +q -pHugs: -s18 "-Otest/T3.hs" "-o1test/T3.output"
141 perl runstdtest hugs +q -pHugs: -s13 "-Otest/export1.hs" "-o1test/export1.output"
143 # Check opaque import/export of member functions
144 perl runstdtest hugs +q -pHugs: -s20 "-Otest/T7.hs" "-o1test/Loaded.output"
146 } # End of static tests
151 ----------------------------------------------------------------
152 -- Testing type checking.
153 -- This group of checks will produce about 7 lines of output of the form
155 -- --!!! <description of feature being tested>
157 -- It may also produce output that looks like this:
159 -- ./hugs +q -pHugs: test/dicts.hs < test/dicts.input
160 -- expected stdout not matched by reality
161 -- *** test/dicts.output Fri Jul 11 13:25:27 1997
162 -- --- /tmp/runtest3584.3 Fri Jul 11 15:55:13 1997
165 -- Hugs:\"(14,14,14)\"
166 -- ! Hugs:Garbage collection recovered 93815 cells
167 -- Hugs:\"(14,14,14)\"
169 -- Hugs:\"(14,14,14)\"
170 -- ! Hugs:Garbage collection recovered 93781 cells
171 -- Hugs:\"(14,14,14)\"
173 -- This is harmless and might be caused by minor variations between different
174 -- machines, or slightly out of date sample output.
176 -- You should report a problem if any other output is generated.
177 ----------------------------------------------------------------"
179 perl runstdtest hugs +q -pHugs: -s18 "-Otest/types.hs" "-o1test/types.output"
180 perl runstdtest hugs +q -pHugs: -s18 "-Otest/dicts.hs" "-itest/dicts.input" "-o1test/dicts.output"
181 perl runstdtest hugs +q -pHugs: -s13 "-Otest/ty1.hs" "-o1test/ty1.output"
182 perl runstdtest hugs +q -pHugs: -s13 "-Otest/ty2.hs" "-o1test/ty2.output"
183 perl runstdtest hugs +q -pHugs: -s17 "-Otest/monad.hs" "-o1test/monad.output"
184 # Very tricky test - the input script uses /bin/cp to mimic the
185 # effect of editing a file and reloading
186 perl runstdtest hugs -w +q -pHugs: -s13 "-itest/DictHW.input" "-o1test/DictHW.output"
187 perl runstdtest hugs -w +q -pHugs: test/TyErr.hs -s12 "-o1test/TyErr.output"
193 ----------------------------------------------------------------
194 -- Testing runtime system.
195 -- This group of checks will produce 12-16 lines of output of the form
197 -- --!!! <description of feature being tested>
199 -- It may also produce output that looks like this:
201 -- ./hugs +q -pHugs: test/???.hs < test/???.input
202 -- expected stdout not matched by reality
203 -- *** test/???.output Fri Jul 11 13:25:27 1997
204 -- --- /tmp/runtest3584.3 Fri Jul 11 15:55:13 1997
208 -- | Hugs:\"[0.0, 0.304693, 0.643501, 1.5708]\"
212 -- | Hugs:\"[0.0, 0.30469323452, 0.643503234321, 1.5708234234]\"
215 -- This is harmless and reflects variations in the accuracy of floating
216 -- point representation, calculations and printing.
218 -- You should report a problem if any other output is generated or if
219 -- the size of the floating point errors seem excessively large.
220 ----------------------------------------------------------------"
222 # Test bignums early since printing depends on bignums
223 perl runstdtest hugs +q -pHugs: -s18 "-Otest/bignums.hs" "-itest/bignums.input" "-o1test/bignums.output"
225 # Using generic printer
226 perl runstdtest hugs +q -pHugs: -u -s18 "-Otest/print.hs" "-itest/print.input" "-o1test/print1.output"
227 perl runstdtest hugs +q -pHugs: -u -f -s18 "-Otest/print.hs" "-itest/print.input" "-o1test/print2.output"
228 #perl runstdtest hugs +q -pHugs: -u -f -s18 "-Otest/catch.hs" "-itest/catch.input" "-o1test/catch.output"
229 perl runstdtest hugs +q -pHugs: -u -s18 "-Otest/enum.hs" "-itest/enum.input" "-o1test/enum.output1"
230 perl runstdtest hugs +q -pHugs: -u -s18 "-Otest/infix.hs" "-itest/infix.input" "-o1test/infix.output"
232 # Using derived show instance
233 #perl runstdtest hugs +q -pHugs: +u -f -s18 "-Otest/catch2.hs" "-itest/catch.input" "-o1test/catch2.output"
235 # Using derived instances
236 perl runstdtest hugs +q -pHugs: +u -s18 "-Otest/enum.hs" "-itest/enum.input" "-o1test/enum.output2"
237 perl runstdtest hugs +q -pHugs: +u -s18 "-Otest/maxint.hs" "-itest/maxint.input" "-o1test/maxint.output"
238 perl runstdtest hugs +q -pHugs: -s18 "-Otest/ord.hs" "-itest/ord.input" "-o1test/ord.output"
239 perl runstdtest hugs +q -pHugs: -s25 "-Otest/read.hs" "-itest/read.input" "-o1test/read.output"
240 perl runstdtest hugs +q -pHugs: -s18 "-Otest/arith.hs" "-itest/arith.input" "-o1test/arith.output"
242 perl runstdtest hugs +q -pHugs: -s18 "-Otest/testlist.hs" "-itest/testlist.input" "-o1test/testlist.output"
244 perl runstdtest hugs +q -pHugs: -s29 "-Otest/arrayt.hs" "-itest/array1.input" "-o1test/array1.output"
245 perl runstdtest hugs +q -pHugs: -s29 "-Otest/array2.hs" "-itest/array2.input" "-o1test/array2.output"
246 perl runstdtest hugs +q -pHugs: -s29 "-Otest/arrayEx.hs" "-itest/arrayEx.input" "-o1test/arrayEx.output"
249 # Old test code from hugs +q -pHugs:0 - it will probably get resurrected at some stage
253 # perl runstdtest hugs +q -pHugs: "-Otest/refs.hs" "-itest/refs.input" "-o1test/refs.output"
256 # echo "Not testing Refs"
261 # perl runstdtest hugs +q -pHugs: "-Otest/ptrEq.hs" "-itest/ptrEq.input" "-o1test/ptrEq.output"
264 # echo "Not testing Pointer equality"
269 # perl runstdtest hugs +q -pHugs: "-Otest/mutvars.hs" "-itest/mutvars.input" "-o1test/mutvars.output"
272 # echo "Not testing MutVars"
277 # perl runstdtest hugs +q -pHugs: "-Otest/ioerror1.hs" "-itest/ioerror1.input" "-o1test/ioerror1.output"
278 # perl runstdtest hugs +q -pHugs: "-Otest/ioerror2.hs" "-itest/ioerror2.input" "-o1test/ioerror2.output"
280 # /* Create an unreadable file (its impossible to supply one in a tar file!) */
281 # cat >test/unreadable.tst <<EOF
282 # This file should be read+q -protected.
283 # perl runstdtests/iohandle.hs attempts to write it.
285 # CHMOD 200 "test/unreadable.tst"
286 # perl runstdtest hugs +q -pHugs: "-Otest/iohandle.hs" "-itest/iohandle.input" "-o1test/iohandle.output"
287 # RM "test/unreadable.tst"
289 # fi /* !OLD_IOMONAD */
291 # echo "Not testing IOError"
292 # fi /* TESTIOERROR */
296 # perl runstdtest hugs +q -pHugs: "-Otest/mvar.hs" "-itest/mvar.input" "-o1test/mvar.output"
299 # echo "Not testing concurrency"
303 # perl runstdtest hugs +q -pHugs: "-Otest/gc.hs" "-itest/gc1.input" "-o1test/gc1.output"
304 # perl runstdtest hugs +q -pHugs: -H200000" "-Otest/gc.hs" "-itest/gc1.input" "-o1test/gc1.output"
305 # perl runstdtest hugs +q -pHugs: -H100000" "-Otest/gc.hs" "-itest/gc2.input" "-o1test/gc2.output"
307 # echo "Not testing GC"
311 # echo "Not testing runtime system"
318 ----------------------------------------------------------------
319 -- Testing standard libraries for static errors and some old bugs.
321 -- This group of checks tests that each of the standard libraries
322 -- loads correctly. This generates no output if it works.
323 -- It also tests the results generated by a few of the standard
324 -- libraries. This produces the following output.
326 -- --!!! Performing static tests on standard libraries - please wait
327 -- --!!! Performing static tests on GHC-compatible libraries
328 -- --!!! Performing static tests on Hugs libraries
329 -- --!!! Performing static tests on Haskore libraries
330 -- --!!! Performing dynamic tests on libraries
331 -- --!!! Testing (List.\\) and related functions
332 -- --!!! Testing System
333 -- --!!! Testing Int and Word
335 -- On Windows, it may also produce output that looks like this:
337 -- ./hugs +q -pHugs: test/system1.hs < test/system1.input
338 -- expected stdout not matched by reality
339 -- *** test/system1.output Fri Jul 11 13:25:27 1997
340 -- --- /tmp/runtest3584.3 Fri Jul 11 15:55:13 1997
344 -- | Hugs:ExitFailure 1
345 -- | Hugs:ExitFailure 2
349 -- | Hugs:ExitSuccess
350 -- | Hugs:ExitSuccess
353 -- This reflects the sad fact that System.system always returns
354 -- ExitSuccess on DOS machines. This is a known bug in DOS.
356 -- You should report a problem if any other output is generated.
357 ----------------------------------------------------------------"
359 echo "--!!! Performing static tests on standard libraries - please wait"
360 perl runstdtest hugs +q -pHugs: Array -s27
361 perl runstdtest hugs +q -pHugs: Char -s19
362 perl runstdtest hugs +q -pHugs: Complex -s19
363 perl runstdtest hugs +q -pHugs: IO -s24
364 perl runstdtest hugs +q -pHugs: Ix -s19
365 perl runstdtest hugs +q -pHugs: List -s22
366 perl runstdtest hugs +q -pHugs: Maybe -s19
367 perl runstdtest hugs +q -pHugs: Monad -s19
368 perl runstdtest hugs +q -pHugs: Ratio -s19
369 perl runstdtest hugs +q -pHugs: System -s19
371 echo "--!!! Performing static tests on GHC-compatible libraries"
372 perl runstdtest hugs +q -pHugs: IOExts -s27 "-o1test/Loaded.output"
373 perl runstdtest hugs +q -pHugs: ST -s33 "-o1test/Loaded.output"
374 perl runstdtest hugs +q -pHugs: LazyST -s33 "-o1test/Loaded.output"
375 perl runstdtest hugs +q -pHugs: Concurrent -s42 "-o1test/Loaded.output"
376 perl runstdtest hugs +q -pHugs: Addr -s17 "-o1test/Loaded.output"
377 perl runstdtest hugs +q -pHugs: Word -s22 "-o1test/Loaded.output"
378 perl runstdtest hugs +q -pHugs: Int -s20 "-o1test/Loaded.output"
380 echo "--!!! Performing static tests on Hugs libraries"
381 perl runstdtest hugs +q -pHugs: HugsLibs -s68 "-o1test/HugsLibs.output"
383 echo "--!!! Performing static tests on Haskore libraries"
384 perl runstdtest hugs +q -pHugs: Haskore -s60 "-o1test/Loaded.output"
386 echo "--!!! Performing dynamic tests on libraries"
387 # Specific tests - checking that old bugs have been fixed
388 perl runstdtest hugs +q -pHugs: List -s22 "-Otest/list1.hs" "-itest/list1.input" "-o1test/list1.output"
389 perl runstdtest hugs +q -pHugs: System -s19 "-Otest/system1.hs" "-itest/system1.input" "-o1test/system1.output"
390 perl runstdtest hugs +q -pHugs: Complex -s17 "-itest/complex1.input" "-o1test/complex1.output"
391 perl runstdtest hugs +q -pHugs: Int -s25 "-Otest/intTest.hs" "-itest/intTest.input" "-o1test/intTest.output"
392 perl runstdtest hugs +q -pHugs: test/FixIO.lhs -s33 "-itest/FixIO.input" "-o1test/FixIO.output"
398 ----------------------------------------------------------------
399 -- Testing demos for static errors.
401 -- This group of checks tests that each of the demos loads correctly.
402 -- It should generate this output:
404 -- --!!! Performing static checks on demos
405 -- --!!! Performing static checks on Haskore demos
407 -- You should report a problem if any other output is generated.
408 ----------------------------------------------------------------"
410 echo "--!!! Performing static checks on demos"
411 perl runstdtest hugs -w +q -pHugs: ../demos/Demos -s58 "-o1test/Loaded.output"
412 perl runstdtest hugs -w +q -pHugs: ../demos/prolog/Main -s23 "-o1test/Loaded.output"
413 perl runstdtest hugs -w +q -pHugs: ../demos/cgi/Counter -s30 "-o1test/Loaded.output"
415 # Test that Haskore demos load successfully
416 echo "--!!! Performing static checks on Haskore demos"
417 perl runstdtest hugs -w +q -pHugs: ../lib/Haskore/demos/HaskoreExamples -s42 "-o1test/Loaded.output"
418 perl runstdtest hugs -w +q -pHugs: ../lib/Haskore/demos/SelfSim -s40 "-o1test/Loaded.output"
419 perl runstdtest hugs -w +q -pHugs: ../lib/Haskore/demos/ChildSong6 -s40 "-o1test/Loaded.output"
421 } # End of test demos
425 ----------------------------------------------------------------
426 -- Testing temporary tests
427 -- These aren't invoked by the usual "make check" - they serve
428 -- as a marshalling area when adding new tests
429 ----------------------------------------------------------------"
434 static) test_static;;
435 tcheck) test_tcheck;;
440 *) echo Unknown test $1;;
443 echo "----------------------------------------------------------------"