From be9f64b2c9879cb57865e8e7591eb568283c55b5 Mon Sep 17 00:00:00 2001
From: dami <laurent.dami@justice.ge.ch>
Date: Sun, 9 May 2021 19:25:27 +0200
Subject: [PATCH] tests for functions snippet() and offets()

---
 t/43_fts3.t | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/t/43_fts3.t b/t/43_fts3.t
index 934c8de..d8dbec2 100644
--- a/t/43_fts3.t
+++ b/t/43_fts3.t
@@ -24,6 +24,13 @@ my @tests = (
   ["(il OR elle) AND un*" => 0, 2    ],
 );
 
+
+
+my $ix_une_native = index($texts[0], "une");
+my $ix_une_utf8   = do {use bytes; utf8::upgrade(my $bergere_utf8 = $texts[0]); index($bergere_utf8, "une");};
+
+
+
 BEGIN {
 	requires_unicode_support();
 
@@ -105,6 +112,19 @@ for my $use_unicode (0, 1) {
         is_deeply($results, \@expected, "$query ($fts, unicode=$use_unicode)");
       }
     }
+
+
+    # the 'snippet' function should highlight the words in the MATCH query
+    my $sql_snip = "SELECT snippet(try_$fts) FROM try_$fts WHERE content MATCH ?";
+    my $result = $dbh->selectcol_arrayref($sql_snip, undef, 'une');
+    is_deeply($result, ['il était <b>une</b> bergère'], "snippet ($fts, unicode=$use_unicode)");
+
+    # the 'offsets' function should return integer offstes for the words in the MATCH query
+    my $sql_offsets = "SELECT offsets(try_$fts) FROM try_$fts WHERE content MATCH ?";
+    $result = $dbh->selectcol_arrayref($sql_offsets, undef, 'une');
+    my $offset_une = $use_unicode ? $ix_une_utf8 : $ix_une_native;
+    my $expected_offsets = "0 0 $offset_une 3";
+    is_deeply($result, [$expected_offsets], "offsets ($fts, unicode=$use_unicode)");
   }
 }