use strict;
use warnings;

use Test::More;
use Moose::Exception;

my $exception = Moose::Exception->new(message => 'barf!');

like($exception, qr/barf/, 'stringification for regex works');

ok($exception ne 'oh hai', 'direct string comparison works');

ok($exception, 'exception can be treated as a boolean');

done_testing;