test case and proposed fix

[catagits/Catalyst-Runtime.git] / t / unit_stats.t

diff --git a/t/unit_stats.t b/t/unit_stats.t
index 928b48e..09778c9 100644 (file)
--- a/t/unit_stats.t
+++ b/t/unit_stats.t
@@ -1,9 +1,7 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 use Time::HiRes qw/gettimeofday/;
 use Tree::Simple;
 
@@ -19,6 +17,8 @@ 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;