File: 20-pack-ip-mreq.t

package info (click to toggle)
libsocket-multicast6-perl 0.04-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 120 kB
  • sloc: perl: 64; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 414 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use Test::More tests => 100;

use Socket;
use Socket::Multicast6;

foreach (1..100) {
	my $multiaddr = inet_aton( rand_ip() );
	my $interface = inet_aton( rand_ip() );

	my $pack_ip_mreq = Socket::Multicast6::pack_ip_mreq( $multiaddr, $interface );

	my $manual = $multiaddr . $interface;

	is( $pack_ip_mreq, $manual, "Packed structures match" );
}

sub rand_ip {
	return join '.', map { int rand 255 } (1..4);
}