[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