#!perl
# $Id: /src/Exception-NoException/trunk/t/20basic.t 168 2006-08-16T21:29:24.508066Z josh  $
use Test::More tests => 3;
use Exception::NoException;

my $did_not_die = '';
eval {
    die Exception::NoException->new;
    $did_not_die = 1;
};

my $e = $@;

is( $e,           '', "No exception" );
is( ref($e),      '', 'No exception' );
is( $did_not_die, '', 'Died' );