acme-box-0.0.0.0: test/Spec.hs

import Acme.Box

main :: IO ()
main = do
  testbox <- box
  if (testbox == ())
     then return ()
     else error "The box wasn't empty! Please contact Acme Corp"