Commit | Line | Data |
---|---|---|
7f5bfc4d | 1 | use strictures 1; |
2 | use Test::More; | |
3 | use Test::Fatal; | |
4 | use Sys::Hostname qw(hostname); | |
5 | ||
6 | $ENV{OBJECT_REMOTE_TEST_LOGGER} = 1; | |
7 | ||
8 | use Object::Remote::FromData; | |
9 | ||
10 | my $connection = Object::Remote->connect('-'); | |
11 | ||
12 | ||
13 | like exception { | |
14 | my $remote = My::Data::TestClass->new::on($connection); | |
15 | }, qr/Can't locate Not\/Found.pm in \@INC/, 'Should fail to load Not::Found'; | |
16 | ||
17 | done_testing; | |
18 | ||
19 | __DATA__ | |
20 | package My::Data::TestClass; | |
21 | ||
22 | use Moo; | |
23 | use Not::Found; | |
24 |