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 - [email protected]
+
+- 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: [email protected]
For additional commands, e-mail: [email protected]
