cvs commit: modperl-2.0/t/apr constants.t

[dougm]

dougm       01/04/11 15:54:15

  Added:       t/apr    constants.t
  Log:
  test for APR::Const
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/apr/constants.t
  
  Index: constants.t
  ===================================================================
  use ExtUtils::testlib;
  use strict;
  use warnings FATAL => 'all';
  
  use Test;
  
  use APR::Const -compile => qw(:common POLLIN);
  use APR::Const qw(:hook);
  
  plan tests => 4;
  
  ok ! defined &POLLIN;
  ok APR::SUCCESS == 0;
  ok APR::POLLIN == 0x001;
  ok HOOK_LAST == 20;