search: implement subject summarization

We ought to summarize subjects to avoid exploding
line lengths in the web interface.

1 files changed, 17 insertions, 0 deletions

diff --git a/t/search.t b/t/search.t
index 17e9eaf4..65539f14 100644
--- a/t/search.t
+++ b/t/search.t
@@ -16,6 +16,23 @@ is(0, system(qw(git init -q --bare), $git_dir), "git init (main)");
 eval { PublicInbox::Search->new($git_dir) };
 ok($@, "exception raised on non-existent DB");
 
+{
+        my $orig = "FOO " x 30;
+        my $summ = PublicInbox::Search::subject_summary($orig);
+
+        $summ = length($summ);
+        $orig = length($orig);
+        ok($summ < $orig && $summ > 0, "summary shortened ($orig => $summ)");
+
+        $orig = "FOO" x 30;
+        $summ = PublicInbox::Search::subject_summary($orig);
+
+        $summ = length($summ);
+        $orig = length($orig);
+        ok($summ < $orig && $summ > 0,
+           "summary shortened but not empty: $summ");
+}
+
 my $rw = PublicInbox::SearchIdx->new($git_dir, 1);
 my $ro = PublicInbox::Search->new($git_dir);
 my $rw_commit = sub {