[Bps-public-commit] r13204 - in Shipwright/trunk: t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jun 12 10:17:43 2008
New Revision: 13204

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/20.util.t

Log:
 r13313 at sunnavys-mb:  sunnavy | 2008-06-12 22:01:19 +0800
 added a test for S::U::run


Modified: Shipwright/trunk/t/20.util.t
==============================================================================
--- Shipwright/trunk/t/20.util.t	(original)
+++ Shipwright/trunk/t/20.util.t	Thu Jun 12 10:17:43 2008
@@ -1,12 +1,15 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 
+use Shipwright::Test;
 use Shipwright::Util;
 use File::Spec;
 use Cwd;
 
+Shipwright::Test->init;
+
 my $cwd = getcwd;
 my ( $shipwright_root, $share_root );
 
@@ -29,3 +32,5 @@
 );
 is( $share_root, Shipwright::Util->share_root, 'share_root works' );
 
+my ($out) = Shipwright::Util->run(['ls', 'lib']);
+like( $out, qr/Shipwright/, 'test run sub' );