leak.t

use strict;
use warnings;
use Test::More;
use Mojo::EventEmitter;
use Beam::Emitter;
use Test::LeakTrace;

no_leaks_ok {
    my $m = Mojo::EventEmitter->new;
    my $cb; $cb = $m->on( derp => sub { $_[0]->unsubscribe( derp => $cb ); undef $cb } );
    $m->emit( derp => 'foo' );
};

{
    package My::Emitter;
    use Moo;
    with 'Beam::Emitter';
}


no_leaks_ok {
    my $b = My::Emitter->new;
    my $cb; $b->on( derp => $cb = sub { $_[0]->emitter->un( derp => $cb ); undef $cb } );
    $b->emit( 'derp' );
};

no_leaks_ok {
    my $b = My::Emitter->new;
    my $cb; $cb = $b->on( derp => sub { $cb->() } );
    $b->emit( 'derp' );
};

no_leaks_ok {
    my $b = My::Emitter->new;
    my $cb; $cb = $b->on( derp => sub { $cb->() } );
};

no_leaks_ok {
    my $b = My::Emitter->new;
    my $cb; $cb = $b->on( derp => sub { } );
    $b->emit( 'derp' );
    $cb->();
};

done_testing;