[Bps-public-commit] r13156 - in IPC-Run-SafeHandles: t

[clkao at bestpractical.com]

Author: clkao
Date: Wed Jun 11 02:25:23 2008
New Revision: 13156

Modified:
   IPC-Run-SafeHandles/lib/IPC/Run/SafeHandles.pm
   IPC-Run-SafeHandles/t/00-load.t

Log:
fix typo and expect warnings.


Modified: IPC-Run-SafeHandles/lib/IPC/Run/SafeHandles.pm
==============================================================================
--- IPC-Run-SafeHandles/lib/IPC/Run/SafeHandles.pm	(original)
+++ IPC-Run-SafeHandles/lib/IPC/Run/SafeHandles.pm	Wed Jun 11 02:25:23 2008
@@ -10,7 +10,7 @@
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 SYNOPSIS
 
@@ -70,7 +70,7 @@
     _wrap_it('IPC::Run3::run3', $caller) if $INC{'IPC/Run3.pm'};
 
     unless (@$wrapper_context) {
-	Carp::carp "Use of IPC::Run::SafeHandles wihtout using IPC::Run or IPC::Run3 first";
+	Carp::carp "Use of IPC::Run::SafeHandles without using IPC::Run or IPC::Run3 first";
     }
 }
 

Modified: IPC-Run-SafeHandles/t/00-load.t
==============================================================================
--- IPC-Run-SafeHandles/t/00-load.t	(original)
+++ IPC-Run-SafeHandles/t/00-load.t	Wed Jun 11 02:25:23 2008
@@ -1,9 +1,14 @@
 #!perl -T
 
-use Test::More tests => 1;
+use Test::More tests => 2;
+
+my $warn;
 
 BEGIN {
+	local $SIG{__WARN__} = sub { $warn = $_[0] };
 	use_ok( 'IPC::Run::SafeHandles' );
 }
 
+like($warn, qr'Use of IPC::Run::SafeHandles without using IPC::Run or IPC::Run3 first');
+
 diag( "Testing IPC::Run::SafeHandles $IPC::Run::SafeHandles::VERSION, Perl $], $^X" );