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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jan 16 05:59:18 2009
New Revision: 17772

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Test.pm
   Shipwright/trunk/t/01.repo_check.t
   Shipwright/trunk/t/07.script.t
   Shipwright/trunk/t/71.script_cmds.t
   Shipwright/trunk/t/hello/svk.t
   Shipwright/trunk/t/hello/svn.t

Log:
 r18825 at sunnavys-mb:  sunnavy | 2009-01-16 18:59:05 +0800
 env SHIPWRIGHT_TEST_BACKEND_SVK => SHIPWRIGHT_TEST_SVK since that controls not only backend


Modified: Shipwright/trunk/lib/Shipwright/Test.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Test.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Test.pm	Fri Jan 16 05:59:18 2009
@@ -64,26 +64,26 @@
 =head2 skip_svn
 
 if skip svn when test.
-skip test svn unless env SHIPWRIGHT_TEST_BACKEND_SVN is set to true and
+skip test svn unless env SHIPWRIGHT_TEST_SVN is set to true and
 the system has svn
 
 =cut
 
 sub skip_svn {
-    return if $ENV{'SHIPWRIGHT_TEST_BACKEND_SVN'} && has_svn();
+    return if $ENV{'SHIPWRIGHT_TEST_SVN'} && has_svn();
     return 1;
 }
 
 =head2 skip_svk
 
 if skip svk when test.
-skip test svk unless env SHIPWRIGHT_TEST_BACKEND_SVK is set to true and
+skip test svk unless env SHIPWRIGHT_TEST_SVK is set to true and
 the system has svk
 
 =cut
 
 sub skip_svk {
-    return if $ENV{'SHIPWRIGHT_TEST_BACKEND_SVK'} && has_svk();
+    return if $ENV{'SHIPWRIGHT_TEST_SVK'} && has_svk();
     return 1;
 }
 

Modified: Shipwright/trunk/t/01.repo_check.t
==============================================================================
--- Shipwright/trunk/t/01.repo_check.t	(original)
+++ Shipwright/trunk/t/01.repo_check.t	Fri Jan 16 05:59:18 2009
@@ -36,7 +36,7 @@
 }
 
 SKIP: {
-    skip "svk: no svk found or env SHIPWRIGHT_TEST_BACKEND_SVK not set", 10 
+    skip "svk: no svk found or env SHIPWRIGHT_TEST_SVK not set", 10 
       if skip_svk();
 
     create_svk_repo();
@@ -61,7 +61,7 @@
 }
 
 SKIP: {
-    skip "svn: no svn found or env SHIPWRIGHT_TEST_BACKEND_SVN not set", 10 
+    skip "svn: no svn found or env SHIPWRIGHT_TEST_SVN not set", 10 
       if skip_svn();
 
     my $valid   = create_svn_repo();

Modified: Shipwright/trunk/t/07.script.t
==============================================================================
--- Shipwright/trunk/t/07.script.t	(original)
+++ Shipwright/trunk/t/07.script.t	Fri Jan 16 05:59:18 2009
@@ -50,7 +50,7 @@
     for my $v ( @{ $wrong_argv{$msg} } ) {
         if ( $v->[2] && $v->[2] =~ /^svn/ ) {
           SKIP: {
-                skip 'svn: no svn found or env SHIPWRIGHT_TEST_BACKEND_SVN not set', 1 if skip_svn;
+                skip 'svn: no svn found or env SHIPWRIGHT_TEST_SVN not set', 1 if skip_svn;
                 eval { @ARGV = @$v; Shipwright::Script->prepare };
                 like( $@, qr/$msg/, $msg );
             }

Modified: Shipwright/trunk/t/71.script_cmds.t
==============================================================================
--- Shipwright/trunk/t/71.script_cmds.t	(original)
+++ Shipwright/trunk/t/71.script_cmds.t	Fri Jan 16 05:59:18 2009
@@ -21,7 +21,7 @@
 }
 
 SKIP: {
-    skip "svn: no svn found or env SHIPWRIGHT_TEST_BACKEND_SVN not set", 36
+    skip "svn: no svn found or env SHIPWRIGHT_TEST_SVN not set", 36
       if skip_svn();
 
     my $repo = 'svn:' . create_svn_repo() . '/hello';
@@ -45,7 +45,7 @@
 }
 
 SKIP: {
-    skip "svk: no svk found or env SHIPWRIGHT_TEST_BACKEND_SVK not set", 36
+    skip "svk: no svk found or env SHIPWRIGHT_TEST_SVK not set", 36
       if skip_svk();
 
     create_svk_repo();

Modified: Shipwright/trunk/t/hello/svk.t
==============================================================================
--- Shipwright/trunk/t/hello/svk.t	(original)
+++ Shipwright/trunk/t/hello/svk.t	Fri Jan 16 05:59:18 2009
@@ -14,7 +14,7 @@
 Shipwright::Test->init;
 
 SKIP: {
-    skip "svk: no svk found or env SHIPWRIGHT_TEST_BACKEND_SVK not set", Test::More->builder->expected_tests
+    skip "svk: no svk found or env SHIPWRIGHT_TEST_SVK not set", Test::More->builder->expected_tests
       if skip_svk();
 
     my $cwd = getcwd;

Modified: Shipwright/trunk/t/hello/svn.t
==============================================================================
--- Shipwright/trunk/t/hello/svn.t	(original)
+++ Shipwright/trunk/t/hello/svn.t	Fri Jan 16 05:59:18 2009
@@ -13,7 +13,7 @@
 Shipwright::Test->init;
 
 SKIP: {
-    skip "svn: no svn found or env SHIPWRIGHT_TEST_BACKEND_SVN not set", Test::More->builder->expected_tests
+    skip "svn: no svn found or env SHIPWRIGHT_TEST_SVN not set", Test::More->builder->expected_tests
       if skip_svn();
 
     my $cwd = getcwd;