diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-03 21:35:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-03 21:35:25 +0000 |
| commit | ff4939ef5744d0a9d9deaa5bf2aee2d493c57393 (patch) | |
| tree | 21170c7f12b34a1752615f6ca7153586d7a14b1f /testsuite/tests/lib | |
| parent | 3ff30500a2e14b829884c37cff72ae2eb80a4cfd (diff) | |
| download | haskell-ff4939ef5744d0a9d9deaa5bf2aee2d493c57393.tar.gz | |
Remove the tests/lib/PrettyPrint tests; part of #1161
I'll send them to pretty upstream.
Diffstat (limited to 'testsuite/tests/lib')
| -rw-r--r-- | testsuite/tests/lib/PrettyPrint/Makefile | 3 | ||||
| -rw-r--r-- | testsuite/tests/lib/PrettyPrint/T3911.hs | 23 | ||||
| -rw-r--r-- | testsuite/tests/lib/PrettyPrint/T3911.stdout | 4 | ||||
| -rw-r--r-- | testsuite/tests/lib/PrettyPrint/all.T | 2 | ||||
| -rw-r--r-- | testsuite/tests/lib/PrettyPrint/pp1.hs | 18 | ||||
| -rw-r--r-- | testsuite/tests/lib/PrettyPrint/pp1.stdout | 4 |
6 files changed, 0 insertions, 54 deletions
diff --git a/testsuite/tests/lib/PrettyPrint/Makefile b/testsuite/tests/lib/PrettyPrint/Makefile deleted file mode 100644 index 9101fbd40a..0000000000 --- a/testsuite/tests/lib/PrettyPrint/Makefile +++ /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 index 01ccb22b01..0000000000 --- a/testsuite/tests/lib/PrettyPrint/T3911.hs +++ /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 index 7677e8d6f4..0000000000 --- a/testsuite/tests/lib/PrettyPrint/T3911.stdout +++ /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 index 5189843c15..0000000000 --- a/testsuite/tests/lib/PrettyPrint/all.T +++ /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 index 384d5656b8..0000000000 --- a/testsuite/tests/lib/PrettyPrint/pp1.hs +++ /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 index 6915311150..0000000000 --- a/testsuite/tests/lib/PrettyPrint/pp1.stdout +++ /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 |