package Test::valid_fqdn;

use utf8;
use strict;
use warnings;

BEGIN {
	unshift( @INC, ( $ENV{'POPHOME'} || '@POPHOME@' ) . '/lib' )
	  unless $ENV{'KUNDE_NO_PERLPATH'};
}

use constant TEST_FQDNS => {
	'bla fasel.com'    => '',
	'100world.com'     => 1,
	'foo'              => '',
	'100.world.com'    => 1,
	'täst.example.org' => '',
	'xn--foo.bar.org'  => 1,
	'xn--.bar.org'     => '',
	'world.100.com'    => 1,
	'world.com.100'    => 1,
	'213.95.23.95'     => '',
};

use Test::More tests => scalar keys %{ +TEST_FQDNS };
use Dbase::Test;

use Loader qw(valid_fqdn);

while ( my ( $fqdn, $expected_result ) = each %{ +TEST_FQDNS } ) {
	is valid_fqdn($fqdn), $expected_result,
	  qq("$fqdn" ) . ( !$expected_result && 'un' ) . 'gültig';
}
