2015-12-20 05:26:49 +00:00
|
|
|
module ShellParseSpec where
|
2015-12-20 03:05:43 +00:00
|
|
|
|
|
|
|
|
|
2015-12-20 05:26:49 +00:00
|
|
|
import GHCMod.Options.ShellParse
|
2015-12-20 03:05:43 +00:00
|
|
|
|
|
|
|
|
import Test.Hspec
|
|
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec =
|
|
|
|
|
describe "parseCmdLine" $ do
|
|
|
|
|
it "splits arguments" $
|
|
|
|
|
parseCmdLine "test command line" `shouldBe` ["test", "command", "line"]
|
|
|
|
|
it "honors double quotes" $
|
|
|
|
|
parseCmdLine "test command line \"with double quotes\""
|
|
|
|
|
`shouldBe` ["test", "command", "line", "with double quotes"]
|
|
|
|
|
it "escapes spaces" $ do
|
|
|
|
|
parseCmdLine "with\\ spaces"
|
|
|
|
|
`shouldBe` ["with spaces"]
|
|
|
|
|
parseCmdLine "\"with\\ spaces\""
|
|
|
|
|
`shouldBe` ["with spaces"]
|
|
|
|
|
it "escapes '\\'" $ do
|
|
|
|
|
parseCmdLine "\\\\"
|
|
|
|
|
`shouldBe` ["\\"]
|
|
|
|
|
parseCmdLine "\"\\\\\""
|
|
|
|
|
`shouldBe` ["\\"]
|
|
|
|
|
it "escapes double quotes" $ do
|
|
|
|
|
parseCmdLine "\\\""
|
|
|
|
|
`shouldBe` ["\""]
|
|
|
|
|
parseCmdLine "\"\\\"\""
|
|
|
|
|
`shouldBe` ["\""]
|
|
|
|
|
it "doesn't escape random characters" $
|
|
|
|
|
parseCmdLine "\\a\\b\\c"
|
|
|
|
|
`shouldBe` ["\\a\\b\\c"]
|
|
|
|
|
it "squashes multiple spaces" $
|
|
|
|
|
parseCmdLine "test command"
|
|
|
|
|
`shouldBe` ["test", "command"]
|
