6 use RT::Test tests => 10;
7 my ($baseurl, $m) = RT::Test->started_ok;
8 my $rt_tool_path = "$RT::BinPath/rt";
10 $ENV{'RTUSER'} = 'root';
11 $ENV{'RTPASSWD'} = 'password';
12 $RT::Logger->debug("Connecting to server at ".RT->Config->Get('WebBaseURL'));
13 $ENV{'RTSERVER'} =RT->Config->Get('WebBaseURL') ;
14 $ENV{'RTDEBUG'} = '1';
17 command => "$rt_tool_path shell",
21 expect_send(q{create -t ticket set subject='new ticket' add cc=foo@example.com}, "Creating a ticket...");
22 expect_like(qr/Ticket \d+ created/, "Created the ticket");
23 expect_handle->before() =~ /Ticket (\d+) created/;
26 expect_send("edit ticket/$ticket_id set marge=simpson", 'set unknown field');
27 expect_like(qr/marge: Unknown field/, 'marge is unknown field');
28 expect_like(qr/marge: simpson/, 'the value we set for marge is shown too');
30 expect_send("edit ticket/$ticket_id set homer=simpson", 'set unknown field');
31 expect_like(qr/homer: Unknown field/, 'homer is unknown field');
32 expect_like(qr/homer: simpson/, 'the value we set for homer is shown too');