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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Jun 21 03:04:34 2008
New Revision: 13517

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

Log:
 r13603 at sunnavys-mb:  sunnavy | 2008-06-21 00:36:01 +0800
 tiny change


Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Sat Jun 21 03:04:34 2008
@@ -35,9 +35,11 @@
 
     # test create
     my @cmds = (
+
+        # create hello repo
         [ [ 'create', '-r', $repo ], qr/created with success/, "create $repo" ],
 
-        # test non exist cmd
+        # non exist cmd
         [
             [ 'obra', '-r', $repo ],
             undef,
@@ -46,7 +48,7 @@
             "non exist cmd",
         ],
 
-        # test list
+        # list cmd
         [ [ 'list', '-r', $repo ], '', "list null $repo" ],
         [
             [ 'list', '-r', $repo, '--name', 'foo' ],
@@ -54,7 +56,7 @@
             "list non exist name $repo"
         ],
 
-        # test import
+        # import cmd
         [
             [ 'import', '-r', $repo ],
             undef,
@@ -91,6 +93,8 @@
             qr/imported with success/,
             'import tar.gz file',
         ],
+
+        # here we has a dist named Acme-Hello
         [
             [ 'list', '-r', $repo, ],
             qr{Acme-Hello:\s+
@@ -99,7 +103,7 @@
             'list the repo'
         ],
 
-        # test rename
+        # rename cmd
         [
             [
                 'rename',     '-r',         $repo, '--name',
@@ -108,6 +112,7 @@
             qr/renamed Acme-Hello to foo with success/
         ],
 
+        # now Acme-Hello is renamed to foo
         [
             [ 'list', '-r', $repo, ],
             qr{foo:\s+
@@ -116,6 +121,7 @@
             'list the repo'
         ],
 
+        # invalid rename cmds
         [
             [ 'rename', '-r', $repo, '--name', 'foo', '--new-name' ],
             undef, undef, qr/new-name requires an argument/
@@ -154,12 +160,14 @@
             'rename nonexist dist'
         ],
 
-        # now the dist is renamed to 'foo'
+        # delete cmd
         [
             [ 'delete', '-r', $repo, '--name', 'foo' ],
             qr/deleted foo with success/,
             'deleted foo'
         ],
+
+        # we don't have foo dist any more
         [
             [ 'list', '-r', $repo, '--name', 'foo' ],
             qr/foo doesn't exist/,