use lib 
    '../Pugs-Compiler-Rule/lib',
    '../Pugs-Compiler-Precedence/lib',
;

use strict;
use warnings;

use Test::More tests => 2;
use Data::Dumper;

use_ok( 'Pugs::Grammar::Pod' );

{
    my $match = Pugs::Grammar::Pod->parse( "=begin ...\n some text\n=end\n" );
    # print Dumper $match->();
my $VAR1 = {
  'pod_block' => ' ...
 some text
=end
'
};
    is_deeply( $match->(), $VAR1, 'begin-end' );
}