noCR also implies no null

diff --git a/testsrc/TestConnection.hs b/testsrc/TestConnection.hs
index 9ef511550281f797978a5f722fce022197e84a4b..97c7f03e4d1d914e9cc64b40ae35ede62deaaf4b 100644 (file)
--- a/testsrc/TestConnection.hs
+++ b/testsrc/TestConnection.hs
@@ -46,7 +46,7 @@ expectedString f =
                 _ -> (intercalate "\r\n" f) ++ "\r\n"
 
 noCR :: [String] -> Bool
-noCR s = and (map (notElem '\r') s)
+noCR s = and (map (\e -> notElem '\r' e && notElem '\NUL' e) s)
 
 prop_readLine :: [String] -> Property
 prop_readLine s =