use strict;
use warnings;

use Test::More tests => 6;

use URI qw( );

is( URI->new('hTtP://a.b.c/'       )->canonical, 'http://a.b.c/',   'RFC 3986, 6.2.2.1' );

is( URI->new('http://a.b.c/d/../e/')->canonical, 'http://a.b.c/e/', 'RFC 3986, 6.2.2.3' );

is( URI->new('http://a.b.c'        )->canonical, 'http://a.b.c/',   'RFC 3986, 6.2.3' );
is( URI->new('http://a.b.c:'       )->canonical, 'http://a.b.c/',   'RFC 3986, 6.2.3' );
is( URI->new('http://a.b.c:/'      )->canonical, 'http://a.b.c/',   'RFC 3986, 6.2.3' );
is( URI->new('http://a.b.c:80/'    )->canonical, 'http://a.b.c/',   'RFC 3986, 6.2.3' );

1;