Skip to content
Snippets Groups Projects
Commit 63896a33 authored by Ashley Yakeley's avatar Ashley Yakeley
Browse files

test warning on 32-bit systems

Ignore-this: 8b699d17f9112b170580414a8b4a2b2

darcs-hash:20121125101839-ac6dd-953b3b0c939f02e528a3a8fb3fce55365e8839c4
parent fc49f3e9
No related branches found
No related tags found
No related merge requests found
module Main where module Main where
import Test.Framework import Test.Framework
import Test.Tests import Test.Tests
import Foreign.C.Types
main :: IO () 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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment