view release on metacpan or  search on metacpan

t/rakudo/01-sanity/05-sub.t  view on Meta::CPAN

#!./blib/script/seis
#
## use v6;

# Checking that testing is sane: subroutines


say '1..4';

sub ok($num) {
    say "ok $num";
}

ok(1);
ok 2;

my $counter = 2;
sub ok_auto {
    ++$counter;
    say "ok $counter";
}

ok_auto();
ok_auto;