Add testcase for not-yet-fixed pattern problem

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
+      |]