git.iko.soy/typeable/uuid
on master help sign in
Fix a deprecation warning in uuid:test:testuuid
f6952eaMikhail Glushenkov
uuid/tests/TestUUID.hs+2−2
compare with master
unifiedsplit
@@ -15,7 +15,7 @@ import qualified Data.UUID.V5 as U5
15import Test.QuickCheck ( Arbitrary(arbitrary), choose )
15import Test.QuickCheck ( Arbitrary(arbitrary), choose )
16import Test.Tasty ( TestTree, testGroup, defaultMain )
16import Test.Tasty ( TestTree, testGroup, defaultMain )
17import Test.Tasty.HUnit
17import Test.Tasty.HUnit
18− ( Assertable(assert), assertBool, (@?=), testCase )
18+ ( assertBool, (@?=), testCase )
19import Test.Tasty.QuickCheck ( testProperty )
19import Test.Tasty.QuickCheck ( testProperty )
20
20
21type Test = TestTree
21type Test = TestTree
@@ -47,7 +47,7 @@ test_v1 v1s = testGroup "version 1" [
47 where testUUID :: (U.UUID -> Bool) -> Maybe U.UUID -> Test
47 where testUUID :: (U.UUID -> Bool) -> Maybe U.UUID -> Test
48 testUUID p u =
48 testUUID p u =
49 testCase (show u) $
49 testCase (show u) $
50− assert $ maybe False p u
50+ assertBool "" $ maybe False p u
51
51
52test_v3 :: Test
52test_v3 :: Test
53test_v3 =
53test_v3 =