X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2F11-existing.t;h=58e23a0a9c02e028f674db046f968171984c5b26;hp=fae36fc9bd755120e555ad6f5dd20dd0799560e3;hb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd;hpb=a2cacd5001fc982edeb39a4262079c6661ceb2f4 diff --git a/t/11-existing.t b/t/11-existing.t index fae36fc..58e23a0 100644 --- a/t/11-existing.t +++ b/t/11-existing.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 => (4 + 2 * 4) + (2 * 5); @@ -39,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';