summaryrefslogblamecommitdiff
path: root/t/spore-request/script_name.t
blob: a283c20f78d9abbefce09ee4427d5f00555789d0 (plain) (tree)




















                                                      
use strict;
use Test::More;

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

my $env = {
    REQUEST_METHOD  => 'GET',
    SERVER_NAME     => 'localhost',
    SERVER_PORT     => '80',
    SCRIPT_NAME     => '',
};

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

is $request->script_name, '';

$env->{SCRIPT_NAME} = '/1/';

is $request->script_name, '/1/';

done_testing;