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

[clkao at bestpractical.com]

Author: clkao
Date: Fri Apr  4 20:22:10 2008
New Revision: 11513

Modified:
   SVN-PropDB/t/sd-rt.t

Log:
second pull doesn't work.


Modified: SVN-PropDB/t/sd-rt.t
==============================================================================
--- SVN-PropDB/t/sd-rt.t	(original)
+++ SVN-PropDB/t/sd-rt.t	Fri Apr  4 20:22:10 2008
@@ -9,7 +9,7 @@
 eval 'use RT::Test; 1'
     or plan skip_all => 'requires 3.7 to run tests.'.$@;
 
-use Prophet::Test tests => 10;
+use Prophet::Test tests => 9;
 
 no warnings 'once';
 
@@ -66,23 +66,53 @@
 
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
                    [ 
-                     "$flyman_uuid Fly Man open",
                     "$yatta_uuid YATTA new",
+                     "$flyman_uuid Fly Man open",
                    ]);
 
 ($ret, $out, $err) = run_script('sd', ['push', $sd_rt_url]);
-warn $out;
-warn $err;
+
+my @tix = $rt->search(
+        type  => 'ticket',
+        query => "Subject='YATTA'"
+    );
+diag @tix;
+ok(scalar @tix, 'YATTA pushed');
 
 ($ret, $out, $err) = run_script('sd', ['pull', $sd_rt_url]);
 
 
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
                    [ 
-                     "$flyman_uuid Fly Man open",
                     "$yatta_uuid YATTA new",
+                     "$flyman_uuid Fly Man open",
+                   ]);
+
+RT::Client::REST::Ticket->new(
+        rt => $rt,
+        id => $ticket->id,
+        status => 'stalled',
+    )->store();
+
+run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
+                   [ 
+                    "$yatta_uuid YATTA open",
+                     "$flyman_uuid Fly Man stalled",
                    ]);
 
+RT::Client::REST::Ticket->new(
+        rt => $rt,
+        id => @tix[0],
+        status => 'open',
+    )->store();
+
+($ret, $out, $err) = run_script('sd', ['pull', $sd_rt_url]);
+
+run_output_matches('sd', ['ticket', '--list', '--regex', '.'],
+                   [ 
+                    "$yatta_uuid YATTA open",
+                     "$flyman_uuid Fly Man stalled",
+                   ]);
 
 #diag $uuid;