[Bps-public-commit] r11336 - in SVN-PropDB: .

[jesse at bestpractical.com]

Author: jesse
Date: Tue Apr  1 05:36:19 2008
New Revision: 11336

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/lib/Prophet/Test/Participant.pm

Log:
 r28900 at 68-246-174-125:  jesse | 2008-03-31 23:35:46 -1000
 * easier to replay surveillance


Modified: SVN-PropDB/lib/Prophet/Test/Participant.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Test/Participant.pm	(original)
+++ SVN-PropDB/lib/Prophet/Test/Participant.pm	Tue Apr  1 05:36:19 2008
@@ -83,8 +83,14 @@
     my $self = shift;
     my @props = @_ || _random_props();
 
-    $self->record_action('create_record', @props);
-    run_ok('prophet-node-create', [qw(--type Scratch),   @props    ], $self->name ." created a record");
+    
+    my($ret,$out,$err) = run_script('prophet-node-create', [qw(--type Scratch),   @props    ]);
+    ok($ret, $self->name . " created a record");
+    if ($out =~ /Created\s+(.*?)\s+(.*)$/i) {
+       my $id =  $2;
+ 
+    $self->record_action('create_record', $id, @props);
+    }
 }
 
 sub update_record {
@@ -98,7 +104,7 @@
     
     %props =      _permute_props(%props); 
 
-    $self->record_action('update_record', %props);
+    $self->record_action('update_record', $update_record, %props);
 
     run_ok('prophet-node-update', [qw(--type Scratch --uuid), $update_record,        map { '--'.$_ => $props{$_} } keys %props  ], $self->name. " updated a record");