[commit: packages/time] format-widths: test: separate Unix-specific test stanza (b13119e)

git at git.haskell.org git at git.haskell.org
Mon Feb 20 21:20:29 UTC 2017


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

On branch  : format-widths
Link       : http://git.haskell.org/packages/time.git/commitdiff/b13119e1557c3edfbc9d6fee7311671e55b6e16b

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

commit b13119e1557c3edfbc9d6fee7311671e55b6e16b
Author: Ashley Yakeley <ashley at yakeley.org>
Date:   Fri Feb 3 14:09:12 2017 -0800

    test: separate Unix-specific test stanza


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

b13119e1557c3edfbc9d6fee7311671e55b6e16b
 test/main/Main.hs                              |  4 +---
 test/unix/Main.hs                              | 20 +++++++++++++++++
 test/{main => unix}/Test/LocalTime/TimeZone.hs |  0
 time.cabal                                     | 30 ++++++++++++++++++++++++--
 4 files changed, 49 insertions(+), 5 deletions(-)

diff --git a/test/main/Main.hs b/test/main/Main.hs
index e0c3eaf..8f205e3 100644
--- a/test/main/Main.hs
+++ b/test/main/Main.hs
@@ -16,7 +16,6 @@ import Test.Clock.TAI
 import Test.Format.Format
 import Test.Format.ParseTime
 import Test.LocalTime.Time
-import Test.LocalTime.TimeZone
 
 
 tests :: TestTree
@@ -41,8 +40,7 @@ tests = testGroup "Time" [
         testParseTime
         ],
     testGroup "LocalTime" [
-        testTime,
-        testTimeZone
+        testTime
         ]
     ]
 
diff --git a/test/unix/Main.hs b/test/unix/Main.hs
new file mode 100644
index 0000000..8d1b932
--- /dev/null
+++ b/test/unix/Main.hs
@@ -0,0 +1,20 @@
+module Main where
+
+import Foreign.C.Types
+import Test.Tasty
+import Test.LocalTime.TimeZone
+
+
+tests :: TestTree
+tests = testGroup "Time" [
+    testGroup "LocalTime" [
+        testTimeZone
+        ]
+    ]
+
+main :: IO ()
+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
diff --git a/test/main/Test/LocalTime/TimeZone.hs b/test/unix/Test/LocalTime/TimeZone.hs
similarity index 100%
rename from test/main/Test/LocalTime/TimeZone.hs
rename to test/unix/Test/LocalTime/TimeZone.hs
diff --git a/time.cabal b/time.cabal
index cc43eff..a30fc45 100644
--- a/time.cabal
+++ b/time.cabal
@@ -133,8 +133,7 @@ test-suite test-main
         QuickCheck,
         tasty,
         tasty-hunit,
-        tasty-quickcheck,
-        unix
+        tasty-quickcheck
     main-is: Main.hs
     other-modules:
         Test.TestUtil
@@ -159,4 +158,31 @@ test-suite test-main
         Test.Format.ParseTime
         Test.LocalTime.Time
         Test.LocalTime.TimeRef
+
+test-suite test-unix
+    type: exitcode-stdio-1.0
+    hs-source-dirs: test/unix
+    default-language: Haskell2010
+    default-extensions:
+        Rank2Types
+        CPP
+        DeriveDataTypeable
+        StandaloneDeriving
+        ExistentialQuantification
+        MultiParamTypeClasses
+        FlexibleInstances
+        UndecidableInstances
+        ScopedTypeVariables
+    ghc-options: -Wall -fwarn-tabs
+    build-depends:
+        base,
+        deepseq,
+        time,
+        unix,
+        QuickCheck,
+        tasty,
+        tasty-hunit,
+        tasty-quickcheck
+    main-is: Main.hs
+    other-modules:
         Test.LocalTime.TimeZone



More information about the ghc-commits mailing list