1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
# Copyright (c) 2023-2025, PostgreSQL Global Development Group
use strict;
use warnings FATAL => 'all';
use Config;
use PostgreSQL::Test::Utils;
use PostgreSQL::Test::Cluster;
use Test::More;
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init();
$node->start();
$node->safe_psql('postgres',
q(CREATE DATABASE db_sql_ascii ENCODING "sql_ascii" TEMPLATE template0;));
my $cmd =
[ 'test_escape', '--conninfo', $node->connstr . " dbname=db_sql_ascii" ];
# There currently is no good other way to transport test results from a C
# program that requires just the node being set-up...
my ($stderr, $stdout);
my $result = IPC::Run::run $cmd, '>', \$stdout, '2>', \$stderr;
is($result, 1, "test_escape returns 0");
is($stderr, '', "test_escape stderr is empty");
foreach my $line (split('\n', $stdout))
{
if ($line =~ m/^ok \d+ ?(.*)/)
{
ok(1, $1);
}
elsif ($line =~ m/^not ok \d+ ?(.*)/)
{
ok(0, $1);
}
elsif ($line =~ m/^# ?(.*)/)
{
note $1;
}
elsif ($line =~ m/^\d+..\d+$/)
{
}
else
{
BAIL_OUT("no unmapped lines, got $line");
}
}
done_testing();
|
