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 | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/rt/t/web/command_line_with_unknown_field.t b/rt/t/web/command_line_with_unknown_field.t index 9a7ec7acd..736be4d1c 100644 --- a/rt/t/web/command_line_with_unknown_field.t +++ b/rt/t/web/command_line_with_unknown_field.t @@ -3,7 +3,7 @@ use strict; use File::Spec (); use Test::Expect; -use RT::Test tests => 10; +use RT::Test tests => 14, actual_server => 1; my ($baseurl, $m) = RT::Test->started_ok; my $rt_tool_path = "$RT::BinPath/rt"; @@ -12,6 +12,7 @@ $ENV{'RTPASSWD'} = 'password'; $RT::Logger->debug("Connecting to server at ".RT->Config->Get('WebBaseURL')); $ENV{'RTSERVER'} =RT->Config->Get('WebBaseURL') ; $ENV{'RTDEBUG'} = '1'; +$ENV{'RTCONFIG'} = '/dev/null'; expect_run( command => "$rt_tool_path shell", @@ -19,6 +20,7 @@ expect_run( quit => 'quit', ); expect_send(q{create -t ticket set subject='new ticket' add cc=foo@example.com}, "Creating a ticket..."); + expect_like(qr/Ticket \d+ created/, "Created the ticket"); expect_handle->before() =~ /Ticket (\d+) created/; my $ticket_id = $1; @@ -32,3 +34,10 @@ 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_quit(); + +# you may encounter warning like Use of uninitialized value $ampm +# ... in Time::ParseDate +my @warnings = grep { $_ !~ /\$ampm/ } $m->get_warnings; +is( scalar @warnings, 0, 'no extra warnings' ); + +1; # needed to avoid a weird exit value from expect_quit |