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