Author: jkeenan
Date: Sat Sep 8 19:11:50 2007
New Revision: 21151
Modified:
branches/reconfigure/t/configure/039-slurp_file.t
Log:
Add one more test to handle inability to slurp file.
Modified: branches/reconfigure/t/configure/039-slurp_file.t
==============================================================================
--- branches/reconfigure/t/configure/039-slurp_file.t (original)
+++ branches/reconfigure/t/configure/039-slurp_file.t Sat Sep 8 19:11:50 2007
@@ -6,7 +6,7 @@
use strict;
use warnings;
-use Test::More tests => 9;
+use Test::More tests => 10;
use Carp;
use_ok( 'File::Temp', qw| tempfile | );
use lib qw( lib );
@@ -42,6 +42,17 @@
"DOS line endings correctly converted during slurp_file");
}
+
+
+{
+ my $phony = q{foobar};
+ my $str;
+ eval { $str = Parrot::BuildUtil::slurp_file($phony); };
+ like($@, qr/open '$phony'/,
+ "Got error message expected upon attempting to slurp non-existent
file");
+}
+
+
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
