shouldPass suitedata = not (all (\(_, (a, b)) -> not a && not b) suitedata) ||
                       not (any (\(_, (_, fail)) -> fail) suitedata)
shouldPass suitedata = not (all (\(_, (a, b)) -> not a && not b) suitedata) ||
                       not (any (\(_, (_, fail)) -> fail) suitedata)
shouldPass suitedata = not (all (\(_, (a, b)) -> not a && not b) suitedata) ||
                       not (any (\(_, (_, fail)) -> fail) suitedata)