[Rt-commit] r14549 - in rt/branches/3.999-DANGEROUS: . t/web
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Sun Jul 27 12:53:56 EDT 2008
Author: sunnavy
Date: Sun Jul 27 12:53:55 2008
New Revision: 14549
Modified:
rt/branches/3.999-DANGEROUS/ (props changed)
rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t
rt/branches/3.999-DANGEROUS/t/web/attachments.t
rt/branches/3.999-DANGEROUS/t/web/cf_access.t
rt/branches/3.999-DANGEROUS/t/web/cf_select_one.t
rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/web/custom_frontpage.t
rt/branches/3.999-DANGEROUS/t/web/custom_search.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
rt/branches/3.999-DANGEROUS/t/web/query_builder.t
rt/branches/3.999-DANGEROUS/t/web/rights1.t
rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t
Log:
r15023 at sunnavys-mb: sunnavy | 2008-07-28 00:52:47 +0800
updated tests
Modified: rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t (original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t Sun Jul 27 12:53:55 2008
@@ -68,7 +68,7 @@
$m->follow_link_ok( text => 'Resolve' );
$m->form_number(3);
$m->field( "update_content" => 'resolve it' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(qr/Message recorded/);
is_deeply parse_handle($tmp_fh), ['comment', 'status'], 'comment + Resolve';
}
Modified: rt/branches/3.999-DANGEROUS/t/web/attachments.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/attachments.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/attachments.t Sun Jul 27 12:53:55 2008
@@ -13,14 +13,14 @@
my $qid = $queue->load('General');
ok( $qid, "Loaded General queue" );
-$m->form_name('CreateTicketInQueue');
+$m->form_name('create_ticket_in_queue');
$m->field('queue', $qid);
$m->submit;
is($m->status, 200, "request successful");
$m->content_like(qr/Create a new ticket/, 'ticket create page');
-$m->form_name('TicketCreate');
+$m->form_name('ticket_create');
$m->field('subject', 'Attachments test');
-$m->field('Attach', LogoFile);
+$m->field('attach', LogoFile);
$m->field('content', 'Some content');
$m->submit;
is($m->status, 200, "request successful");
@@ -29,15 +29,15 @@
$m->content_like(qr/Some content/, 'and content');
$m->content_like(qr/Download bplogo\.gif/, 'page has file name');
$m->follow_link_ok(text => 'Reply');
-$m->form_name('TicketUpdate');
-$m->field('Attach', LogoFile);
-$m->click('AddMoreAttach');
+$m->form_name('ticket_update');
+$m->field('attach', LogoFile);
+$m->click('add_more_attach');
is($m->status, 200, "request successful");
-$m->form_name('TicketUpdate');
-$m->field('Attach', FaviconFile);
+$m->form_name('ticket_update');
+$m->field('attach', FaviconFile);
$m->field('update_content', 'Message');
-$m->click('SubmitTicket');
+$m->click('submit_ticket');
is($m->status, 200, "request successful");
$m->content_like(qr/Download bplogo\.gif/, 'page has file name');
Modified: rt/branches/3.999-DANGEROUS/t/web/cf_access.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/cf_access.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/cf_access.t Sun Jul 27 12:53:55 2008
@@ -18,7 +18,7 @@
$m->title_is(q/Select a Custom Field/, 'admin-cf screen');
$m->follow_link( text => 'Create' );
$m->submit_form(
- form_name => "ModifyCustomField",
+ form_name => "modify_custom_field",
fields => {
type_composite => 'Image-0',
lookup_type => 'RT::Model::Queue-RT::Model::Ticket',
@@ -39,7 +39,7 @@
$m->follow_link( text => 'Ticket Custom Fields' );
$m->title_is(q/Edit Custom Fields for General/, 'admin-queue: general cfid');
- $m->form_name('EditCustomFields');
+ $m->form_name('edit_custom_fields');
# Sort by numeric IDs in names
my @names = map { $_->[1] }
@@ -70,17 +70,17 @@
if $ENV{'TEST_VERBOSE'};
{
$m->submit_form(
- form_name => "CreateTicketInQueue",
+ form_name => "create_ticket_in_queue",
fields => { queue => 'General' },
);
$m->content_unlike(qr/Upload multiple images/, 'has no upload image field');
- my $form = $m->form_name("TicketCreate");
+ my $form = $m->form_name("ticket_create");
my $upload_field = "object-RT::Model::Ticket--CustomField-$cfid-Upload";
ok !$form->find_input( $upload_field ), 'no form field on the page';
$m->submit_form(
- form_name => "TicketCreate",
+ form_name => "ticket_create",
fields => { subject => 'test' },
);
$m->content_like(qr/Ticket \d+ created/, "a ticket is Created succesfully");
@@ -101,17 +101,17 @@
if $ENV{'TEST_VERBOSE'};
{
$m->submit_form(
- form_name => "CreateTicketInQueue",
+ form_name => "create_ticket_in_queue",
fields => { queue => 'General' },
);
$m->content_unlike(qr/Upload multiple images/, 'has no upload image field');
- my $form = $m->form_name("TicketCreate");
+ my $form = $m->form_name("ticket_create");
my $upload_field = "object-RT::Model::Ticket--CustomField-$cfid-Upload";
ok !$form->find_input( $upload_field ), 'no form field on the page';
$m->submit_form(
- form_name => "TicketCreate",
+ form_name => "ticket_create",
fields => { subject => 'test' },
);
$tid = $1 if $m->content =~ /Ticket (\d+) created/i;
@@ -133,7 +133,7 @@
diag "create a ticket with an image" if $ENV{'TEST_VERBOSE'};
{
$m->submit_form(
- form_name => "CreateTicketInQueue",
+ form_name => "create_ticket_in_queue",
fields => { queue => 'General' },
);
$m->content_like(qr/Upload multiple images/, 'has a upload image field');
@@ -142,7 +142,7 @@
my $upload_field = "object-RT::Model::Ticket--CustomField-$1-Upload";
$m->submit_form(
- form_name => "TicketCreate",
+ form_name => "ticket_create",
fields => {
$upload_field => ImageFile,
subject => 'testing img cf creation',
@@ -171,7 +171,7 @@
value_of_id => $tid,
value_of_queue => 'General',
},
- button => 'AddClause',
+ button => 'add_clause',
);
$m->form_name('build_query');
Modified: rt/branches/3.999-DANGEROUS/t/web/cf_select_one.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/cf_select_one.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/cf_select_one.t Sun Jul 27 12:53:55 2008
@@ -20,7 +20,7 @@
$m->title_is(q/Select a Custom Field/, 'admin-cf screen');
$m->follow_link( text => 'Create' );
$m->submit_form(
- form_name => "ModifyCustomField",
+ form_name => "modify_custom_field",
fields => {
name => $cf_name,
type_composite => 'Select-1',
@@ -28,7 +28,7 @@
},
);
$m->content_like( qr/Created/, 'Created CF sucessfully' );
- $cfid = $m->form_name('ModifyCustomField')->value('id');
+ $cfid = $m->form_name('modify_custom_field')->value('id');
ok $cfid, "found id of the CF in the form, it's #$cfid";
}
@@ -36,11 +36,11 @@
{
foreach my $value(qw(qwe ASD 0)) {
$m->submit_form(
- form_name => "ModifyCustomField",
+ form_name => "modify_custom_field",
fields => {
"CustomField-". $cfid ."-value-new-name" => $value,
},
- button => 'Update',
+ button => 'update',
);
$m->content_like( qr/Created/, 'added a value to the CF' ); # or diag $m->content;
}
@@ -58,7 +58,7 @@
$m->follow_link( text => 'Ticket Custom Fields' );
$m->title_is(q/Edit Custom Fields for General/, 'admin-queue: general cfid');
- $m->form_name('EditCustomFields');
+ $m->form_name('edit_custom_fields');
$m->field( "object-". $queue->id ."-CF-$cfid" => 1 );
$m->submit;
Modified: rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t Sun Jul 27 12:53:55 2008
@@ -81,7 +81,7 @@
RT::Test->clean_caught_mails;
$m->goto_create_ticket( $queue );
-$m->form_name('TicketCreate');
+$m->form_name('ticket_create');
$m->field('subject', 'Encryption test');
$m->field('content', 'Some content');
@@ -150,7 +150,7 @@
RT::Test->clean_caught_mails;
$m->goto_create_ticket( $queue );
-$m->form_name('TicketCreate');
+$m->form_name('ticket_create');
$m->field('subject', 'Signing test');
$m->field('content', 'Some other content');
ok(!$m->value('encrypt', 2), "encrypt tick box is unchecked");
@@ -223,7 +223,7 @@
$user->set_email('recipient at example.com');
$m->goto_create_ticket( $queue );
-$m->form_name('TicketCreate');
+$m->form_name('ticket_create');
$m->field('subject', 'Crypt+Sign test');
$m->field('content', 'Some final? content');
ok($m->value('encrypt', 2), "encrypt tick box is checked");
@@ -289,7 +289,7 @@
RT::Test->fetch_caught_mails;
$m->goto_create_ticket( $queue );
-$m->form_name('TicketCreate');
+$m->form_name('ticket_create');
$m->field('subject', 'Test crypt-off on encrypted queue');
$m->field('content', 'Thought you had me figured out didya');
$m->field(encrypt => undef, 2); # turn off encryption
Modified: rt/branches/3.999-DANGEROUS/t/web/custom_frontpage.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/custom_frontpage.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/custom_frontpage.t Sun Jul 27 12:53:55 2008
@@ -23,11 +23,11 @@
$m->get ( $url."Search/Build.html");
#create a saved search
-$m->form_name ('build_query');
+$m->form_name('build_query');
$m->field ( "value_of_attachment" => 'stupid');
$m->field ( "saved_search_description" => 'stupid tickets');
-$m->click_button (name => 'SavedSearchSave');
+$m->click_button (name => 'saved_search_save');
$m->get ( $url.'Prefs/MyRT.html' );
$m->content_like (qr/stupid tickets/, 'saved search listed in rt at a glance items');
Modified: rt/branches/3.999-DANGEROUS/t/web/custom_search.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/custom_search.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/custom_search.t Sun Jul 27 12:53:55 2008
@@ -27,13 +27,13 @@
$m->content_like (qr'highest priority tickets');
# add Requestor to the fields
-$m->form_name ('build_query');
+$m->form_name('build_query');
# can't use submit form for mutli-valued select as it uses set_fields
$m->field (select_display_columns => ['requestors']);
$m->click_button (name => 'add_col') ;
-$m->form_name ('build_query');
-$m->click_button (name => 'Save');
+$m->form_name('build_query');
+$m->click_button (name => 'save');
$m->get( $url );
$m->content_contains ('customsearch at localhost', 'requestor now displayed ');
@@ -41,12 +41,12 @@
# now remove Requestor from the fields
$m->get ($cus_hp);
-$m->form_name ('build_query');
+$m->form_name('build_query');
$m->field (current_display_columns => 'Requestors');
$m->click_button (name => 'remove_col') ;
-$m->form_name ('build_query');
-$m->click_button (name => 'Save');
+$m->form_name('build_query');
+$m->click_button (name => 'save');
$m->get( $url );
$m->content_lacks ('customsearch at localhost', 'requestor not displayed ');
@@ -59,9 +59,9 @@
# queue added during the quicksearch setting will be unticked.
my $nlinks = $#{$m->find_all_links( text => "General" )};
$m->get ($cus_qs);
-$m->form_name ('Preferences');
+$m->form_name('preferences');
$m->untick('Want-General', '1');
-$m->click_button (name => 'Save');
+$m->click_button (name => 'save');
$m->get( $url );
is ($#{$m->find_all_links( text => "General" )}, $nlinks - 1,
@@ -69,9 +69,9 @@
# get it back
$m->get ($cus_qs);
-$m->form_name ('Preferences');
+$m->form_name('preferences');
$m->tick('Want-General', '1');
-$m->click_button (name => 'Save');
+$m->click_button (name => 'save');
$m->get( $url );
is ($#{$m->find_all_links( text => "General" )}, $nlinks,
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t Sun Jul 27 12:53:55 2008
@@ -73,7 +73,7 @@
foreach my $variant ( @variants ) {
set_queue_crypt_options( %$variant );
$m->goto_create_ticket( $queue );
- $m->form_name('TicketCreate');
+ $m->form_name('ticket_create');
if ( $variant->{'encrypt'} ) {
ok $m->value('encrypt', 2), "encrypt tick box is checked";
} else {
@@ -258,7 +258,7 @@
RT::Test->clean_caught_mails;
$m->goto_create_ticket( $queue );
- $m->form_name('TicketCreate');
+ $m->form_name('ticket_create');
$m->field( subject => 'test' );
$m->field( requestors => 'rt-test at example.com' );
$m->field( content => 'Some content' );
@@ -301,7 +301,7 @@
}
}
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
is $m->status, 200, "request successful";
$m->content_like(qr/Message recorded/, 'Message recorded') or diag $m->content;
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t Sun Jul 27 12:53:55 2008
@@ -272,7 +272,7 @@
$m->tick( encrypt => 1 );
$m->field( requestors => 'rt-test at example.com' );
$m->field( content => 'Some content' );
- $m->field( Attach => $0 );
+ $m->field( attach => $0 );
$m->submit;
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t Sun Jul 27 12:53:55 2008
@@ -72,7 +72,7 @@
$m->tick( sign => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/unable to sign outgoing email messages/i,
'problems with passphrase'
@@ -99,7 +99,7 @@
$m->tick( encrypt => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -136,7 +136,7 @@
$m->tick( encrypt => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -151,7 +151,7 @@
is scalar $input->possible_values, 1, 'one option';
$m->select( 'UseKey-rt-test at example.com' => $fpr1 );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -184,7 +184,7 @@
$m->tick( encrypt => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -199,7 +199,7 @@
is scalar $input->possible_values, 2, 'two options';
$m->select( 'UseKey-rt-test at example.com' => $fpr1 );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -230,7 +230,7 @@
$m->tick( encrypt => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -258,7 +258,7 @@
$m->tick( encrypt => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -273,7 +273,7 @@
is scalar $input->possible_values, 2, 'two options';
$m->select( 'UseKey-rt-test at example.com' => $fpr1 );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like( qr/Message recorded/i, 'Message recorded' );
my @mail = RT::Test->fetch_caught_mails;
@@ -291,8 +291,8 @@
$m->tick( encrypt => 1 );
$m->field( update_cc => 'rt-test at example.com' );
$m->field( update_content => 'Some content' );
- $m->field( Attach => $0 );
- $m->click('SubmitTicket');
+ $m->field( attach => $0 );
+ $m->click('submit_ticket');
$m->content_like(
qr/You are going to encrypt outgoing email messages/i,
'problems with keys'
@@ -307,7 +307,7 @@
is scalar $input->possible_values, 2, 'two options';
$m->select( 'UseKey-rt-test at example.com' => $fpr1 );
- $m->click('SubmitTicket');
+ $m->click('submit_ticket');
$m->content_like( qr/Message recorded/i, 'Message recorded' );
my @mail = RT::Test->fetch_caught_mails;
Modified: rt/branches/3.999-DANGEROUS/t/web/query_builder.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/query_builder.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/query_builder.t Sun Jul 27 12:53:55 2008
@@ -67,17 +67,17 @@
diag "We're going to delete the owner" if $ENV{'TEST_VERBOSE'};
{
$agent->select("clauses", ["0"] );
- $agent->click("DeleteClause");
+ $agent->click("delete_clause");
ok $agent->form_name('build_query'), "found the form";
is get_query_from_form, "queue != 'Regression'", 'correct query';
}
diag "add a cond with OR and se number by the way" if $ENV{'TEST_VERBOSE'};
{
- $agent->field("AndOr", "OR");
+ $agent->field("and_or", "OR");
$agent->select("id_op", ">");
$agent->field("value_of_id" => "1234");
- $agent->click("AddClause");
+ $agent->click("add_clause");
ok $agent->form_name('build_query'), "found the form again";
is get_query_from_form, "queue != 'Regression' OR id > 1234",
"added something as OR, and number not quoted";
@@ -87,7 +87,7 @@
diag "Move the second one up a level" if $ENV{'TEST_VERBOSE'};
{
- $agent->click("Up");
+ $agent->click("up");
ok $agent->form_name('build_query'), "found the form again";
is get_query_from_form, "id > 1234 OR queue != 'Regression'", "moved up one";
is_deeply selected_clauses, ["0"], 'the one we moved up is selected';
@@ -95,7 +95,7 @@
diag "Move the second one right" if $ENV{'TEST_VERBOSE'};
{
- $agent->click("Right");
+ $agent->click("right");
ok $agent->form_name('build_query'), "found the form again";
is get_query_from_form, "queue != 'Regression' OR ( id > 1234 )",
"moved over to the right (and down)";
@@ -105,7 +105,7 @@
diag "Move the block up" if $ENV{'TEST_VERBOSE'};
{
$agent->select("clauses", ["1"]);
- $agent->click("Up");
+ $agent->click("up");
ok $agent->form_name('build_query'), "found the form again";
is get_query_from_form, "( id > 1234 ) OR queue != 'Regression'", "moved up";
is_deeply selected_clauses, ["0"], 'the one we moved up is selected';
@@ -115,7 +115,7 @@
diag "Can not move up the top most clause" if $ENV{'TEST_VERBOSE'};
{
$agent->select("clauses", ["0"]);
- $agent->click("Up");
+ $agent->click("up");
ok $agent->form_name('build_query'), "found the form again";
$agent->content_like(qr/error: can\S+t move up/, "i shouldn't have been able to hit up");
is_deeply selected_clauses, ["0"], 'the one we tried to move is selected';
@@ -123,7 +123,7 @@
diag "Can not move left the left most clause" if $ENV{'TEST_VERBOSE'};
{
- $agent->click("Left");
+ $agent->click("left");
ok($agent->form_name('build_query'), "found the form again");
$agent->content_like(qr/error: can\S+t move left/, "i shouldn't have been able to hit left");
is_deeply selected_clauses, ["0"], 'the one we tried to move is selected';
@@ -243,7 +243,7 @@
);
$agent->select("clauses", [qw(0 1 2)]);
$agent->field( value_of_id => 10 );
- $agent->click("DeleteClause");
+ $agent->click("delete_clause");
is( get_query_from_form,
"id < 10",
Modified: rt/branches/3.999-DANGEROUS/t/web/rights1.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/rights1.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/rights1.t Sun Jul 27 12:53:55 2008
@@ -68,7 +68,7 @@
ok($grantid,$grantmsg);
$agent->reload();
like($agent->{'content'} , qr/Load saved search/i, "Search loading box exists");
-ok($agent->{'content'} !~ /input\s+type=['"]submit['"][^>]+name=['"]SavedSearchSave['"]/i,
+ok($agent->{'content'} !~ /input\s+type=['"]submit['"][^>]+name=['"]saved_search_save['"]/i,
"Still no saved searches box");
($grantid,$grantmsg) =$user_obj->principal_object->grant_right(right => 'CreateSavedSearch');
@@ -76,7 +76,7 @@
$agent->reload();
like($agent->{'content'} , qr/Load saved search/i,
"Search loading box still exists");
-like($agent->{'content'} , qr/input\s+type=['"]submit['"][^>]+name=['"]SavedSearchSave['"]/i,
+like($agent->{'content'} , qr/input\s+type=['"]submit['"][^>]+name=['"]saved_search_save['"]/i,
"Saved searches box exists");
# Create a group, and a queue, so we can test limited user visibility
Modified: rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t Sun Jul 27 12:53:55 2008
@@ -32,12 +32,12 @@
diag "current user has no right to own, nobody selected as owner on create" if $ENV{TEST_VERBOSE};
{
$agent_a->get_ok('/', 'open home page');
- $agent_a->form_name('CreateTicketInQueue');
+ $agent_a->form_name('create_ticket_in_queue');
$agent_a->select( 'queue', $queue->id );
$agent_a->submit;
$agent_a->content_like(qr/Create a new ticket/i, 'opened create ticket page');
- my $form = $agent_a->form_name('TicketCreate');
+ my $form = $agent_a->form_name('ticket_create');
is $form->value('owner'), RT->nobody->id, 'correct owner selected';
ok !grep($_ == $user_a->id, $form->find_input('owner')->possible_values),
'user A can not own tickets';
@@ -55,12 +55,12 @@
diag "user can chose owner of a new ticket" if $ENV{TEST_VERBOSE};
{
$agent_a->get_ok('/', 'open home page');
- $agent_a->form_name('CreateTicketInQueue');
+ $agent_a->form_name('create_ticket_in_queue');
$agent_a->select( 'queue', $queue->id );
$agent_a->submit;
$agent_a->content_like(qr/Create a new ticket/i, 'opened create ticket page');
- my $form = $agent_a->form_name('TicketCreate');
+ my $form = $agent_a->form_name('ticket_create');
is $form->value('owner'), RT->nobody->id, 'correct owner selected';
ok grep($_ == $user_b->id, $form->find_input('owner')->possible_values),
More information about the Rt-commit
mailing list