ref: 11de082b61546dbd5b02bb2a5d3a389a9a716ec5
parent: e7723067ad41a4ebac99045704fde4c7eb20d77c
author: Lennart Augustsson <lennart@augustsson.net>
date: Fri Sep 27 07:44:22 EDT 2024
Rename test file
--- a/tests/Foreign.hs
+++ /dev/null
@@ -1,19 +1,0 @@
-module Foreign(main) where
-import Prelude
-import Foreign.C.Types
-import Foreign.Ptr
-import Foreign.Storable
-
-foreign import ccall "llabs" iabs :: Int -> IO Int
-foreign import ccall "sys/errno.h &errno" cerrno :: IO (Ptr CInt)
-foreign import ccall "&llabs" pabs :: IO (FunPtr (Int -> IO Int))
-
-main :: IO ()
-main = do
- x1 <- iabs (3 - 8)
- putStrLn $ show x1
- x2 <- iabs (10 - 8)
- putStrLn $ show x2
- p <- cerrno
- CInt e <- peek p
- print e
--- a/tests/Foreign.ref
+++ /dev/null
@@ -1,2 +1,0 @@
-5
-2
--- /dev/null
+++ b/tests/ForeignC.hs
@@ -1,0 +1,19 @@
+module ForeignC(main) where
+import Prelude
+import Foreign.C.Types
+import Foreign.Ptr
+import Foreign.Storable
+
+foreign import ccall "llabs" iabs :: Int -> IO Int
+foreign import ccall "sys/errno.h &errno" cerrno :: IO (Ptr CInt)
+foreign import ccall "&llabs" pabs :: IO (FunPtr (Int -> IO Int))
+
+main :: IO ()
+main = do
+ x1 <- iabs (3 - 8)
+ putStrLn $ show x1
+ x2 <- iabs (10 - 8)
+ putStrLn $ show x2
+ p <- cerrno
+ CInt e <- peek p
+ print e
--- /dev/null
+++ b/tests/ForeignC.ref
@@ -1,0 +1,2 @@
+5
+2
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -29,7 +29,7 @@
$(TMHS) Word && $(EVAL) > Word.out && diff Word.ref Word.out
$(TMHS) Integer && $(EVAL) > Integer.out && diff Integer.ref Integer.out
$(TMHS) Enum && $(EVAL) > Enum.out && diff Enum.ref Enum.out
-# $(TMHS) Foreign && $(EVAL) > Foreign.out && diff Foreign.ref Foreign.out
+# $(TMHS) ForeignC && $(EVAL) > ForeignC.out && diff ForeignC.ref ForeignC.out
$(TMHS) MutRec && $(EVAL) > MutRec.out && diff MutRec.ref MutRec.out
$(TMHS) LocalPoly && $(EVAL) > LocalPoly.out && diff LocalPoly.ref LocalPoly.out
$(TMHS) Rank2 && $(EVAL) > Rank2.out && diff Rank2.ref Rank2.out