update SelectList to go with XHTML changes by Wouter

This commit is contained in:
Colin Kuskie 2006-05-20 04:04:12 +00:00
parent 90f1f3a126
commit a880b058a5

View file

@ -97,7 +97,7 @@ my @options = $form->find_input('ListMultiple');
is( scalar(grep {$_->type ne 'option'} @options), 0, 'All inputs are of type option');
is( scalar(grep {$_->{multiple} ne '1'} @options), 0, 'All inputs have multiple');
is( scalar(grep {$_->{multiple} ne 'multiple'} @options), 0, 'All inputs have multiple');
my @names = map { $_->name } @options;
cmp_deeply( [@names], bag(('ListMultiple')x6), 'correct number of names and names');