Add tests for const

Dan Fithian · Dan Fithian · commit a73f51d87bca · 2020-08-24T09:56:27.000-04:00
diff --git a/tests/PropertyKeys.hs b/tests/PropertyKeys.hs
@@ -37,4 +37,5 @@ keysTests =
     , testProperty "Version" $ roundTripKey (undefined :: Version)
     , testProperty "Lazy Text" $ roundTripKey (undefined :: LT.Text)
     , testProperty "UUID" $ roundTripKey UUID.nil
+    , testProperty "Const Text" $ roundTripKey (undefined :: Const Text)
     ]
diff --git a/tests/UnitTests.hs b/tests/UnitTests.hs
@@ -343,6 +343,7 @@ fromJSONKeyAssertions =
     [ assertIsCoerce  "Text"            (fromJSONKey :: FromJSONKeyFunction Text)
     , assertIsCoerce  "Tagged Int Text" (fromJSONKey :: FromJSONKeyFunction (Tagged Int Text))
     , assertIsCoerce  "MyText"          (fromJSONKey :: FromJSONKeyFunction MyText)
+    , assertIsCoerce  "Const Text"      (fromJSONKey :: FromJSONKeyFunction (Const Text))
 
 #if __GLASGOW_HASKELL__ >= 710
     , assertIsCoerce' "MyText'"         (fromJSONKey :: FromJSONKeyFunction MyText')

Original file line number	Diff line number	Diff line change
`@@ -37,4 +37,5 @@ keysTests =`
`37`	`37`	`, testProperty "Version" $ roundTripKey (undefined :: Version)`
`38`	`38`	`, testProperty "Lazy Text" $ roundTripKey (undefined :: LT.Text)`
`39`	`39`	`, testProperty "UUID" $ roundTripKey UUID.nil`
	`40`	`+ , testProperty "Const Text" $ roundTripKey (undefined :: Const Text)`
`40`	`41`	`]`