cvs commit: httpd-test/perl-framework/t/modules alias.t

[dougm]

dougm       01/12/19 19:53:03

  Modified:    perl-framework/t/modules alias.t
  Log:
  LWP is require to run this test
  
  Revision  Changes    Path
  1.9       +5 -2      httpd-test/perl-framework/t/modules/alias.t
  
  Index: alias.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/alias.t,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- alias.t   2001/10/20 02:34:37     1.8
  +++ alias.t   2001/12/20 03:53:03     1.9
  @@ -36,8 +36,11 @@
   #XXX: find something that'll on other platforms (/bin/sh aint it)
   my $script_tests = WINFU ? 0 : 4;
   
  -plan tests => (keys %redirect) + (keys %rm_body) * 10 + (keys %rm_rc) * 10 + 
12 + $script_tests,
  -    have_module 'alias';
  +my $tests = (keys %redirect) + (keys %rm_body) * 10 +
  +            (keys %rm_rc) * 10 + 12 + $script_tests;
  +
  +#LWP required to follow redirects
  +plan tests => $tests, [qw(alias LWP)];
   
   ## simple alias ##
   print "verifying simple aliases\n";