      raw <- getEnv "MANDRILL_API_KEY"
      resp <- runMandrill (ApiKey $ Text.pack raw) $
        let met = Metadata { _metadata_name = "hello"
                           , _metadata_state = STATE_active 
                           , _metadata_view_template = "bla"
                           }
            in Metadata.update met
      resp `shouldSatisfy` isRight

test_add :: Spec
test_add = 
  describe "/metadata/add.json" $