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

[dougm]

dougm       01/11/06 10:43:57

  Modified:    t/modperl .cvsignore
  Added:       t/response/TestModperl printf.pm
  Log:
  add tests for $r->printf
  
  Revision  Changes    Path
  1.3       +1 -0      modperl-2.0/t/modperl/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/.cvsignore,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- .cvsignore        2001/10/08 23:45:01     1.2
  +++ .cvsignore        2001/11/06 18:43:57     1.3
  @@ -1,2 +1,3 @@
   endav.t
   exit.t
  +printf.t
  
  
  
  1.1                  modperl-2.0/t/response/TestModperl/printf.pm
  
  Index: printf.pm
  ===================================================================
  package TestModperl::printf;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::RequestIO ();
  
  sub handler {
      my $r = shift;
  
      my $tests = 3;
  
      $r->printf("1..%d\n", $tests);
  
      $r->printf("ok");
  
      $r->printf(" %d\n", 1);
  
      my $fmt = "%s%s %d\n";
      $r->printf($fmt, qw(o k), 2);
  
      my @a = ("ok %d%c", 3, ord("\n"));
      $r->PRINTF(@a);
  
      Apache::OK;
  }
  
  1;
  __END__