use strict;
use warnings FATAL => 'all';
use Test::MockObject;
use Test::More tests => 6;

my $c = Test::MockObject->new;
$c->set_isa('Foo');
$c->mock('id', sub {return -1;});
 
ok($c->can('id'),  "c can id (via 'can' method)");
ok($c->isa('Foo'), "c isa Foo (via 'isa' method)");
isa_ok($c, 'Foo', 'c isa_ok Foo');
is($c->id, -1, 'mocked accessor');

# FAILS!
ok(UNIVERSAL::isa($c, 'Foo'), 'c isa Foo (via UNVERSAL::isa)');

# FAILS!
ok(UNIVERSAL::can($c, 'id'), 'c can id (via UNIVERSAL::can');