[Bps-public-commit] r11597 - in SVN-PropDB: t
clkao at bestpractical.com
clkao at bestpractical.com
Sun Apr 6 08:12:55 EDT 2008
Author: clkao
Date: Sun Apr 6 08:12:54 2008
New Revision: 11597
Modified:
SVN-PropDB/lib/Prophet/Replica.pm
SVN-PropDB/t/export.t
Log:
misc commnets.
Modified: SVN-PropDB/lib/Prophet/Replica.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Replica.pm (original)
+++ SVN-PropDB/lib/Prophet/Replica.pm Sun Apr 6 08:12:54 2008
@@ -396,7 +396,9 @@
=cut
-
+
+
+# XXX: this totally wants to get streamy and use a callback so we can integrate while fetching.
sub fetch_changesets {
my $self = shift;
my %args = validate( @_, { after => 1 } );
Modified: SVN-PropDB/t/export.t
==============================================================================
--- SVN-PropDB/t/export.t (original)
+++ SVN-PropDB/t/export.t Sun Apr 6 08:12:54 2008
@@ -57,6 +57,7 @@
use_ok('Prophet::Replica::HTTP');
my $changesets = Prophet::Replica->new({ url => 'prophet:file://'.$path} )->fetch_changesets( after => 0 );
is( $#{ $changesets}, 4, "We found a total of 5 changesets");
+ # XXX: compare the changeset structure
is(lc($changesets->[-1]->{source_uuid}), lc($changesets->[-1]->{original_source_uuid}));
};
More information about the Bps-public-commit
mailing list