#!/usr/bin/perl
use strict;
use Regexp::Common qw(IRC);
use Test::More qw(no_plan);
open(CHANNELS, 't/channels') || die "could not open channels file: $!";
while (<CHANNELS>) {
chomp;
like($_, qr($RE{IRC}{channel}), "channel: $_");
}
1;
__END__