Author: thatsafunnyname
Date: Wed Mar 25 08:30:24 2009
New Revision: 721
Modified:
trunk/t/50-errno.t
Log:
Allow nytprof.out file to have 0 size on VMS as buffers have not flushed.
Modified: trunk/t/50-errno.t
==============================================================================
--- trunk/t/50-errno.t (original)
+++ trunk/t/50-errno.t Wed Mar 25 08:30:24 2009
@@ -1,4 +1,4 @@
-use Test::More tests => 5;
+use Test::More tests => 6;
my $nytprof_out;
BEGIN {
@@ -16,7 +16,12 @@
is 0+$!, 9999, '$! should not be altered by NYTProf';
my $size1 = -s $nytprof_out;
-cmp_ok $size1, '>', 0, "$nytprof_out should exist and not be empty";
+cmp_ok $size1, '>=', 0, "$nytprof_out should exist";
+
+SKIP: {
+ skip 'On VMS buffer is not flushed', 1 if ($^O eq 'VMS');
+ cmp_ok $size1, '>', 0, "$nytprof_out should not be empty";
+}
$! = 9999;
example_sub();
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
-~----------~----~----~----~------~----~------~--~---
