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

[dougm]

dougm       01/11/06 10:50:25

  Modified:    t/modperl .cvsignore
  Added:       t/response/TestModperl print.pm
  Log:
  add tests for tied print/printf
  
  Revision  Changes    Path
  1.4       +1 -0      modperl-2.0/t/modperl/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/.cvsignore,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- .cvsignore        2001/11/06 18:43:57     1.3
  +++ .cvsignore        2001/11/06 18:50:25     1.4
  @@ -1,3 +1,4 @@
   endav.t
   exit.t
   printf.t
  +print.t
  
  
  
  1.1                  modperl-2.0/t/response/TestModperl/print.pm
  
  Index: print.pm
  ===================================================================
  package TestModperl::print;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 3;
  
      ok 1;
  
      ok 2;
  
      printf "ok %d", 3;
  
      Apache::OK;
  }
  
  1;