diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-03-31 11:35:11 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-31 13:19:16 -0700 |
| commit | 96f88f6986b520357b9f1f3a9edf8761beb8e217 (patch) | |
| tree | 4b7d934e292b2c0532ea103d450d8cfb623027f5 /dist | |
| parent | 9ff92c368c69e5df824457dc6b238feafd4afb6b (diff) | |
| download | perl-96f88f6986b520357b9f1f3a9edf8761beb8e217.tar.gz | |
Convert safeops.t to test.pl
For the sake of tests in the next commit, it needs runperl(), which
test.pl provides. Since this script is only run in the perl core, it
should be fine.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Safe/t/safeops.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/dist/Safe/t/safeops.t b/dist/Safe/t/safeops.t index 616a848178..7f981e0f5c 100644 --- a/dist/Safe/t/safeops.t +++ b/dist/Safe/t/safeops.t @@ -12,10 +12,13 @@ BEGIN { if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') { print "1..0\n"; exit 0; } + + # We need test.pl for runperl(). Since this test script is only run in + # the perl core, this should be fine: + require '../../t/test.pl'; } use strict; -use Test::More; use Safe; # Read the op names and descriptions directly from opcode.pl @@ -53,7 +56,7 @@ foreach (@op) { if ($_->[2]) { testop @$_; } else { - local $TODO = "No test yet for $_->[1]"; + local our $TODO = "No test yet for $_->[1]"; fail(); } } |