1use strict;
2use warnings;
3use Test::More 'no_plan';
4use Parse::IRC;
5my $line = ':pretend.dancer.server 005 CPAN MODES=4 CHANLIMIT=#:20 NICKLEN=16 USERLEN=10 HOSTLEN=63 TOPICLEN=450 KICKLEN=450 CHANNELLEN=30 KEYLEN=23 CHANTYPES=# PREFIX=(ov)@+ CASEMAPPING=ascii CAPAB IRCD=dancer :are available on this server';
6my $parser = Parse::IRC->new( debug => 1 );
7my $data = $parser->parse( $line );
8is( ref $data, 'HASH', 'We got a hashref' );
9is( scalar @{ $data->{params} }, 16, 'We got 16 params' );
10