main :: IO ()
main = exitProperly $ runTestTT $ TestList
       [ TestList binaryTests ]
main :: IO ()
main = exitProperly $ runTestTT $ TestList
       [ TestList binaryTests ]
main = exitProperly $ runTestTT $ TestList
       [ TestList binaryTests ]