Help language development. Donate to The Perl Foundation

P5reset zef:lizmat last updated on 2021-09-09

t/01-basic.t
use v6.*;
use Test;
use P5reset;

plan 8;

ok defined(::('&reset')),         'is &reset imported?';
nok defined(P5reset::{'&reset'}), 'is &reset externally NOT accessible?';

our $a = 42;
our @b = 1,2,3;
our %c = a => 42, b => 666;

reset("a");
nok $a, 'was $a reset';
ok  @b, 'was @b not reset';
ok  %c, 'was %c not reset';

reset("a-c");
nok $a, 'was $a still reset';
nok @b, 'was @b reset';
nok %c, 'was %c reset';

# vim: expandtab shiftwidth=4