#!/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();