blob: f32bcad8c5f86feaca167e8c321bc21995991383 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- | Test utilities
--
module TestSuite.Util
( fromAssertions
) where
import Test.Framework
import Test.Framework.Providers.HUnit
import Test.HUnit hiding (Test)
fromAssertions :: String -- ^ Name
-> [Assertion] -- ^ Cases
-> [Test] -- ^ Result tests
fromAssertions name = zipWith testCase names
where
names = map (\n -> name ++ " [" ++ show n ++ "]") [1 :: Int ..]
|
