use strict;
use warnings;
use PostgresNode;
use TestLib;
use Test::More tests => 2;

my $node;
my @expected_ids;

# TODO Run more queries to prevent flakiness
sub test_recall
{
  my ($probes, $min) = @_;

  my $actual = $node->safe_psql("postgres", qq(
SET enable_seqscan = off;
SET ivfflat.probes = $probes;
SELECT i FROM tst ORDER BY v <-> '[0.5,0.5,0.5]' LIMIT 10;
));
  my @actual_ids = split("\n", $actual);
  my %actual_set = map { $_ => 1 } @actual_ids;

  my $count = 0;
  for my $el (@expected_ids) {
    if (exists($actual_set{$el})) {
      $count++;
    }
  }

  cmp_ok($count, ">=", $min);
}

# Initialize node
$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 vector(3));");
$node->safe_psql("postgres",
  "INSERT INTO tst SELECT i, ARRAY[random(), random(), random()] FROM generate_series(1,100000) i;"
);

# Get exact results
my $expected = $node->safe_psql("postgres", "SELECT i FROM tst ORDER BY v <-> '[0.5,0.5,0.5]' LIMIT 10;");
@expected_ids = split("\n", $expected);

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

# Test approximate results
test_recall(1, 5);

# Test probes
test_recall(100, 10);