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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jun 17 19:13:20 2008
New Revision: 13375

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

Log:
 r13521 at sunnavys-mb:  sunnavy | 2008-06-18 06:40:49 +0800
 added script_create.t


Added: Shipwright/trunk/t/71.script_create.t
==============================================================================
--- (empty file)
+++ Shipwright/trunk/t/71.script_create.t	Tue Jun 17 19:13:20 2008
@@ -0,0 +1,37 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use Shipwright;
+use Shipwright::Test qw/has_svn has_svk create_svn_repo create_svk_repo devel_cover_enabled/;
+
+my $sw = Shipwright::Test->shipwright_bin;
+
+Shipwright::Test->init;
+
+SKIP: {
+    skip "no svn found", 1
+      unless has_svn();
+
+    my $repo = create_svn_repo() . '/hello';
+
+    my $cmd = [ $sw, 'create', '-r', "svn:$repo" ];
+    unshift @$cmd, $^X, '-MDevel::Cover' if devel_cover_enabled;
+    my $out = Shipwright::Util->run( $cmd );
+    like( $out, qr/created with success/, "shipwright create -r 'svn:$repo'");
+}
+
+SKIP: {
+    skip "no svk and svnadmin found", 1
+      unless has_svk();
+
+    create_svk_repo();
+
+    my $repo = '//__shipwright/hello';
+
+    my $cmd = [ $sw, 'create', '-r', "svn:$repo" ];
+    unshift @$cmd, $^X, '-MDevel::Cover' if devel_cover_enabled;
+    my $out = Shipwright::Util->run( [ $sw, 'create', '-r', "svk:$repo"] );
+    like( $out, qr/created with success/, "shipwright create -r 'svk:$repo'");
+}