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',
