ÿþ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;