diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-12 11:47:13 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-12 16:34:11 +0100 |
| commit | c7dd6dbbc97ac91df98ab8c9554056a9b6d55591 (patch) | |
| tree | e8f06a65fc116083b4c279a81b3ad2f902b6d8f6 | |
| parent | 53a6cc89d40488969d776ced4dc6770eeda71680 (diff) | |
| download | haskell-c7dd6dbbc97ac91df98ab8c9554056a9b6d55591.tar.gz | |
add test for #5243
4 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/parser/should_compile/T5243.hs b/testsuite/tests/ghc-regress/parser/should_compile/T5243.hs new file mode 100644 index 0000000000..e58ace299b --- /dev/null +++ b/testsuite/tests/ghc-regress/parser/should_compile/T5243.hs @@ -0,0 +1 @@ + { import T5243A; main = print bar } diff --git a/testsuite/tests/ghc-regress/parser/should_compile/T5243.stderr b/testsuite/tests/ghc-regress/parser/should_compile/T5243.stderr new file mode 100644 index 0000000000..450e001237 --- /dev/null +++ b/testsuite/tests/ghc-regress/parser/should_compile/T5243.stderr @@ -0,0 +1,3 @@ +[1 of 2] Compiling T5243A ( T5243A.hs, T5243A.o ) +[2 of 2] Compiling Main ( T5243.hs, T5243.o ) +Linking T5243 ... diff --git a/testsuite/tests/ghc-regress/parser/should_compile/T5243A.hs b/testsuite/tests/ghc-regress/parser/should_compile/T5243A.hs new file mode 100644 index 0000000000..2332c84004 --- /dev/null +++ b/testsuite/tests/ghc-regress/parser/should_compile/T5243A.hs @@ -0,0 +1,2 @@ +module T5243A where +bar = True diff --git a/testsuite/tests/ghc-regress/parser/should_compile/all.T b/testsuite/tests/ghc-regress/parser/should_compile/all.T index 6609e269c4..328c0651c3 100644 --- a/testsuite/tests/ghc-regress/parser/should_compile/all.T +++ b/testsuite/tests/ghc-regress/parser/should_compile/all.T @@ -90,3 +90,5 @@ test('NondecreasingIndentation', normal, compile, ['']) test('mc15', normal, compile, ['']) test('mc16', normal, compile, ['']) test('EmptyDecls', normal, compile, ['']) + +test('T5243', normal, multimod_compile, ['T5243','']) |