cvs commit: modperl-2.0/t/response/TestModperl pnotes.pm

[dougm]

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__