# Check XXX use strict; use lib 't'; use TestLib; use PgCommon; use Test::More tests => 14; my @versions = ($MAJORS[-1]); # create clusters foreach (@versions) { is ((system "pg_createcluster $_ main --start >/dev/null"), 0, "pg_createcluster $_ main"); is_program_out 'postgres', "createdb --cluster $_/main XXX", 0, ''; } # XXX # clean up foreach (@versions) { is ((system "pg_dropcluster $_ main --stop"), 0, "pg_dropcluster $_ main"); } check_clean; # vim: filetype=perl