# vim:syntax=perl #------------------------------------------------------------------- # WebGUI is Copyright 2001-2009 Plain Black Corporation. #------------------------------------------------------------------- # Please read the legal notices (docs/legal.txt) and the license # (docs/license.txt) that came with this distribution before using # this software. #------------------------------------------------------------------ # http://www.plainblack.com info@plainblack.com #------------------------------------------------------------------ # Write a little about what this script tests. # # use Path::Class; use FindBin; use strict; use lib "$FindBin::Bin/../lib"; use Test::More; plan skip_all => 'set CODE_COP to enable this test' unless $ENV{CODE_COP}; use WebGUI::Test; # Must use this before any other WebGUI modules use WebGUI::Session; ##Delay this so that the skip_all can work the way it should eval { require Test::Perl::Critic; }; if ($@) { plan skip_all => "Test::Perl::Critic not installed"; } #---------------------------------------------------------------------------- # Init my $session = WebGUI::Test->session; my $label_profile = Path::Class::File->new( WebGUI::Test->root , 't', 'i18n', 'perlcriticrc'); Test::Perl::Critic->import(-profile => $label_profile->stringify); all_critic_ok(WebGUI::Test->lib);