1use strict; 2use warnings; 3use Test::More; 4 5use Socket qw( 6 pack_ipv6_mreq unpack_ipv6_mreq 7); 8 9# Check that pack/unpack_ipv6_mreq either croak with "Not implemented", or 10# roundtrip as identity 11 12my $packed; 13eval { 14 $packed = pack_ipv6_mreq "ANADDRESSIN16CHR", 123; 15}; 16if( !defined $packed ) { 17 plan skip_all => "No pack_ipv6_mreq" if $@ =~ m/ not implemented /; 18 die $@; 19} 20 21plan tests => 2; 22 23my @unpacked = unpack_ipv6_mreq $packed; 24 25is( $unpacked[0], "ANADDRESSIN16CHR", 'unpack_ipv6_mreq multiaddr' ); 26is( $unpacked[1], 123, 'unpack_ipv6_mreq ifindex' ); 27