-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 12;
-use Time::HiRes qw/gettimeofday/;
+use Test::More tests => 13;
+use Time::HiRes ();
use Tree::Simple;
my @fudge_t = ( 0, 0 );
BEGIN {
no warnings;
*Time::HiRes::gettimeofday = sub () { return @fudge_t };
+ my $original_tv_interval = \&Time::HiRes::tv_interval;
+ *Time::HiRes::tv_interval = sub ($;@) {
+ return $original_tv_interval->($_[0], $_[1] || [Time::HiRes::gettimeofday()]);
+ };
}
BEGIN { use_ok("Catalyst::Stats") };
my $stats = Catalyst::Stats->new;
is (ref($stats), "Catalyst::Stats", "new");
+ is_deeply([ $stats->created ], [0, 0], "created time");
+
my @expected; # level, string, time
$fudge_t[0] = 1;