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

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

use Pugs::Grammar::Prefix;
use_ok( 'Pugs::Grammar::Infix' );

{
    my $match = Pugs::Grammar::Infix->parse( q(-) );
    #print Dumper $match->();
    is_deeply( $match->(), 
        {
            'op' => '-',
        }, 
        'infix:<->' );
}