use strict;
use warnings;

use Test::More tests => 1;

use URI qw( );

my $base1 = URI->new("http://a.b.c/d/../e/");
my $base2 = URI->new_abs("../e/", URI->new("http://a.b.c/d/"));
my $uri   = URI->new("http://a.b.c/y");

is($uri->rel($base1), $uri->rel($base2));

1;

##</code><code>##

1..1
not ok 1
#   Failed test at a.pl line 12.
#          got: '../../../y'
#     expected: '../y'
# Looks like you failed 1 test of 1.