File: configure6.t

package info (click to toggle)
libio-socket-inet6-perl 2.65-1.1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 124 kB
  • ctags: 30
  • sloc: perl: 958; makefile: 46
file content (24 lines) | stat: -rw-r--r-- 436 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
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});