perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: modperl-2.0/xs/tables/current/Apache ConstantsTable.pm
Date Mon, 17 Nov 2003 23:00:07 GMT
geoff       2003/11/17 15:00:07

  Modified:    t/apr    constants.t
               xs/tables/current/Apache ConstantsTable.pm
  Log:
  add :filetype import tag to APR::Const
  
  Revision  Changes    Path
  1.3       +8 -5      modperl-2.0/t/apr/constants.t
  
  Index: constants.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apr/constants.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- constants.t	6 Apr 2002 07:00:36 -0000	1.2
  +++ constants.t	17 Nov 2003 23:00:07 -0000	1.3
  @@ -5,12 +5,15 @@
   use Test;
   
   use Apache2 ();
  -use APR::Const -compile => qw(:common POLLIN);
  +use Apache::TestUtil;
  +
  +use APR::Const -compile => qw(:common POLLIN :filetype);
   use APR::Const qw(:hook);
   
  -plan tests => 4;
  +plan tests => 5;
   
   ok ! defined &POLLIN;
  -ok APR::SUCCESS == 0;
  -ok APR::POLLIN == 0x001;
  -ok HOOK_LAST == 20;
  +ok t_cmp (0, APR::SUCCESS, 'APR::SUCCESS');
  +ok t_cmp (0x001, APR::POLLIN, 'APR::POLLIN');
  +ok t_cmp (20, HOOK_LAST, 'HOOK_LAST');
  +ok t_cmp (127, APR::UNKFILE, 'APR::UNKFILE');
  
  
  
  1.30      +11 -0     modperl-2.0/xs/tables/current/Apache/ConstantsTable.pm
  
  Index: ConstantsTable.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/tables/current/Apache/ConstantsTable.pm,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- ConstantsTable.pm	1 Oct 2003 19:53:05 -0000	1.29
  +++ ConstantsTable.pm	17 Nov 2003 23:00:07 -0000	1.30
  @@ -330,6 +330,17 @@
         'APR_BUFFERED',
         'APR_DELONCLOSE'
       ],
  +    'filetype' => [
  +      'APR_NOFILE',
  +      'APR_REG',
  +      'APR_DIR',
  +      'APR_CHR',
  +      'APR_BLK',
  +      'APR_PIPE',
  +      'APR_LNK',
  +      'APR_SOCK',
  +      'APR_UNKFILE'
  +    ],
       'error' => [
         'APR_ENOSTAT',
         'APR_ENOPOOL',
  
  
  

Mime
View raw message