1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE TemplateHaskell #-}
-- | Test suite for the GhciScript DSL
module Stack.Ghci.ScriptSpec
( spec
) where
import qualified Data.Set as S
import Distribution.ModuleName
import Path
import Path.Extra ( pathToLazyByteString )
import Stack.Ghci.FakePaths
import Stack.Ghci.Script
import Stack.Prelude hiding ( fromString )
import qualified System.FilePath as FP
import Test.Hspec
spec :: Spec
spec = do
describe "GHCi" $ do
describe "Script DSL" $ do
describe "script" $ do
it "should separate commands with a newline" $ do
let script = cmdAdd [Left (fromString "Lib.A")]
<> cmdAdd [Left (fromString "Lib.B")]
scriptToLazyByteString script `shouldBe`
":add Lib.A\n:add Lib.B\n"
describe ":add" $ do
it "should not render empty add commands" $ do
let script = cmdAdd S.empty
scriptToLazyByteString script `shouldBe` ""
it "should ensure that a space exists between each module in an add command" $ do
let script = cmdAdd (S.fromList [Left (fromString "Lib.A"), Left (fromString "Lib.B")])
scriptToLazyByteString script `shouldBe` ":add Lib.A Lib.B\n"
describe ":add (by file)" $ do
it "should render a full file path" $ do
let file = $(mkAbsFile $ defaultDrive FP.</> "Users" FP.</> "someone" FP.</> "src" FP.</> "project" FP.</> "package-a" FP.</> "src" FP.</> "Main.hs")
script = cmdAdd (S.fromList [Right file])
scriptToLazyByteString script `shouldBe`
":add " <> pathToLazyByteString file <> "\n"
describe ":module" $ do
it "should render empty module as ':module +'" $ do
let script = cmdModule []
scriptToLazyByteString script `shouldBe` ":module +\n"
it "should ensure that a space exists between each module in a module command" $ do
let script = cmdModule [fromString "Lib.A", fromString "Lib.B"]
scriptToLazyByteString script `shouldBe` ":module + Lib.A Lib.B\n"
|
