summaryrefslogtreecommitdiff
path: root/contrib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib')
-rw-r--r--contrib/amcheck/t/004_verify_nbtree_unique.pl20
-rw-r--r--contrib/pg_visibility/t/002_corrupt_vm.pl2
2 files changed, 16 insertions, 6 deletions
diff --git a/contrib/amcheck/t/004_verify_nbtree_unique.pl b/contrib/amcheck/t/004_verify_nbtree_unique.pl
index 6be08e3f38f..2cd23fc20ed 100644
--- a/contrib/amcheck/t/004_verify_nbtree_unique.pl
+++ b/contrib/amcheck/t/004_verify_nbtree_unique.pl
@@ -159,7 +159,9 @@ $node->safe_psql(
'postgres', q(
SELECT bt_index_check('bttest_unique_idx1', true, true);
));
-ok( $stderr =~ /index uniqueness is violated for index "bttest_unique_idx1"/,
+like(
+ $stderr,
+ qr/index uniqueness is violated for index "bttest_unique_idx1"/,
'detected uniqueness violation for index "bttest_unique_idx1"');
#
@@ -177,7 +179,9 @@ ok( $stderr =~ /index uniqueness is violated for index "bttest_unique_idx1"/,
'postgres', q(
SELECT bt_index_check('bttest_unique_idx2', true, true);
));
-ok( $stderr =~ /item order invariant violated for index "bttest_unique_idx2"/,
+like(
+ $stderr,
+ qr/item order invariant violated for index "bttest_unique_idx2"/,
'detected item order invariant violation for index "bttest_unique_idx2"');
$node->safe_psql(
@@ -191,7 +195,9 @@ $node->safe_psql(
'postgres', q(
SELECT bt_index_check('bttest_unique_idx2', true, true);
));
-ok( $stderr =~ /index uniqueness is violated for index "bttest_unique_idx2"/,
+like(
+ $stderr,
+ qr/index uniqueness is violated for index "bttest_unique_idx2"/,
'detected uniqueness violation for index "bttest_unique_idx2"');
#
@@ -208,7 +214,9 @@ ok( $stderr =~ /index uniqueness is violated for index "bttest_unique_idx2"/,
'postgres', q(
SELECT bt_index_check('bttest_unique_idx3', true, true);
));
-ok( $stderr =~ /item order invariant violated for index "bttest_unique_idx3"/,
+like(
+ $stderr,
+ qr/item order invariant violated for index "bttest_unique_idx3"/,
'detected item order invariant violation for index "bttest_unique_idx3"');
# For unique index deduplication is possible only for same values, but
@@ -237,7 +245,9 @@ $node->safe_psql(
'postgres', q(
SELECT bt_index_check('bttest_unique_idx3', true, true);
));
-ok( $stderr =~ /index uniqueness is violated for index "bttest_unique_idx3"/,
+like(
+ $stderr,
+ qr/index uniqueness is violated for index "bttest_unique_idx3"/,
'detected uniqueness violation for index "bttest_unique_idx3"');
$node->stop;
diff --git a/contrib/pg_visibility/t/002_corrupt_vm.pl b/contrib/pg_visibility/t/002_corrupt_vm.pl
index b9b31956466..e558b2c13dc 100644
--- a/contrib/pg_visibility/t/002_corrupt_vm.pl
+++ b/contrib/pg_visibility/t/002_corrupt_vm.pl
@@ -40,7 +40,7 @@ my $npages = $node->safe_psql(
"SELECT relpages FROM pg_class
WHERE relname = 'corruption_test';"
);
-ok($npages >= 10, 'table has at least 10 pages');
+cmp_ok($npages, '>=', 10, 'table has at least 10 pages');
my $file = $node->safe_psql("postgres",
"SELECT pg_relation_filepath('corruption_test');");