#!/usr/bin/perl
use strict;
use warnings;

use lib qw(. blib/arch);
use Xapian qw/:standard/;
use Memory::Usage;

my $mu = Memory::Usage->new;

{
	my $db = Xapian::Database->new("index");
	my $qp = Xapian::QueryParser->new($db);
	$qp->set_max_wildcard_expansion(1_000_000);
	my $query = $qp->parse_query('x*', FLAG_WILDCARD);
	my $enq   = $db->enquire($query);
	
	$mu->record(__LINE__);
	my $mset = $enq->get_mset(0, 10);
	$mu->record(__LINE__);
}
$mu->record(__LINE__);
$mu->dump;