diff options
| -rw-r--r-- | testsuite/tests/hsc2hs/Makefile | 5 | ||||
| -rw-r--r-- | testsuite/tests/hsc2hs/T15758.hsc | 6 | ||||
| -rw-r--r-- | testsuite/tests/hsc2hs/T15758.response | 1 | ||||
| -rw-r--r-- | testsuite/tests/hsc2hs/all.T | 3 | ||||
| m--------- | utils/hsc2hs | 0 |
5 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/hsc2hs/Makefile b/testsuite/tests/hsc2hs/Makefile index fa668e74ac..b0751f1e50 100644 --- a/testsuite/tests/hsc2hs/Makefile +++ b/testsuite/tests/hsc2hs/Makefile @@ -49,3 +49,8 @@ ifeq "$(WINDOWS)" "YES" else grep '{-# LINE 1 \"T12504/path/to/$@\.hsc\" #-}' T12504/path/to/$@.hs endif + +.PHONY: T15758 +T15758: + '$(HSC2HS)' $@.hsc @T15758.response + '$(TEST_HC)' $(TEST_HC_OPTS) -c $@.a.hs diff --git a/testsuite/tests/hsc2hs/T15758.hsc b/testsuite/tests/hsc2hs/T15758.hsc new file mode 100644 index 0000000000..4a47501859 --- /dev/null +++ b/testsuite/tests/hsc2hs/T15758.hsc @@ -0,0 +1,6 @@ + +module Main (main) where + +main :: IO () +main = print #size int + diff --git a/testsuite/tests/hsc2hs/T15758.response b/testsuite/tests/hsc2hs/T15758.response new file mode 100644 index 0000000000..ea0d6b18d0 --- /dev/null +++ b/testsuite/tests/hsc2hs/T15758.response @@ -0,0 +1 @@ +-o T15758.a.hs diff --git a/testsuite/tests/hsc2hs/all.T b/testsuite/tests/hsc2hs/all.T index 03dd69a8d4..f237d9ac59 100644 --- a/testsuite/tests/hsc2hs/all.T +++ b/testsuite/tests/hsc2hs/all.T @@ -16,3 +16,6 @@ test('T10272', [], run_command, ['$MAKE -s --no-print-directory T10272']) test('T12504', [extra_files(['T12504']), ignore_stdout], run_command, ['$MAKE -s --no-print-directory T12504']) + +# Make sure response files are read and used. +test('T15758', [], run_command, ['$MAKE -s --no-print-directory T15758']) diff --git a/utils/hsc2hs b/utils/hsc2hs -Subproject 769ac3cda8bd766e9a41a74eb681e2de1bac679 +Subproject 8807b4cd9b9efc719828b52cd9aecb9892d3d80 |