#!/usr/bin/perl -w

use strict;
use warnings;
use Test::Presenter;
use Data::Dumper;

my $re = new Test::Presenter;

my $opt_debug = 0;

$re->set_debug($opt_debug);
$re->open_db("./", "dbench.hist.dbxml");

$re->add_doc("./trpi", "1202.trpi", "1202");
$re->add_doc("./trpi", "1203.trpi", "1203");
$re->add_doc("./trpi", "1601.trpi", "1601");
$re->add_doc("./trpi", "1699.trpi", "1699");

$re->open_template("histogram");
$re->open_config("./configs", "dbench.hist.config");
$re->process();

$re->save_query("./", "dbench.save_query");

$re->query_with_template("1202");

$re->query_with_template("1203");

$re->query_with_template("1601");

$re->query_with_template("1699");

$re->dump();

print Dumper $re;

$re->to_plot('test.hist.box.png');
$re->to_plot('test.hist.lp.png', 'linespoints');
$re->to_plot('test.hist.imp.png', 'impulses');
