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});