1use strict; 2use warnings; 3 4use Test::More; 5 6use Pegex::Parser; 7use Pegex::Grammar; 8use Pegex::Receiver; 9use Pegex::Input; 10 11my $p = Pegex::Parser->new( 12 grammar => Pegex::Grammar->new, 13 receiver => Pegex::Receiver->new, 14 input => Pegex::Input->new, 15 debug => 1, 16); 17 18ok $p->grammar, 'grammar accessor works'; 19ok $p->receiver, 'receiver accessor works'; 20ok $p->input, 'input accessor works'; 21ok $p->debug, 'debug accessor works'; 22 23eval { Pegex::Parser->new }; 24 25ok $@ =~ /grammar required/, 'grammar is required'; 26 27done_testing; 28