diff options
Diffstat (limited to 'rt/t/api/txn_content.t')
-rw-r--r-- | rt/t/api/txn_content.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/rt/t/api/txn_content.t b/rt/t/api/txn_content.t new file mode 100644 index 0000000..0f5d78c --- /dev/null +++ b/rt/t/api/txn_content.t @@ -0,0 +1,19 @@ +use warnings; +use strict; + +use RT::Test tests => 3; +use MIME::Entity; +my $ticket = RT::Ticket->new($RT::SystemUser); +my $mime = MIME::Entity->build( + From => 'test@example.com', + Type => 'text/html', + Data => ["this is body\n"], +); +$mime->attach( Data => ['this is attachment'] ); +my $id = $ticket->Create( MIMEObj => $mime, Queue => 'General' ); +ok( $id, "created ticket $id" ); +my $txns = $ticket->Transactions; +$txns->Limit( FIELD => 'Type', VALUE => 'Create' ); +my $txn = $txns->First; +ok( $txn, 'got Create txn' ); +is( $txn->Content, "this is body\n", "txn's content" ); |