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

[wrowe]

wrowe       01/10/21 10:46:40

  Modified:    perl-framework/t/modules rewrite.t
  Log:
    Dirty little hack... The _right_ solution fixes chomp to do the right
    thing with \r's.
  
  Revision  Changes    Path
  1.6       +8 -4      httpd-test/perl-framework/t/modules/rewrite.t
  
  Index: rewrite.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/rewrite.t,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- rewrite.t 2001/09/18 15:41:03     1.5
  +++ rewrite.t 2001/10/21 17:46:40     1.6
  @@ -21,8 +21,9 @@
           ## 'tolower' map in mod_rewrite
           $_=uc($_);
   
  -        $r = GET_BODY "/modules/rewrite/$n", 'Accept' => $_;
  +        $r = GET_BODY("/modules/rewrite/$n", 'Accept' => $_);
           chomp $r;
  +     $r =~ s/\r//g;
   
           if ($_ eq 'RND') {
               ## check that $r is just a single digit.
  @@ -38,12 +39,15 @@
       }
   }
   
  -$r = GET_BODY "/modules/rewrite/", 'Accept' => 7;
  +$r = GET_BODY("/modules/rewrite/", 'Accept' => 7);
   chomp $r;
  +$r =~ s/\r//g;
   ok ($r eq "BIG");
  -$r = GET_BODY "/modules/rewrite/", 'Accept' => 0;
  +$r = GET_BODY("/modules/rewrite/", 'Accept' => 0);
   chomp $r;
  +$r =~ s/\r//g;
   ok ($r eq "ZERO");
  -$r = GET_BODY "/modules/rewrite/", 'Accept' => 'lucky13';
  +$r = GET_BODY("/modules/rewrite/", 'Accept' => 'lucky13');
   chomp $r;
  +$r =~ s/\r//g;
   ok ($r eq "JACKPOT");