use Test::More tests => 3;
use Test::Exception 0.15;

isa_ok my $o = SaneFoo->new, 'SaneFoo';
lives_and {is $o->sane, 42} 'sane worked';
dies_ok {$o->insane} 'insane failed';

__END__
# test results are:
1..3
ok 1 - The object isa SaneFoo
ok 2 - sane worked
ok 3 - insane failed