12345678910111213141516171819202122 use v6-alpha;# Checking that testing is sane: subroutinessay '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;
use
v6-alpha;
# Checking that testing is sane: subroutines
say
'1..4'
;
sub
ok(
$num
) {
"ok $num"
}
ok(1);
ok 2;
my
$counter
= 2;
ok_auto {
++
"ok $counter"
ok_auto();
ok_auto;