[Bps-public-commit] r11260 - in SVN-PropDB: . bin t

[jesse at bestpractical.com]

Author: jesse
Date: Sat Mar 29 00:19:11 2008
New Revision: 11260

Added:
   SVN-PropDB/t/cli.t
Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/bin/prophet-node-history
   SVN-PropDB/lib/Prophet/CLI.pm
   SVN-PropDB/lib/Prophet/Record.pm

Log:
 r28769 at 68-246-62-103:  jesse | 2008-03-28 16:46:42 -1000
 * Starting to add notes about what to do for testing the cli


Modified: SVN-PropDB/bin/prophet-node-history
==============================================================================
--- SVN-PropDB/bin/prophet-node-history	(original)
+++ SVN-PropDB/bin/prophet-node-history	Sat Mar 29 00:19:11 2008
@@ -22,7 +22,7 @@
 print "="x40 ."\n";
 print $node->rev.'@'. $node->date .' <'.$node->author.">\n";
 print "- should show source information\n";
-print " - should skip merge info if not in a verbose mode";
+print " - should skip merge info if not in a verbose mode\n";
 print $node->msg."\n" if ($node->msg);
 for my $key ( keys %{ $node->prop_changes } ) {
     print "$key ";

Modified: SVN-PropDB/lib/Prophet/CLI.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/CLI.pm	(original)
+++ SVN-PropDB/lib/Prophet/CLI.pm	Sat Mar 29 00:19:11 2008
@@ -20,7 +20,7 @@
 sub handle {
     my $self = shift;
     unless ($self->_handle) {
-    my $root = $ENV{'PROPHET_ROOT'} || dir($ENV{'HOME'},'.prophet');
+    my $root = $ENV{'PROPHET_REPO'} || dir($ENV{'HOME'},'.prophet');
     my $path = $ENV{'PROPHET_REPO_PATH'} ||'_prophet';
     $self->_handle( Prophet::Handle->new( repository => $root, db_root => $path ));
 

Modified: SVN-PropDB/lib/Prophet/Record.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Record.pm	(original)
+++ SVN-PropDB/lib/Prophet/Record.pm	Sat Mar 29 00:19:11 2008
@@ -164,13 +164,10 @@
 sub _compute_history_deltas {
     my $self    = shift;
     my $log_ref = shift;
-    warn $self, $log_ref;
     @$log_ref = reverse @$log_ref;
     my $last_props = {};
     for my $i ( 0 .. $#{$log_ref} ) {
 
-        warn "Node $i - rev " . $log_ref->[$i]->rev;
-
         my $props = $log_ref->[$i]->props;
 
         for my $key ( keys %$props ) {

Added: SVN-PropDB/t/cli.t
==============================================================================
--- (empty file)
+++ SVN-PropDB/t/cli.t	Sat Mar 29 00:19:11 2008
@@ -0,0 +1,39 @@
+#!/usr/bin/perl 
+#
+use warnings;
+use strict;
+
+use Test::More qw/no_plan/;
+
+$ENV{'PROPHET_REPO'} = '/tmp/prophet';
+
+
+ok(`bin/prophet-node-create --type Bug --status new` );
+
+# create 1 node
+# update the node
+# search for the node
+# show the node history
+# show the node
+#
+# clone the replica to a second replica
+# compare the second replica to the first replica
+#   search
+#   node history
+#   node basics
+#
+# update the first replica
+# merge the first replica to the second replica
+#   does node history on the second replica reflect the first replica
+
+# merge the second replica to the first replica
+# ensure that no new transactions aside from a merge ticket are added to the first replica
+
+
+# update the second replica
+# merge the second replica to the first replica
+# make sure that the first replica has the change from the second replica
+#
+#
+# TODO: this doesn't test conflict resolution at all
+# TODO: this doesn't peer to peer sync at all