From c67dc6f9b0131871a9733800c1291d72b99200c1 Mon Sep 17 00:00:00 2001
From: Andrew Kane <andrew@ankane.org>
Date: Thu, 25 Apr 2024 10:29:28 -0700
Subject: [PATCH] Added test for bit with duplicate centers

---
 test/t/036_ivfflat_bit_centers.pl | 40 +++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 test/t/036_ivfflat_bit_centers.pl

diff --git a/test/t/036_ivfflat_bit_centers.pl b/test/t/036_ivfflat_bit_centers.pl
new file mode 100644
index 0000000..23b5892
--- /dev/null
+++ b/test/t/036_ivfflat_bit_centers.pl
@@ -0,0 +1,40 @@
+use strict;
+use warnings;
+use PostgresNode;
+use TestLib;
+use Test::More;
+
+# Initialize node
+my $node = get_new_node('node');
+$node->init;
+$node->start;
+
+# Create table
+$node->safe_psql("postgres", "CREATE EXTENSION vector;");
+$node->safe_psql("postgres", "CREATE TABLE tst (i int4, v bit(3));");
+$node->safe_psql("postgres",
+	"INSERT INTO tst SELECT i, floor(random() * 8)::bigint::bit(3) FROM generate_series(1, 100) i;"
+);
+
+my $counts = $node->safe_psql("postgres", "SELECT v, COUNT(*) FROM tst GROUP BY 1 ORDER BY 1");
+my @rows = split("\n", $counts);
+is(scalar(@rows), 8);
+
+# Create index with more lists than distinct values
+$node->safe_psql("postgres", "CREATE INDEX ON tst USING ivfflat (v bit_hamming_ops) WITH (lists = 100);");
+
+for my $row (@rows)
+{
+	my ($v, $count) = split(/\|/, $row);
+
+	my $actual = $node->safe_psql("postgres", qq(
+		SET enable_seqscan = off;
+		SELECT i FROM tst ORDER BY v <~> '$v' LIMIT 100;
+	));
+	my @actual_ids = split("\n", $actual);
+
+	# Test results are always found
+	is(scalar(@actual_ids), $count);
+}
+
+done_testing();