[Bps-public-commit] r11325 - SVN-PropDB/t

[clkao at bestpractical.com]

Author: clkao
Date: Mon Mar 31 23:54:46 2008
New Revision: 11325

Modified:
   SVN-PropDB/t/generalized_sync_n_merge.t

Log:
dump the output at the end

Modified: SVN-PropDB/t/generalized_sync_n_merge.t
==============================================================================
--- SVN-PropDB/t/generalized_sync_n_merge.t	(original)
+++ SVN-PropDB/t/generalized_sync_n_merge.t	Mon Mar 31 23:54:46 2008
@@ -18,7 +18,25 @@
     $arena->step();
 }
 
-$arena;
+#$arena->sync_all_pairs;
+
+for (@{$arena->chickens}) {
+    warn $_->name;
+    as_user( $_->name, sub {
+                 warn "==> hi";
+                 my $cli = Prophet::CLI->new();
+                 my $handle = $cli->handle;
+                 my $records = Prophet::Collection->new
+                     (handle => $handle,
+                      type => 'Scratch');
+                 $records->matching(sub { 1 });
+                 use Data::Dumper;
+                 for (@{$records->as_array_ref}) {
+                     warn $_->uuid.' : '.Dumper($_->get_props);
+                 }
+             });
+}
+
 
 exit;
-;
\ No newline at end of file
+;