#!perl
##############################################################################
# $URL: http://perlcritic.tigris.org/svn/perlcritic/tags/Perl-Critic-Dynamic-0.05/t/00_basic.t $
# $Date: 2010-09-24 21:21:51 -0700 (Fri, 24 Sep 2010) $
# $Author: thaljef $
# $Revision: 3942 $
##############################################################################
use strict;
use warnings;
use Test::More (tests => 8);
#-----------------------------------------------------------------------------
our $VERSION = '0.05';
#-----------------------------------------------------------------------------
my $package = 'Perl::Critic::Policy::Dynamic::ValidateAgainstSymbolTable';
#-----------------------------------------------------------------------------
use_ok( $package );
can_ok($package, 'new');
can_ok($package, 'violates');
can_ok($package, 'is_safe');
my $policy = $package->new();
isa_ok($policy, 'Perl::Critic::Policy');
isa_ok($policy, 'Perl::Critic::DynamicPolicy');
isa_ok($policy, $package);
isnt($policy->is_safe(), 1, 'Policy is not marked as safe');