Allow top-level string literals in Core (#8472)
[ghc.git] / testsuite / tests / simplCore / should_compile / all.T
index e08eb84..2ede246 100644 (file)
@@ -1,7 +1,7 @@
 test('simpl001', normal, compile, [''])
 test('simpl002', normal, compile, [''])
 test('simpl003', normal, compile, [''])
 test('simpl001', normal, compile, [''])
 test('simpl002', normal, compile, [''])
 test('simpl003', normal, compile, [''])
-test('simpl004', only_compiler_types(['ghc']), compile, [''])
+test('simpl004', normal, compile, [''])
 test('simpl005', normal, compile, [''])
 
 # Missing:
 test('simpl005', normal, compile, [''])
 
 # Missing:
@@ -106,6 +106,10 @@ test('T4918',
      run_command,
      ['$MAKE -s --no-print-directory T4918'])
 
      run_command,
      ['$MAKE -s --no-print-directory T4918'])
 
+# This test flips too and fro about whether it passes
+# I'm not sure why it is so delicate, but it greps the
+# result of -ddump-simpl, which is never advertised to
+# be very stable
 test('T4945',
      expect_broken(4945),
      run_command,
 test('T4945',
      expect_broken(4945),
      run_command,
@@ -133,7 +137,9 @@ test('simpl021',
      run_command,
      ['$MAKE -s --no-print-directory simpl021'])
 test('T5327', normal, run_command, ['$MAKE -s --no-print-directory T5327'])
      run_command,
      ['$MAKE -s --no-print-directory simpl021'])
 test('T5327', normal, run_command, ['$MAKE -s --no-print-directory T5327'])
+test('T5615', normal, run_command, ['$MAKE -s --no-print-directory T5615'])
 test('T5623', normal, run_command, ['$MAKE -s --no-print-directory T5623'])
 test('T5623', normal, run_command, ['$MAKE -s --no-print-directory T5623'])
+test('T13155', normal, run_command, ['$MAKE -s --no-print-directory T13155'])
 test('T5658b',
      normal,
      run_command,
 test('T5658b',
      normal,
      run_command,
@@ -162,11 +168,11 @@ test('T7796',
      extra_clean(['T7796.prep']),
      run_command,
      ['$MAKE -s --no-print-directory T7796'])
      extra_clean(['T7796.prep']),
      run_command,
      ['$MAKE -s --no-print-directory T7796'])
-test('T5550', normal, compile, [''])
+test('T5550', omit_ways(prof_ways), compile, [''])
 test('T7865', normal, run_command, ['$MAKE -s --no-print-directory T7865'])
 test('T7785', only_ways(['optasm']), compile, ['-ddump-rules'])
 test('T7702', 
 test('T7865', normal, run_command, ['$MAKE -s --no-print-directory T7865'])
 test('T7785', only_ways(['optasm']), compile, ['-ddump-rules'])
 test('T7702', 
-     [pre_cmd('$MAKE -s --no-print-directory -C T7702plugin package.T7702'), 
+     [pre_cmd('$MAKE -s --no-print-directory -C T7702plugin package.T7702 TOP={top}'),
       clean_cmd('$MAKE -s --no-print-directory -C T7702plugin clean.T7702'), 
       # we say 18mb peak allocated +/- 70% because other compiler flags have 
       # a large effect on allocation which is hard to separate from the 
       clean_cmd('$MAKE -s --no-print-directory -C T7702plugin clean.T7702'), 
       # we say 18mb peak allocated +/- 70% because other compiler flags have 
       # a large effect on allocation which is hard to separate from the 
@@ -175,7 +181,7 @@ test('T7702',
           [(wordsize(32), 18, 70), (wordsize(64), 18, 70)]) 
      ], 
      compile, 
           [(wordsize(32), 18, 70), (wordsize(64), 18, 70)]) 
      ], 
      compile, 
-     ['-v0 -package-db T7702plugin/pkg.T7702/local.package.conf -fplugin T7702Plugin -package T7702plugin ' + config.ghci_way_flags])
+     ['-v0 -package-db T7702plugin/pkg.T7702/local.package.conf -fplugin T7702Plugin -package T7702plugin ' + config.plugin_way_flags])
 
 test('T7995',
      # RULE doesn't seem to fire unless optimizations are turned on.
 
 test('T7995',
      # RULE doesn't seem to fire unless optimizations are turned on.
@@ -198,7 +204,7 @@ test('T5996',
      ['$MAKE -s --no-print-directory T5996'])
 test('T8537', normal, compile, [''])
 test('T8832',
      ['$MAKE -s --no-print-directory T5996'])
 test('T8537', normal, compile, [''])
 test('T8832',
-     expect_broken(8832),
+     normal,
      run_command,
      ['$MAKE -s --no-print-directory T8832 T8832_WORDSIZE_OPTS=' +
       ('-DT8832_WORDSIZE_64' if wordsize(64) else '')])
      run_command,
      ['$MAKE -s --no-print-directory T8832 T8832_WORDSIZE_OPTS=' +
       ('-DT8832_WORDSIZE_64' if wordsize(64) else '')])
@@ -214,3 +220,50 @@ test('T10176', only_ways(['optasm']), compile, [''])
 test('T10180', only_ways(['optasm']), compile, [''])
 test('T10602', only_ways(['optasm']), multimod_compile, ['T10602','-v0'])
 test('T10627', only_ways(['optasm']), compile, [''])
 test('T10180', only_ways(['optasm']), compile, [''])
 test('T10602', only_ways(['optasm']), multimod_compile, ['T10602','-v0'])
 test('T10627', only_ways(['optasm']), compile, [''])
+test('T10181', [expect_broken(10181), only_ways(['optasm'])], compile, [''])
+test('T10083',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T10083'])
+test('T10689', normal, compile, [''])
+test('T11155',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T11155'])
+test('T11232', normal, compile, ['-O2'])
+test('T11562', normal, compile, ['-O2'])
+test('T11742', normal, compile, ['-O2'])
+test('T11644', normal, compile, ['-O2'])
+test('T3990',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T3990'])
+
+test('T12076', extra_clean(['T12076a.hi', 'T12076a.o']), multimod_compile, ['T12076', '-v0'])
+test('T12076lit', normal, compile, ['-O'])
+test('T12076sat', normal, compile, ['-O'])
+test('T12212', normal, compile, ['-O'])
+
+test('noinline01', only_ways(['optasm']), compile, ['-ddump-stg -dsuppress-uniques -O'])
+test('par01', only_ways(['optasm']), compile, ['-ddump-prep -dsuppress-uniques -O2'])
+test('T12776', normal, compile, ['-O2'])
+test('T9509',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T9509'])
+test('T12603',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T12603'])
+test('T12877', normal, run_command, ['$MAKE -s --no-print-directory T12877'])
+test('T13027', normal, compile, [''])
+test('T13025',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T13025'])
+test('T13156', normal, run_command, ['$MAKE -s --no-print-directory T13156'])
+test('T11444', normal, compile, [''])
+test('str-rules',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory str-rules'])