mirror of
https://github.com/pgvector/pgvector.git
synced 2026-06-06 05:51:21 +08:00
35 lines
919 B
Perl
35 lines
919 B
Perl
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();
|