44 lines
1 KiB
Perl
44 lines
1 KiB
Perl
|
#!/usr/bin/perl
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use Test::More;
|
||
|
|
||
|
use lib 'lib';
|
||
|
use local::lib 'local';
|
||
|
|
||
|
use Shrlbe::Utils;
|
||
|
|
||
|
|
||
|
subtest 'creates correct object' => sub {
|
||
|
my $utils = _buildUtils();
|
||
|
|
||
|
isa_ok($utils, 'Shrlbe::Utils');
|
||
|
};
|
||
|
|
||
|
subtest 'hashUrl' => sub {
|
||
|
my $utils = _buildUtils();
|
||
|
|
||
|
ok($utils->hashUrl('https://ya.ru/', 'Return url hash'));
|
||
|
};
|
||
|
|
||
|
subtest 'normalizeUrl' => sub {
|
||
|
my $utils = _buildUtils();
|
||
|
|
||
|
is($utils->normalizeUrl('ya.ru'), 'http://ya.ru', 'Add http schema by default');
|
||
|
is($utils->normalizeUrl('https://ya.ru'), 'https://ya.ru', 'Do not change original schema');
|
||
|
is($utils->normalizeUrl('gopher://ya.ru'), 'gopher://ya.ru', 'Use not http schema');
|
||
|
is(
|
||
|
$utils->normalizeUrl('stratum1+ssl://0x1994aac8e2BC4281f69C487D2dea57212b475eB5.w1080@eu1.ethermine.org:5555'),
|
||
|
'stratum1+ssl://0x1994aac8e2BC4281f69C487D2dea57212b475eB5.w1080@eu1.ethermine.org:5555',
|
||
|
'Allow stratum'
|
||
|
);
|
||
|
};
|
||
|
|
||
|
sub _buildUtils
|
||
|
{
|
||
|
return Shrlbe::Utils->new();
|
||
|
}
|
||
|
|
||
|
done_testing();
|
||
|
|