The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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()' );