ok($twice == 0, 'No capability listed twice (3977:5.2.2)');
ok(exists $cap{READER}, 'announce READER');
is($cap{'MODE-READER'}, undef, q{don't announce MODE-READER});
- foreach $trycap qw(ACTIVE NEWSGROUPS OVERVIEW.FMT
- ACTIVE.TIMES HEADERS) {
+ foreach $trycap (qw(ACTIVE NEWSGROUPS OVERVIEW.FMT
+ ACTIVE.TIMES HEADERS)) {
cmp_ok(scalar(grep { $trycap eq $_ } @{$cap{LIST}}), '==', 1,
"list capability $trycap");
}
- foreach $trycap qw(MSGID) {
+ foreach $trycap (qw(MSGID)) {
cmp_ok(scalar(grep { $trycap eq $_ } @{$cap{OVER}}), '==', 1,
"list capability $trycap");
}