diff options
Diffstat (limited to 't/object.t')
-rw-r--r-- | t/object.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/object.t b/t/object.t new file mode 100644 index 0000000..3a88dd3 --- /dev/null +++ b/t/object.t @@ -0,0 +1,10 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More tests => 1; + +use Carp::Always::Color; + +my $err = bless({}, 'My::Error::Class'); +eval { die $err }; +is($@, $err, "exception objects aren't affected"); |