Skip to content
Browse files

Test tweaking

  • Loading branch information...
1 parent a595e48 commit 4767adcef568fab8a5841d52303f2324377d28fb @jgoerzen jgoerzen committed Sep 11, 2007
Showing with 7 additions and 3 deletions.
  1. +1 −1 testsrc/TestInfrastructure.hs
  2. +6 −2 testsrc/runtests.hs
View
2 testsrc/TestInfrastructure.hs
@@ -87,7 +87,7 @@ instance TestLL (A.Array Int Int) Int where
tl = LL.toList
fl = LL.fromList
-instance Arbitrary (Map.Map Int Int) where
+instance (Ord a, Ord b, Show a, Show b, Arbitrary a, Arbitrary b) => Arbitrary (Map.Map a b) where
arbitrary = fmap fl arbitrary
coarbitrary a b = coarbitrary (tl a) b
View
8 testsrc/runtests.hs
@@ -48,7 +48,7 @@ apfi msg x = TestList $
t (msg ++ " [Bool]") (x::[Bool] -> Bool -> Bool),
t (msg ++ " MyList Bool") (x::MyList Bool -> Bool -> Bool),
t (msg ++ " Map Int Int") (x::Map.Map Int Int -> (Int, Int) -> Bool),
- --t (msg ++ " Map Bool Int") (x::Map.Map Bool Int -> (Bool, Int) -> Bool),
+ t (msg ++ " Map Bool Int") (x::Map.Map Bool Int -> (Bool, Int) -> Bool),
t (msg ++ " Map Int Bool") $ x (LL.empty::Map.Map Int Bool),
t (msg ++ " Map Bool Bool") $ x (LL.empty::Map.Map Bool Bool),
t (msg ++ " ByteString") $ x (LL.empty::BS.ByteString),
@@ -69,5 +69,9 @@ allt = [apfi "empty" prop_empty,
testh = runTestTT (TestList allt)
-main = testh
+main =
+ do printf "Running %d test functions * %d types under test = %d cases\n"
+ (length allt) (12::Int) (12 * length allt)
+ testh
+ return ()

0 comments on commit 4767adc

Please sign in to comment.
Something went wrong with that request. Please try again.