summaryrefslogtreecommitdiff
path: root/rt/t/web/command_line_with_unknown_field.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/web/command_line_with_unknown_field.t')
-rw-r--r--rt/t/web/command_line_with_unknown_field.t34
1 files changed, 0 insertions, 34 deletions
diff --git a/rt/t/web/command_line_with_unknown_field.t b/rt/t/web/command_line_with_unknown_field.t
deleted file mode 100644
index 9a7ec7acd..000000000
--- a/rt/t/web/command_line_with_unknown_field.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use File::Spec ();
-use Test::Expect;
-use RT::Test tests => 10;
-my ($baseurl, $m) = RT::Test->started_ok;
-my $rt_tool_path = "$RT::BinPath/rt";
-
-$ENV{'RTUSER'} = 'root';
-$ENV{'RTPASSWD'} = 'password';
-$RT::Logger->debug("Connecting to server at ".RT->Config->Get('WebBaseURL'));
-$ENV{'RTSERVER'} =RT->Config->Get('WebBaseURL') ;
-$ENV{'RTDEBUG'} = '1';
-
-expect_run(
- command => "$rt_tool_path shell",
- prompt => 'rt> ',
- 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;
-
-expect_send("edit ticket/$ticket_id set marge=simpson", 'set unknown field');
-expect_like(qr/marge: Unknown field/, 'marge is unknown field');
-expect_like(qr/marge: simpson/, 'the value we set for marge is shown too');
-
-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_quit();