blob: f10a745e65290366c8dd4bf194f16b78825ccb3f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Test::More;
use HTTP::Request;
use Web::Request;
my $path = "/Платежи";
my $hreq = HTTP::Request->new(GET => "http://localhost" . $path);
my $req = Web::Request->new_from_request($hreq);
is $req->uri->path, '/%D0%9F%D0%BB%D0%B0%D1%82%D0%B5%D0%B6%D0%B8';
done_testing;
|