respText stuff is working

[offlineimap] / testsrc / TestParser.hs

diff --git a/testsrc/TestParser.hs b/testsrc/TestParser.hs
index 704d65622db16caa23d74767a49af82ec118c1bf..69a6bfb684c405e6b20239b0f7655c01b28618de 100644 (file)
--- a/testsrc/TestParser.hs
+++ b/testsrc/TestParser.hs
@@ -77,7 +77,7 @@ prop_respTextSimple s =
 
 prop_respTextAtom :: String -> Property
 prop_respTextAtom s2 =
-    isValidAtom s2 && isValidText s1 ==>
+    isValidAtom s2 && isValidText s1 && ']' `notElem` s1 ==>
     p respText ("[" ++ s2 ++ "] " ++ s1) @?=
       Just (RespText (Just s2) s1)
     where s1 = reverse s2 -- Gen manually to avoid test exhaustion