From adf06bd04dc8dc39bc466b13a16770578fbab22d Mon Sep 17 00:00:00 2001
From: John Goerzen <jgoerzen@complete.org>
Date: Tue, 12 Aug 2008 09:38:33 -0500
Subject: [PATCH] noCR also implies no null

---
 testsrc/TestConnection.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsrc/TestConnection.hs b/testsrc/TestConnection.hs
index 9ef5115..97c7f03 100644
--- 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 =
-- 
2.39.2