[Bps-public-commit] r13403 - in Shipwright/trunk: .
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Wed Jun 18 17:11:47 EDT 2008
Author: sunnavy
Date: Wed Jun 18 17:11:47 2008
New Revision: 13403
Modified:
Shipwright/trunk/ (props changed)
Shipwright/trunk/lib/Shipwright/Test.pm
Log:
r13538 at sunnavys-mb: sunnavy | 2008-06-19 02:45:08 +0800
tidy a bit
Modified: Shipwright/trunk/lib/Shipwright/Test.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Test.pm (original)
+++ Shipwright/trunk/lib/Shipwright/Test.pm Wed Jun 18 17:11:47 2008
@@ -115,15 +115,15 @@
=cut
sub test_cmd {
- my $repo = shift;
- my $cmd = shift;
- my $exp = shift;
- my $msg = shift;
+ my $repo = shift;
+ my $cmd = shift;
+ my $exp = shift;
+ my $msg = shift;
unshift @$cmd, $^X, '-MDevel::Cover' if devel_cover_enabled;
require Test::More;
- my $out = Shipwright::Util->run($cmd, 1); # ingnore failure
+ my $out = Shipwright::Util->run( $cmd, 1 ); # ingnore failure
if ( ref $exp eq 'Regexp' ) {
Test::More::like( $out, $exp, $msg );
}
More information about the Bps-public-commit
mailing list