dougm 01/11/13 10:09:19
Modified: t/modperl .cvsignore
t/response/TestAPI request_rec.pm
Added: t/response/TestModperl pnotes.pm
Log:
giving pnotes its own test
Revision Changes Path
1.5 +1 -0 modperl-2.0/t/modperl/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modperl/.cvsignore,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- .cvsignore 2001/11/06 18:50:25 1.4
+++ .cvsignore 2001/11/13 18:09:19 1.5
@@ -2,3 +2,4 @@
exit.t
printf.t
print.t
+pnotes.t
1.11 +1 -11 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.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- request_rec.pm 2001/11/13 17:42:49 1.10
+++ request_rec.pm 2001/11/13 18:09:19 1.11
@@ -11,7 +11,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 54;
+ plan $r, tests => 49;
#Apache->request($r); #PerlOptions +GlobalRequest takes care
my $gr = Apache->request;
@@ -78,16 +78,6 @@
ok $r->subprocess_env;
ok $r->notes;
-
- ok $r->pnotes;
-
- ok t_cmp('pnotes_bar', $r->pnotes('pnotes_foo','pnotes_bar'),
qq{\$r->pnotes(key,val)});
-
- ok t_cmp("pnotes_bar", $r->pnotes('pnotes_foo') , qq{\$r->pnotes(key)});
-
- ok t_cmp('HASH', ref($r->pnotes), qq{ref($r->pnotes)});
-
- ok t_cmp('pnotes_bar', $r->pnotes()->{'pnotes_foo'}, qq{\$r->pnotes()->{}});
ok $r->content_type;
1.1 modperl-2.0/t/response/TestModperl/pnotes.pm
Index: pnotes.pm
===================================================================
package TestModperl::pnotes;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::Const -compile => 'OK';
sub handler {
my $r = shift;
plan $r, tests => 5;
ok $r->pnotes;
ok t_cmp('pnotes_bar',
$r->pnotes('pnotes_foo', 'pnotes_bar'),
q{$r->pnotes(key,val)});
ok t_cmp('pnotes_bar',
$r->pnotes('pnotes_foo'),
q{$r->pnotes(key)});
ok t_cmp('HASH', ref($r->pnotes), q{ref($r->pnotes)});
ok t_cmp('pnotes_bar', $r->pnotes()->{'pnotes_foo'},
q{$r->pnotes()->{}});
Apache::OK;
}
1;
__END__
