#!/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');