use Test::More tests => 1;
package MyGrammar1;
use Pegex::Base;
extends 'Pegex::Grammar';
has start_rules => [];
use constant text => <<'...';
foo: /xyz/ <bar>
bar:
/abc/ |
<baz>
baz: /def/
...
package main;
my $g1 = MyGrammar1->new;
is $g1->tree->{'+toprule'}, 'foo',
'MyGrammar1 compiled a tree from its text';