Author: tim.bunce
Date: Thu Mar 5 14:33:53 2009
New Revision: 692
Modified:
trunk/t/lib/NYTProfTest.pm
Log:
Fix tests to work with previous html_safe_filename change.
Modified: trunk/t/lib/NYTProfTest.pm
==============================================================================
--- trunk/t/lib/NYTProfTest.pm (original)
+++ trunk/t/lib/NYTProfTest.pm Thu Mar 5 14:33:53 2009
@@ -13,7 +13,7 @@
our @EXPORT = qw(run_test_group);
use Devel::NYTProf::Reader;
-use Devel::NYTProf::Util qw(strip_prefix_from_paths);
+use Devel::NYTProf::Util qw(strip_prefix_from_paths html_safe_filename);
my $profile_datafile = 'nytprof_t.out'; # non-default to test override
works
@@ -259,6 +259,7 @@
# foo.pm => foo.pm.csv is tested by foo.pm.x
$csvfile =~ s/\.x//;
$csvfile .= ".p" unless $csvfile =~ /\.p/;
+ $csvfile = html_safe_filename($csvfile);
$csvfile = "$outdir/${csvfile}-line.csv";
unlink $csvfile;
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
