Index: t/14-warnings.t
===================================================================
--- t/14-warnings.t	(revision 10653)
+++ t/14-warnings.t	(working copy)
@@ -7,6 +7,24 @@
 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,7 +56,7 @@
 
 	$b->check( slurp( 'lib/' . $file ) );
 	my $result = $b->error || '';
-	ok( ( $result eq '' ), 'Check ' . $file . ': ' . $result );
+	ok( ( $result eq '' ), "Check $file: $result" );
 }
 
 
@@ -50,7 +68,7 @@
 
 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;