Rename module ShellEscape → ShellParse

test/ShellParseSpec.hs

@@ -0,0 +1,36 @@
+module ShellParseSpec where
+
+
+import GHCMod.Options.ShellParse
+
+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"]