summaryrefslogtreecommitdiff
path: root/testsuite/tests
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests')
-rw-r--r--testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr108
-rw-r--r--testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr18
-rw-r--r--testsuite/tests/parser/should_compile/DumpParsedAst.stderr20
-rw-r--r--testsuite/tests/parser/should_compile/DumpRenamedAst.stderr6
-rw-r--r--testsuite/tests/parser/should_compile/T14189.stderr2
-rw-r--r--testsuite/tests/parser/should_compile/T15323.stderr9
-rw-r--r--testsuite/tests/printer/Makefile4
-rw-r--r--testsuite/tests/printer/T18791.stderr10
-rw-r--r--testsuite/tests/printer/Test19834.hs4
-rw-r--r--testsuite/tests/printer/all.T2
10 files changed, 73 insertions, 110 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
index db88734005..622ba39adf 100644
--- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr
@@ -760,7 +760,14 @@
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:(24,3)-(25,18) })
(DataFamInstDecl
(FamEqn
- (EpAnnNotUsed)
+ (EpAnn
+ (Anchor
+ { T17544.hs:(24,3)-(25,18) }
+ (UnchangedAnchor))
+ [(AddEpAnn AnnData (EpaSpan { T17544.hs:24:3-6 }))
+ ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:24:15-19 }))]
+ (EpaComments
+ []))
(L
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:24:8-9 })
(Unqual
@@ -785,14 +792,7 @@
{OccName: Int})))))]
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544.hs:(24,3)-(25,18) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544.hs:24:3-6 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:24:15-19 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -1020,7 +1020,14 @@
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:(30,3)-(31,18) })
(DataFamInstDecl
(FamEqn
- (EpAnnNotUsed)
+ (EpAnn
+ (Anchor
+ { T17544.hs:(30,3)-(31,18) }
+ (UnchangedAnchor))
+ [(AddEpAnn AnnData (EpaSpan { T17544.hs:30:3-6 }))
+ ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:30:15-19 }))]
+ (EpaComments
+ []))
(L
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:30:8-9 })
(Unqual
@@ -1045,14 +1052,7 @@
{OccName: Int})))))]
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544.hs:(30,3)-(31,18) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544.hs:30:3-6 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:30:15-19 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -1280,7 +1280,14 @@
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:(36,3)-(37,18) })
(DataFamInstDecl
(FamEqn
- (EpAnnNotUsed)
+ (EpAnn
+ (Anchor
+ { T17544.hs:(36,3)-(37,18) }
+ (UnchangedAnchor))
+ [(AddEpAnn AnnData (EpaSpan { T17544.hs:36:3-6 }))
+ ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:36:15-19 }))]
+ (EpaComments
+ []))
(L
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:36:8-9 })
(Unqual
@@ -1305,14 +1312,7 @@
{OccName: Int})))))]
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544.hs:(36,3)-(37,18) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544.hs:36:3-6 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:36:15-19 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -1540,7 +1540,14 @@
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:(42,3)-(43,18) })
(DataFamInstDecl
(FamEqn
- (EpAnnNotUsed)
+ (EpAnn
+ (Anchor
+ { T17544.hs:(42,3)-(43,18) }
+ (UnchangedAnchor))
+ [(AddEpAnn AnnData (EpaSpan { T17544.hs:42:3-6 }))
+ ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:42:15-19 }))]
+ (EpaComments
+ []))
(L
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:42:8-9 })
(Unqual
@@ -1565,14 +1572,7 @@
{OccName: Int})))))]
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544.hs:(42,3)-(43,18) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544.hs:42:3-6 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:42:15-19 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -1800,7 +1800,14 @@
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:(48,3)-(49,18) })
(DataFamInstDecl
(FamEqn
- (EpAnnNotUsed)
+ (EpAnn
+ (Anchor
+ { T17544.hs:(48,3)-(49,18) }
+ (UnchangedAnchor))
+ [(AddEpAnn AnnData (EpaSpan { T17544.hs:48:3-6 }))
+ ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:48:15-19 }))]
+ (EpaComments
+ []))
(L
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:48:8-9 })
(Unqual
@@ -1825,14 +1832,7 @@
{OccName: Int})))))]
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544.hs:(48,3)-(49,18) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544.hs:48:3-6 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:48:15-19 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -2060,7 +2060,14 @@
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:(54,3)-(55,20) })
(DataFamInstDecl
(FamEqn
- (EpAnnNotUsed)
+ (EpAnn
+ (Anchor
+ { T17544.hs:(54,3)-(55,20) }
+ (UnchangedAnchor))
+ [(AddEpAnn AnnData (EpaSpan { T17544.hs:54:3-6 }))
+ ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:54:16-20 }))]
+ (EpaComments
+ []))
(L
(SrcSpanAnn (EpAnnNotUsed) { T17544.hs:54:8-10 })
(Unqual
@@ -2085,14 +2092,7 @@
{OccName: Int})))))]
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544.hs:(54,3)-(55,20) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544.hs:54:3-6 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544.hs:54:16-20 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
index 6d58a727af..82d2122d3e 100644
--- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
+++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr
@@ -63,14 +63,7 @@
[])
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544_kw.hs:(15,1)-(16,20) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T17544_kw.hs:15:1-4 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544_kw.hs:16:3-7 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -146,14 +139,7 @@
[])
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T17544_kw.hs:(18,1)-(19,26) }
- (UnchangedAnchor))
- [(AddEpAnn AnnNewtype (EpaSpan { T17544_kw.hs:18:1-7 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T17544_kw.hs:19:3-7 }))]
- (EpaComments
- []))
+ (NoExtField)
(NewType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
index 106851f2e8..025df2068b 100644
--- a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
+++ b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr
@@ -89,14 +89,7 @@
[])
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { DumpParsedAst.hs:8:1-30 }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { DumpParsedAst.hs:8:1-4 }))
- ,(AddEpAnn AnnEqual (EpaSpan { DumpParsedAst.hs:8:12 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -530,16 +523,7 @@
{OccName: k}))))))])
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { DumpParsedAst.hs:15:1-29 }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { DumpParsedAst.hs:15:1-4 }))
- ,(AddEpAnn AnnEqual (EpaSpan { DumpParsedAst.hs:15:19 }))
- ,(AddEpAnn AnnCloseP (EpaSpan { DumpParsedAst.hs:15:17 }))
- ,(AddEpAnn AnnOpenP (EpaSpan { DumpParsedAst.hs:15:10 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
index f4d1b9b206..23014768e8 100644
--- a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
+++ b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr
@@ -107,7 +107,7 @@
[])
(Prefix)
(HsDataDefn
- (EpAnnNotUsed)
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
@@ -495,7 +495,7 @@
{Name: GHC.Types.Type}))))))))))]
(Prefix)
(HsDataDefn
- (EpAnnNotUsed)
+ (NoExtField)
(NewType)
(Nothing)
(Nothing)
@@ -752,7 +752,7 @@
{Name: k})))))])
(Prefix)
(HsDataDefn
- (EpAnnNotUsed)
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/parser/should_compile/T14189.stderr b/testsuite/tests/parser/should_compile/T14189.stderr
index 5871c41b1c..f5cd2ecb36 100644
--- a/testsuite/tests/parser/should_compile/T14189.stderr
+++ b/testsuite/tests/parser/should_compile/T14189.stderr
@@ -34,7 +34,7 @@
[])
(Prefix)
(HsDataDefn
- (EpAnnNotUsed)
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/parser/should_compile/T15323.stderr b/testsuite/tests/parser/should_compile/T15323.stderr
index 987a5b88a6..20867efede 100644
--- a/testsuite/tests/parser/should_compile/T15323.stderr
+++ b/testsuite/tests/parser/should_compile/T15323.stderr
@@ -77,14 +77,7 @@
{OccName: v}))))])
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T15323.hs:(5,1)-(6,54) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T15323.hs:5:1-4 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T15323.hs:5:21-25 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/printer/Makefile b/testsuite/tests/printer/Makefile
index 653b9d3300..94893f6347 100644
--- a/testsuite/tests/printer/Makefile
+++ b/testsuite/tests/printer/Makefile
@@ -583,3 +583,7 @@ Test19821:
$(CHECK_PPR) $(LIBDIR) Test19821.hs
$(CHECK_EXACT) $(LIBDIR) Test19821.hs
+.PHONY: Test19834
+Test19834:
+ $(CHECK_PPR) $(LIBDIR) Test19834.hs
+ $(CHECK_EXACT) $(LIBDIR) Test19834.hs
diff --git a/testsuite/tests/printer/T18791.stderr b/testsuite/tests/printer/T18791.stderr
index 3ff58cc17e..ac100b217e 100644
--- a/testsuite/tests/printer/T18791.stderr
+++ b/testsuite/tests/printer/T18791.stderr
@@ -1,7 +1,6 @@
==================== Parser AST ====================
-
(L
{ T18791.hs:1:1 }
(HsModule
@@ -64,14 +63,7 @@
[])
(Prefix)
(HsDataDefn
- (EpAnn
- (Anchor
- { T18791.hs:(4,1)-(5,17) }
- (UnchangedAnchor))
- [(AddEpAnn AnnData (EpaSpan { T18791.hs:4:1-4 }))
- ,(AddEpAnn AnnWhere (EpaSpan { T18791.hs:4:8-12 }))]
- (EpaComments
- []))
+ (NoExtField)
(DataType)
(Nothing)
(Nothing)
diff --git a/testsuite/tests/printer/Test19834.hs b/testsuite/tests/printer/Test19834.hs
new file mode 100644
index 0000000000..bc4a118aa3
--- /dev/null
+++ b/testsuite/tests/printer/Test19834.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE TypeOperators #-}
+module Test19834 where
+
+data (a:.b) = a:.b
diff --git a/testsuite/tests/printer/all.T b/testsuite/tests/printer/all.T
index 51b63b880f..618206ae54 100644
--- a/testsuite/tests/printer/all.T
+++ b/testsuite/tests/printer/all.T
@@ -132,4 +132,4 @@ test('Test19798', ignore_stderr, makefile_test, ['Test19798'])
test('Test19813', ignore_stderr, makefile_test, ['Test19813'])
test('Test19814', ignore_stderr, makefile_test, ['Test19814'])
test('Test19821', ignore_stderr, makefile_test, ['Test19821'])
-
+test('Test19834', ignore_stderr, makefile_test, ['Test19834'])
View Lorry Controller Status