use strict;
use warnings;

use Test::More tests => 1;

use URI qw( );

# if defined(R.scheme) then
#    T.scheme    = R.scheme;
#    T.authority = R.authority;
#    T.path      = remove_dot_segments(R.path);
#    T.query     = R.query;

is( URI->new_abs('http://a.b.c/d/../e/', 'http://a.b.c/'), 'http://a.b.c/e/' );

1;