From: Vincent Pit 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 () { + 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 () { + chomp; + s/\s*$//; + my ($code, $params) = split /----\s*/, $_; my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;