2024-01-05 21:15:50 +08:00
|
|
|
|
|
|
|
# Copyright (c) 2024, PostgreSQL Global Development Group
|
|
|
|
|
2021-11-23 01:54:52 +08:00
|
|
|
#
|
|
|
|
# Verify that required Perl modules are available,
|
|
|
|
# in at least the required minimum versions.
|
|
|
|
# (The required minimum versions are all quite ancient now,
|
|
|
|
# but specify them anyway for documentation's sake.)
|
|
|
|
#
|
2021-11-23 04:57:31 +08:00
|
|
|
use strict;
|
2023-12-30 01:01:53 +08:00
|
|
|
use warnings FATAL => 'all';
|
2022-02-19 05:59:30 +08:00
|
|
|
use Config;
|
2021-11-23 04:57:31 +08:00
|
|
|
|
2021-11-23 01:54:52 +08:00
|
|
|
use IPC::Run 0.79;
|
|
|
|
|
|
|
|
# Test::More and Time::HiRes are supposed to be part of core Perl,
|
|
|
|
# but some distros omit them in a minimal installation.
|
|
|
|
use Test::More 0.98;
|
|
|
|
use Time::HiRes 1.52;
|
|
|
|
|
|
|
|
# While here, we might as well report exactly what versions we found.
|
|
|
|
diag("IPC::Run::VERSION: $IPC::Run::VERSION");
|
|
|
|
diag("Test::More::VERSION: $Test::More::VERSION");
|
|
|
|
diag("Time::HiRes::VERSION: $Time::HiRes::VERSION");
|
|
|
|
|
2022-02-19 05:59:30 +08:00
|
|
|
# Check that if prove is using msys perl it is for an msys target
|
|
|
|
ok( ($ENV{__CONFIG_HOST_OS__} || "") eq 'msys',
|
|
|
|
"Msys perl used for correct target") if $Config{osname} eq 'msys';
|
2021-11-23 01:54:52 +08:00
|
|
|
ok(1);
|
|
|
|
done_testing();
|