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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb 16 13:36:31 2009
New Revision: 18419

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Test.pm
   Shipwright/trunk/t/71.script_cmds.t

Log:
 r19907 at sunnavys-mb:  sunnavy | 2009-02-17 02:33:59 +0800
 refactor a bit, remove needless arg of test_cmd method


Modified: Shipwright/trunk/lib/Shipwright/Test.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Test.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Test.pm	Mon Feb 16 13:36:31 2009
@@ -176,7 +176,6 @@
 =cut
 
 sub test_cmd {
-    my $repo    = shift;
     my $cmd     = shift;
     my $exp     = shift;
     my $msg     = shift || "@$cmd out";

Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Mon Feb 16 13:36:31 2009
@@ -320,7 +320,6 @@
                 $shipwright->backend->export( target => $build_base );
                 chdir $build_base;
                 test_cmd(
-                    $repo,
                     [ $^X, 'bin/shipwright-builder', @{ $item->[0] } ],
                     @$item[ 1 .. $#$item ],
                 );
@@ -330,7 +329,6 @@
             }
             else {
                 test_cmd(
-                    $repo,
                     [ $^X, $sw, $cmd, '-r', $repo, @{ $item->[0] }, ],
                     @$item[ 1 .. $#$item ],
                 );