Changeset 29944

Timestamp:

02/12/09 13:52:16 (4 years ago)

Author:

yappo

Message:

fixed bug, use looks_like_number (http://www.nntp.perl.org/group/perl.cpan.testers/2009/02/msg3252540.html)

Files:

• lang/perl/HTTP-Engine-Middleware/trunk/t/200_middlewares/profile-runtime.t (modified) (3 diffs)

lang/perl/HTTP-Engine-Middleware/trunk/t/200_middlewares/profile-runtime.t

@@ -6 +6 @@
 plan skip_all => "Time::HiRes is not installed: $@" if $@;
 
-plan tests => 5;
+plan tests => 6;
 
 use HTTP::Engine;
@@ -16 +16 @@
 $mw->install( 'HTTP::Engine::Middleware::Profile',{
     logger  => sub {
+        my $re = qr/Request handling execution time: (.+) secs/;
         ::is  $_[0], 'debug', 'log level';
-        ::like $_[1], qr/Request handling execution time: \d+\.\d+ secs/, 'log msg';
+        ::like $_[1], $re, 'log msg';
+        $_[1] =~ $re;
+        ::ok looks_like_number($1), 'time is number';
     },
     config  => +{
@@ -37 +40 @@
 is $out, 'ok', 'response content';
 like $res->header('X-Runtime'), qr/^\d+\.\d+$/, 'X-Runtime header';
+
+
+# copied from Scalar::Util
+sub looks_like_number {
+  local $_ = shift;
+
+  # checks from perlfaq4
+  return 0 if !defined($_) or ref($_);
+  return 1 if (/^[+-]?\d+$/); # is a +/- integer
+  return 1 if (/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/); # a C float
+  return 1 if ($] >= 5.008 and /^(Inf(inity)?|NaN)$/i) or ($] >= 5.006001 and /^Inf$/i);
+
+  0;
+}