summaryrefslogtreecommitdiff
path: root/rt/t/web/cf_access.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/web/cf_access.t')
-rw-r--r--rt/t/web/cf_access.t189
1 files changed, 0 insertions, 189 deletions
diff --git a/rt/t/web/cf_access.t b/rt/t/web/cf_access.t
deleted file mode 100644
index 183597b4a..000000000
--- a/rt/t/web/cf_access.t
+++ /dev/null
@@ -1,189 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-use RT::Test tests => 26;
-$RT::Test::SKIP_REQUEST_WORK_AROUND = 1;
-
-my ($baseurl, $m) = RT::Test->started_ok;
-
-use constant ImageFile => $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif';
-use constant ImageFileContent => RT::Test->file_content(ImageFile);
-
-ok $m->login, 'logged in';
-
-diag "Create a CF" if $ENV{'TEST_VERBOSE'};
-{
- $m->follow_link( text => 'Configuration' );
- $m->title_is(q/RT Administration/, 'admin screen');
- $m->follow_link( text => 'Custom Fields' );
- $m->title_is(q/Select a Custom Field/, 'admin-cf screen');
- $m->follow_link( text => 'Create' );
- $m->submit_form(
- form_name => "ModifyCustomField",
- fields => {
- TypeComposite => 'Image-0',
- LookupType => 'RT::Queue-RT::Ticket',
- Name => 'img',
- Description => 'img',
- },
- );
-}
-
-diag "apply the CF to General queue" if $ENV{'TEST_VERBOSE'};
-my ( $cf, $cfid, $tid );
-{
- $m->title_is(q/Created CustomField img/, 'admin-cf created');
- $m->follow_link( text => 'Queues' );
- $m->title_is(q/Admin queues/, 'admin-queues screen');
- $m->follow_link( text => 'General' );
- $m->title_is(q/Editing Configuration for queue General/, 'admin-queue: general');
- $m->follow_link( text => 'Ticket Custom Fields' );
-
- $m->title_is(q/Edit Custom Fields for General/, 'admin-queue: general cfid');
- $m->form_name('EditCustomFields');
-
- # Sort by numeric IDs in names
- my @names = sort grep defined,
- $m->current_form->find_input('AddCustomField')->possible_values;
- $cf = pop(@names);
- $cf =~ /(\d+)$/ or die "Hey this is impossible dude";
- $cfid = $1;
- $m->tick( AddCustomField => $cf => 1 ); # Associate the new CF with this queue
- $m->tick( AddCustomField => $_ => 0 ) for @names; # ...and not any other. ;-)
- $m->click('UpdateCFs');
-
- $m->content_like( qr/Object created/, 'TCF added to the queue' );
-}
-
-my $tester = RT::Test->load_or_create_user( Name => 'tester', Password => '123456' );
-RT::Test->set_rights(
- { Principal => $tester->PrincipalObj,
- Right => [qw(SeeQueue ShowTicket CreateTicket)],
- },
-);
-ok $m->login( $tester->Name, 123456), 'logged in';
-
-diag "check that we have no the CF on the create"
- ." ticket page when user has no SeeCustomField right"
- if $ENV{'TEST_VERBOSE'};
-{
- $m->submit_form(
- form_name => "CreateTicketInQueue",
- fields => { Queue => 'General' },
- );
- $m->content_unlike(qr/Upload multiple images/, 'has no upload image field');
-
- my $form = $m->form_name("TicketCreate");
- my $upload_field = "Object-RT::Ticket--CustomField-$cfid-Upload";
- ok !$form->find_input( $upload_field ), 'no form field on the page';
-
- $m->submit_form(
- form_name => "TicketCreate",
- fields => { Subject => 'test' },
- );
- $m->content_like(qr/Ticket \d+ created/, "a ticket is created succesfully");
-
- $m->content_unlike(qr/img:/, 'has no img field on the page');
- $m->follow_link( text => 'Custom Fields');
- $m->content_unlike(qr/Upload multiple images/, 'has no upload image field');
-}
-
-RT::Test->set_rights(
- { Principal => $tester->PrincipalObj,
- Right => [qw(SeeQueue ShowTicket CreateTicket SeeCustomField)],
- },
-);
-
-diag "check that we have no the CF on the create"
- ." ticket page when user has no ModifyCustomField right"
- if $ENV{'TEST_VERBOSE'};
-{
- $m->submit_form(
- form_name => "CreateTicketInQueue",
- fields => { Queue => 'General' },
- );
- $m->content_unlike(qr/Upload multiple images/, 'has no upload image field');
-
- my $form = $m->form_name("TicketCreate");
- my $upload_field = "Object-RT::Ticket--CustomField-$cfid-Upload";
- ok !$form->find_input( $upload_field ), 'no form field on the page';
-
- $m->submit_form(
- form_name => "TicketCreate",
- fields => { Subject => 'test' },
- );
- $tid = $1 if $m->content =~ /Ticket (\d+) created/i;
- ok $tid, "a ticket is created succesfully";
-
- $m->follow_link( text => 'Custom Fields' );
- $m->content_unlike(qr/Upload multiple images/, 'has no upload image field');
- $form = $m->form_number(3);
- $upload_field = "Object-RT::Ticket-$tid-CustomField-$cfid-Upload";
- ok !$form->find_input( $upload_field ), 'no form field on the page';
-}
-
-RT::Test->set_rights(
- { Principal => $tester->PrincipalObj,
- Right => [qw(SeeQueue ShowTicket CreateTicket SeeCustomField ModifyCustomField)],
- },
-);
-
-diag "create a ticket with an image" if $ENV{'TEST_VERBOSE'};
-{
- $m->submit_form(
- form_name => "CreateTicketInQueue",
- fields => { Queue => 'General' },
- );
- $m->content_like(qr/Upload multiple images/, 'has a upload image field');
-
- $cf =~ /(\d+)$/ or die "Hey this is impossible dude";
- my $upload_field = "Object-RT::Ticket--CustomField-$1-Upload";
-
- $m->submit_form(
- form_name => "TicketCreate",
- fields => {
- $upload_field => ImageFile,
- Subject => 'testing img cf creation',
- },
- );
-
- $m->content_like(qr/Ticket \d+ created/, "a ticket is created succesfully");
-
- $tid = $1 if $m->content =~ /Ticket (\d+) created/;
-
- $m->title_like(qr/testing img cf creation/, "its title is the Subject");
-
- $m->follow_link( text => 'bplogo.gif' );
- $m->content_is(ImageFileContent, "it links to the uploaded image");
-}
-
-$m->get( $m->rt_base_url );
-$m->follow_link( text => 'Tickets' );
-$m->follow_link( text => 'New Query' );
-
-$m->title_is(q/Query Builder/, 'Query building');
-$m->submit_form(
- form_name => "BuildQuery",
- fields => {
- idOp => '=',
- ValueOfid => $tid,
- ValueOfQueue => 'General',
- },
- button => 'AddClause',
-);
-
-$m->form_name('BuildQuery');
-
-my $col = ($m->current_form->find_input('SelectDisplayColumns'))[-1];
-$col->value( ($col->possible_values)[-1] );
-
-$m->click('AddCol');
-
-$m->form_name('BuildQuery');
-$m->click('DoSearch');
-
-$m->follow_link( text_regex => qr/bplogo\.gif/ );
-$m->content_is(ImageFileContent, "it links to the uploaded image");
-
-__END__
-[FC] Bulk Update does not have custom fields.
generated by cgit v1.2.1 (git 2.18.0) at 2025-06-13 11:46:29 +0000