Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

added a recheck of the create/checkout/commit cycle

  • Loading branch information...
commit f3cdb05279bc64c473097e15391509d90ffd1738 1 parent a6d7ba3
@jettero authored
Showing with 24 additions and 0 deletions.
  1. +1 −0  MANIFEST
  2. +23 −0 t/09_check_out_s7repo.t
View
1  MANIFEST
@@ -9,3 +9,4 @@ SVNReplay.pm
t/01_load.t
t/05_svn_create_repo.t
t/07_create_co_dirs.t
+t/09_check_out_s7repo.t
View
23 t/09_check_out_s7repo.t
@@ -0,0 +1,23 @@
+
+use Test;
+use File::Spec;
+use IPC::System::Simple qw(capturex);
+
+die "re-test requires clean" if -d "s9.co";
+
+my $r = File::Spec->rel2abs("s7.repo");
+my $l = capturex(svn=>'co', "file://$r", 's9.co');
+
+my @r = (
+ '^A\s+s9\.co/dir1$',
+ '^A\s+s9\.co/dir2$',
+ '^A\s+s9\.co/testdir$',
+ '^A\s+s9\.co/testdir/yikes$',
+ '^A\s+s9\.co/testdir/yikes/hard$',
+ '^A\s+s9\.co/testdir/yikes/hard/test$',
+ '^A\s+s9\.co/testdir/yikes/hard/test/recursive$',
+ 'revision 3',
+);
+
+plan tests => int @r;
+ok( $l =~ m/$_/m ) for @r;

0 comments on commit f3cdb05

Please sign in to comment.
Something went wrong with that request. Please try again.