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

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

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

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