From d6cf33c3e092e98f3adfad7886d3850e54e4b01b Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Sat, 3 Sep 2016 21:36:06 +0200
Subject: [PATCH] Add testcase for not-yet-fixed pattern problem

---
 src-unittests/IdentityTests.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src-unittests/IdentityTests.hs b/src-unittests/IdentityTests.hs
index 5632153..4ac6662 100644
--- a/src-unittests/IdentityTests.hs
+++ b/src-unittests/IdentityTests.hs
@@ -657,3 +657,15 @@ regressionTests = do
           else bar
         else Nothing
       |]
+  it "qualified infix pattern" $ do
+    pendingWith "TODO"
+    roundTripEqual $
+      [text|
+      wrapPatPrepend pat prepElem = do
+        patDocs <- layoutPat pat
+        case Seq.viewl patDocs of
+          Seq.EmptyL -> return $ Seq.empty
+          x1 Seq.:< xR -> do
+            x1' <- docSeq [prepElem, return x1]
+            return $ x1' Seq.<| xR
+      |]