Login
Fix RequireCarping in tests.
authorElliot Shank <perl@galumph.com>
Mon, 7 Jul 2008 01:42:57 +0000 (01:42 +0000)
committerElliot Shank <perl@galumph.com>
Mon, 7 Jul 2008 01:42:57 +0000 (01:42 +0000)
t/05_utils.t
t/07_perlcritic.t
t/08_document.t
t/20_policies.t
t/92_memory_leaks.t
t/ControlStructures/ProhibitNegativeExpressionsInUnlessAndUntilConditions.run.PL
t/Variables/RequireLocalizedPunctuationVars.run.PL
xt/author/93_version.t
xt/author/94_includes.t
xt/author/generate_without_optional_dependencies_wrappers.PL

index d108ca3..3aad431 100644 (file)
@@ -11,6 +11,8 @@ use 5.006001;
 use strict;
 use warnings;
 
+use Carp qw< confess >;
+
 use PPI::Document;
 
 use Test::More tests => 115;
@@ -122,13 +124,13 @@ my @bad = (
 );
 
 for my $code (@good) {
-    my $doc = PPI::Document->new(\$code) || die;
+    my $doc = PPI::Document->new(\$code) or confess;
     $doc->index_locations();
     ok(is_script($doc), 'is_script, true');
 }
 
 for my $code (@bad) {
-    my $doc = PPI::Document->new(\$code) || die;
+    my $doc = PPI::Document->new(\$code) or confess;
     $doc->index_locations();
     ok(!is_script($doc), 'is_script, false');
 }
@@ -256,7 +258,7 @@ is( interpolate( 'literal'    ), "literal",    'Interpolation' );
     );
 
     for my $shebang (@perl_shebangs) {
-        my ($fh, $filename) = tempfile() or die 'Could not open tempfile';
+        my ($fh, $filename) = tempfile() or confess 'Could not open tempfile';
         print {$fh} "$shebang\n"; close $fh; # Must close to flush buffer
         ok( Perl::Critic::Utils::_is_perl($filename), qq{Is perl: '$shebang'});
 
@@ -275,7 +277,7 @@ is( interpolate( 'literal'    ), "literal",    'Interpolation' );
     );
 
     for my $shebang (@not_perl_shebangs) {
-        my ($fh, $filename) = tempfile or die 'Could not open tempfile';
+        my ($fh, $filename) = tempfile or confess 'Could not open tempfile';
         print {$fh} "$shebang\n"; close $fh; # Must close to flush buffer
         ok( ! Perl::Critic::Utils::_is_perl($filename), qq{Is not perl: '$shebang'});
 
@@ -384,7 +386,7 @@ is( scalar @found_policies, scalar @native_policies, 'Find all perl code');
                   { code => q( open( $fh, $mode, $filename ); ),
                     pass => 1 },
                   # check the value with a trailing conditional
-                  { code => q( open( $fh, $mode, $filename ) or die 'unable to open'; ),
+                  { code => q( open( $fh, $mode, $filename ) or confess 'unable to open'; ),
                     pass => 0 },
                   # assign the return value to a variable (and assume that it's checked later)
                   { code => q( my $error = open( $fh, $mode, $filename ); ),
index b89b753..8ac605f 100644 (file)
@@ -12,6 +12,7 @@ use strict;
 use warnings;
 
 use English qw(-no_match_vars);
+use Carp qw< confess >;
 
 use File::Spec;
 
@@ -157,7 +158,7 @@ is( $options{-quiet}, 1);
 
 {
     no warnings qw(redefine once); ## no critic (ProhibitNoWarnings)
-    local *main::pod2usage = sub { my %args = @_; die $args{-message} || q{} };
+    local *main::pod2usage = sub { my %args = @_; confess $args{-message} || q{} };
 
     local @ARGV = qw( -help );
     eval { get_options() };
index 440f870..d2e4a8f 100644 (file)
@@ -11,6 +11,8 @@ use 5.006001;
 use strict;
 use warnings;
 
+use Carp qw< carp >;
+
 use version;
 
 use Perl::Critic::Utils::DataConversion qw< dor >;
@@ -75,7 +77,7 @@ can_ok('Perl::Critic::Document', 'ppi_document');
     {
         # Ignore "Cannot create search condition for 'PPI::': Not a PPI::Element"
         local $SIG{__WARN__} = sub {
-            $_[0] =~ m/\QCannot create search condition for\E/ || warn @_
+            $_[0] =~ m/\QCannot create search condition for\E/ || carp @_
         };
         $nodes_ref = $pc_doc->find( q{} );
         is( $nodes_ref, undef, 'find by empty class name');
index 4a8d572..bd6c27d 100644 (file)
@@ -5,6 +5,7 @@ use strict;
 use warnings;
 
 use English qw(-no_match_vars);
+use Carp qw< confess >;
 
 use Perl::Critic::Utils qw( :characters );
 use Perl::Critic::TestUtils qw(
@@ -35,7 +36,7 @@ if (@ARGV) {
     for (@ARGV) {
         next if m/::/xms;
         if (not s<\A t[\\/] (\w+) [\\/] (\w+) [.]run \z><$1\::$2>xms) {
-            die 'Unknown argument ' . $_;
+            confess 'Unknown argument ' . $_;
         }
     }
     for my $p (@policies) {
@@ -97,7 +98,7 @@ for my $policy ( sort keys %$subtests ) {
                 $test_passed = 0;
             }
             else {
-                die $err;
+                confess $err;
             }
         }
         else {
index 4449f4d..e909816 100644 (file)
@@ -11,6 +11,8 @@ use 5.006001;
 use strict;
 use warnings;
 
+use Carp qw< confess >;
+
 use PPI::Document;
 
 use Perl::Critic::PolicyFactory -test => 1;
@@ -51,7 +53,7 @@ plan( skip_all => 'Test::Memory::Cycle requried to test memory leaks') if $@;
     my $pc_doc  = Perl::Critic::Document->new( $ppi_doc );
     my $critic  = Perl::Critic->new( -severity => 1 );
     my @violations = $critic->critique( $pc_doc );
-    die "No violations were created" if not @violations;
+    confess "No violations were created" if not @violations;
 
     # One test for each violation, plus one each for Critic and Document.
     plan( tests => scalar @violations + 2 );
index c5f6815..e06d1aa 100644 (file)
@@ -5,6 +5,7 @@ use strict;
 use warnings;
 
 use English qw{-no_match_vars};
+use Carp qw< confess >;
 
 use Carp qw{ confess };
 use Fatal qw{ open close };
@@ -26,7 +27,7 @@ print "\n\nGenerating $test_file_name.\n";
 
 
 open my $test_file, '>', $test_file_name    ## no critic (RequireBriefOpen)
-    or die "Could not open $test_file_name: $ERRNO";
+    or confess "Could not open $test_file_name: $ERRNO";
 
 
 print {$test_file} <<"END_HEADER";
index 8a03416..d598c54 100644 (file)
@@ -29,7 +29,7 @@ print "\n\nGenerating $test_file_name.\n";
 
 
 open my $test_file, '>', $test_file_name    ## no critic (RequireBriefOpen)
-    or die "Could not open $test_file_name: $ERRNO";
+    or confess "Could not open $test_file_name: $ERRNO";
 
 my @globals = (
     @B::Keywords::Arrays,
index 10d123a..6cb1450 100644 (file)
@@ -3,6 +3,8 @@
 use strict;
 use warnings;
 
+use Carp qw< confess >;
+
 use File::Find;
 
 use Test::More;
@@ -26,7 +28,7 @@ sub check_version {
 
     local $/ = undef;
     my $fh;
-    open $fh, '<', $_ or die $!;
+    open $fh, '<', $_ or confess $!;
     my $content = <$fh>;
     close $fh;
 
index bbc2287..e8f1fef 100644 (file)
@@ -3,6 +3,8 @@
 use strict;
 use warnings;
 
+use Carp qw< confess >;
+
 use File::Find;
 use PPI::Document;
 
@@ -37,7 +39,7 @@ plan tests => scalar @pm;
 for my $file (@pm) {
     SKIP:
     {
-        my $doc = PPI::Document->new($file) || die 'Failed to parse '.$file;
+        my $doc = PPI::Document->new($file) or confess qq<Failed to parse "$file">;
 
         my @incs = @{$doc->find('PPI::Statement::Include') || []};
         my %deps = map {$_->module => 1} grep {$_->type eq 'use' || $_->type eq 'require'} @incs;
index 1c155e8..f8b40b1 100644 (file)
@@ -60,7 +60,7 @@ foreach my $test_program_name (@ARGV) {
 
     print "Generating $test_program_name.\n";
     open my $test_program, '>', $test_program_name ## no critic (RequireBriefOpen)
-        or die "Could not open $test_program_name: $ERRNO";
+        or confess "Could not open $test_program_name: $ERRNO";
 
     print {$test_program} <<"END_TEST_PROGRAM";
 #!/usr/bin/env perl