#!/usr/bin/env perl
use strict;
use warnings;
use FindBin qw($RealBin);
use lib ($RealBin);
use Bugzilla;
use Search::Elasticsearch;
use Bugzilla::Elastic;

my $elastic = Bugzilla::Elastic->new(es_client => Search::Elasticsearch->new());
my $user = Bugzilla::User->check({name => 'dylan@mozilla.com'});
Bugzilla->set_user($user);
my $users;

for (1 .. 4) {
  $users = $elastic->suggest_users($ARGV[0]);
}
print "$_->{name}\n" for @$users;
