The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
use strict;
use warnings;

use lib ".";
use lib "lib";

use Test::More 'no_plan';

BEGIN { use_ok('RTG::Report'); };
require_ok('RTG::Report');

my $reporter = RTG::Report->new();

my $last_timestamp = 120;
my $timestamp      = 120;
my $table          = 'imaginary.table';
my $iid            = 1;
my $counter        = 10000;

ok( $reporter->timestamp_sanity($last_timestamp, $timestamp, $table, $iid, $counter), 'timestamp_sanity ok');

$last_timestamp = 220;
ok( ! eval { $reporter->timestamp_sanity($last_timestamp, $timestamp, $table, $iid, $counter) }, 'timestamp_sanity nok');