[perl5.git] / cpan / Socket / t / ipv6_mreq.t

use strict;
use warnings;
use Test::More;

use Socket qw(
    pack_ipv6_mreq unpack_ipv6_mreq
);

# Check that pack/unpack_ipv6_mreq either croak with "Not implemented", or
# roundtrip as identity

my $packed;
eval {
    $packed = pack_ipv6_mreq "ANADDRESSIN16CHR", 123;
};
if( !defined $packed ) {
    plan skip_all => "No pack_ipv6_mreq" if $@ =~ m/ not implemented /;
    die $@;
}

plan tests => 2;

my @unpacked = unpack_ipv6_mreq $packed;

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