Remove the tests/lib/PrettyPrint tests; part of #1161
authorIan Lynagh <igloo@earth.li>
Fri, 3 Feb 2012 21:35:25 +0000 (21:35 +0000)
committerIan Lynagh <igloo@earth.li>
Fri, 3 Feb 2012 21:35:25 +0000 (21:35 +0000)
I'll send them to pretty upstream.

testsuite/tests/lib/PrettyPrint/Makefile [deleted file]
testsuite/tests/lib/PrettyPrint/T3911.hs [deleted file]
testsuite/tests/lib/PrettyPrint/T3911.stdout [deleted file]
testsuite/tests/lib/PrettyPrint/all.T [deleted file]
testsuite/tests/lib/PrettyPrint/pp1.hs [deleted file]
testsuite/tests/lib/PrettyPrint/pp1.stdout [deleted file]

diff --git a/testsuite/tests/lib/PrettyPrint/Makefile b/testsuite/tests/lib/PrettyPrint/Makefile
deleted file mode 100644 (file)
index 9101fbd..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-TOP=../../..
-include $(TOP)/mk/boilerplate.mk
-include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/lib/PrettyPrint/T3911.hs b/testsuite/tests/lib/PrettyPrint/T3911.hs
deleted file mode 100644 (file)
index 01ccb22..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-
-module Main where
-
-import Text.PrettyPrint.HughesPJ
-
-xs :: [Doc]
-xs = [text "hello",
-      nest 10 (text "world")]
-
-d1 :: Doc
-d1 = vcat xs
-
-d2 :: Doc
-d2 = foldr ($$) empty xs
-
-d3 :: Doc
-d3 = foldr ($+$) empty xs
-
-main :: IO ()
-main = do print d1
-          print d2
-          print d3
-
diff --git a/testsuite/tests/lib/PrettyPrint/T3911.stdout b/testsuite/tests/lib/PrettyPrint/T3911.stdout
deleted file mode 100644 (file)
index 7677e8d..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-hello     world
-hello     world
-hello
-          world
diff --git a/testsuite/tests/lib/PrettyPrint/all.T b/testsuite/tests/lib/PrettyPrint/all.T
deleted file mode 100644 (file)
index 5189843..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-test('pp1', compose(expect_broken(1062), only_ways(['normal'])), compile_and_run, [''])
-test('T3911', normal, compile_and_run, [''])
diff --git a/testsuite/tests/lib/PrettyPrint/pp1.hs b/testsuite/tests/lib/PrettyPrint/pp1.hs
deleted file mode 100644 (file)
index 384d565..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
--- This code used to print an infinite string, by calling 'spaces'
--- with a negative argument.  There's a patch in the library now,
--- which makes 'spaces' do something sensible when called with a negative
--- argument, but it really should not happen at all.
-
-
-module Main where
-
-import Text.PrettyPrint.HughesPJ
-
-
-ncat x y = nest 4 $ cat [ x, y ]
-
-d1 = foldl1 ncat $ take 50 $ repeat $ char 'a'
-d2 = parens $  sep [ d1, text "+" , d1 ]
-
-main = print d2
-
diff --git a/testsuite/tests/lib/PrettyPrint/pp1.stdout b/testsuite/tests/lib/PrettyPrint/pp1.stdout
deleted file mode 100644 (file)
index 6915311..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-This output is not what is expected, becuase the
-test "works" now, by virtue of a hack in HughesPJ.spaces.
-I'm leaving this strange output here to remind us to look
-at the root cause of the problem.  Sometime.
\ No newline at end of file