use strict;
use warnings;

use Test::More tests => 1;
use IO::Socket::INET6;

#funny IPv6 addresses
my $srv = "dead:beef::1";
my $port = 6789;
my $srvFlow = 4321;

my $sck6 = IO::Socket::INET6->new(
    Domain  =>  AF_INET6,
    Proto   => 'tcp',
    LocalAddr    => $srv,
    LocalPort    => $port,
    LocalFlow   => $srvFlow,
    Listen  =>  1,
    ReuseAddr   =>  1
);

# TEST
ok(1, q{Testing that "sub configure" does not fail});