assertContains (Right msgs) f name =
        assertBool ("Does not contain" ++ name) $ any f msgs
assertContains (Right msgs) f name =
        assertBool ("Does not contain" ++ name) $ any f msgs
assertContains (Right msgs) f name =
        assertBool ("Does not contain" ++ name) $ any f msgs