t/not_found.t

   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