Remove trailing CRLFs before testing what we received

diff --git a/t/20-each.t b/t/20-each.t
index 9332cb9cd79635b869f00e9a730c58dacb0641c0..a5d47c2afc0e0097aa3b2e61bd85a286dfd3731a 100644 (file)
--- 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 5333be0748f5ac86b2c19dc4022a70fbfe7646bb..e61e81c73c98664af4df343b9ab129a3822efa3f 100644 (file)
--- 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;
 }