testKatGrouped :: TestName
               -> Resource a
               -> (String -> a -> IO Bool)
               -> TestTree
testKatGrouped name (Resource groups) test = -- singleTest name $ mkTestKat resource test
    testGroup name $ map groupToTests groups
  where groupToTests (groupName, vectors) =
            singleTest groupName $ TestKatGroup $ map (\(i, v) -> (i, test groupName v)) (zip [1..] vectors)

-- | Read a KAT file into values that will be used for KATs tests
testKatGrouped :: TestName
               -> Resource a
               -> (String -> a -> IO Bool)
               -> TestTree
testKatGrouped name (Resource groups) test = -- singleTest name $ mkTestKat resource test
    testGroup name $ map groupToTests groups
  where groupToTests (groupName, vectors) =
            singleTest groupName $ TestKatGroup $ map (\(i, v) -> (i, test groupName v)) (zip [1..] vectors)

-- | Read a KAT file into values that will be used for KATs tests
testKatGrouped name (Resource groups) test = -- singleTest name $ mkTestKat resource test
    testGroup name $ map groupToTests groups
  where groupToTests (groupName, vectors) =
            singleTest groupName $ TestKatGroup $ map (\(i, v) -> (i, test groupName v)) (zip [1..] vectors)

-- | Read a KAT file into values that will be used for KATs tests