blob: 14cbc53983428f71009077c68f74ca016fb9f685 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use TestLib;
use Test::More tests => 3;
# Test concurrent insertion into table with UNIQUE oid column. DDL expects
# GetNewOidWithIndex() to successfully avoid violating uniqueness for indexes
# like pg_class_oid_index and pg_proc_oid_index. This indirectly exercises
# LWLock and spinlock concurrency. This test makes a 5-MiB table.
my $tempdir = tempdir;
start_test_server $tempdir;
psql('postgres',
'CREATE UNLOGGED TABLE oid_tbl () WITH OIDS; '
. 'ALTER TABLE oid_tbl ADD UNIQUE (oid);');
my $script = "$tempdir/pgbench_script";
open my $fh, ">", $script or die "could not open file $script";
print $fh 'INSERT INTO oid_tbl SELECT FROM generate_series(1,1000);';
close $fh;
command_like(
[ qw(pgbench --no-vacuum --client=5 --protocol=prepared
--transactions=25 --file), $script, 'postgres' ],
qr{processed: 125/125},
'concurrent OID generation');
|
