Get working with lts-10
authorAshley Yakeley <ashley@semantic.org>
Sun, 7 Jan 2018 21:31:43 +0000 (13:31 -0800)
committerAshley Yakeley <ashley@semantic.org>
Sun, 7 Jan 2018 21:31:43 +0000 (13:31 -0800)
stack.yaml
test/main/Test/Format/ParseTime.hs
test/main/Test/TestUtil.hs
test/unix/Test/TestUtil.hs

index 90f24be..e116b0c 100644 (file)
@@ -1,4 +1,4 @@
-resolver: lts-9.12
+resolver: lts-10.2
 packages:
 - '.'
 allow-newer: true
index 4ba383d..5a21531 100644 (file)
@@ -61,7 +61,7 @@ readTest expected target = let
     found = reads target
     result = assertEqual "" expected found
     name = show target
-    in testCase name result
+    in Test.Tasty.HUnit.testCase name result
 
 readTestsParensSpaces :: forall a. (Eq a,Show a,Read a) => a -> String -> TestTree
 readTestsParensSpaces expected target = testGroup target
@@ -127,7 +127,7 @@ simpleFormatTests = testGroup "simple"
         found = readSTime False defaultTimeLocale formatStr target
         result = assertEqual "" expected found
         name = (show formatStr) ++ " of " ++ (show target)
-        in testCase name result
+        in Test.Tasty.HUnit.testCase name result
 
 spacingTests :: (Show t, Eq t, ParseTime t) => t -> String -> String -> TestTree
 spacingTests expected formatStr target = testGroup "particular"
@@ -198,7 +198,7 @@ parseTest sp expected formatStr target = let
     found = parse sp formatStr target
     result = assertEqual "" expected found
     name = (show formatStr) ++ " of " ++ (show target) ++ (if sp then " allowing spaces" else "")
-    in testCase name result
+    in Test.Tasty.HUnit.testCase name result
 {-
 readsTest :: forall t. (Show t, Eq t, ParseTime t) => Maybe t -> String -> String -> TestTree
 readsTest (Just e) = readsTest' [(e,"")]
index e5493f8..82bce1e 100644 (file)
@@ -21,7 +21,7 @@ instance NameTest [TestTree] where
     nameTest = testGroup
 
 instance NameTest Assertion where
-    nameTest = testCase
+    nameTest = Test.Tasty.HUnit.testCase
 
 instance NameTest Property where
     nameTest = testProperty
index 8599c0c..3e95f7e 100644 (file)
@@ -21,7 +21,7 @@ instance NameTest [TestTree] where
     nameTest = testGroup
 
 instance NameTest Assertion where
-    nameTest = testCase
+    nameTest = Test.Tasty.HUnit.testCase
 
 instance NameTest Property where
     nameTest = testProperty