[Bps-public-commit] r12164 - in sd/trunk: .

[jesse at bestpractical.com]

Author: jesse
Date: Thu May  8 17:47:08 2008
New Revision: 12164

Modified:
   sd/trunk/   (props changed)
   sd/trunk/t/sd-rt.t

Log:


Modified: sd/trunk/t/sd-rt.t
==============================================================================
--- sd/trunk/t/sd-rt.t	(original)
+++ sd/trunk/t/sd-rt.t	Thu May  8 17:47:08 2008
@@ -8,10 +8,10 @@
 use Test::More;
 unless (eval 'use RT::Test; 1') {
     diag $@;
-    plan skip_all => 'requires 3.7 to run tests.';
+    plan skip_all => 'requires 3.7 or newer to run tests.';
 }
 
-eval 'use Prophet::Test tests => 9';
+eval 'use Prophet::Test tests => 11';
 
 no warnings 'once';
 
@@ -106,7 +106,7 @@
     status => 'open',
 )->store();
 
-warn "===> bad pull";
+diag( "===> bad pull");
 ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
 run_output_matches(
     'sd',
@@ -114,6 +114,36 @@
     [ sort "$yatta_uuid YATTA open", "$flyman_uuid Fly Man stalled", ]
 );
 
+
+my $tick = RT::Client::REST::Ticket->new(
+    rt => $rt,
+    id => $tix[0])->retrieve;
+
+warn $tick->subject;
+warn $tick->status;
+my ($val,$msg) = $tick->comment( message => 'this is a comment', attachments => [qw|t/data/bplogo.gif|]);
+    
+    my $attachments = RT::Client::REST::Ticket->new( rt => $rt, id => $tix[0])->attachments();
+    my $iterator = $attachments->get_iterator;
+    my @attachments;
+    while (my $att = &$iterator) { 
+        if ( $att->file_name eq 'bplogo.gif'  ) {
+        push @attachments, $att ;
+        warn "goto ne";
+    }
+    }
+is (scalar @attachments, 1, "Found our one attachment");
+
+ 
+( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+run_output_matches(
+    'sd',
+    [ 'ticket',                      'list', '--regex', '.' ],
+    [ sort "$yatta_uuid YATTA open", "$flyman_uuid Fly Man stalled", ]
+);
+
+
+
 #diag $uuid;
 
 1;