Allow the use of isPrefixOf and isSuffixOf in the tests
authorNeil Mitchell <unknown>
Sun, 13 Jan 2008 23:03:18 +0000 (23:03 +0000)
committerNeil Mitchell <unknown>
Sun, 13 Jan 2008 23:03:18 +0000 (23:03 +0000)
test/AutoTest.hs
test/GenTests.hs

index 171e1c8..21cf3f5 100644 (file)
@@ -1,5 +1,9 @@
 
-module AutoTest(module AutoTest, module Test.QuickCheck) where
+module AutoTest(
+    module AutoTest,
+    module Test.QuickCheck,
+    module Data.List
+    ) where
 
 import Test.QuickCheck hiding (check,(==>))
 import Data.Char
index ec20038..adbe968 100644 (file)
@@ -47,7 +47,8 @@ addPrefix pre str | str `elem` fpops || (all isAlpha str && length str > 1 && no
                   | otherwise = str
 
 
-prelude = ["elem","uncurry","snd","fst","not","null","if","then","else","True","False","concat"]
+prelude = ["elem","uncurry","snd","fst","not","null","if","then","else"
+          ,"True","False","concat","isPrefixOf","isSuffixOf"]
 fpops = ["</>","<.>"]