Commit 5027d948 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-11-02 12:54:00 by simonmar]

fix test
parent add89514
...@@ -9,7 +9,7 @@ test('hTell002', expect_fail_if_platform("i386-unknown-mingw32"), \ ...@@ -9,7 +9,7 @@ test('hTell002', expect_fail_if_platform("i386-unknown-mingw32"), \
test('performGC001', normal, compile_and_run, ['']) test('performGC001', normal, compile_and_run, [''])
# optimisation screws up this test because some of the traces get commoned up # optimisation screws up this test because some of the traces get commoned up
test('trace001', omit_ways(['opt','optasm','optextcore']), compile_and_run, ['']) test('trace001', normal, compile_and_run, [''])
test('hGetBuf001', normal, compile_and_run, ['']) test('hGetBuf001', normal, compile_and_run, [''])
test('hPutBuf001', normal, compile_and_run, ['']) test('hPutBuf001', normal, compile_and_run, [''])
......
...@@ -8,4 +8,4 @@ main = do ...@@ -8,4 +8,4 @@ main = do
"one" "fish") "two") "fish") "red") "fish") "blue") "fish") "one" "fish") "two") "fish") "red") "fish") "blue") "fish")
hPutStr stdout hPutStr stdout
(trace (trace (trace (trace (trace (trace (trace (trace (trace (trace (trace (trace (trace (trace
"one" "fish") "two") "fish") "red") "fish") "blue") "fish") "ONE" "FISH") "TWO") "FISH") "RED") "FISH") "BLUE") "FISH")
...@@ -5,10 +5,10 @@ fish ...@@ -5,10 +5,10 @@ fish
red red
fish fish
blue blue
fishone fishONE
fish FISH
two TWO
fish FISH
red RED
fish FISH
blue BLUE
fish FISH
\ No newline at end of file \ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment