mirror of
https://github.com/postgres/postgres.git
synced 2025-08-18 12:22:09 +03:00
90abe1e17f
These were originally introduced ina2ab9c06eaanda2ab9c06ea, as they are needed by a about-to-be-backpatched test. Discussion: https://postgr.es/m/20220413002626.udl7lll7f3o7nre7@alap3.anarazel.de Backpatch: 10-14
47 lines
811 B
Perl
47 lines
811 B
Perl
# Copyright (c) 2022, PostgreSQL Global Development Group
|
|
|
|
# allow use of release 15+ perl namespace in older branches
|
|
# just 'use' the older module name.
|
|
# We export the same names as the v15 module.
|
|
# See TestLib.pm for alias assignment that makes this all work.
|
|
|
|
package PostgreSQL::Test::Utils;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Exporter 'import';
|
|
|
|
use TestLib;
|
|
|
|
our @EXPORT = qw(
|
|
generate_ascii_string
|
|
slurp_dir
|
|
slurp_file
|
|
append_to_file
|
|
check_mode_recursive
|
|
chmod_recursive
|
|
check_pg_config
|
|
system_or_bail
|
|
system_log
|
|
run_log
|
|
run_command
|
|
pump_until
|
|
|
|
command_ok
|
|
command_fails
|
|
command_exit_is
|
|
program_help_ok
|
|
program_version_ok
|
|
program_options_handling_ok
|
|
command_like
|
|
command_like_safe
|
|
command_fails_like
|
|
command_checks_all
|
|
|
|
$windows_os
|
|
$use_unix_sockets
|
|
);
|
|
|
|
1;
|