summaryrefslogtreecommitdiff
path: root/rt/t/web/cf_access.t
diff options
context:
space:
mode:
authorivan <ivan>2010-05-18 18:49:59 +0000
committerivan <ivan>2010-05-18 18:49:59 +0000
commit624b2d44625f69d71175c3348cae635d580c890b (patch)
treeed57a90db2ecbc72cea6c1d3c175c1dcd1938ab4 /rt/t/web/cf_access.t
parent7f4aff45cd6ef2f630d538294fa9d9c4db4ac4aa (diff)
parente70abd21bab68b23488f7ef1ee2e693a3b365691 (diff)
This commit was generated by cvs2svn to compensate for changes in r9232,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'rt/t/web/cf_access.t')
-rw-r--r--rt/t/web/cf_access.t12
1 files changed, 5 insertions, 7 deletions
diff --git a/rt/t/web/cf_access.t b/rt/t/web/cf_access.t
index 1022c6da6..183597b4a 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' );
}