# Checking that testing is sane: subroutines

use v6-alpha;

say '1..5';

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

ok(1);
ok 2;

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

ok_auto();
ok_auto;

sub run_sub(Code &code) {
    code();
}


run_sub( -> $blah {  say "ok 5"; }
       );