#!/usr/bin/perl

use strict;
use warnings;

use Test::More 'no_plan';


my $m; use ok $m = "Devel::Events::Filter::RemoveFields";

use Devel::Events::Handler::Callback;

my $o = $m->new(
	fields => [qw/blah/],
	handler => Devel::Events::Handler::Callback->new(sub { }),
);

isa_ok($o, $m);

is_deeply(
	[ $o->filter_event( event_name => ( blah => 42, foro => 3, blah => "and", moose => "elk" ) ) ],
	[ event_name => ( foro => 3, moose => "elk" ) ],
	"remove fields",
);