#!perl

use Test::More tests => 2;

package foo;
use common::sense;

use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};

our @ISA = qw/Object::Event/;

package main;
use common::sense;

my $f = foo->new;

$f->reg_cb (test1 => sub { });

ok ($f->event ('test1'),  "event returns true for reg_cb cb.");
ok (!$f->event ('test2'), "event returns false for non cb.");