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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Dec  6 07:44:48 2008
New Revision: 17127

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

Log:
 r18048 at sunnavys-mb:  sunnavy | 2008-12-06 20:44:21 +0800
 remove fragile tests


Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Sat Dec  6 07:44:48 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+59\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+(?!59)\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',
-            ],
           )
         : (),
     );