1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
use Test::More tests => 5;
use Socket;
use Socket6;
use Socket::Multicast6;
my @IPV6_MCAST_ADDRS = (
'ff01::0',
'ff02::1',
'ff05::1:3',
'ff1e:4838:dead::beef',
'ff78:140:2001:630:d0:f000:feed:80',
);
foreach my $addr (@IPV6_MCAST_ADDRS) {
my $multiaddr = inet_pton( AF_INET6, $addr );
my $interface = int rand(255);
my $pack_ip_mreq = Socket::Multicast6::pack_ipv6_mreq( $multiaddr, $interface );
my $manual = $multiaddr . pack('I',$interface);
is( $pack_ip_mreq, $manual, "Packed structures match" );
}
|
