From 51501dba4f963087eac2b67ed13b64fe0304d63b Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Thu, 19 Oct 2023 18:13:01 +0800
Subject: [PATCH] Fix property test for normalise

---
 tests/filepath-equivalent-tests/TestEquiv.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/tests/filepath-equivalent-tests/TestEquiv.hs b/tests/filepath-equivalent-tests/TestEquiv.hs
index ba14b980..83b71c39 100644
--- a/tests/filepath-equivalent-tests/TestEquiv.hs
+++ b/tests/filepath-equivalent-tests/TestEquiv.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE TypeApplications #-}
 
 module Main where
 
@@ -11,6 +10,7 @@ import qualified System.FilePath.Windows as W
 import qualified System.FilePath.Posix as P
 import qualified Legacy.System.FilePath.Windows as LW
 import qualified Legacy.System.FilePath.Posix as LP
+import Data.Char (isAsciiLower, isAsciiUpper)
 
 
 main :: IO ()
@@ -189,7 +189,14 @@ equivalentTests =
     )
     ,
     ( "normalise (windows)"
-    , property $ \p -> W.normalise p == LW.normalise p
+    , property $ \p -> case p of
+                         (l:':':rs)
+                           -- new filepath normalises "a:////////" to "A:\\"
+                           -- see https://github.com/haskell/filepath/commit/cb4890aa03a5ee61f16f7a08dd2d964fffffb385
+                           | isAsciiLower l || isAsciiUpper l
+                           , let (seps, path) = span LW.isPathSeparator rs
+                           , length seps > 1 -> let np = l : ':' : LW.pathSeparator : path in W.normalise np == LW.normalise np
+                         _ -> W.normalise p == LW.normalise p
     )
     ,
     ( "equalFilePath (windows)"