diff options
Diffstat (limited to 'rt/t/web/command_line_with_unknown_field.t')
| -rw-r--r-- | rt/t/web/command_line_with_unknown_field.t | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/rt/t/web/command_line_with_unknown_field.t b/rt/t/web/command_line_with_unknown_field.t index d63956be3..6afad8a85 100644 --- a/rt/t/web/command_line_with_unknown_field.t +++ b/rt/t/web/command_line_with_unknown_field.t @@ -1,9 +1,8 @@ -#!/usr/bin/perl -w - use strict; +use warnings; use File::Spec (); use Test::Expect; -use RT::Test tests => 17, actual_server => 1; +use RT::Test tests => 21, actual_server => 1; my ($baseurl, $m) = RT::Test->started_ok; my $rt_tool_path = "$RT::BinPath/rt"; @@ -38,6 +37,15 @@ expect_send("edit ticket/$ticket_id set homer=simpson", 'set unknown field'); expect_like(qr/homer: Unknown field/, 'homer is unknown field'); expect_like(qr/homer: simpson/, 'the value we set for homer is shown too'); +expect_send( + q{create -t ticket set requestors='foo@example.com, bar@example.com'}, + "create ticket with field 'requestors'" ); +expect_like(qr/Ticket \d+ created/, "Created the ticket"); +expect_handle->before() =~ /Ticket (\d+) created/; +$ticket_id = $1; +expect_send("show ticket/$ticket_id", 'check requestors'); +expect_like(qr/From: (?:foo\@example\.com, bar\@example\.com|bar\@example\.com, foo\@example\.com)/, "requestors are set correctly"); + expect_quit(); # you may encounter warning like Use of uninitialized value $ampm |