#!/usr/bin/perl
use strict;
use warnings;
use lib qw(. blib/arch);
use Xapian qw/:standard/;

system "rm -rf index";
mkdir "index";

my $db = Xapian::WritableDatabase->new( "index", DB_CREATE_OR_OPEN );
for ( 1..100_000 ) {
    my $document = Xapian::Document->new;
    $document->add_posting('x'.$_, 1);
    $db->add_document($document);
}