projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename recorded to replay
[lsp-test.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Replay.hs
diff --git
a/src/Language/Haskell/LSP/Test/Recorded.hs
b/src/Language/Haskell/LSP/Test/Replay.hs
similarity index 97%
rename from
src/Language/Haskell/LSP/Test/Recorded.hs
rename to
src/Language/Haskell/LSP/Test/Replay.hs
index 35bd6f3a74ce34785a45d596a285859c12a154a3..c9507b5ffd02c7dc2dcb6f7ba770a4b0207162a7 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Recorded.hs
+++ b/
src/Language/Haskell/LSP/Test/Replay.hs
@@
-1,9
+1,9
@@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE RankNTypes #-}
--- | A testing tool for replaying
record
ed client logs back to a server,
+-- | A testing tool for replaying
captur
ed client logs back to a server,
-- and validating that the server output matches up with another log.
-- and validating that the server output matches up with another log.
-module Language.Haskell.LSP.Test.Re
corded
+module Language.Haskell.LSP.Test.Re
play
( replaySession
)
where
( replaySession
)
where
@@
-27,8
+27,10
@@
import Language.Haskell.LSP.Test.Files
import Language.Haskell.LSP.Test.Parsing
import Language.Haskell.LSP.Test.Parsing
--- | Replays a
record
ed client output and
+-- | Replays a
captur
ed client output and
-- makes sure it matches up with an expected response.
-- makes sure it matches up with an expected response.
+-- The session directory should have a captured session file in it
+-- named "session.log".
replaySession :: FilePath -- ^ The recorded session directory.
-> IO Bool
replaySession sessionDir = do
replaySession :: FilePath -- ^ The recorded session directory.
-> IO Bool
replaySession sessionDir = do