Permalink
Browse files

import Devel::Cover 0.39

  • Loading branch information...
1 parent 32cd545 commit c48323665a7d73a0de47c24c6fc261b82c815245 @pjcj committed Nov 3, 2004
Showing with 526 additions and 364 deletions.
  1. +7 −0 CHANGES
  2. +1 −0 MANIFEST
  3. +1 −1 META.yml
  4. +27 −3 Makefile.PL
  5. +1 −0 TODO
  6. +1 −1 all_versions
  7. +3 −4 cover
  8. +6 −7 cpancover
  9. +2 −2 create_gold
  10. +4 −4 gcov2perl
  11. +64 −63 lib/Devel/Cover.pm
  12. +2 −2 lib/Devel/Cover/Branch.pm
  13. +2 −2 lib/Devel/Cover/Condition.pm
  14. +2 −2 lib/Devel/Cover/Condition_and_3.pm
  15. +2 −2 lib/Devel/Cover/Condition_or_2.pm
  16. +2 −2 lib/Devel/Cover/Condition_or_3.pm
  17. +2 −2 lib/Devel/Cover/Condition_xor_4.pm
  18. +13 −21 lib/Devel/Cover/Criterion.pm
  19. +135 −88 lib/Devel/Cover/DB.pm
  20. +4 −5 lib/Devel/Cover/DB/File.pm
  21. +131 −0 lib/Devel/Cover/DB/Structure.pm
  22. +2 −2 lib/Devel/Cover/Op.pm
  23. +2 −2 lib/Devel/Cover/Pod.pm
  24. +2 −2 lib/Devel/Cover/Report/Html.pm
  25. +5 −5 lib/Devel/Cover/Report/Html_basic.pm
  26. +5 −9 lib/Devel/Cover/Report/Html_minimal.pm
  27. +6 −6 lib/Devel/Cover/Report/Html_subtle.pm
  28. +3 −3 lib/Devel/Cover/Report/Text.pm
  29. +3 −3 lib/Devel/Cover/Report/Text2.pm
  30. +6 −6 lib/Devel/Cover/Statement.pm
  31. +7 −7 lib/Devel/Cover/Subroutine.pm
  32. +10 −7 lib/Devel/Cover/Test.pm
  33. +6 −6 lib/Devel/Cover/Time.pm
  34. +2 −2 lib/Devel/Cover/Truth_Table.pm
  35. +1 −1 lib/Devel/Cover/Tutorial.pod
  36. +1 −1 test_output/cover/alias.5.006001
  37. +1 −1 test_output/cover/alias1.5.006001
  38. +1 −1 test_output/cover/branch_return_sub.5.006001
  39. +1 −1 test_output/cover/cond_and.5.006001
  40. +1 −1 test_output/cover/cond_branch.5.006001
  41. +1 −1 test_output/cover/cond_or.5.006001
  42. +1 −1 test_output/cover/cond_xor.5.006001
  43. +1 −1 test_output/cover/default_param.5.006001
  44. +1 −1 test_output/cover/destroy.5.006001
  45. +1 −1 test_output/cover/dynamic_subs.5.006001
  46. +1 −1 test_output/cover/eval1.5.006001
  47. +20 −17 test_output/cover/fork.5.006001
  48. +1 −1 test_output/cover/if.5.006001
  49. +1 −1 test_output/cover/module1.5.006001
  50. +1 −1 test_output/cover/module2.5.006001
  51. +1 −1 test_output/cover/module_import.5.006001
  52. +1 −1 test_output/cover/overloaded.5.006001
  53. +1 −44 test_output/cover/pod.5.006001
  54. +1 −1 test_output/cover/skip.5.006001
  55. +1 −1 test_output/cover/special_blocks.5.006001
  56. +5 −5 test_output/cover/statement.5.006001
  57. +1 −1 test_output/cover/t0.5.006001
  58. +1 −1 test_output/cover/t1.5.006001
  59. +1 −1 test_output/cover/t2.5.006001
  60. +1 −1 test_output/cover/trivial.5.006001
  61. +3 −0 tests/fork
  62. +2 −2 tests/md5.t
  63. +1 −2 tests/statement
View
@@ -248,3 +248,10 @@ Release 0.38 - 12th March 2004
- Add default_param test.
- Provide summary output to one decimal place.
- Update gcov2perl.
+
+Release 0.39 - 22nd March 2004
+ - Major database rework to store runs.
+ - Add Devel::Cover::DB::Structure.pm.
+ - Check for Test::Differences in Makefile.PL.
+ - Test with perl5.9.2.
+ - Skip fork test on MSWin32.
View
@@ -20,6 +20,7 @@ lib/Devel/Cover/Subroutine.pm
lib/Devel/Cover/Pod.pm
lib/Devel/Cover/Time.pm
lib/Devel/Cover/DB/File.pm
+lib/Devel/Cover/DB/Structure.pm
lib/Devel/Cover/Test.pm
lib/Devel/Cover/Report/Text.pm
lib/Devel/Cover/Report/Html.pm
View
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Devel-Cover
-version: 0.38
+version: 0.39
version_from:
installdirs: site
requires:
View
@@ -19,8 +19,8 @@ use File::Copy;
$| = 1;
-my $Version = "0.38";
-my $Date = "12th March 2004";
+my $Version = "0.39";
+my $Date = "22nd March 2004";
my $Author = 'pjcj@cpan.org';
my @perlbug = ("perlbug", "-a", $Author,
@@ -196,6 +196,30 @@ else
print "not found\n\n$e\n";
}
+print "checking for Test::Differences.pm ........ ";
+
+$e = <<EOM;
+
+Test::Differences.pm is to display output from failed tests. Hopefully
+there won't be any failed tests, but if there are you will get output
+that may not be a model of clarity. If you do get test failures and you
+fancy helping me by debugging them, then you might like to consider
+installing Test::Differences. You can download Test::Differences from
+CPAN.
+
+EOM
+
+eval "use Test::Differences";
+if (my $m = $INC{"Test/Differences.pm"})
+{
+ my $v = eval { no warnings; $Test::Differences::VERSION };
+ print "$v $m\n";
+}
+else
+{
+ print "not found\n\n$e\n";
+}
+
my $latest_tested = 5.008003;
print <<EOM if $] > $latest_tested;
@@ -313,7 +337,7 @@ FONT = "Bitstream Vera Sans Mono 8"
diff : _run
\t \$(PERL) -i -pe '\$\$t = index \$\$_, "time code" if !defined \$\$t || \$\$t < 0; substr \$\$_, \$\$t, 7, "" if /^line err stmt/ .. /^Branches/ and length > \$\$t' \$(TEST).out
-\t gvim -d -font \$(FONT) `\$(PERL) -Mblib -MDevel::Cover::Test -e '\$\$t = Devel::Cover::Test->new(\$(TEST)); print \$\$t->cover_gold'` \$(TEST).out
+\t gvim -d -font \$(FONT) `\$(PERL) -Mblib -MDevel::Cover::Test -e '\$\$t = Devel::Cover::Test->new("\$(TEST)"); print \$\$t->cover_gold'` \$(TEST).out
gold : pure_all
\t \$(PERL) create_gold \$(TEST)
View
1 TODO
@@ -23,3 +23,4 @@
- Threads support.
- Test analysis.
- Move HTML version and platform info to main page and allow for multiples.
+- Fix up shebang line on tests.
View
@@ -29,7 +29,7 @@ sub get_options
version=s
));
$Options->{version} =
- [ qw( 5.6.1 5.6.2 5.8.0 5.8.1 5.8.2 5.8.3 5.9.0 5.9.1 ) ]
+ [ qw( 5.6.1 5.6.2 5.8.0 5.8.1 5.8.2 5.8.3 5.9.0 5.9.1 5.9.2 ) ]
unless @{$Options->{version}};
$Options->{version} =
[ grep eval { !system "perl$_ -v" }, @{$Options->{version}} ];
View
7 cover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.38";
+our $VERSION = "0.39";
-use Devel::Cover::DB 0.38;
+use Devel::Cover::DB 0.39;
use Cwd "abs_path";
use Data::Dumper;
@@ -165,7 +165,6 @@ sub main
delete @f{map glob, @{$Options->{exclude}}};
@{$Options->{file}} = sort grep exists $db->{summary}{$_}, keys %f;
- # use Data::Dumper; print Dumper $Options;
$format->report($db, $Options)
}
@@ -259,7 +258,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.38 - 12th March 2004
+Version 0.39 - 22nd March 2004
=head1 LICENCE
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.38";
+our $VERSION = "0.39";
-use Devel::Cover::DB 0.38;
+use Devel::Cover::DB 0.39;
use Cwd ();
use File::Find ();
@@ -283,8 +283,7 @@ sub write_html
File::Find::find($func, $mod);
}
- # use Data::Dumper;
- # print Dumper $vars;
+ # use Data::Dumper; print Dumper $vars;
write_stylesheet;
$Template->process("summary", $vars, $f) or die $Template->error();
@@ -314,7 +313,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.38";
+our $VERSION = "0.39";
use base "Template::Provider";
@@ -350,7 +349,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.38
+This file was generated by Devel::Cover Version 0.39
Devel::Cover is copyright 2001-2004, Paul Johnson (pjcj@cpan.org)
@@ -459,7 +458,7 @@ The following exit values are returned:
=head1 VERSION
-Version 0.38 - 12th March 2004
+Version 0.39 - 22nd March 2004
=head1 LICENCE
View
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.38";
+our $VERSION = "0.39";
use blib;
-use Devel::Cover::Test 0.38;
+use Devel::Cover::Test 0.39;
my @tests = @ARGV;
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.38";
+our $VERSION = "0.39";
-use Devel::Cover::DB 0.38;
+use Devel::Cover::DB 0.39;
use Getopt::Long;
use Pod::Usage;
@@ -55,7 +55,7 @@ sub add_cover
s/\s+//g;
$_ = 0 if $_ eq "######";
next if !length || /\D/;
- $cover->{$f}{statement}{$.} = [[[$_]]];
+ $cover->{$f}{statement}{$.} = [\$_];
}
close F or die "Can't open $file: $!\n";
}
@@ -123,7 +123,7 @@ Huh?
=head1 VERSION
-Version 0.38 - 12th March 2004
+Version 0.39 - 22nd March 2004
=head1 LICENCE
Oops, something went wrong.

0 comments on commit c483236

Please sign in to comment.