use strict;
use warnings;

use Test::Fatal qw( success );
use Test::More 0.88;

use GeoIP2::Error::Type;
use Try::Tiny;

try {
    thrower();
}
catch {
    is( $_->type,  'foo', 'correct type thrown' );
    is( $_->value, 'bar', 'correct value thrown' );
}
success {
    fail('Expected an exception');
};

sub thrower {
    GeoIP2::Error::Type->throw(
        message => 'x is not y',
        type    => 'foo',
        value   => 'bar',
    );
}

done_testing();