module ShellEscapeSpec where


import GHCMod.Options.ShellEscape

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"]