test(journal): extend test with another append and read

platonic-io · Jan 17, 2022 · c988b8c · c988b8c
1 parent 9ce2980
commit c988b8c
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/src/journal/src/Journal.hs b/src/journal/src/Journal.hs
@@ -304,12 +304,21 @@ tj = do
       opts = defaultOptions
   allocateJournal fp opts
   jour <- startJournal' fp opts
+
   Just (offset, claimBuf) <- tryClaim jour 5
   putStrLn ("offset: " ++ show offset)
   putBS claimBuf hEADER_LENGTH (BSChar8.pack "hello")
   commit claimBuf
   Just bs <- readJournal' jour
-  putStrLn ("read bytestring: '" ++ BSChar8.unpack bs ++ "'")
+  putStrLn ("read bytestring 1: '" ++ BSChar8.unpack bs ++ "'")
+
+  Just (offset', claimBuf') <- tryClaim jour 5
+  putStrLn ("offset': " ++ show offset')
+  putBS claimBuf' hEADER_LENGTH (BSChar8.pack "world")
+  commit claimBuf'
+  Just bs' <- readJournal' jour
+  putStrLn ("read bytestring 2: '" ++ BSChar8.unpack bs' ++ "'")
+
   dumpMetadata (jMetadata jour)
   return ()
 

diff --git a/src/journal/src/Journal/Internal/ByteBufferPtr.hs b/src/journal/src/Journal/Internal/ByteBufferPtr.hs
@@ -126,7 +126,7 @@ boundCheck bb ix = do
   where
     errMsg = concat
       [ prettyCallStack callStack
-      , "boundCheck: index out of bounds "
+      , "\nboundCheck: index out of bounds "
       , "(", show ix, ",", show (unCapacity (getCapacity bb)), ")"
       ]