[commit: testsuite] master: Remove Regex tests; part of #1161 (063958e)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/063958e4be5c3d6d1625614c3d34cb551553283e

>---------------------------------------------------------------

commit 063958e4be5c3d6d1625614c3d34cb551553283e
Author: Ian Lynagh <igloo at earth.li>
Date:   Sat Feb 4 00:00:21 2012 +0000

    Remove Regex tests; part of #1161
    
    I've sent them upstream here:
        https://sourceforge.net/tracker/?func=detail&aid=3484051&group_id=163236&atid=826945

>---------------------------------------------------------------

 tests/lib/Regex/Makefile        |    3 --
 tests/lib/Regex/all.T           |    3 --
 tests/lib/Regex/regex001.hs     |   11 ----------
 tests/lib/Regex/regex002.hs     |   13 -----------
 tests/lib/Regex/regex002.stdout |    3 --
 tests/lib/Regex/regex003.hs     |   43 ---------------------------------------
 tests/lib/Regex/regex003.stdout |    8 -------
 7 files changed, 0 insertions(+), 84 deletions(-)

diff --git a/tests/lib/Regex/Makefile b/tests/lib/Regex/Makefile
deleted file mode 100644
index 9101fbd..0000000
--- a/tests/lib/Regex/Makefile
+++ /dev/null
@@ -1,3 +0,0 @@
-TOP=../../..
-include $(TOP)/mk/boilerplate.mk
-include $(TOP)/mk/test.mk
diff --git a/tests/lib/Regex/all.T b/tests/lib/Regex/all.T
deleted file mode 100644
index c69bfd6..0000000
--- a/tests/lib/Regex/all.T
+++ /dev/null
@@ -1,3 +0,0 @@
-test('regex001', reqlib('regex-posix'), compile_and_run, ['-package regex-posix'])
-test('regex002', reqlib('regex-posix'), compile_and_run, ['-package regex-posix'])
-test('regex003', reqlib('regex-posix'), compile_and_run, ['-package regex-posix'])
diff --git a/tests/lib/Regex/regex001.hs b/tests/lib/Regex/regex001.hs
deleted file mode 100644
index 1c9393c..0000000
--- a/tests/lib/Regex/regex001.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-module Main where
-
-import Control.Exception
-import Text.Regex.Posix
-
--- caused GHC 6.0 to crash, due to regfree'ing the regex after a
--- failed regcomp.
-main = sequence_
-           [ try ("abc" =~~ "[[[" :: IO Bool) :: IO (Either IOException Bool)
-           | _ <- [1..10000] ]
-
diff --git a/tests/lib/Regex/regex002.hs b/tests/lib/Regex/regex002.hs
deleted file mode 100644
index 9a87a85..0000000
--- a/tests/lib/Regex/regex002.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-import Text.Regex.Base
-import Text.Regex.Posix((=~),(=~~)) -- or DFA or PCRE or PosixRE
-import qualified Data.ByteString.Char8 as B(ByteString,pack)
-
-main = let b :: Bool
-           b = ("abaca" =~ "(.)a")
-           c :: [MatchArray]
-           c = ("abaca" =~ "(.)a")
-           d :: Maybe (String,String,String,[String])
-           d = ("abaca" =~~ "(.)a")
-       in do print b
-             print c
-             print d
diff --git a/tests/lib/Regex/regex002.stdout b/tests/lib/Regex/regex002.stdout
deleted file mode 100644
index 99b5656..0000000
--- a/tests/lib/Regex/regex002.stdout
+++ /dev/null
@@ -1,3 +0,0 @@
-True
-[array (0,1) [(0,(1,2)),(1,(1,1))],array (0,1) [(0,(3,2)),(1,(3,1))]]
-Just ("a","ba","ca",["b"])
diff --git a/tests/lib/Regex/regex003.hs b/tests/lib/Regex/regex003.hs
deleted file mode 100644
index 0aa51fe..0000000
--- a/tests/lib/Regex/regex003.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-import Text.Regex.Base
-import Text.Regex.Posix(Regex,(=~),(=~~)) -- or DFA or PCRE or PosixRE
-import qualified Data.ByteString.Char8 as B(ByteString,pack)
-
--- Show mixing of ByteString and String as well as polymorphism:
-
-main = let x :: (RegexContext Regex String target) => target
-           x = ("abaca" =~ B.pack "(.)a")
-           x' :: (RegexContext Regex String target,Monad m) => m target
-           x' = ("abaca" =~~ "(.)a")
-           y :: (RegexContext Regex B.ByteString target) => target
-           y = (B.pack "abaca" =~ "(.)a")
-           y' :: (RegexContext Regex B.ByteString target,Monad m) => m target
-           y' = (B.pack "abaca" =~~ B.pack "(.)a")
-       in do print (x :: Bool)
-             print (x :: Int)
-             print (x :: [MatchArray])
-             print (x' :: Maybe (String,String,String,[String]))
-             print (y :: Bool)
-             print (y :: Int)
-             print (y :: [MatchArray])
-             print (y' :: Maybe (B.ByteString,B.ByteString,B.ByteString,[B.ByteString]))
-
-{- Output is, except for replacing Full with DFA (which has no capture)
-True
-2
-[array (0,1) [(0,(1,2)),(1,(1,1))],array (0,1) [(0,(3,2)),(1,(3,1))]]
-Just ("a","ba","ca",["b"])
-True
-2
-[array (0,1) [(0,(1,2)),(1,(1,1))],array (0,1) [(0,(3,2)),(1,(3,1))]]
-Just ("a","ba","ca",["b"])
--}
-{- The output for DFA is
-True
-2
-[array (0,0) [(0,(1,2))],array (0,0) [(0,(3,2))]]
-Just ("a","ba","ca",[])
-True
-2
-[array (0,0) [(0,(1,2))],array (0,0) [(0,(3,2))]]
-Just ("a","ba","ca",[])
--}
diff --git a/tests/lib/Regex/regex003.stdout b/tests/lib/Regex/regex003.stdout
deleted file mode 100644
index 49d7499..0000000
--- a/tests/lib/Regex/regex003.stdout
+++ /dev/null
@@ -1,8 +0,0 @@
-True
-2
-[array (0,1) [(0,(1,2)),(1,(1,1))],array (0,1) [(0,(3,2)),(1,(3,1))]]
-Just ("a","ba","ca",["b"])
-True
-2
-[array (0,1) [(0,(1,2)),(1,(1,1))],array (0,1) [(0,(3,2)),(1,(3,1))]]
-Just ("a","ba","ca",["b"])