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

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"