diff options
author | Joachim Breitner <mail@joachim-breitner.de> | 2014-12-29 19:37:19 +0100 |
---|---|---|
committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-12-29 19:39:11 +0100 |
commit | 65e3e0b2ce125b906efca129c92673fc40cf79f6 (patch) | |
tree | b771c2413bcdfa24b55bb73d3f30e6fdd6bbc141 | |
parent | 4e1e776a4cc54f117c2cbbdba1d4ed9be453b550 (diff) | |
download | haskell-65e3e0b2ce125b906efca129c92673fc40cf79f6.tar.gz |
Test case for #9938
Marked as known_broken
-rw-r--r-- | testsuite/tests/driver/Makefile | 6 | ||||
-rw-r--r-- | testsuite/tests/driver/T9938.hs | 13 | ||||
-rw-r--r-- | testsuite/tests/driver/all.T | 4 |
3 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/tests/driver/Makefile b/testsuite/tests/driver/Makefile index 11724a53cd..2acedfc851 100644 --- a/testsuite/tests/driver/Makefile +++ b/testsuite/tests/driver/Makefile @@ -586,3 +586,9 @@ write_interface_make: $(RM) -rf write_interface_make/A011.hi "$(TEST_HC)" $(TEST_HC_OPTS) -hidir write_interface_make -fno-code -fwrite-interface --make A011.hs test -f write_interface_make/A011.hi + +.PHONY: T9938 +T9938: + $(RM) -rf T9938.o T9938.hi T9938 + "$(TEST_HC)" -c T9938.hs + "$(TEST_HC)" T9938.o -o T9938 diff --git a/testsuite/tests/driver/T9938.hs b/testsuite/tests/driver/T9938.hs new file mode 100644 index 0000000000..f9bb13179e --- /dev/null +++ b/testsuite/tests/driver/T9938.hs @@ -0,0 +1,13 @@ +module Main where + +import Control.Monad +import Control.Monad.Trans.State + +solve :: Int -> StateT () [] () +solve carry | carry > 0 = + do guard (0 == carry) + solve (carry -1) +solve 0 = mzero + +main :: IO () +main = return () diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index ed4d924843..cd38cebbae 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/tests/driver/all.T @@ -410,3 +410,7 @@ test('write_interface_make', normal, run_command, ['$MAKE -s --no-print-director test('T9776', normal, compile_fail, ['-frule-check']) +test('T9938', + [ extra_clean(['T9938.hi', 'T9938.o', 'T9938']), expect_broken(9938)], + run_command, + ['$MAKE -s --no-print-directory T9938']) |