From: Vincent Pit <vince@profvince.com>
Date: Sat, 27 Dec 2008 22:02:16 +0000 (+0100)
Subject: Remove trailing CRLFs before testing what we received
X-Git-Tag: v0.06~3
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=commitdiff_plain;h=a5ba1389e8ec450b16fd6e283f3edc80df1878c9

Remove trailing CRLFs before testing what we received
---

diff --git a/t/20-each.t b/t/20-each.t
index 9332cb9..a5d47c2 100644
--- a/t/20-each.t
+++ b/t/20-each.t
@@ -121,6 +121,7 @@ sub try {
 SKIP:
   {
    skip 'didn\'t visited that repo' => 10 unless defined $r;
+   s/[\r\n]*$// for @$r;
    is($r->[$_], $e->[$_], "each $cmd argument $_ for repository $i is ok")
     for 0 .. 10;
   }
diff --git a/t/21-once.t b/t/21-once.t
index 5333be0..e61e81c 100644
--- a/t/21-once.t
+++ b/t/21-once.t
@@ -32,6 +32,7 @@ for my $cmd (qw/daemon gui help init version/) {
  is(@lines, 1, "once $cmd visited only one repo");
  my $r = [ split /\|/, defined $lines[0] ? $lines[0] : '' ];
  my $e = [ $cmd, qw/@n @g @w @b @@/ ];
+ s/[\r\n]*$// for @$r;
  is($r->[$_], $e->[$_], "once $cmd argument $_ is ok")
   for 0 .. 5;
 }