1 files changed, 19 insertions, 0 deletions
diff --git a/t/urn-scheme-exceptions.t b/t/urn-scheme-exceptions.t
new file mode 100644
index 0000000..597a695
--- /dev/null
+++ b/t/urn-scheme-exceptions.t
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+
+use Test::More;
+use URI::urn;
+
+plan tests => 6;
+
+{
+    require URI::_foreign;    # load this before disabling @INC
+    my $count = 0;
+    local @INC = sub { $count++; return };
+    for ( 0 .. 1 ) {
+        my $uri = URI->new('urn:asdfasdf:1.2.3.4.5.6.7.8.9.10');
+        is( $count, 1, 'only attempt to load the scheme package once' );
+        is( $@, '', 'no exception when trying to load a scheme handler class' );
+        ok( $uri->isa('URI'), 'but URI still instantiated as foreign' );
+    }
+}