[commit: packages/time] format-widths, ghc, improve-leapseconds, master, posix-perf, tasty, wip/travis: test warning on 32-bit systems (63896a3)

git at git.haskell.org git at git.haskell.org
Fri Apr 21 16:51:47 UTC 2017


Repository : ssh://git@git.haskell.org/time

On branches: format-widths,ghc,improve-leapseconds,master,posix-perf,tasty,wip/travis
Link       : http://git.haskell.org/packages/time.git/commitdiff/63896a3379e35c635487ecb0c8ca90fb0debb6f4

>---------------------------------------------------------------

commit 63896a3379e35c635487ecb0c8ca90fb0debb6f4
Author: Ashley Yakeley <ashley at semantic.org>
Date:   Sun Nov 25 02:18:39 2012 -0800

    test warning on 32-bit systems
    
    Ignore-this: 8b699d17f9112b170580414a8b4a2b2
    
    darcs-hash:20121125101839-ac6dd-953b3b0c939f02e528a3a8fb3fce55365e8839c4


>---------------------------------------------------------------

63896a3379e35c635487ecb0c8ca90fb0debb6f4
 Test.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Test.hs b/Test.hs
index 27e2bee..855e73c 100644
--- a/Test.hs
+++ b/Test.hs
@@ -1,6 +1,11 @@
 module Main where
 import Test.Framework
 import Test.Tests
+import Foreign.C.Types
 
 main :: IO ()
-main = defaultMain tests
+main = do
+  if (toRational (1000000000000 :: CTime)) /= (1000000000000 :: Rational)
+    then putStrLn "WARNING: Some tests will incorrectly fail due to a 32-bit time_t C type."
+    else return ()
+  defaultMain tests



More information about the ghc-commits mailing list