Skip to content

Commit 9890827

Browse files
oaldersgenio
authored andcommitted
Add a simple test case for an ipv6 host
1 parent eea5168 commit 9890827

File tree

2 files changed

+15
-0
lines changed

2 files changed

+15
-0
lines changed

Changes

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
Revision history for URI
22

33
{{$NEXT}}
4+
- Add a simple test case for an ipv6 host
45

56
1.76 2019-01-09 16:59:54Z
67
- Revert changes introduced in 1.75

t/ipv6.t

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
#!perl
2+
3+
use strict;
4+
use warnings;
5+
6+
use URI ();
7+
use Test::More;
8+
9+
my $url = URI->new('http://[fe80::e828:209d:20e:c0ae]:375');
10+
11+
is( $url->host, 'fe80::e828:209d:20e:c0ae', 'host' );
12+
is( $url->port, 375, 'port' );
13+
14+
done_testing();

0 commit comments

Comments
 (0)