From: Graham Knop <haarg@haarg.org>
Date: Tue, 27 Mar 2018 16:03:22 +0000 (+0200)
Subject: fix unit_stats.t for new Time::HiRes
X-Git-Tag: v5.90118~32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=a7713c3d6d9225ed390bcda6825c5d901e301af2

fix unit_stats.t for new Time::HiRes

tv_interval has been implemented in XS rather than as a wrapper, so it
has to be mocked as well.
---

diff --git a/t/unit_stats.t b/t/unit_stats.t
index 09778c9..5aced0a 100644
--- a/t/unit_stats.t
+++ b/t/unit_stats.t
@@ -2,13 +2,17 @@ use strict;
 use warnings;
 
 use Test::More tests => 13;
-use Time::HiRes qw/gettimeofday/;
+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") };