Rename recorded to replay

diff --git a/example/Recorded.hs b/example/Recorded.hs
deleted file mode 100644 (file)
index e9b1621..0000000
--- a/example/Recorded.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-import           Language.Haskell.LSP.Test.Recorded
-import           System.Directory
-import           System.Environment
-import           Control.Monad.IO.Class
-
-main = undefined
\ No newline at end of file

diff --git a/haskell-lsp-test.cabal b/haskell-lsp-test.cabal
index 2cd5ce31a8711d7aaf32536432632528b2997f08..2e5969e6d2e1e9774933ccbad032545c0a21c137 100644 (file)
--- a/haskell-lsp-test.cabal
+++ b/haskell-lsp-test.cabal
@@ -16,7 +16,7 @@ extra-source-files:  README.md
 library
   hs-source-dirs:      src
   exposed-modules:     Language.Haskell.LSP.Test
-                     , Language.Haskell.LSP.Test.Recorded
+                     , Language.Haskell.LSP.Test.Replay
   default-language:    Haskell2010
   build-depends:       base >= 4.7 && < 5
                      , haskell-lsp-types
@@ -36,7 +36,7 @@ library
     build-depends:     win32
   else
     build-depends:     unix
-  other-modules:       Compat
+  other-modules:       Language.Haskell.LSP.Test.Compat
                        Language.Haskell.LSP.Test.Files
                        Language.Haskell.LSP.Test.Parsing
   ghc-options:         -W
@@ -64,11 +64,3 @@ executable example
                      , lens
                      , text
                      , directory
\ No newline at end of file
-
-executable recorded-example
-  hs-source-dirs:      example
-  main-is:             Recorded.hs
-  default-language:    Haskell2010
-  build-depends:       base >= 4.7 && < 5
-                     , haskell-lsp-test
-                     , directory

diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs
index 22a674675481545eb879c26914a2f7868157fb27..ce061e9fa33590c3c46d274f8907208a8feccf4c 100644 (file)
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@ -45,7 +45,7 @@ import Data.Maybe
 import Data.Proxy
 import System.Process
 import Language.Haskell.LSP.Types hiding (error, id)
-import Compat
+import Language.Haskell.LSP.Test.Compat
 import System.IO
 import System.Directory
 import System.FilePath

diff --git a/src/Compat.hs b/src/Language/Haskell/LSP/Test/Compat.hs
similarity index 87%
rename from src/Compat.hs
rename to src/Language/Haskell/LSP/Test/Compat.hs
index 23a3ff12aaccfe496c2b9b2cf1af0cbc60bc3728..00f2c0b08b848e94b671b7c0028f98f411ae8c95 100644 (file)
--- a/src/Compat.hs
+++ b/src/Language/Haskell/LSP/Test/Compat.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE CPP #-}
 
-module Compat where
+module Language.Haskell.LSP.Test.Compat where
 
 
 #ifdef mingw32_HOST_OS

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 #-}
--- | A testing tool for replaying recorded client logs back to a server,
+-- | A testing tool for replaying captured client logs back to a server,
 -- and validating that the server output matches up with another log.
-module Language.Haskell.LSP.Test.Recorded
+module Language.Haskell.LSP.Test.Replay
   ( replaySession
   )
 where
@@ -27,8 +27,10 @@ import           Language.Haskell.LSP.Test.Files
 import           Language.Haskell.LSP.Test.Parsing
 
 
--- | Replays a recorded client output and 
+-- | Replays a captured client output and 
 -- 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

diff --git a/test/Test.hs b/test/Test.hs
index 2bd8f4e83b8bf75cef7d32a6f0bc808ae7e6379e..95e3d5e9eeb1dce39add9f5c89a104d7c54a9d17 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -5,7 +5,7 @@ import           Data.Proxy
 import           Control.Monad.IO.Class
 import           Control.Lens hiding (List)
 import           Language.Haskell.LSP.Test
-import           Language.Haskell.LSP.Test.Recorded
+import           Language.Haskell.LSP.Test.Replay
 import           Language.Haskell.LSP.TH.DataTypesJSON
 
 main = hspec $ do