commit perl-Test-Spelling for openSUSE:Factory
Hello community, here is the log from the commit of package perl-Test-Spelling for openSUSE:Factory checked in at 2015-02-08 11:42:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Spelling (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Spelling.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Test-Spelling" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Spelling/perl-Test-Spelling.changes 2013-06-06 12:57:44.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-Spelling.new/perl-Test-Spelling.changes 2015-02-08 11:42:44.000000000 +0100 @@ -1,0 +2,8 @@ +Sat Feb 7 07:21:44 UTC 2015 - coolo@suse.com + +- updated to 0.20 + - Add a sorted list of your most commonly misspelled words to + the end of all_pod_files_spelling_ok to aid stopword list creation + and bulk correction. (Kent Fredric) + +------------------------------------------------------------------- Old: ---- Test-Spelling-0.19.tar.gz New: ---- Test-Spelling-0.20.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Spelling.spec ++++++ --- /var/tmp/diff_new_pack.446ZnB/_old 2015-02-08 11:42:44.000000000 +0100 +++ /var/tmp/diff_new_pack.446ZnB/_new 2015-02-08 11:42:44.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Spelling # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Test-Spelling -Version: 0.19 +Version: 0.20 Release: 0 %define cpan_name Test-Spelling Summary: check for spelling errors in POD files @@ -33,17 +33,6 @@ BuildRequires: perl(Pod::Spell) >= 1.01 BuildRequires: perl(Test::More) >= 0.88 BuildRequires: perl(Test::Tester) -#BuildRequires: perl(inc::Module::Install) -#BuildRequires: perl(JSON) -#BuildRequires: perl(LWP::Simple) -#BuildRequires: perl(Module::Build) -#BuildRequires: perl(Module::Install::AutoManifest) -#BuildRequires: perl(Module::Install::Base) -#BuildRequires: perl(Module::Install::GithubMeta) -#BuildRequires: perl(Module::Install::ManifestSkip) -#BuildRequires: perl(Parse::CPAN::Meta) -#BuildRequires: perl(Test::Spelling) -#BuildRequires: perl(YAML::Tiny) Requires: perl(IPC::Run3) >= 0.044 Requires: perl(Pod::Spell) >= 1.01 %{perl_requires} ++++++ Test-Spelling-0.19.tar.gz -> Test-Spelling-0.20.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Spelling-0.19/.prove new/Test-Spelling-0.20/.prove --- old/Test-Spelling-0.19/.prove 2013-04-26 16:50:23.000000000 +0200 +++ new/Test-Spelling-0.20/.prove 1970-01-01 01:00:00.000000000 +0100 @@ -1,72 +0,0 @@ ---- -generation: 8 -last_run_time: 1366987823.5195 -tests: - t/basic.t: - elapsed: 0.0465278625488281 - gen: 8 - last_fail_time: 1366987823.46117 - last_pass_time: 1366987750.13305 - last_result: 15 - last_run_time: 1366987823.46117 - last_todo: 0 - mtime: 1356046620 - seq: 46 - total_failures: 5 - total_passes: 3 - t/fake_checker.t: - elapsed: 0.0521571636199951 - gen: 8 - last_fail_time: 1366987823.45588 - last_pass_time: 1366987750.13592 - last_result: 15 - last_run_time: 1366987823.45588 - last_todo: 0 - mtime: 1366986959 - seq: 45 - total_failures: 5 - total_passes: 3 - t/load.t: - elapsed: 0.00190591812133789 - gen: 8 - last_pass_time: 1366987823.41582 - last_result: 0 - last_run_time: 1366987823.41582 - last_todo: 0 - mtime: 1366987242 - seq: 43 - total_passes: 8 - t/pod-spell.t: - elapsed: 0.0302088260650635 - gen: 8 - last_pass_time: 1366987823.51709 - last_result: 0 - last_run_time: 1366987823.51709 - last_todo: 0 - mtime: 1356046620 - seq: 48 - total_passes: 8 - t/pod.t: - elapsed: 0.0278980731964111 - gen: 8 - last_pass_time: 1366987823.50121 - last_result: 0 - last_run_time: 1366987823.50121 - last_todo: 0 - mtime: 1356046620 - seq: 47 - total_passes: 8 - t/stopword.t: - elapsed: 0.0294508934020996 - gen: 8 - last_fail_time: 1366987823.4445 - last_pass_time: 1366987750.10773 - last_result: 11 - last_run_time: 1366987823.4445 - last_todo: 0 - mtime: 1366986959 - seq: 44 - total_failures: 5 - total_passes: 3 -version: 1 -... diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Spelling-0.19/Changes new/Test-Spelling-0.20/Changes --- old/Test-Spelling-0.19/Changes 2013-05-05 17:03:47.000000000 +0200 +++ new/Test-Spelling-0.20/Changes 2014-10-07 15:46:40.000000000 +0200 @@ -1,8 +1,13 @@ Revision history for Test-Spelling +0.20 2014-10-07 + - Add a sorted list of your most commonly misspelled words to + the end of all_pod_files_spelling_ok to aid stopword list creation + and bulk correction. (Kent Fredric) + 0.19 2013-05-05 - for more consistent results avoid using the user's local aspell - dictionary [rt.cpan.org #56483] (Karen Etheridge) + dictionary [rt.cpan.org #84869] (Karen Etheridge) 0.18 2013-04-26 - Work around Pod::Spell limitations (David Golden) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Spelling-0.19/MANIFEST new/Test-Spelling-0.20/MANIFEST --- old/Test-Spelling-0.19/MANIFEST 2013-05-05 17:04:17.000000000 +0200 +++ new/Test-Spelling-0.20/MANIFEST 2014-10-07 15:48:40.000000000 +0200 @@ -1,4 +1,3 @@ -.prove Changes inc/Module/Install.pm inc/Module/Install/AutoManifest.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Spelling-0.19/META.yml new/Test-Spelling-0.20/META.yml --- old/Test-Spelling-0.19/META.yml 2013-05-05 17:03:57.000000000 +0200 +++ new/Test-Spelling-0.20/META.yml 2014-10-07 15:48:16.000000000 +0200 @@ -28,4 +28,4 @@ homepage: https://github.com/sartak/test-spelling/tree license: http://dev.perl.org/licenses/ repository: git://github.com/sartak/test-spelling.git -version: 0.19 +version: 0.20 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Spelling-0.19/inc/Module/Install/GithubMeta.pm new/Test-Spelling-0.20/inc/Module/Install/GithubMeta.pm --- old/Test-Spelling-0.19/inc/Module/Install/GithubMeta.pm 2013-05-05 17:03:56.000000000 +0200 +++ new/Test-Spelling-0.20/inc/Module/Install/GithubMeta.pm 2014-10-07 15:48:16.000000000 +0200 @@ -7,7 +7,7 @@ use base qw(Module::Install::Base); use vars qw($VERSION); -$VERSION = '0.22'; +$VERSION = '0.26'; sub githubmeta { my $self = shift; @@ -15,6 +15,7 @@ return unless _under_git(); return unless $self->can_run('git'); my $remote = shift || 'origin'; + local $ENV{LANG}='C'; return unless my ($git_url) = `git remote show -n $remote` =~ /URL: (.*)$/m; return unless $git_url =~ /github\.com/; # Not a Github repository my $http_url = $git_url; @@ -48,4 +49,4 @@ 'Github'; __END__ -#line 111 +#line 112 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Spelling-0.19/lib/Test/Spelling.pm new/Test-Spelling-0.20/lib/Test/Spelling.pm --- old/Test-Spelling-0.19/lib/Test/Spelling.pm 2013-05-05 17:03:53.000000000 +0200 +++ new/Test-Spelling-0.20/lib/Test/Spelling.pm 2014-10-07 15:48:27.000000000 +0200 @@ -6,11 +6,12 @@ use base 'Exporter'; use Pod::Spell; use Test::Builder; +use Text::Wrap; use File::Spec; use IPC::Run3; use Symbol 'gensym'; -our $VERSION = '0.19'; +our $VERSION = '0.20'; our @EXPORT = qw( pod_file_spelling_ok @@ -28,6 +29,7 @@ my $SPELLCHECKER; my $FILE_FILTER = sub { 1 }; my $POD_PARSER; +our %ALL_WORDS; sub spellchecker_candidates { # if they've specified a spellchecker, use only that one @@ -124,6 +126,7 @@ # remove stopwords, select unique errors my $WL = \%Pod::Wordlist::Wordlist; @words = grep { !$WL->{$_} && !$WL->{lc $_} } @words; + $ALL_WORDS{$_}++ for @words; my %seen; @seen{@words} = (); @words = sort keys %seen; @@ -140,7 +143,7 @@ sub all_pod_files_spelling_ok { my @files = all_pod_files(@_); - + local %ALL_WORDS; if (!has_working_spellchecker()) { return $TEST->plan(skip_all => "no working spellchecker found"); } @@ -152,6 +155,19 @@ local $Test::Builder::Level = $Test::Builder::Level + 1; pod_file_spelling_ok($file) or undef $ok; } + if ( keys %ALL_WORDS ) { + # Invert k => v to v => [ k ] + my %values; + push @{ $values{ $ALL_WORDS{$_} } }, $_ for keys %ALL_WORDS; + + my $labelformat = q[%6s: ]; + my $indent = q[ ] x 10; + + $TEST->diag(qq[\nAll incorrect words, by number of occurrences:\n] . + join qq[\n], map { wrap( ( sprintf $labelformat, $_ ), $indent, join q[, ], sort @{ $values{$_} } ) } + sort { $a <=> $b } keys %values + ); + } return $ok; } -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org
participants (1)
-
root@hilbert.suse.de