X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_stats.t;h=928b48ed888503bf1738d3fc9183ab6b72291a58;hb=05b47f2e6357bc7f1622e6b2cf730ad5bbeb993f;hp=e46baf43704b44539d6c5345ec67a9888b48f9e1;hpb=6942b36dc43ebb90c7bad57c118f56b9601a6afd;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/unit_stats.t b/t/unit_stats.t
index e46baf4..928b48e 100644
--- a/t/unit_stats.t
+++ b/t/unit_stats.t
@@ -69,6 +69,10 @@ BEGIN { use_ok("Catalyst::Stats") };
     $stats->profile(comment => "interleave 2");
     push(@expected, [ 4, "- interleave 2", 0.2, 0 ]);
 
+    $fudge_t[1] = 550000;
+    $stats->profile(begin => "begin with no end");
+    push(@expected, [ 4, "begin with no end", 0.05, 1 ]);
+
     $fudge_t[1] = 600000; # end badly nested block time
     $stats->profile(end => "badly nested block 1");
 
@@ -85,6 +89,8 @@ BEGIN { use_ok("Catalyst::Stats") };
     my @report = $stats->report;
     is_deeply(\@report, \@expected, "report");
 
+    # print scalar($stats->report);
+
     is ($stats->elapsed, 14, "elapsed");
 }