use strict;
use warnings;
use Test::More tests => 9;
use Inline Config => DIRECTORY => './blib_test';
use Inline Python => <<END;
import sys
def error():
    raise Exception('Error!')
def empty_error():
    raise Exception()
def name_error():
    return foo
class Foo:
    def error(self):
        raise Exception('Error!')
def thrower():
    return lambda: foo
def catch_perl_exception(failer):
    try:
        failer()
    except Exception:
        exc_type, e, exc_traceback = sys.exc_info()
        return str(e)
def pass_through_perl_exception(failer):
    failer()
END
eval {
    error();
};
ok(1, 'Survived Python exception');
like($@, qr/Error! at line 5/, 'Exception found');
eval {
    empty_error();
};
like($@, qr/Exception:  at line 8/, 'Exception found');
eval {
    name_error();
};
like($@, qr/name 'foo' is not defined at line 11/, 'NameError found');
my $foo = Foo->new;
eval {
    $foo->error;
};
like($@, qr/Exception: Error! at line 15/, 'Exception found');
eval {
    thrower()->();
};
like($@, qr/name 'foo' is not defined at line 18/, 'Exception found');
my $exception = catch_perl_exception(sub { die "fail!"; });
like($exception, qr/fail!/);
eval {
    pass_through_perl_exception(sub { die "fail!"; });
};
like($@, qr/fail!/);
my $foo_exception = bless {}, 'FooException';
eval {
    pass_through_perl_exception(sub { die $foo_exception; });
};
is(ref $@, 'FooException');