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