+
+ -- describe "file swapping" $ do
+ -- it "gets the base directory" $ do
+ -- h <- openFile "test/recordings/renamePass/client.log" ReadMode
+ -- msgs <- getAllMessages h
+ -- rootDir msgs `shouldBe` "/Users/luke/Desktop"
+
+ -- it "gets builds a mapping of files" $ do
+ -- h <- openFile "test/recordings/renamePass/client.log" ReadMode
+ -- msgs <- getAllMessages h
+ -- let root = rootDir msgs
+ -- swapped <- swapFiles root "test/recordings/renamePass/" msgs
+ -- let (Just n) = decode (swapped !! 3) :: Maybe LSP.DidOpenNotification
+
+ -- cd <- getCurrentDirectory
+
+ -- n .^ params . uri `shouldBe` LSP.uriFromFilePath (cd </> "test/recordings/renamePass/")