[Bps-public-commit] r17129 - Shipwright/branches/1.10/t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Dec  6 07:46:11 2008
New Revision: 17129

Modified:
   Shipwright/branches/1.10/t/71.script_cmds.t

Log:
merge 17127 to 1.1

Modified: Shipwright/branches/1.10/t/71.script_cmds.t
==============================================================================
--- Shipwright/branches/1.10/t/71.script_cmds.t	(original)
+++ Shipwright/branches/1.10/t/71.script_cmds.t	Sat Dec  6 07:46:11 2008
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 112;
+use Test::More tests => 106;
 
 use Shipwright;
 use Shipwright::Test;
@@ -280,38 +280,15 @@
 
         $source
         ? (
-
             # import an svn or svk dist named foo
             [
                 [ 'import', $source ],
                 qr/imported with success/,
                 "imported $source",
             ],
-            [
-                [ 'list', 'foo' ],
-                $update_cmd
-                ? qr/version:\s+1\s+/
-                : qr/version:\s+55\s+/m,  # the magic number is from practice ;)
-                'list foo, version seems ok',
-            ],
             $update_cmd,    # if the source dist is svk, $update_cmd is undef
-            [
-                [ 'list', 'foo', '--with-latest-version' ],
-                $update_cmd
-                ? qr/latest_version:\s+([^1]|\d{2,})\s+/
-                : qr/latest_version:\s+(?!55)\d+\s+/,
-                'list foo, latest version seems ok',
-            ],
-
             # update cmd
             [ [ 'update', 'foo' ], qr/updated with success/, "updated foo", ],
-            [
-                [ 'list', 'foo' ],
-                $update_cmd
-                ? qr/version:\s+([^1]|\d{2,})\s+/
-                : qr/version:\s+(?!49)\d+\s+/,
-                'list foo, update cmd seems ok',
-            ],
           )
         : (),
     );