[Bps-public-commit] r15188 - sd/trunk/t

[jesse at bestpractical.com]

Author: jesse
Date: Fri Aug 15 11:47:46 2008
New Revision: 15188

Modified:
   sd/trunk/t/sd-rt.t

Log:
* test cc pull 

Modified: sd/trunk/t/sd-rt.t
==============================================================================
--- sd/trunk/t/sd-rt.t	(original)
+++ sd/trunk/t/sd-rt.t	Fri Aug 15 11:47:46 2008
@@ -12,7 +12,7 @@
     plan skip_all => 'requires 3.7 or newer to run tests.';
 }
 
-eval 'use Prophet::Test tests => 23';
+eval 'use Prophet::Test tests => 27';
 use App::SD::Test;
 
 no warnings 'once';
@@ -188,9 +188,27 @@
 
 
 #diag $uuid;
+# testing adding CCs to tickets
 
+$tick->add_cc('hiro at example.com'); # stored
+my ($tval,$tmsg) = $tick->store;
+ok($tval, $tmsg);
+
+my $fetched_tick = RT::Client::REST::Ticket->new(
+    rt => $rt,
+    id => $tick->id)->retrieve;
+
+
+diag($fetched_tick->subject);
+my (@x) = $fetched_tick->cc;
+is_deeply (\@x,  [ 'hiro at example.com']);
+( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from',  $sd_rt_url ] );
+ok($ret, $out);
+
+( $ret, $out, $err ) = run_script( 'sd', [ 'ticket', 'show', '--verbose','--id',$yatta_id ] );
+
+like($out, qr/Cc:\s*hiro\@example.com/);
 
-exit();
 
 
 sub get_rt_ticket_attachments {