X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2F10-base.t;h=c1760c104e47e477750cb8b9db294868715a2435;hp=1f785e5b4897e9ef9d746edcbba9f6919893677f;hb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd;hpb=a2cacd5001fc982edeb39a4262079c6661ceb2f4 diff --git a/t/10-base.t b/t/10-base.t index 1f785e5..c1760c1 100644 --- 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; @@ -36,7 +36,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';