Add a simple test case for an ipv6 hostoalders/ipv6

2 files changed, 15 insertions, 0 deletions

diff --git a/Changes b/Changes
index f9b7847..70f4444 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for URI
 
 {{$NEXT}}
+    - Add a simple test case for an ipv6 host
 
 1.76      2019-01-09 16:59:54Z
     - Revert changes introduced in 1.75
diff --git a/t/ipv6.t b/t/ipv6.t
new file mode 100644
index 0000000..5dfb337
--- /dev/null
+++ b/t/ipv6.t
@@ -0,0 +1,14 @@
+#!perl
+
+use strict;
+use warnings;
+
+use URI ();
+use Test::More;
+
+my $url = URI->new('http://[fe80::e828:209d:20e:c0ae]:375');
+
+is( $url->host, 'fe80::e828:209d:20e:c0ae', 'host' );
+is( $url->port, 375, 'port' );
+
+done_testing();