summaryrefslogtreecommitdiff
path: root/testsuite/tests/dynlibs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-10-09 22:46:08 +0100
committerIan Lynagh <igloo@earth.li>2011-10-09 22:46:08 +0100
commit41cfaef3258eb5deb87adec427942b7b743eabef (patch)
treeafd4513af745f7b735fb5d7d45b3137b21da1965 /testsuite/tests/dynlibs
parent809f807a325d5554e15d8100f3e626f9eb769055 (diff)
downloadhaskell-41cfaef3258eb5deb87adec427942b7b743eabef.tar.gz
Add a test for #5373 (-rtsopts, dynamic libs and OSX / Windows)
Diffstat (limited to 'testsuite/tests/dynlibs')
-rw-r--r--testsuite/tests/dynlibs/Makefile11
-rw-r--r--testsuite/tests/dynlibs/T5373.stdout2
-rw-r--r--testsuite/tests/dynlibs/T5373A.hs4
-rw-r--r--testsuite/tests/dynlibs/T5373B.hs4
-rw-r--r--testsuite/tests/dynlibs/T5373C.hs4
-rw-r--r--testsuite/tests/dynlibs/all.T8
6 files changed, 32 insertions, 1 deletions
diff --git a/testsuite/tests/dynlibs/Makefile b/testsuite/tests/dynlibs/Makefile
index d0efb6ef3b..d5561ae736 100644
--- a/testsuite/tests/dynlibs/Makefile
+++ b/testsuite/tests/dynlibs/Makefile
@@ -9,7 +9,7 @@ T3807:
$(RM) T3807-export.o T3807-load.o
$(RM) T3807test.so
$(RM) T3807-load
- '$(TEST_HC)' $(TEST_HC_OPTS) -v0 --make -dynamic -fPIC -shared T3807Export.hs T3807-export.c -o T3807test.so -lHSrts-ghc`'$(TEST_HC)' $(TEST_HC_OPTS) --numeric-version`
+ '$(TEST_HC)' $(TEST_HC_OPTS) -v0 --make -dynamic -fPIC -shared T3807Export.hs T3807-export.c -o T3807test.so -lHSrts-ghc`'$(TEST_HC)' $(TEST_HC_OPTS) --numeric-version` -rtsopts
'$(TEST_HC)' $(TEST_HC_OPTS) -no-auto-link-packages -no-hs-main T3807-load.c -o T3807-load -ldl
./T3807-load
@@ -30,3 +30,12 @@ T4464:
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 T4464C.c HS4464.dll.a -o t4464.exe
./t4464.exe
+.PHONY: T5373
+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"
+
diff --git a/testsuite/tests/dynlibs/T5373.stdout b/testsuite/tests/dynlibs/T5373.stdout
new file mode 100644
index 0000000000..f06de0a815
--- /dev/null
+++ b/testsuite/tests/dynlibs/T5373.stdout
@@ -0,0 +1,2 @@
+T5373A: Most RTS options are disabled. Link with -rtsopts to enable them.
+T5373C: Most RTS options are disabled. Link with -rtsopts to enable them.
diff --git a/testsuite/tests/dynlibs/T5373A.hs b/testsuite/tests/dynlibs/T5373A.hs
new file mode 100644
index 0000000000..0570fb18e1
--- /dev/null
+++ b/testsuite/tests/dynlibs/T5373A.hs
@@ -0,0 +1,4 @@
+
+main :: IO ()
+main = return ()
+
diff --git a/testsuite/tests/dynlibs/T5373B.hs b/testsuite/tests/dynlibs/T5373B.hs
new file mode 100644
index 0000000000..0570fb18e1
--- /dev/null
+++ b/testsuite/tests/dynlibs/T5373B.hs
@@ -0,0 +1,4 @@
+
+main :: IO ()
+main = return ()
+
diff --git a/testsuite/tests/dynlibs/T5373C.hs b/testsuite/tests/dynlibs/T5373C.hs
new file mode 100644
index 0000000000..0570fb18e1
--- /dev/null
+++ b/testsuite/tests/dynlibs/T5373C.hs
@@ -0,0 +1,4 @@
+
+main :: IO ()
+main = return ()
+
diff --git a/testsuite/tests/dynlibs/all.T b/testsuite/tests/dynlibs/all.T
index dd1c20fc50..3a2cf82501 100644
--- a/testsuite/tests/dynlibs/all.T
+++ b/testsuite/tests/dynlibs/all.T
@@ -18,3 +18,11 @@ test('T4464',
run_command,
['$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']),
+ run_command,
+ ['$MAKE --no-print-directory -s T5373'])
+