Changeset 11147

Timestamp:

03/21/10 02:15:49 (23 months ago)

Author:

rhebus

Message:

Apply patch to fix #846

File:

• trunk/Padre/t/14-warnings.t (modified) (3 diffs)

trunk/Padre/t/14-warnings.t

@@ -8 +8 @@
 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;
 
@@ -39 +57 @@
     $b->check( slurp( 'lib/' . $file ) );
     my $result = $b->error || '';
-    ok( ( $result eq '' ), 'Check ' . $file . ': ' . $result );
+    ok( ( $result eq '' ), "Check $file: $result" );
 }
 
@@ -51 +69 @@
 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>;