package Attrs;
sub new {
    return bless {
        test => 'Attrs test!',
    };
}
sub __getattr__ {
    my ($self, $attr) = @_;
    return unless exists $self->{$attr};
    return $self->{$attr};
}
package NoAttrs;
sub new {
    return bless {
        test => 'NoAttrs test!',
    };
}
package main;
use Test;
use Data::Dumper;
use Inline Config => DIRECTORY => './blib_test';
BEGIN { plan tests => 6 }
use Inline::Python qw(py_eval py_call_function);
py_eval(<<'END');
def test_attrs(foo, s):
    perl.ok(hasattr(foo, 'test'))
    perl.ok(not hasattr(foo, 'foo'))
    perl.ok(foo.test == s)
    perl.ok(foo.__getattr__('test') == s)
def test_noattrs(bar):
    try:
        perl.warn(bar.test)
    except AttributeError:
        return 1
    return 0
END
ok(py_call_function("__main__", "test_attrs", Attrs->new, 'Attrs test!'), undef);
ok(py_call_function("__main__", "test_noattrs", NoAttrs->new) == 1);