From b006a0d096a60ad9d63e972857dde55f252a1ad7 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Sat, 14 Dec 2013 15:29:46 +0400
Subject: Fix segfault in storage test case

---
 tests/System/Torrent/FileMapSpec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/System/Torrent')

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
       unmapFiles m
 
     it "no buffer overflow errors" $ do
-      m <- mmapFiles ReadOnly layout
-      writeBytes 5 "ddddddddd" m -- cause segfault
+      m <- mmapFiles ReadWrite layout
+      writeBytes 5 "ddddddddd" m
       unmapFiles m
 
       BL.readFile (fst (layout !! 2)) `shouldReturn` "dd"
-- 
cgit v1.2.3