From: Vincent Pit <vince@profvince.com>
Date: Sun, 3 Jan 2010 16:01:40 +0000 (+0100)
Subject: Properly chomp the testcases
X-Git-Tag: v0.02~14
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c38db653bec41568fc1caab3c19763e7ed2e5a2b;p=perl%2Fmodules%2FSub-Op.git

Properly chomp the testcases
---

diff --git a/t/10-base.t b/t/10-base.t
index c1760c1..62659d4 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -12,6 +12,9 @@ our $called;
 {
  local $/ = "####\n";
  while (<DATA>) {
+  chomp;
+  s/\s*$//;
+
   my ($code, $params)           = split /----\s*/, $_;
   my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;
 
diff --git a/t/11-existing.t b/t/11-existing.t
index 0339bc8..ecc673e 100644
--- a/t/11-existing.t
+++ b/t/11-existing.t
@@ -18,6 +18,9 @@ our $called;
 {
  local $/ = "####\n";
  while (<DATA>) {
+  chomp;
+  s/\s*$//;
+
   my ($code, $params)           = split /----\s*/, $_;
   my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;