use 5.010;
use warnings;
use Test::More 'no_plan';
use Regexp::Grammars;
qr{
<grammar: Base>
<rule: baserule>
baserule
<rule: baserule2>
baserule2
}x;
qr{
<grammar: Intermediate>
<extends: Base>
}x;
my $baserule = qr{
<extends: Intermediate>
<Intermediate::baserule>
}x;
my $baserule2 = qr{
<extends: Intermediate>
<NEXT::baserule2>
}x;
ok 'baserule' =~ $baserule => 'Specific polymorphism worked';
ok 'baserule2' =~ $baserule2 => 'Generic polymorphism worked';