[PATCH] wip

[Eric Wong <e@80x24.org>]

From: Eric Wong <normalperson@yhbt.net>

---
 lib/PublicInbox/Search.pm | 8 ++++++++
 t/search.t                | 1 +
 2 files changed, 9 insertions(+)

diff --git a/lib/PublicInbox/Search.pm b/lib/PublicInbox/Search.pm
index 209969c5..3cd71ae6 100644
--- a/lib/PublicInbox/Search.pm
+++ b/lib/PublicInbox/Search.pm
@@ -242,6 +242,14 @@ sub xdb ($) {
 	};
 }
 
+sub sessionstate {
+	my ($self) = @_;
+	my $xdb = $self->xdb;
+	my @cb = map { $xdb->can($_) } qw(get_uuid get_revision);
+	scalar(@cb) == 2 ? join('-', map { $_->($xdb) }) :
+		$xdb->get_metadata('xs_sessionstate');
+}
+
 sub new {
 	my ($class, $ibx) = @_;
 	ref $ibx or die "BUG: expected PublicInbox::Inbox object: $ibx";
diff --git a/t/search.t b/t/search.t
index 124c9acf..c67d8352 100644
--- a/t/search.t
+++ b/t/search.t
@@ -479,6 +479,7 @@ EOF
 			"searching chopped($i) digit yielded result $wild ");
 	}
 	is($ibx->search->mset('m:Pine m:LNX m:10010260936330')->size, 1);
+	diag $ibx->search->sessionstate;
 });
 
 { # List-Id searching