diff options
Diffstat (limited to 'rt/t/web/cf_access.t')
| -rw-r--r-- | rt/t/web/cf_access.t | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/rt/t/web/cf_access.t b/rt/t/web/cf_access.t index 1022c6d..183597b 100644 --- a/rt/t/web/cf_access.t +++ b/rt/t/web/cf_access.t @@ -43,16 +43,14 @@ my ( $cf, $cfid, $tid ); $m->form_name('EditCustomFields'); # Sort by numeric IDs in names - my @names = map { $_->[1] } - sort { $a->[0] <=> $b->[0] } - map { /Object-1-CF-(\d+)/ ? [ $1 => $_ ] : () } - grep defined, map $_->name, $m->current_form->inputs; + 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->field( $cf => 1 ); # Associate the new CF with this queue - $m->field( $_ => undef ) for @names; # ...and not any other. ;-) - $m->submit; + $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' ); } |