Ticket #846: fix-14-warnings.patch

t/14-warnings.t

@@ -7 +7 @@
 use Test::NoWarnings;
 use Padre::Document::Perl::Beginner;
 
+package Padre;
+# Fake the Padre instance, P::D::P::Beginner only needs Padre->ide->config
+use Padre::Config();
+my $SINGLETON = undef;
+sub ide {
+    my $class = shift;
+    return $SINGLETON if $SINGLETON;
+    $SINGLETON = bless {}, $class;
+    $SINGLETON->{config} = Padre::Config->read;
+    return $SINGLETON;
+}
+sub config {
+    my $self = shift;
+    return $self->{config};
+}
+
+package main;
+
 our $SKIP;
 
 unless ( $ENV{AUTOMATED_TESTING} ) {
@@ -38 +56 @@
 
     $b->check( slurp( 'lib/' . $file ) );
     my $result = $b->error || '';
-    ok( ( $result eq '' ), 'Check ' . $file . ': ' . $result );
+    ok( ( $result eq '' ), "Check $file: $result" );
 }
 
 
@@ -50 +68 @@
 
 sub slurp {
     my $file = shift;
-    open my $fh, '<', $file or die $!;
+    open my $fh, '<', $file or die "Couldn't open $file: $!";
     local $/ = undef;
     my $buffer = <$fh>;
     close $fh;