This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reset.t: Basic tests for resetting aggregates
[perl5.git] / t / op / reset.t
index 25862ef..93121af 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
 }
 use strict;
 
-plan tests => 32;
+plan tests => 34;
 
 package aiieee;
 
@@ -113,6 +113,12 @@ is join ("-", map $_//'u', $scratch::cow, $scratch::qr, $scratch::v,
                            $scratch::glob,$scratch::ro), 'u-u-u-u-1',
    'cow, qr, vstring, glob, ro test';
 
+@scratch::an_array = 1..3;
+%scratch::a_hash   = 1..4;
+package scratch { reset 'a' }
+is @scratch::an_array, 0, 'resetting an array';
+is %scratch::a_hash,   0, 'resetting a hash';
+
 # This used to crash under threaded builds, because pmops were remembering
 # their stashes by name, rather than by pointer.
 fresh_perl_is( # it crashes more reliably with a smaller script