use Test::More tests => 9; use strict; use warnings; BEGIN{ use_ok('Bot::Cobalt::Core::ContextMeta::Ignore'); } my $cmeta = new_ok('Bot::Cobalt::Core::ContextMeta::Ignore'); isa_ok($cmeta, 'Bot::Cobalt::Core::ContextMeta'); my $mask; ok( $mask = $cmeta->add( 'Context', 'avenj@cobaltirc.org', 'TESTING', 'MyPackage' ), 'Ignore->add' ); ok( $mask eq '*!avenj@cobaltirc.org', 'Mask normalization' ); ok( $cmeta->fetch('Context', $mask), 'fetch()' ); ok( $cmeta->reason('Context', $mask) eq 'TESTING', 'reason()' ); ok( $cmeta->addedby('Context', $mask) eq 'MyPackage', 'addedby()' ); ok( $cmeta->del('Context', $mask), 'del()' );