testsuite/tests/lib/Regex/regex001.hs


1
2
3
4
5
6
7
8
9
10
11

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] ]