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 | |
| parent | e92491be179e1452f4ddf932e8d5fa302fdd12e3 (diff) | |
Fix segfault in storage test case
Diffstat (limited to 'tests/System/Torrent')
| -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" |