stas 2004/07/22 14:41:46
Modified: t/response/TestAPI request_rec.pm Log: better $r->method_number and $r->allowed tests Revision Changes Path 1.21 +12 -4 modperl-2.0/t/response/TestAPI/request_rec.pm Index: request_rec.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v retrieving revision 1.20 retrieving revision 1.21 diff -u -u -r1.20 -r1.21 --- request_rec.pm 9 Jul 2004 08:01:21 -0000 1.20 +++ request_rec.pm 22 Jul 2004 21:41:46 -0000 1.21 @@ -12,7 +12,7 @@ use APR::Finfo (); -use Apache::Const -compile => 'OK'; +use Apache::Const -compile => qw(OK M_GET M_PUT); use APR::Const -compile => qw(FINFO_NORM); #this test module is only for testing fields in the request_rec @@ -23,7 +23,7 @@ sub handler { my $r = shift; - plan $r, tests => 43; + plan $r, tests => 45; #Apache->request($r); #PerlOptions +GlobalRequest takes care my $gr = Apache->request; @@ -70,9 +70,17 @@ ok $r->method; - ok $r->method_number || 1; + ok t_cmp $r->method_number, Apache::M_GET, "method number"; - ok $r->allowed || 1; + { + $r->allowed(1 << Apache::M_GET); + + ok $r->allowed & (1 << Apache::M_GET); + ok ! ($r->allowed & (1 << Apache::M_PUT)); + + $r->allowed($r->allowed | (1 << Apache::M_PUT)); + ok $r->allowed & (1 << Apache::M_PUT); + } #allowed_xmethods #allow_methods