package ToggleTester;

use Test::Routine;
use Test::More;
use Test::Deep ();
use Test::Exception;
use namespace::autoclean;

has domains_to_test => (
    is      => 'ro',
    isa     => 'ArrayRef',
    builder => 'get_domains_to_test'
);

test can_load_parser => { desc => 'Make sure we can load class' } => sub {
    use_ok( 'ParseUtil::Domain', qw/:simple/ )
      or BAIL_OUT("Can't load parser.");
};

test puny_toggle => { desc => 'Toggle unicode <-> ascii domains' } => sub {
    my ($self) = @_;

    my $domains_to_test = $self->domains_to_test();
    foreach my $domain ( @{$domains_to_test} ) {
        lives_ok {
            puny_convert($domain);
        }
        'No problems parsing domain';
    }
};


1;

__END__

=head1 NAME

ToggleTester - ShortDesc

=head1 SYNOPSIS

# synopsis...

=head1 DESCRIPTION

# longer description...