A nicer version with XPath searches

finishblock.t.p6

use v6;
use Test;
use _007::Test;

my $actions-ast = xpath(qast-of("lib/_007/Parser/Actions.pm"));
for $actions-ast.find("//method") -> $method {
    my @constructions = $method.find: '//callmethod[@name="new"]/wval[1][@name="Q::Block"]';
    my @finishblocks = $method.find: '//callmethod[@name="finish-block"]/lexical[1][@name="self"]';

    is +@constructions, +@finishblocks, "finished all Q::Block.new in {$method.name}";
}

done-testing;