use strict;
use Test::More;

use Net::HTTP::Spore::Request;

my $env = {
    REQUEST_METHOD  => 'GET',
    SERVER_NAME     => 'localhost',
    SERVER_PORT     => '80',
    SCRIPT_NAME     => '',
    PATH_INFO       => '/:database/:key',
    REQUEST_URI     => '',
    QUERY_STRING    => '',
    SERVER_PROTOCOL => 'HTTP/1.0',
};

ok my $request = Net::HTTP::Spore::Request->new($env);

is $request->request_uri, '';

$env->{REQUEST_URI} = '/';

is $request->request_uri, '/';

done_testing;