6 use blib 't/Sub-Op-LexicalSub';
8 use Test::More tests => 2 *((4 + 2 * 4) + (2 * 5) + 1);
11 sub foo { ok $call_foo, 'the preexistent foo was called' }
14 sub bar () { ok $call_bar, 'the preexistent bar was called' }
24 my ($code, $params) = split /----\s*/, $_;
25 my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;
27 my @names = split /\s*,\s*/, $names;
31 fail "@names: unable to get expected values: $@";
38 s/^\s*//, s/\s*$// for $seq;
39 @seq = split /\s*,\s*/, $seq;
40 die "calls and seq length mismatch" unless @seq == $calls;
42 @seq = ($names[0]) x $calls;
46 for my $name (@names) {
48 use Sub::Op::LexicalSub $name => sub {
50 my \$exp = shift \@exp;
51 is_deeply \\\@_, \$exp, '$name: arguments are correct';
52 my \$seq = shift \@seq;
53 is \$seq, '$name', '$name: sequence is correct';
58 $test .= "{\n$code\n}\n";
64 fail "@names: unable to evaluate test case: $@";
68 is $called, $calls, "@names: the hook was called the right number of times";
69 if ($called < $calls) {
70 fail for $called + 1 .. $calls;
75 is prototype('main::foo'), undef, "foo's prototype was preserved";
76 is prototype('main::bar'), '', "bar's prototype was preserved";