006_next_free_port.t

# Check PgCommon's next_free_port()

use strict;

use lib '.';
use PgCommon;

use lib 't';
use TestLib;

use Test::More tests => 5;

# test next_free_port(). We are intentionally using nc as an external tool,
# using perl would replicate what next_free_port is doing, and that would
# be a pointless test.
use IPC::Open2;
use Time::HiRes qw(usleep);
my @pids;
# no ports open
is (next_free_port, 5432, 'next_free_port is 5432');

# open a localhost ipv4 socket
push @pids, open2(\*CHLD_OUT, \*CHLD_IN, qw(nc -4 -l 127.0.0.1 5432));
usleep 2*$delay;
is (next_free_port, 5433, 'next_free_port detects localhost ipv4 socket');
# open a wildcard ipv4 socket
push @pids, open2(\*CHLD_OUT, \*CHLD_IN, qw(nc -4 -l 5433));
usleep 2*$delay;
is (next_free_port, 5434, 'next_free_port detects wildcard ipv4 socket');

SKIP: {
    $^V =~ /^v(\d+\.\d+)/; # parse perl version
    skip "perl <= 5.10 does not have proper IPv6 support", 2 if ($1 <= 5.10);
    skip "skipping IPv6 tests", 2 if ($ENV{SKIP_IPV6});

# open a localhost ipv6 socket
    push @pids, open2(\*CHLD_OUT, \*CHLD_IN, qw(nc -6 -l ::1 5434));
    usleep 2*$delay;
    is (next_free_port, 5435, 'next_free_port detects localhost ipv6 socket');
    # open a wildcard ipv6 socket
    push @pids, open2(\*CHLD_OUT, \*CHLD_IN, qw(nc -6 -l 5435));
    usleep 2*$delay;
    is (next_free_port, 5436, 'next_free_port detects wildcard ipv6 socket');
}

# clean up
kill 15, @pids;

# vim: filetype=perl

docroot: /var/www/469ed2f6-4d4b-4a8a-9f5e-ee4ef04d3bc8/public_html

curdir: /usr/share/postgresql-common/t

	.	4096
	..	4096
X	001_packages.t	3582
X	002_existing_clusters.t	178
X	003_alternatives.t	1429
X	005_PgCommon.t	8943
X	006_next_free_port.t	1453
X	007_pg_conftool.t	2682
X	010_defaultport_cluster.t	2062
X	015_start_stop.t	5357
X	020_create_sql_remove.t	22236
X	021_pg_renamecluster.t	1738
X	022_recovery.t	1410
X	025_logging.t	4754
X	030_errors.t	15849
X	031_errors_disk_full.t	2473
X	032_ssl_key_permissions.t	2239
X	040_upgrade.t	13427
X	041_upgrade_custompaths.t	2595
X	042_upgrade_rename.t	827
X	043_upgrade_ssl_cert.t	2904
X	045_backup.t	7656
X	050_encodings.t	5446
X	052_upgrade_encodings.t	4853
X	060_obsolete_confparams.t	3276
X	070_non_postgres_clusters.t	4305
X	080_start.conf.t	5580
X	085_pg_ctl.conf.t	2326
X	090_multicluster.t	13605
X	110_integrate_cluster.t	1429
X	120_pg_upgradecluster_scripts.t	4153
X	130_nonroot_admin.t	1795
X	135_pg_virtualenv.t	1461
X	140_pg_config.t	4492
X	150_tsearch_stemming.t	4721
X	160_alternate_confroot.t	2082
X	170_extensions.t	3025
X	180_ecpg.t	1318
X	190_pg_buildext.t	3578
X	200_maintscripts.t	1395
X	TestLib.pm	8487
	bar	4096
	foo	4096
X	template	495