mirror of
https://github.com/postgres/postgres.git
synced 2026-04-27 17:16:43 -04:00
22 lines
479 B
Perl
22 lines
479 B
Perl
# Copyright (c) 2022-2025, PostgreSQL Global Development Group
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use PostgreSQL::Test::Utils;
|
|
use Test::More;
|
|
|
|
# Test PQsslAttribute(NULL, "library")
|
|
my ($out, $err) = run_command([ 'libpq_testclient', '--ssl' ]);
|
|
|
|
if ($ENV{with_ssl} eq 'openssl')
|
|
{
|
|
is($out, 'OpenSSL', 'PQsslAttribute(NULL, "library") returns "OpenSSL"');
|
|
}
|
|
else
|
|
{
|
|
is( $err,
|
|
'SSL is not enabled',
|
|
'PQsslAttribute(NULL, "library") returns NULL');
|
|
}
|
|
|
|
done_testing();
|