Hello community,
here is the log from the commit of package perl-Test-Synopsis for
openSUSE:Factory checked in at 2016-01-11 19:11:45
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-Synopsis (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-Synopsis.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Synopsis"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-Synopsis/perl-Test-Synopsis.changes
2016-01-05 21:55:16.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Test-Synopsis.new/perl-Test-Synopsis.changes
2016-01-11 19:11:46.000000000 +0100
@@ -1,0 +2,9 @@
+Wed Jan 6 10:35:44 UTC 2016 - [email protected]
+
+- updated to 0.13
+ see /usr/share/doc/packages/perl-Test-Synopsis/Changes
+
+ 0.13 2016-01-04
+ - Fix #12 conflict with multiple chunks (by turnstep)
+
+-------------------------------------------------------------------
Old:
----
Test-Synopsis-0.12.tar.gz
New:
----
Test-Synopsis-0.13.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-Synopsis.spec ++++++
--- /var/tmp/diff_new_pack.oDCjX4/_old 2016-01-11 19:11:47.000000000 +0100
+++ /var/tmp/diff_new_pack.oDCjX4/_new 2016-01-11 19:11:47.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-Test-Synopsis
-Version: 0.12
+Version: 0.13
Release: 0
%define cpan_name Test-Synopsis
Summary: Test your SYNOPSIS code
++++++ Test-Synopsis-0.12.tar.gz -> Test-Synopsis-0.13.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/Changes
new/Test-Synopsis-0.13/Changes
--- old/Test-Synopsis-0.12/Changes 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/Changes 2016-01-04 23:59:35.000000000 +0100
@@ -1,5 +1,8 @@
Revision history for Perl extension Test::Synopsis
+0.13 2016-01-04
+ - Fix #12 conflict with multiple chunks (by turnstep)
+
0.12 2015-12-27
- Add META.json (monsieurp)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/LICENSE
new/Test-Synopsis-0.13/LICENSE
--- old/Test-Synopsis-0.12/LICENSE 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/LICENSE 2016-01-04 23:59:35.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2015 by Tatsuhiko Miyagawa.
+This software is copyright (c) 2016 by Tatsuhiko Miyagawa.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2015 by Tatsuhiko Miyagawa.
+This software is Copyright (c) 2016 by Tatsuhiko Miyagawa.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2015 by Tatsuhiko Miyagawa.
+This software is Copyright (c) 2016 by Tatsuhiko Miyagawa.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/MANIFEST
new/Test-Synopsis-0.13/MANIFEST
--- old/Test-Synopsis-0.12/MANIFEST 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/MANIFEST 2016-01-04 23:59:35.000000000 +0100
@@ -15,6 +15,7 @@
t/02-END-token-errors.t
t/03-end-in-pod.t
t/04-HEREDOC.t
+t/05-multi-chunks-clash.t
t/05-multi-files-clash.t
t/06-for.t
t/07-nopod.t
@@ -35,6 +36,7 @@
t/lib/Test10InPodSkipWithBegin.pm
t/lib/Test11DATAInPod.pm
t/lib/Test12DATAInPodWithError.pm
+t/lib/TestMultipleChunks.pm
xt/author/eol.t
xt/author/mojibake.t
xt/author/no-tabs.t
@@ -50,4 +52,3 @@
xt/release/minimum-version.t
xt/release/portability.t
xt/release/synopsis.t
-xt/release/unused-vars.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/META.json
new/Test-Synopsis-0.13/META.json
--- old/Test-Synopsis-0.12/META.json 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/META.json 2016-01-04 23:59:35.000000000 +0100
@@ -48,7 +48,6 @@
"Test::Pod::Coverage" : "1.08",
"Test::Spelling" : "0.12",
"Test::Synopsis" : "0",
- "Test::Vars" : "0",
"Test::Version" : "1"
}
},
@@ -79,7 +78,7 @@
"provides" : {
"Test::Synopsis" : {
"file" : "lib/Test/Synopsis.pm",
- "version" : "0.12"
+ "version" : "0.13"
}
},
"release_status" : "stable",
@@ -94,7 +93,7 @@
"web" : "https://github.com/miyagawa/test-synopsis";
}
},
- "version" : "0.12",
+ "version" : "0.13",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.022000"
@@ -363,11 +362,6 @@
"version" : "2.000006"
},
{
- "class" : "Dist::Zilla::Plugin::Test::UnusedVars",
- "name" : "@Author::ZOFFIX/Test::UnusedVars",
- "version" : "2.000007"
- },
- {
"class" : "Dist::Zilla::Plugin::Test::CPAN::Changes",
"name" : "@Author::ZOFFIX/Test::CPAN::Changes",
"version" : "0.009"
@@ -498,7 +492,7 @@
"branch" : null,
"changelog" : "Changes",
"signed" : 0,
- "tag" : "0.12",
+ "tag" : "0.13",
"tag_format" : "%v",
"tag_message" : "%v"
},
@@ -648,6 +642,7 @@
"Marcel Grünauer <[email protected]>",
"Mike Doherty <[email protected]>",
"Patrice Clement <[email protected]>",
+ "Greg Sabino Mullane <[email protected]>",
"Zoffix Znet <[email protected]>"
]
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/META.yml
new/Test-Synopsis-0.13/META.yml
--- old/Test-Synopsis-0.12/META.yml 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/META.yml 2016-01-04 23:59:35.000000000 +0100
@@ -24,7 +24,7 @@
provides:
Test::Synopsis:
file: lib/Test/Synopsis.pm
- version: '0.12'
+ version: '0.13'
requires:
ExtUtils::Manifest: '0'
Pod::Parser: '0'
@@ -37,7 +37,7 @@
bugtracker: https://github.com/miyagawa/test-synopsis/issues
homepage: http://metacpan.org/release/Test-Synopsis
repository: git://github.com/miyagawa/test-synopsis.git
-version: '0.12'
+version: '0.13'
x_Dist_Zilla:
perl:
version: '5.022000'
@@ -246,10 +246,6 @@
name: '@Author::ZOFFIX/Test::Synopsis'
version: '2.000006'
-
- class: Dist::Zilla::Plugin::Test::UnusedVars
- name: '@Author::ZOFFIX/Test::UnusedVars'
- version: '2.000007'
- -
class: Dist::Zilla::Plugin::Test::CPAN::Changes
name: '@Author::ZOFFIX/Test::CPAN::Changes'
version: '0.009'
@@ -349,7 +345,7 @@
branch: ~
changelog: Changes
signed: 0
- tag: '0.12'
+ tag: '0.13'
tag_format: '%v'
tag_message: '%v'
Dist::Zilla::Role::Git::Repo:
@@ -460,4 +456,5 @@
- 'Marcel Grünauer <[email protected]>'
- 'Mike Doherty <[email protected]>'
- 'Patrice Clement <[email protected]>'
+ - 'Greg Sabino Mullane <[email protected]>'
- 'Zoffix Znet <[email protected]>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/Makefile.PL
new/Test-Synopsis-0.13/Makefile.PL
--- old/Test-Synopsis-0.12/Makefile.PL 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/Makefile.PL 2016-01-04 23:59:35.000000000 +0100
@@ -33,7 +33,7 @@
"Test::More" => 0,
"blib" => "1.01"
},
- "VERSION" => "0.12",
+ "VERSION" => "0.13",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/README
new/Test-Synopsis-0.13/README
--- old/Test-Synopsis-0.12/README 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/README 2016-01-04 23:59:35.000000000 +0100
@@ -1,11 +1,11 @@
This archive contains the distribution Test-Synopsis,
-version 0.12:
+version 0.13:
Test your SYNOPSIS code
-This software is copyright (c) 2015 by Tatsuhiko Miyagawa.
+This software is copyright (c) 2016 by Tatsuhiko Miyagawa.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/README.md
new/Test-Synopsis-0.13/README.md
--- old/Test-Synopsis-0.12/README.md 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/README.md 2016-01-04 23:59:35.000000000 +0100
@@ -145,9 +145,6 @@
the ending of the HEREDOC at the same indent as the
first line of the code of your SYNOPSIS.
-The code from multiple files will be executed under the same perl process,
-so it's possible to run into issues such as, say, sub redefinition
-warnings. Currently, there's no plan to fix this, but patches are welcome.
Redefinition warnings can be turned off with
=for test_synopsis
@@ -183,6 +180,8 @@
- Kevin Ryde ([KRYDE](https://metacpan.org/author/KRYDE))
- Marcel Grünauer ([MARCEL](https://metacpan.org/author/MARCEL))
- Mike Doherty ([DOHERTY](https://metacpan.org/author/DOHERTY))
+- Patrice Clement ([monsieurp](https://github.com/monsieurp))
+- Greg Sabino Mullane ([TURNSTEP](https://metacpan.org/author/TURNSTEP))
- Zoffix Znet ([ZOFFIX](https://metacpan.org/author/ZOFFIX))
# LICENSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/dist.ini
new/Test-Synopsis-0.13/dist.ini
--- old/Test-Synopsis-0.12/dist.ini 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/dist.ini 2016-01-04 23:59:35.000000000 +0100
@@ -6,6 +6,7 @@
[@Author::ZOFFIX]
-remove = AutoMetaResources
-remove = Test::Pod::LinkCheck ; Failing for a strange reason (firewalled?)
+-remove = Test::UnusedVars ; reporting false positives
-remove = Git::NextVersion
-remove = Git::Tag
-remove = Git::Check
@@ -29,6 +30,7 @@
contributor = Marcel Grünauer <[email protected]>
contributor = Mike Doherty <[email protected]>
contributor = Patrice Clement <[email protected]>
+contributor = Greg Sabino Mullane <[email protected]>
contributor = Zoffix Znet <[email protected]>
[Git::NextVersion]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/lib/Test/Synopsis.pm
new/Test-Synopsis-0.13/lib/Test/Synopsis.pm
--- old/Test-Synopsis-0.12/lib/Test/Synopsis.pm 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/lib/Test/Synopsis.pm 2016-01-04 23:59:35.000000000
+0100
@@ -4,7 +4,7 @@
use warnings;
use 5.008_001;
-our $VERSION = '0.12'; # VERSION
+our $VERSION = '0.13'; # VERSION
use base qw( Test::Builder::Module );
our @EXPORT = qw( synopsis_ok all_synopsis_ok );
@@ -13,46 +13,60 @@
my %ARGS;
# = ( dump_all_code_on_error => 1 ); ### REMOVE THIS FOR PRODUCTION!!!
sub all_synopsis_ok {
- %ARGS = @_;
+ %ARGS = @_;
- my $manifest = maniread();
- my @files = grep m!^lib/.*\.p(od|m)$!, keys %$manifest;
- __PACKAGE__->builder->plan(@files
- ? (tests => 1 * @files)
- : (skip_all => 'No files in lib to test')
- );
- synopsis_ok(@files);
+ my $manifest = maniread();
+ my @files = grep m!^lib/.*\.p(od|m)$!, keys %$manifest
+ or __PACKAGE__->builder->skip_all('No files in lib to test');
+
+ __PACKAGE__->builder->no_plan();
+
+ synopsis_ok(@files);
}
sub synopsis_ok {
my @modules = @_;
for my $module (@modules) {
- my($code, $line, @option) = extract_synopsis($module);
- unless ($code) {
+ my($codes, $line, @option) = extract_synopsis($module);
+ unless (keys %$codes) {
__PACKAGE__->builder->ok(1, "No SYNOPSIS code");
next;
}
my $option = join(";", @option);
- my $test = qq(#line $line "$module"\n$option; sub { $code });
- my $ok = _compile($test);
- # See if the user is trying to skip this test using the =for block
- if ( !$ok and $@=~/^SKIP:.+BEGIN failed--compilation aborted/si ) {
- $@ =~ s/^SKIP:\s*//;
- $@ =~ s/\nBEGIN failed--compilation aborted at.+//s;
- __PACKAGE__->builder->skip($@, 1);
- }
- else {
- __PACKAGE__->builder->ok($ok, $module);
- __PACKAGE__->builder->diag(
+ for my $entry (sort { $a <=> $b } keys %$codes) {
+ for my $file (sort keys %{$codes->{$entry}}) {
+ my $number_sections = keys %{ $codes->{$entry}{$file} };
+ for my $section (sort { $a <=> $b } keys %{ $codes->{$entry}{$file} })
{
+ my $code = $codes->{$entry}{$file}{$section};
+ my $test = qq(#line $line "$module"\n$option; sub { $code });
+ my $ok = _compile($test);
+
+ # See if the user is trying to skip this test using the =for block
+ if ( !$ok and $@=~/^SKIP:.+BEGIN failed--compilation aborted/si ) {
+ $@ =~ s/^SKIP:\s*//;
+ $@ =~ s/\nBEGIN failed--compilation aborted at.+//s;
+ __PACKAGE__->builder->skip($@, 1);
+ }
+ else {
+ my $sectionname = $file;
+ ## Show section number if more than one section only
+ if ($number_sections > 1) {
+ $sectionname .= " (section $section)";
+ }
+ __PACKAGE__->builder->ok($ok, $sectionname);
+ __PACKAGE__->builder->diag(
$ARGS{dump_all_code_on_error}
- ? "$@\nEVALED CODE:\n$test"
- : $@
- ) unless $ok;
+ ? "$@\nEVALED CODE:\n$test"
+ : $@
+ ) unless $ok;
+ }
}
+ }
}
+ }
}
my $sandbox = 0;
@@ -70,18 +84,24 @@
my $parser = Test::Synopsis::Parser->new;
$parser->parse_from_file ($file);
- my $test_synopsis = $parser->{'test_synopsis'} || '';
- # don't want __END__ blocks in SYNOPSIS chopping our '}' in wrapper sub
- # same goes for __DATA__ and although we'll be sticking an extra '}'
- # into its contents; it shouldn't matter since the code shouldn't be
- # run anyways.
- $test_synopsis =~ s/(?=(?:__END__|__DATA__)\s*$)/}\n/m;
-
- # trim indent whitespace to make HEREDOCs work properly
- # we'll assume the indent of the first line is the proper indent
- # to use for the whole block
- $test_synopsis =~ s/(\A(\s+).+)/ (my $x = $1) =~ s{^$2}{}gm; $x /se;
+ for my $entry (values %{$parser->{'test_synopsis_text'}}) {
+ for my $sectionhash (values %{$entry}) {
+ for my $section_text ( values %{$sectionhash}) {
+
+ # don't want __END__ blocks in SYNOPSIS chopping our '}' in wrapper sub
+ # same goes for __DATA__ and although we'll be sticking an extra '}'
+ # into its contents; it shouldn't matter since the code shouldn't be
+ # run anyways.
+ $section_text =~ s/(?=(?:__END__|__DATA__)\s*$)/}\n/m;
+
+ # trim indent whitespace to make HEREDOCs work properly
+ # we'll assume the indent of the first line is the proper indent
+ # to use for the whole block
+ $section_text =~ s/(\A(\s+).+)/ (my $x = $1) =~ s{^$2}{}gm; $x /se;
+ }
+ }
+ }
# Correct the reported line number of the error, depending on what
# =for options we were supplied with.
@@ -89,7 +109,7 @@
$options_lines = $options_lines =~ tr/\n/\n/;
return (
- $test_synopsis,
+ $parser->{'test_synopsis_text'},
($parser->{'test_synopsis_linenum'} || 0) - ($options_lines || 0),
@{ $parser->{'test_synopsis_options'} }
);
@@ -103,15 +123,21 @@
use base 'Pod::Parser';
sub new {
my $class = shift;
- return $class->SUPER::new(
- @_, within_begin => '', test_synopsis_options => []
+ my $self = $class->SUPER::new(
+ @_,
+ within_begin => '',
+ test_synopsis_options => [],
+ test_synopsis_section => {},
+ test_synopsis_sequence => 1,
+ test_synopsis_current_file => '',
+ test_synopsis_text => {},
);
+ return $self;
}
sub command {
my $self = shift;
my ($command, $text) = @_;
- ## print "command: '$command' -- '$text'\n";
if ($command eq 'for') {
if ($text =~ /^test_synopsis\s+(.*)/s) {
@@ -146,17 +172,43 @@
sub verbatim {
my ( $self, $text, $linenum ) = @_;
+
+ ## If we are in a new file, adjust some things.
+ if ($self->{_INFILE} ne $self->{test_synopsis_current_file}) {
+ $self->{test_synopsis_current_file} = $self->{_INFILE};
+ $self->{test_synopsis_section}{$self->{_INFILE}} = 0;
+ $self->{test_synopsis_blocknumber} = 1;
+ $self->{test_synopsis_oldblocknumber} = 0;
+ }
+
+ ## If we are starting a new section, adjust some things.
+ if ($self->{test_synopsis_blocknumber} !=
$self->{test_synopsis_oldblocknumber}) {
+ $self->{test_synopsis_oldblocknumber} = $self->{test_synopsis_blocknumber};
+ $self->{test_synopsis_section}{$self->{_INFILE}}++;
+ }
+
if ( $self->{'within_begin'} =~ /^test_synopsis\b/ ) {
push @{$self->{'test_synopsis_options'}}, $text;
} elsif ( $self->{'within_synopsis'} && ! $self->{'within_begin'} ) {
$self->{'test_synopsis_linenum'} = $linenum; # first occurance
- $self->{'test_synopsis'} .= $text;
+ $self->{test_synopsis_text}{
+ ## Maintain same order on checking as was read in:
+ $self->{test_synopsis_sequence}
+ }{
+ ## Current file we are parsing:
+ $self->{_INFILE}
+ }{
+ ## What section of the current file we are in:
+ $self->{test_synopsis_section}{$self->{_INFILE}}
+ } .= $text;
}
return '';
}
sub textblock {
# ignore text paragraphs, only take "verbatim" blocks to be code
+ my $self = shift;
+ $self->{test_synopsis_blocknumber}++;
return '';
}
@@ -319,9 +371,6 @@
the ending of the HEREDOC at the same indent as the
first line of the code of your SYNOPSIS.
-The code from multiple files will be executed under the same perl process,
-so it's possible to run into issues such as, say, sub redefinition
-warnings. Currently, there's no plan to fix this, but patches are welcome.
Redefinition warnings can be turned off with
=for test_synopsis
@@ -362,6 +411,10 @@
=item * Mike Doherty (L<DOHERTY|https://metacpan.org/author/DOHERTY>)
+=item * Patrice Clement (L<monsieurp|https://github.com/monsieurp>)
+
+=item * Greg Sabino Mullane (L<TURNSTEP|https://metacpan.org/author/TURNSTEP>)
+
=item * Zoffix Znet (L<ZOFFIX|https://metacpan.org/author/ZOFFIX>)
=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-Synopsis-0.12/t/01-fail-if-SYNOPSIS-has-errors.t
new/Test-Synopsis-0.13/t/01-fail-if-SYNOPSIS-has-errors.t
--- old/Test-Synopsis-0.12/t/01-fail-if-SYNOPSIS-has-errors.t 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/01-fail-if-SYNOPSIS-has-errors.t 2016-01-04
23:59:35.000000000 +0100
@@ -16,3 +16,4 @@
);
synopsis_ok("t/lib/BrokenSYNOPSIS01.pm");
test_test("synopsis fail works");
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/03-end-in-pod.t
new/Test-Synopsis-0.13/t/03-end-in-pod.t
--- old/Test-Synopsis-0.12/t/03-end-in-pod.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/03-end-in-pod.t 2016-01-04 23:59:35.000000000
+0100
@@ -1,5 +1,3 @@
use Test::More tests => 1;
use Test::Synopsis;
synopsis_ok("t/lib/ENDInPod.pm");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/04-HEREDOC.t
new/Test-Synopsis-0.13/t/04-HEREDOC.t
--- old/Test-Synopsis-0.12/t/04-HEREDOC.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/04-HEREDOC.t 2016-01-04 23:59:35.000000000
+0100
@@ -1,5 +1,3 @@
use Test::More tests => 1;
use Test::Synopsis;
synopsis_ok("t/lib/Test04HEREDOC.pm");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/05-multi-chunks-clash.t
new/Test-Synopsis-0.13/t/05-multi-chunks-clash.t
--- old/Test-Synopsis-0.12/t/05-multi-chunks-clash.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Test-Synopsis-0.13/t/05-multi-chunks-clash.t 2016-01-04
23:59:35.000000000 +0100
@@ -0,0 +1,13 @@
+use Test::Builder::Tester tests => 1;
+use Test::More;
+use Test::Synopsis;
+
+test_out('ok 1 - t/lib/TestMultipleChunks.pm (section 1)
+not ok 2 - t/lib/TestMultipleChunks.pm (section 2)');
+
+test_diag(q{ Failed test 't/lib/TestMultipleChunks.pm (section 2)'
+# at t/05-multi-chunks-clash.t line 12.
+# Bareword "bob" not allowed while "strict subs" in use at
t/lib/TestMultipleChunks.pm line 31.});
+
+synopsis_ok("t/lib/TestMultipleChunks.pm");
+test_test("synopsis with multiple chunks fails");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/05-multi-files-clash.t
new/Test-Synopsis-0.13/t/05-multi-files-clash.t
--- old/Test-Synopsis-0.12/t/05-multi-files-clash.t 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/05-multi-files-clash.t 2016-01-04
23:59:35.000000000 +0100
@@ -4,5 +4,4 @@
# Test tests whether SYNOPSIS in separate files clashes
# See RT#76856
-synopsis_ok("t/lib/Test03.pm");
-synopsis_ok("t/lib/Test03Other.pm");
+synopsis_ok("t/lib/Test03.pm", "t/lib/Test03Other.pm");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/07-nopod.t
new/Test-Synopsis-0.13/t/07-nopod.t
--- old/Test-Synopsis-0.12/t/07-nopod.t 2015-12-27 18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/07-nopod.t 2016-01-04 23:59:35.000000000 +0100
@@ -1,5 +1,3 @@
use Test::More tests => 1;
use Test::Synopsis;
synopsis_ok("t/lib/NoPod.pm");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/08-plain-text-in-pod.t
new/Test-Synopsis-0.13/t/08-plain-text-in-pod.t
--- old/Test-Synopsis-0.12/t/08-plain-text-in-pod.t 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/08-plain-text-in-pod.t 2016-01-04
23:59:35.000000000 +0100
@@ -1,5 +1,3 @@
-use Test::More tests => 1;
+use Test::More tests => 2;
use Test::Synopsis;
synopsis_ok("t/lib/PlainTextInPod.pm");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/09-synopsis.t
new/Test-Synopsis-0.13/t/09-synopsis.t
--- old/Test-Synopsis-0.12/t/09-synopsis.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/09-synopsis.t 2016-01-04 23:59:35.000000000
+0100
@@ -1,4 +1,2 @@
use Test::Synopsis;
all_synopsis_ok(dump_all_code_on_error => 1);
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/10-in-pod-skip.t
new/Test-Synopsis-0.13/t/10-in-pod-skip.t
--- old/Test-Synopsis-0.12/t/10-in-pod-skip.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/10-in-pod-skip.t 2016-01-04 23:59:35.000000000
+0100
@@ -1,5 +1,3 @@
use Test::More tests => 1;
use Test::Synopsis;
synopsis_ok("t/lib/Test10InPodSkipWithBegin.pm");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/11-DATA-in-pod.t
new/Test-Synopsis-0.13/t/11-DATA-in-pod.t
--- old/Test-Synopsis-0.12/t/11-DATA-in-pod.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/11-DATA-in-pod.t 2016-01-04 23:59:35.000000000
+0100
@@ -1,5 +1,3 @@
use Test::More tests => 1;
use Test::Synopsis;
synopsis_ok("t/lib/Test11DATAInPod.pm");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/lib/Test03.pm
new/Test-Synopsis-0.13/t/lib/Test03.pm
--- old/Test-Synopsis-0.12/t/lib/Test03.pm 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/lib/Test03.pm 2016-01-04 23:59:35.000000000
+0100
@@ -16,4 +16,6 @@
BEGIN { our $Foo = 42; }
-=cut
\ No newline at end of file
+ sub foobar { return 1; }
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/lib/Test03Other.pm
new/Test-Synopsis-0.13/t/lib/Test03Other.pm
--- old/Test-Synopsis-0.12/t/lib/Test03Other.pm 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/t/lib/Test03Other.pm 2016-01-04 23:59:35.000000000
+0100
@@ -19,4 +19,6 @@
die "CLASHING!" if grep $_ eq 'Foo', keys %{ __PACKAGE__ .'::' };
}
-=cut
\ No newline at end of file
+ sub foobar { return 2; }
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/lib/Test04HEREDOC.pm
new/Test-Synopsis-0.13/t/lib/Test04HEREDOC.pm
--- old/Test-Synopsis-0.12/t/lib/Test04HEREDOC.pm 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/lib/Test04HEREDOC.pm 2016-01-04
23:59:35.000000000 +0100
@@ -18,4 +18,4 @@
blargs
END
-=cut
\ No newline at end of file
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/lib/Test10HEREDOC.pm
new/Test-Synopsis-0.13/t/lib/Test10HEREDOC.pm
--- old/Test-Synopsis-0.12/t/lib/Test10HEREDOC.pm 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/lib/Test10HEREDOC.pm 2016-01-04
23:59:35.000000000 +0100
@@ -18,4 +18,4 @@
blargs
END
-=cut
\ No newline at end of file
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/lib/Test10InPodSkipWithBegin.pm
new/Test-Synopsis-0.13/t/lib/Test10InPodSkipWithBegin.pm
--- old/Test-Synopsis-0.12/t/lib/Test10InPodSkipWithBegin.pm 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/t/lib/Test10InPodSkipWithBegin.pm 2016-01-04
23:59:35.000000000 +0100
@@ -16,4 +16,4 @@
$x;
-=cut
\ No newline at end of file
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/t/lib/TestMultipleChunks.pm
new/Test-Synopsis-0.13/t/lib/TestMultipleChunks.pm
--- old/Test-Synopsis-0.12/t/lib/TestMultipleChunks.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Test-Synopsis-0.13/t/lib/TestMultipleChunks.pm 2016-01-04
23:59:35.000000000 +0100
@@ -0,0 +1,35 @@
+package Test::Synopsis::__TestBait_TestMultipleChunks;
+# Dummy module used during testing of Test::Synopsis
+
+use strict;
+use warnings;
+
+# VERSION
+
+1;
+
+=pod
+
+=head1 SYNOPSIS
+
+=for test_synopsis use warnings FATAL => 'all';
+
+First sample code:
+
+ my $x = 42;
+ my $secondline = 1;
+
+ my $fourthline = 4;
+
+Second sample code:
+
+ my $x = 43;
+
+ my $fourthline = 0;
+ bob;
+
+=head1 DESCRIPTION
+
+bleh
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/xt/author/eol.t
new/Test-Synopsis-0.13/xt/author/eol.t
--- old/Test-Synopsis-0.12/xt/author/eol.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/xt/author/eol.t 2016-01-04 23:59:35.000000000
+0100
@@ -13,6 +13,7 @@
't/02-END-token-errors.t',
't/03-end-in-pod.t',
't/04-HEREDOC.t',
+ 't/05-multi-chunks-clash.t',
't/05-multi-files-clash.t',
't/06-for.t',
't/07-nopod.t',
@@ -32,7 +33,8 @@
't/lib/Test10HEREDOC.pm',
't/lib/Test10InPodSkipWithBegin.pm',
't/lib/Test11DATAInPod.pm',
- 't/lib/Test12DATAInPodWithError.pm'
+ 't/lib/Test12DATAInPodWithError.pm',
+ 't/lib/TestMultipleChunks.pm'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/xt/author/no-tabs.t
new/Test-Synopsis-0.13/xt/author/no-tabs.t
--- old/Test-Synopsis-0.12/xt/author/no-tabs.t 2015-12-27 18:58:28.000000000
+0100
+++ new/Test-Synopsis-0.13/xt/author/no-tabs.t 2016-01-04 23:59:35.000000000
+0100
@@ -13,6 +13,7 @@
't/02-END-token-errors.t',
't/03-end-in-pod.t',
't/04-HEREDOC.t',
+ 't/05-multi-chunks-clash.t',
't/05-multi-files-clash.t',
't/06-for.t',
't/07-nopod.t',
@@ -32,7 +33,8 @@
't/lib/Test10HEREDOC.pm',
't/lib/Test10InPodSkipWithBegin.pm',
't/lib/Test11DATAInPod.pm',
- 't/lib/Test12DATAInPodWithError.pm'
+ 't/lib/Test12DATAInPodWithError.pm',
+ 't/lib/TestMultipleChunks.pm'
);
notabs_ok($_) foreach @files;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/xt/author/pod-spell.t
new/Test-Synopsis-0.13/xt/author/pod-spell.t
--- old/Test-Synopsis-0.12/xt/author/pod-spell.t 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/xt/author/pod-spell.t 2016-01-04
23:59:35.000000000 +0100
@@ -25,6 +25,10 @@
Patrice
Clement
monsieurp
+Greg
+Sabino
+Mullane
+turnstep
Zoffix
Znet
zoffix
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Synopsis-0.12/xt/release/unused-vars.t
new/Test-Synopsis-0.13/xt/release/unused-vars.t
--- old/Test-Synopsis-0.12/xt/release/unused-vars.t 2015-12-27
18:58:28.000000000 +0100
+++ new/Test-Synopsis-0.13/xt/release/unused-vars.t 1970-01-01
01:00:00.000000000 +0100
@@ -1,14 +0,0 @@
-#!perl
-
-use Test::More 0.96 tests => 1;
-eval { require Test::Vars };
-
-SKIP: {
- skip 1 => 'Test::Vars required for testing for unused vars'
- if $@;
- Test::Vars->import;
-
- subtest 'unused vars' => sub {
-all_vars_ok();
- };
-};
