Help language development. Donate to The Perl Foundation

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

use v6.*;
use Test;

BEGIN my @vars = <$frob @mung %seen>;
BEGIN plan 2 * @vars + 1;

use vars @vars;

BEGIN ok ::{$_}:exists, "did we get an export for $_ at BEGIN" for @vars;

ok $frob.VAR ~~ Scalar, 'is $frob a scalar container';
ok @mung     ~~ Array,  'is @mung an Array';
ok %seen     ~~ Hash,   'is %seen a Hash';

    my $exception-seen;
    EVAL 'use vars <zinkfnob>';
    CATCH { default {
        $exception-seen = True if $_.Str.contains('zinkfnob');
    } }
    ok $exception-seen, 'did we see an exception with zinkfnob';

# vim: expandtab shiftwidth=4