diff options
Diffstat (limited to 'testsuite/tests/printer')
| -rw-r--r-- | testsuite/tests/printer/Makefile | 5 | ||||
| -rw-r--r-- | testsuite/tests/printer/Test19798.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/printer/all.T | 3 |
3 files changed, 13 insertions, 1 deletions
diff --git a/testsuite/tests/printer/Makefile b/testsuite/tests/printer/Makefile index 3bd736b7a8..fe95e5a237 100644 --- a/testsuite/tests/printer/Makefile +++ b/testsuite/tests/printer/Makefile @@ -562,3 +562,8 @@ InTreeAnnotations1: Test19784: $(CHECK_PPR) $(LIBDIR) Test19784.hs $(CHECK_EXACT) $(LIBDIR) Test19784.hs + +.PHONY: Test19798 +Test19798: + $(CHECK_PPR) $(LIBDIR) Test19798.hs + $(CHECK_EXACT) $(LIBDIR) Test19798.hs diff --git a/testsuite/tests/printer/Test19798.hs b/testsuite/tests/printer/Test19798.hs new file mode 100644 index 0000000000..0b9e5162f1 --- /dev/null +++ b/testsuite/tests/printer/Test19798.hs @@ -0,0 +1,6 @@ +module Test19798 where + +blah = do { + ; print "a" + ; print "b" + } diff --git a/testsuite/tests/printer/all.T b/testsuite/tests/printer/all.T index 04d6d33acc..d73e82ad2a 100644 --- a/testsuite/tests/printer/all.T +++ b/testsuite/tests/printer/all.T @@ -124,4 +124,5 @@ test('PprRecordDotSyntaxA', ignore_stderr, makefile_test, ['PprRecordDotSyntaxA' test('CommentsTest', ignore_stderr, makefile_test, ['CommentsTest']) test('InTreeAnnotations1', ignore_stderr, makefile_test, ['InTreeAnnotations1']) -test('Test19784', ignore_stderr, makefile_test, ['Test19784'])
\ No newline at end of file +test('Test19784', ignore_stderr, makefile_test, ['Test19784']) +test('Test19798', ignore_stderr, makefile_test, ['Test19798']) |