let (>::) s f = TestLabel(s, TestCase(Short, f))