From 4b025fdbaf89f95f3899b54f09f07842420a16d9 Mon Sep 17 00:00:00 2001
From: Chaitanya Koparkar <ckoparkar@gmail.com>
Date: Thu, 10 May 2018 11:44:58 -0400
Subject: Use the response file utilities defined in `base` (#821)

Summary: The response file related modules were recently copied from
`haddock` into `base`. This patch removes them from `haddock`.

GHC Trac Issues: #13896
---
 driver-test/Main.hs             | 12 -------
 driver-test/ResponseFileSpec.hs | 80 -----------------------------------------
 2 files changed, 92 deletions(-)
 delete mode 100644 driver-test/Main.hs
 delete mode 100644 driver-test/ResponseFileSpec.hs

(limited to 'driver-test')

diff --git a/driver-test/Main.hs b/driver-test/Main.hs
deleted file mode 100644
index d3f636e9..00000000
--- a/driver-test/Main.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module Main where
-
-import Test.Hspec (describe, hspec, Spec)
-import qualified ResponseFileSpec (spec)
-
-
-main :: IO ()
-main = hspec spec
-
-spec :: Spec
-spec = do
-    describe "ResponseFile" ResponseFileSpec.spec
diff --git a/driver-test/ResponseFileSpec.hs b/driver-test/ResponseFileSpec.hs
deleted file mode 100644
index 997adac4..00000000
--- a/driver-test/ResponseFileSpec.hs
+++ /dev/null
@@ -1,80 +0,0 @@
-module ResponseFileSpec where
-
-import Test.Hspec (context, describe, it, shouldBe, Spec)
-import ResponseFile (escapeArgs, unescapeArgs)
-
--- The first two elements are
---   1) a list of 'args' to encode and
---   2) a single string of the encoded args
--- The 3rd element is just a description for the tests.
-testStrs :: [(([String], String), String)]
-testStrs =
-  [ ((["a simple command line"],
-      "a\\ simple\\ command\\ line\n"),
-     "the white-space, end with newline")
-
-  , ((["arg 'foo' is single quoted"],
-      "arg\\ \\'foo\\'\\ is\\ single\\ quoted\n"),
-     "the single quotes as well")
-
-  , ((["arg \"bar\" is double quoted"],
-      "arg\\ \\\"bar\\\"\\ is\\ double\\ quoted\n"),
-     "the double quotes as well" )
-
-  , ((["arg \"foo bar\" has embedded whitespace"],
-      "arg\\ \\\"foo\\ bar\\\"\\ has\\ embedded\\ whitespace\n"),
-     "the quote-embedded whitespace")
-
-  , ((["arg 'Jack said \\'hi\\'' has single quotes"],
-      "arg\\ \\'Jack\\ said\\ \\\\\\'hi\\\\\\'\\'\\ has\\ single\\ quotes\n"),
-     "the escaped single quotes")
-
-  , ((["arg 'Jack said \\\"hi\\\"' has double quotes"],
-      "arg\\ \\'Jack\\ said\\ \\\\\\\"hi\\\\\\\"\\'\\ has\\ double\\ quotes\n"),
-     "the escaped double quotes")
-
-  , ((["arg 'Jack said\\r\\n\\t \\\"hi\\\"' has other whitespace"],
-      "arg\\ \\'Jack\\ said\\\\r\\\\n\\\\t\\ \\\\\\\"hi\\\\\\\"\\'\\ has\\ \
-           \other\\ whitespace\n"),
-     "the other whitespace")
-
-  , (([ "--prologue=.\\dist\\.\\haddock-prologue3239114604.txt"
-      , "--title=HaddockNewline-0.1.0.0: This has a\n\
-        \newline yo."
-      , "-BC:\\Program Files\\Haskell Platform\\lib"],
-      "--prologue=.\\\\dist\\\\.\\\\haddock-prologue3239114604.txt\n\
-      \--title=HaddockNewline-0.1.0.0:\\ This\\ has\\ a\\\n\
-      \newline\\ yo.\n\
-      \-BC:\\\\Program\\ Files\\\\Haskell\\ Platform\\\\lib\n"),
-     "an actual haddock response file snippet with embedded newlines")
-  ]
-
-spec :: Spec
-spec = do
-  describe "escapeArgs" $ do
-      mapM_ (\((ss1,s2),des) -> do
-                  context ("given " ++ (show ss1)) $ do
-                      it ("should escape " ++ des) $ do
-                          escapeArgs ss1 `shouldBe` s2
-            ) testStrs
-  describe "unescapeArgs" $ do
-      mapM_ (\((ss1,s2),des) -> do
-                  context ("given " ++ (show s2)) $ do
-                      it ("should unescape " ++ des) $ do
-                          unescapeArgs s2 `shouldBe` ss1
-            ) testStrs
-  describe "unescapeArgs" $ do
-      context "given unescaped single quotes" $ do
-          it "should pass-through, without escaping, everything inside" $ do
-              -- backslash *always* is escaped anywhere it appears
-              (filter (not . null) $
-                unescapeArgs "this\\ is\\ 'not escape\\d \"inside\"'\\ yo\n")
-              `shouldBe`
-              ["this is not escaped \"inside\" yo"]
-      context "given unescaped double quotes" $ do
-          it "should pass-through, without escaping, everything inside" $ do
-              -- backslash *always* is escaped anywhere it appears
-              (filter (not . null) $
-                unescapeArgs "this\\ is\\ \"not escape\\d 'inside'\"\\ yo\n")
-              `shouldBe`
-              ["this is not escaped 'inside' yo"]
-- 
cgit v1.2.3