cpan/Socket/t/ipv6_mreq.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use 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
  12 my $packed;
  13 eval {
  14     $packed = pack_ipv6_mreq "ANADDRESSIN16CHR", 123;
  15 };
  16 if( !defined $packed ) {
  17     plan skip_all => "No pack_ipv6_mreq" if $@ =~ m/ not implemented /;
  18     die $@;
  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' );