Commit f7765c4a authored by batterseapower's avatar batterseapower
Browse files

Tweak tests for unboxed tuple sections

parent 1a19250a
...@@ -64,7 +64,7 @@ test('tcrun038', ...@@ -64,7 +64,7 @@ test('tcrun038',
test('tcrun039', only_compiler_types(['ghc']), compile_and_run, ['']) test('tcrun039', only_compiler_types(['ghc']), compile_and_run, [''])
test('tcrun040', normal, compile_and_run, ['']) test('tcrun040', normal, compile_and_run, [''])
test('tcrun041', if_compiler_lt('ghc', '6.11', expect_fail), compile_and_run, ['']) test('tcrun041', compose(omit_ways(['ghci']), if_compiler_lt('ghc', '6.11', expect_fail)), compile_and_run, [''])
test('tcrun042', if_compiler_lt('ghc', '6.11', expect_fail), compile_and_run, ['']) test('tcrun042', if_compiler_lt('ghc', '6.11', expect_fail), compile_and_run, [''])
test('church', normal, compile_and_run, ['']) test('church', normal, compile_and_run, [''])
......
...@@ -21,6 +21,11 @@ g = (# , True || False #) ...@@ -21,6 +21,11 @@ g = (# , True || False #)
h = (# ,1, #) h = (# ,1, #)
unchanged :: a -> (# Int #)
unchanged _binding = (# #) 1
main = do main = do
print (a 1, b False, c "Hello", c 1337, d "Yeah" "Baby") print (a 1, b False, c "Hello", c 1337, d "Yeah" "Baby")
case e 1 of { (# x1, x2 #) -> case e 1 of { (# x1, x2 #) ->
......
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