#!/usr/bin/perl

use strict;
use warnings;

use Test::More 'no_plan';

use ok 'Devel::Events::Handler::Multiplex';

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

my ( @a, @b );

my $h = Devel::Events::Handler::Multiplex->new(
	handlers => [
		Devel::Events::Handler::Callback->new(sub{ push @a, [ @_ ] }),
		Devel::Events::Handler::Callback->new(sub{ push @b, [ @_ ] }),
	],
);

$h->new_event( blah => ( foo => [ 1 .. 3 ] ) );

is_deeply( \@a, [ [ blah => ( foo => [ 1 .. 3 ] ) ] ], "first handler" );
is_deeply( \@b, [ [ blah => ( foo => [ 1 .. 3 ] ) ] ], "second handler" );