Improve test T5373
authorIan Lynagh <igloo@earth.li>
Tue, 11 Oct 2011 20:26:35 +0000 (21:26 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 11 Oct 2011 20:26:35 +0000 (21:26 +0100)
testsuite/tests/dynlibs/Makefile
testsuite/tests/dynlibs/T5373.stdout
testsuite/tests/dynlibs/T5373D.hs [new file with mode: 0644]
testsuite/tests/dynlibs/all.T

index d5561ae..9f6469b 100644 (file)
@@ -35,7 +35,9 @@ T5373:
        '$(TEST_HC)' $(TEST_HC_OPTS) -v0 -dynamic --make T5373A
        '$(TEST_HC)' $(TEST_HC_OPTS) -v0 -dynamic --make T5373B -rtsopts
        '$(TEST_HC)' $(TEST_HC_OPTS) -v0 -dynamic --make T5373C -rtsopts=some
-       -./T5373A +RTS -\? 2>&1 | grep "Most RTS options are disabled"
-       -./T5373B +RTS -\? 2>&1 | grep "Most RTS options are disabled"
-       -./T5373C +RTS -\? 2>&1 | grep "Most RTS options are disabled"
+       '$(TEST_HC)' $(TEST_HC_OPTS) -v0 -dynamic --make T5373D -rtsopts=none
+       -./T5373A +RTS -\? 2>&1 | grep disabled
+       -./T5373B +RTS -\? 2>&1 | grep disabled
+       -./T5373C +RTS -\? 2>&1 | grep disabled
+       -./T5373D +RTS -\? 2>&1 | grep disabled
 
index f06de0a..1031fde 100644 (file)
@@ -1,2 +1,3 @@
 T5373A: Most RTS options are disabled. Link with -rtsopts to enable them.
 T5373C: Most RTS options are disabled. Link with -rtsopts to enable them.
+T5373D: RTS options are disabled. Link with -rtsopts to enable them.
diff --git a/testsuite/tests/dynlibs/T5373D.hs b/testsuite/tests/dynlibs/T5373D.hs
new file mode 100644 (file)
index 0000000..0570fb1
--- /dev/null
@@ -0,0 +1,4 @@
+
+main :: IO ()
+main = return ()
+
index 3a2cf82..df0113b 100644 (file)
@@ -19,10 +19,12 @@ test('T4464',
      ['$MAKE --no-print-directory -s T4464'])
 
 test('T5373',
-     extra_clean(['T5373A.hi',  'T5373B.hi',  'T5373C.hi',
-                  'T5373A.o',   'T5373B.o',   'T5373C.o',
-                  'T5373A',     'T5373B',     'T5373C',
-                  'T5373A.exe', 'T5373B.exe', 'T5373C.exe']),
+     [extra_clean(['T5373A.hi',  'T5373B.hi',  'T5373C.hi',  'T5373D.hi',
+                   'T5373A.o',   'T5373B.o',   'T5373C.o',   'T5373D.o',
+                   'T5373A',     'T5373B',     'T5373C',     'T5373D',
+                   'T5373A.exe', 'T5373B.exe', 'T5373C.exe', 'T5373D.exe']),
+      if_os('mingw32', expect_broken(5373)),
+      if_os('darwin', expect_broken(5373))],
      run_command,
      ['$MAKE --no-print-directory -s T5373'])