use strict;
use warnings;
use Test::More;
use Try::Tiny;
use lib 't/lib', 't/lib2';
$SIG{__WARN__} = sub { die @_ if $_[0] =~ /Deep recursion/; warn @_; };
try {
require IRC::Schema::Result::User;
require IRC::Schema::Result::Message;
require IRC::Schema::Result::Foo;
require IRC::Schema::Result::Bar;
} catch {
ok($_ !~ m/Deep recursion/, q(didn't deeply recurse))
};
pass('did not crater perl');
done_testing;