ref: bcb571d56500ce09f9994d7ae777e830c9a6e629
parent: e4d8e0a1fed4a8b48056e0ee2958eee02c6e6110
author: Lennart Augustsson <lennart@augustsson.net>
date: Sat Apr 6 17:38:08 EDT 2024
Fix bug in test
--- a/tests/ForeignPtr.hs
+++ b/tests/ForeignPtr.hs
@@ -9,18 +9,21 @@
add :: Ptr a -> Int -> Ptr a
add = plusPtr
+sInt :: Int
+sInt = sizeOf (0::Int)
+
main :: IO ()
main = do
fp <- mallocForeignPtrArray 2
withForeignPtr fp $ \ p -> do
poke p (42::Int)
- poke (add p 8) (88::Int)
+ poke (add p sInt) (88::Int)
withForeignPtr fp $ \ p -> do
gc
peek p >>= print
- peek (add p 8) >>= print
+ peek (add p sInt) >>= print
let fp1 :: ForeignPtr Int
- fp1 = plusForeignPtr fp 8
+ fp1 = plusForeignPtr fp sInt
withForeignPtr fp1 $ \ p -> do
peek p >>= print
gc
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -62,7 +62,7 @@
$(TMHS) Infer && $(EVAL) > Infer.out && diff Infer.ref Infer.out
$(TMHS) Enum && $(EVAL) > Enum.out && diff Enum.ref Enum.out
$(TMHS) RecMdl && $(EVAL) > RecMdl.out && diff RecMdl.ref RecMdl.out
-# $(TMHS) ForeignPtr && $(EVAL) > ForeignPtr.out && diff ForeignPtr.ref ForeignPtr.out
+ $(TMHS) ForeignPtr && $(EVAL) > ForeignPtr.out && diff ForeignPtr.ref ForeignPtr.out
errtest:
sh errtester.sh < errmsg.test
--
⑨