cvs commit: httpd-test/perl-framework/t/http11 chunked.t

[coar]

coar        01/11/06 11:20:53

  Modified:    perl-framework/t/http11 chunked.t
  Log:
  If we're going to be skipped, at least give a clew why..
  
  Revision  Changes    Path
  1.12      +3 -0      httpd-test/perl-framework/t/http11/chunked.t
  
  Index: chunked.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/http11/chunked.t,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- chunked.t 2001/11/06 16:03:00     1.11
  +++ chunked.t 2001/11/06 19:20:53     1.12
  @@ -17,6 +17,9 @@
   
   my $tests = (@chunk_sizes + @small_sizes) * 5;
   
  +if (! have_module 'random_chunk') {
  +    print "# Skipping; missing prerequisite module 'random_chunk'\n";
  +}
   plan tests => $tests, have_module 'random_chunk';
   
   my $location = '/random_chunk';