diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-08-27 18:10:18 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-08-28 13:04:18 -0700 |
| commit | c695838a26a397c4e36fa84b2e640aeac35a9aa5 (patch) | |
| tree | 50571ae5a1be869a0d3a3dd6b5eddb918a81d22c /ext/Devel-Peek | |
| parent | 1780e74401a3b7a60e58c0786a723b16eb5e425e (diff) | |
| download | perl-c695838a26a397c4e36fa84b2e640aeac35a9aa5.tar.gz | |
Make Peek.t easier to run directly
e.g., ./perl -TIlib ext/Devel-Peek/t/Peek.t
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index a38d909564..583894d166 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1474,6 +1474,7 @@ for my $test ( } +my $runperl_args = { switches => ['-Ilib'] }; sub test_DumpProg { my ($prog, $expected, $name, $test) = @_; $test ||= 'like'; @@ -1487,10 +1488,10 @@ sub test_DumpProg { utf8::encode($prog); if ( $test eq 'is' ) { - t::fresh_perl_is($prog . $u, $expected, undef, $name) + t::fresh_perl_is($prog . $u, $expected, $runperl_args, $name) } else { - t::fresh_perl_like($prog . $u, $expected, undef, $name) + t::fresh_perl_like($prog . $u, $expected, $runperl_args, $name) } $builder->current_test(t::curr_test() - 1); |