We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 4a7be95 commit 36a5fbfCopy full SHA for 36a5fbf
hackage-security/tests/TestSuite.hs
@@ -555,6 +555,11 @@ mkPackageName = PackageName
555
Path tests
556
-------------------------------------------------------------------------------}
557
558
+-- | Disclaimer: This test uses the vanilla generator for @type 'FilePath' = String@
559
+-- and may thus been ineffective in establishing the desired round-trip property for
560
+-- 'mkPathNative' and 'unPathNative' with sufficient probability.
561
+--
562
+-- Discussion at <https://github.com/haskell/hackage-security/pull/336#discussion_r2750538855>
563
+
564
prop_mkPathNative :: Property
565
prop_mkPathNative = property $ \(fp :: FilePath) -> (mkPathNative . unPathNative . mkPathNative) fp === mkPathNative fp
-
0 commit comments