Properly chomp the testcases

[perl/modules/Sub-Op.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
index 1f785e5b4897e9ef9d746edcbba9f6919893677f..62659d4f7a686fef078f9432e1a4e58d0ff7bfb3 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use blib 't/Sub-Op-Test';
+use blib 't/Sub-Op-LexicalSub';
 
 use Test::More tests => 2 * 15 + 3 * 2 + 2 * 28;
 
@@ -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;
 
@@ -36,7 +39,7 @@ our $called;
   my $test = "{\n";
   for my $name (@names) {
    $test .= <<"   INIT"
-    use Sub::Op::Test $name => sub {
+    use Sub::Op::LexicalSub $name => sub {
      ++\$called;
      my \$exp = shift \@exp;
      is_deeply \\\@_, \$exp,   '$name: arguments are correct';