diff options
Diffstat (limited to 't/op/magic.t')
| -rw-r--r-- | t/op/magic.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index c2180afb9d..0d8e32a543 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -5,7 +5,7 @@ BEGIN { chdir 't' if -d 't'; require './test.pl'; set_up_inc( '../lib' ); - plan (tests => 196); # some tests are run in BEGIN block + plan (tests => 197); # some tests are run in BEGIN block } # Test that defined() returns true for magic variables created on the fly, @@ -852,6 +852,11 @@ SKIP: { } } +{ + local %SIG = (%SIG, ALRM => sub {}) +}; +is $SIG{ALRM}, undef; + # test case-insignificance of %ENV (these tests must be enabled only # when perl is compiled with -DENV_IS_CASELESS) SKIP: { |