[svk-commit] r2533 - in branches/mirror-boostrap: t/mirror

nobody at bestpractical.com nobody at bestpractical.com
Wed Aug 8 20:55:11 EDT 2007


Author: clsung
Date: Wed Aug  8 20:55:09 2007
New Revision: 2533

Modified:
   branches/mirror-boostrap/lib/SVK/Mirror.pm
   branches/mirror-boostrap/t/mirror/sync-bootstrap.t

Log:
- this patch to SVK/Mirror.pm should pass the test, however
  the following log is different.........
@@ -22,7 +22,7 @@
 # K 8
 # svn:date
 # V 27
-# 2007-08-09T00:51:06.964249Z
+# 2007-08-09T00:51:07.053621Z
 # PROPS-END
 # 
 # Node-path: 

Modified: branches/mirror-boostrap/lib/SVK/Mirror.pm
==============================================================================
--- branches/mirror-boostrap/lib/SVK/Mirror.pm	(original)
+++ branches/mirror-boostrap/lib/SVK/Mirror.pm	Wed Aug  8 20:55:09 2007
@@ -260,13 +260,13 @@
 	    }
 	    if (my $rev = $rec->get_header('Node-copyfrom-rev')) {
 		$rec->set_header('Node-copyfrom-rev' =>
-		    scalar $self->find_local_rev( $rev, $self->source_uuid ) );
+		    scalar $self->find_local_rev( $rev, $self->source_uuid )  - 1);
 	    }
 	    
 	    if ($rec->get_header('Revision-number')) {
 		$rev = $rec->get_header('Revision-number');
 		$prev = $rev if !$prev;
-		$rec->set_property('svm:headrev',$self->source_uuid.':'.$rec->get_header('Revision-number'));
+		$rec->set_property('svm:headrev',$self->source_uuid.':'.$rec->get_header('Revision-number')."\n");
 	    }
 
 
@@ -291,6 +291,13 @@
 
 	$buf = $buf.$record->as_string;
     }
+    # last one
+    if ($rev) {
+	$buf = $header.$buf;
+	open my $fh, '<', \$buf;
+	my $ret = SVN::Repos::load_fs2( $self->repos, $fh, \*STDERR, $SVN::Repos::load_uuid_default, undef, 0, 0, undef, undef );
+    }
+
 }
 
 =item relocate($newurl)

Modified: branches/mirror-boostrap/t/mirror/sync-bootstrap.t
==============================================================================
--- branches/mirror-boostrap/t/mirror/sync-bootstrap.t	(original)
+++ branches/mirror-boostrap/t/mirror/sync-bootstrap.t	Wed Aug  8 20:55:09 2007
@@ -35,12 +35,12 @@
 my ($exp_mirror, $boot_mirror);
 open my $exp, '>', \$exp_mirror;
 open my $boot, '>', \$boot_mirror;
-dump_all($xd->find_depot('') => $exp);
-dump_all($xd->find_depot('m2') => $boot);
+dump_all($xd->find_depot('') => $boot);
+dump_all($xd->find_depot('m2') => $exp);
 $exp_mirror =~ s/UUID: .*//;
 $boot_mirror =~ s/UUID: .*//;
 
-is($exp_mirror, $boot_mirror); # do something with UUID, they should be different
+is($boot_mirror, $exp_mirror); # do something with UUID, they should be different
 
 };
 


More information about the svk-commit mailing list