fix test case

Author: kokobd

lsp-types/test/URIFilePathSpec.hs

@@ -265,7 +265,7 @@ genValidUnicodeChar = arbitraryUnicodeChar `suchThat` isCharacter
   where isCharacter x = x /= '\65534' && x /= '\65535'
 
 normalizedFilePathSpec :: Spec
-normalizedFilePathSpec = do
+normalizedFilePathSpec = beforeAll (setFileSystemEncoding utf8) $ do
   it "makes file path normalized" $ property $ forAll genFilePath $ \fp -> do
     let nfp = toNormalizedFilePath fp
     fromNormalizedFilePath nfp `shouldBe` (normalise fp)
@@ -297,12 +297,11 @@ normalizedFilePathSpec = do
   it "converts to NormalizedFilePath and back sucessfully" $ property $ forAll genFilePath $ \fp -> do
     let osPath = fromJust (OsPath.encodeUtf fp)
     osPath' <- osPathToNormalizedFilePath osPath >>= normalizedFilePathToOsPath
-    osPath' `shouldBe` osPath
+    osPath' `shouldBe` OsPath.normalise osPath
 
   it "can not convert OsPath in non-standard encoding to NormalizedFilePath" $ do
     -- \184921 is an example that the raw bytes of UTF16 is not valid UTF8.
     -- Case like this is not very common. I found it with the help of QuickCheck.
-    setFileSystemEncoding utf8
     case OsPath.encodeWith utf16be utf16be "\184921" of
       Left err -> throwIO err
       Right osPath  -> do