blob: e400591ccd107f7d7bcffec6f4ca49e39b9e06bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use strict;
use warnings;
use Test::More;
use URI ();
plan skip_all => 'this test assumes that URI::notreal does not exist'
if eval { +require URI::notreal };
for (0..1) {
my $uri = URI->new('notreal://foo/bar');
is($@, '', 'no exception when trying to load a scheme handler class');
ok($uri->isa('URI'), 'but URI still instantiated as foreign');
}
done_testing;
|
