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

-- | run one tasty test per group
testKatDetailed :: TestName
                -> Resource a
                -> (String -> a -> IO Bool)
                -> TestTree
testKatDetailed name (Resource groups) test = -- singleTest name $ mkTestKat resource test
    testGroup name $ map groupToTests groups
  where groupToTests (groupName, vectors) =
            testGroup groupName $ map (\(i, v) -> singleTest (show (i :: Int)) (TestKatSingle $ test groupName v)) (zip [1..] vectors)

-- | run one tasty test per group
testKatDetailed name (Resource groups) test = -- singleTest name $ mkTestKat resource test
    testGroup name $ map groupToTests groups
  where groupToTests (groupName, vectors) =
            testGroup groupName $ map (\(i, v) -> singleTest (show (i :: Int)) (TestKatSingle $ test groupName v)) (zip [1..] vectors)

-- | run one tasty test per group