Author: thatsafunnyname
Date: Thu Mar 26 08:58:07 2009
New Revision: 729
Modified:
trunk/t/lib/NYTProfTest.pm
Log:
Swap dot/period for underscore in outdir and new files to ensure is valid
on VMS, skip test 14 and 60 as the expected profile data does not have VMS
paths and will not match. Now all tests pass on VMS.
Modified: trunk/t/lib/NYTProfTest.pm
==============================================================================
--- trunk/t/lib/NYTProfTest.pm (original)
+++ trunk/t/lib/NYTProfTest.pm Thu Mar 26 08:58:07 2009
@@ -160,7 +160,7 @@
verify_data($test, $test_datafile);
}
elsif ($type eq 'x') {
- my $outdir = "$basename.outdir";
+ my $outdir = $basename.'_outdir';
mkdir $outdir or die "mkdir($outdir): $!" unless -d $outdir;
unlink <$outdir/*>;
@@ -224,14 +224,16 @@
return;
}
- $profile->normalize_variables;
- dump_profile_to_file($profile, "$test.new");
- my @got = slurp_file("$test.new");
- my @expected = slurp_file($test);
-
- is_deeply(\...@got, \...@expected, "$test match generated profile data")
- ? unlink("$test.new")
- : diff_files($test, "$test.new");
+ SKIP: {
+ skip 'Expected profile data does not have VMS paths',1 if(($^O
eq 'VMS') && ($test =~m/test60|test14/i));
+ $profile->normalize_variables;
+ dump_profile_to_file($profile, $test.'_new');
+ my @got = slurp_file($test.'_new');
+ my @expected = slurp_file($test);
+ is_deeply(\...@got, \...@expected, "$test match generated profile
data")
+ ? unlink($test.'_new')
+ : diff_files($test, $test.'_new');
+ }
}
@@ -355,8 +357,8 @@
}
is_deeply(\...@got, \...@expected, "$test match generated CSV data") or
do {
- spit_file("$test.new", join("", @got));
- diff_files($test, "$test.new");
+ spit_file($test.'_new', join("", @got));
+ diff_files($test, $test.'_new');
};
is(join("\n", @accuracy_errors), '', "$test times should be
reasonable");
}
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
