From 063aea3fbc5a8caa03d0deb9a887763006ab86df Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Tue, 1 Aug 2017 11:10:14 -0400
Subject: [PATCH] tests/fdReadBuf001: Add some debug output
---
tests/fdReadBuf001.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/fdReadBuf001.hs b/tests/fdReadBuf001.hs
index 4c121a2..f987c94 100644
--- a/tests/fdReadBuf001.hs
+++ b/tests/fdReadBuf001.hs
@@ -21,7 +21,7 @@ main = do
r <- fdReadBuf rd p block
let (chunk,rest) = splitAt (fromIntegral r) text
chars <- peekArray (fromIntegral r) p
- when (chars /= chunk) $ error "mismatch"
+ when (chars /= chunk) $ error $ "mismatch: expected="++show chunk++", found="++show chars
when (null rest) $ exitWith ExitSuccess
loop rest
loop bytes
--
GitLab