diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-11 21:26:35 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-11 21:26:35 +0100 |
| commit | ae94844f4447c2fbdf2577e2d6e476054a3d3e9e (patch) | |
| tree | 16a996988c546b964b42bd3ff112084e95db5803 /testsuite/tests/dynlibs | |
| parent | 41cfaef3258eb5deb87adec427942b7b743eabef (diff) | |
| download | haskell-ae94844f4447c2fbdf2577e2d6e476054a3d3e9e.tar.gz | |
Improve test T5373
Diffstat (limited to 'testsuite/tests/dynlibs')
| -rw-r--r-- | testsuite/tests/dynlibs/Makefile | 8 | ||||
| -rw-r--r-- | testsuite/tests/dynlibs/T5373.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/dynlibs/T5373D.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/dynlibs/all.T | 10 |
4 files changed, 16 insertions, 7 deletions
diff --git a/testsuite/tests/dynlibs/Makefile b/testsuite/tests/dynlibs/Makefile index d5561ae736..9f6469b5cd 100644 --- a/testsuite/tests/dynlibs/Makefile +++ b/testsuite/tests/dynlibs/Makefile @@ -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 diff --git a/testsuite/tests/dynlibs/T5373.stdout b/testsuite/tests/dynlibs/T5373.stdout index f06de0a815..1031fdea23 100644 --- a/testsuite/tests/dynlibs/T5373.stdout +++ b/testsuite/tests/dynlibs/T5373.stdout @@ -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 index 0000000000..0570fb18e1 --- /dev/null +++ b/testsuite/tests/dynlibs/T5373D.hs @@ -0,0 +1,4 @@ + +main :: IO () +main = return () + diff --git a/testsuite/tests/dynlibs/all.T b/testsuite/tests/dynlibs/all.T index 3a2cf82501..df0113b916 100644 --- a/testsuite/tests/dynlibs/all.T +++ b/testsuite/tests/dynlibs/all.T @@ -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']) |