The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test;
BEGIN { plan tests => 15 }
require Shell::Parser;

# check that the following functions are available
ok( exists &Shell::Parser::new                                ); #01
ok( exists &Shell::Parser::parse                              ); #02
ok( exists &Shell::Parser::eof                                ); #03
ok( exists &Shell::Parser::handlers                           ); #04
ok( exists &Shell::Parser::syntax                             ); #05

# create an object
my $parser = undef;
eval { $parser = new Shell::Parser };
ok( $@, ''                                                    ); #06
ok( defined $parser                                           ); #07
ok( $parser->isa('Shell::Parser')                             ); #08
ok( ref $parser, 'Shell::Parser'                              ); #09

# check that the following object methods are available
ok( ref $parser->can('can'), 'CODE'                           ); #10
ok( ref $parser->can('new'), 'CODE'                           ); #11
ok( ref $parser->can('parse'), 'CODE'                         ); #12
ok( ref $parser->can('eof'), 'CODE'                           ); #13
ok( ref $parser->can('handlers'), 'CODE'                      ); #14
ok( ref $parser->can('syntax'), 'CODE'                        ); #15