| # Focus only on the version line using within:
|
| within: ^Welcome to Rakudo
|
| regexp: "v" (\d{4}) "." (\d{2})
|
|
|
| generator: <<CODE
|
| !perl
|
| my $caps = captures();
|
| if (@$caps) {
|
| my ($y, $m) = @{$caps->[0]};
|
| my $ok = ($y > 2026) || ($y == 2026 && $m > 4) ? 1 : 0;
|
| print "assert: $ok raku version > 2026.04 (got: $y.$m)\n";
|
| } else {
|
| print "assert: 0 version not found on welcome line\n";
|
| }
|
| CODE
|
| end:
|