1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
use strict;
use warnings;
use Encode qw(encode decode);
use Test::More;
use SVN::Web::action;
my $action = SVN::Web::action->new;
{
my $uri = decode('utf8','svn://test.my/repo');
my $svn_uri = 'svn://test.my/repo';
is $action->encode_svn_uri($uri), $svn_uri, 'encode: simple svn-schema uri';
is $action->decode_svn_uri($svn_uri), $uri, 'decode: simple svn-schema uri';
}
{
my $uri = decode('utf8','svn://test.my/repo/dir with spaces/file.txt');
my $svn_uri = 'svn://test.my/repo/dir%20with%20spaces/file.txt';
is $action->encode_svn_uri($uri), $svn_uri, 'encode: path with spaces';
is $action->decode_svn_uri($svn_uri), $uri, 'decode: path with spaces';
}
{
my $uri = decode('utf8','svn://test.my/repo/абвгд.txt');
my $svn_uri = 'svn://test.my/repo/%D0%B0%D0%B1%D0%B2%D0%B3%D0%B4.txt';
is $action->encode_svn_uri($uri), $svn_uri, 'encode: path with unicode symbols';
is $action->decode_svn_uri($svn_uri), $uri, 'decode: path with unicode symbols';
}
done_testing;
|
