view release on metacpan or  search on metacpan

t/04_irc_modechange.t  view on Meta::CPAN

is_deeply( $long->mode_array, $expected_long,
  'long-string mode_array() looks ok'
) or diag explain $long->mode_array;

my @splitm = $long->split_mode_set(4);
cmp_ok(@splitm, '==', 2, 'split_mode_set spawned 2 sets' )
  or diag explain \@splitm;

cmp_ok($splitm[0]->mode_string, 'eq', '+o-o+o-o avenj avenj Joah Joah',
  'split mode_string 1 looks ok'
);
cmp_ok($splitm[1]->mode_string, 'eq', '+vv-b Gilded miniCruzer some@mask',
  'split mode_string 2 looks ok'
);

my $cloned = $long->clone;
isa_ok( $cloned, 'IRC::Mode::Set', 'clone() returned obj' );
is_deeply( $cloned->mode_array, $expected_long,
  'cloned obj looks ok'
);

my $from_match = $long->clone_from_mode('v');
isa_ok($from_match, $class, 'clone_from_mode returned obj' );