1 #######################################################################
2 # $URL: http://perlcritic.tigris.org/svn/perlcritic/tags/Test-Perl-Critic-1.01/t/01_api.t $
3 # $Date: 2007-01-24 22:22:10 -0800 (Wed, 24 Jan 2007) $
6 ########################################################################
10 use Test::More tests => 4;
11 use Test::Perl::Critic;
12 use English qw(-no_match_vars);
14 #---------------------------------------------------------------------------
17 can_ok('main', 'critic_ok');
18 can_ok('main', 'all_critic_ok');
20 #---------------------------------------------------------------------------
21 # Test exception for missing files
23 eval{ critic_ok('foobar') };
24 ok( defined $EVAL_ERROR );
26 #---------------------------------------------------------------------------
27 # Test exception for null file
30 ok( defined $EVAL_ERROR );