Skip to content
Snippets Groups Projects
Commit 063aea3f authored by Ben Gamari's avatar Ben Gamari :turtle:
Browse files

tests/fdReadBuf001: Add some debug output

parent fcaa530a
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment