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

[dougm]

dougm       01/10/19 19:25:25

  Modified:    perl-framework/t/modules dir.t
  Log:
  make workie under win32
  
  Revision  Changes    Path
  1.3       +9 -2      httpd-test/perl-framework/t/modules/dir.t
  
  Index: dir.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/dir.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- dir.t     2001/09/18 15:41:03     1.2
  +++ dir.t     2001/10/20 02:25:25     1.3
  @@ -14,6 +14,11 @@
   my $url = "/modules/dir/htaccess/";
   my ($actual, $expected);
   
  +#XXX: this is silly; need a better way to be portable
  +sub my_chomp {
  +    $actual =~ s/[\r\n]+$//s;
  +}
  +
   plan tests => @bad_index * @index * 5 + @bad_index + 5, have_module 'dir';
   
   foreach my $bad_index (@bad_index) {
  @@ -54,9 +59,10 @@
   }
   
   print "DirectoryIndex /modules/alias/index.html\n";
  -$expected = "alias index\n";
  +$expected = "alias index";
   write_htaccess("/modules/alias/index.html");
   $actual = GET_BODY $url;
  +my_chomp();
   ok ($actual eq $expected);
   
   print "expecting 403 for DirectoryIndex @bad_index\n";
  @@ -79,8 +85,9 @@
   
   unlink $htaccess;
   print "removed .htaccess (no DirectoryIndex), expecting default 
(index.html)\n";
  -$expected = "dir index\n";
  +$expected = "dir index";
   $actual = GET_BODY $url;
  +my_chomp();
   ok ($actual eq $expected);
   
   sub write_htaccess {