use strict;
use warnings FATAL => 'all';
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;

# Initialize node
my $node = PostgreSQL::Test::Cluster->new('node');
$node->init;
$node->start;

# Create table
$node->safe_psql("postgres", "CREATE EXTENSION vector;");
$node->safe_psql("postgres", "CREATE TABLE tst (i int4 primary key, v vector(3));");
$node->safe_psql("postgres",
	"INSERT INTO tst SELECT i, ARRAY[random(), random(), random()] FROM generate_series(1, 100000) i;"
);

# Add index
$node->safe_psql("postgres", "CREATE INDEX ON tst USING ivfflat (v vector_l2_ops);");

# Test 100% recall
for (1 .. 20)
{
	my $id = int(rand() * 100000);
	my $query = $node->safe_psql("postgres", "SELECT v FROM tst WHERE i = $id;");
	my $res = $node->safe_psql("postgres", qq(
		SET enable_seqscan = off;
		SELECT v FROM tst ORDER BY v <-> '$query' LIMIT 1;
	));
	is($res, $query);
}

done_testing();