t/constants.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 8;
   5
   6 use_ok('Maypole::Constants');
   7 ok($Maypole::Constants::VERSION, 'defines $VERSION');
   8 is(\&OK, \&Maypole::Constants::OK, 'exports OK');
   9 is(OK(), 0, 'OK correctly defined');
  10 is(\&ERROR, \&Maypole::Constants::ERROR, 'exports ERROR');
  11 is(ERROR(), -1, 'ERROR correctly defined');
  12 is(\&DECLINED, \&Maypole::Constants::DECLINED, 'exports DECLINED');
  13 is(DECLINED(), -1, 'DECLINED correctly defined');