diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-14 15:29:46 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-14 15:29:46 +0400 |
commit | b006a0d096a60ad9d63e972857dde55f252a1ad7 (patch) | |
tree | c5f39a5ff7aa40ebd5b8c1f8ffa8d985e30d10d9 /tests/System/Torrent/FileMapSpec.hs | |
parent | e92491be179e1452f4ddf932e8d5fa302fdd12e3 (diff) |
Fix segfault in storage test case
Diffstat (limited to 'tests/System/Torrent/FileMapSpec.hs')
-rw-r--r-- | tests/System/Torrent/FileMapSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/System/Torrent/FileMapSpec.hs b/tests/System/Torrent/FileMapSpec.hs index 90ba3ab9..23447e55 100644 --- a/tests/System/Torrent/FileMapSpec.hs +++ b/tests/System/Torrent/FileMapSpec.hs | |||
@@ -69,8 +69,8 @@ spec = do | |||
69 | unmapFiles m | 69 | unmapFiles m |
70 | 70 | ||
71 | it "no buffer overflow errors" $ do | 71 | it "no buffer overflow errors" $ do |
72 | m <- mmapFiles ReadOnly layout | 72 | m <- mmapFiles ReadWrite layout |
73 | writeBytes 5 "ddddddddd" m -- cause segfault | 73 | writeBytes 5 "ddddddddd" m |
74 | unmapFiles m | 74 | unmapFiles m |
75 | 75 | ||
76 | BL.readFile (fst (layout !! 2)) `shouldReturn` "dd" | 76 | BL.readFile (fst (layout !! 2)) `shouldReturn` "dd" |