Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Test-CheckManifest for openSUSE:Factory checked in at 2023-02-16 16:56:02 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-CheckManifest (Old) and /work/SRC/openSUSE:Factory/.perl-Test-CheckManifest.new.22824 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-CheckManifest" Thu Feb 16 16:56:02 2023 rev:6 rq:1066007 version:1.43 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-CheckManifest/perl-Test-CheckManifest.changes 2019-06-01 09:49:43.439319693 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-CheckManifest.new.22824/perl-Test-CheckManifest.changes 2023-02-16 16:56:15.530798222 +0100 @@ -1,0 +2,15 @@ +Thu Feb 2 03:10:14 UTC 2023 - Tina Müller <timueller+p...@suse.de> + +- updated to 1.43 + see /usr/share/doc/packages/perl-Test-CheckManifest/Changes + + 1.43 2023-02-01 08:32:00 + + * $home is usually given without trailing slash, + the $files_in_skip is taken from MANIFEST.SKIP which usually contain regexes + for files relative the $home. Therefore the remaining leading slashes in $localfile (thanks to bschmalhofer) + * Fix home removal on Win32 (thanks to E. Choroba) + * Replace string eval with block eval (thanks to Paul Cochrane) + * various "infrastructure" changes (thanks to Paul Cochrane) + +------------------------------------------------------------------- Old: ---- Test-CheckManifest-1.42.tar.gz New: ---- Test-CheckManifest-1.43.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-CheckManifest.spec ++++++ --- /var/tmp/diff_new_pack.bFy2u9/_old 2023-02-16 16:56:16.070800379 +0100 +++ /var/tmp/diff_new_pack.bFy2u9/_new 2023-02-16 16:56:16.074800396 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-CheckManifest # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2023 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,18 +16,16 @@ # +%define cpan_name Test-CheckManifest Name: perl-Test-CheckManifest -Version: 1.42 +Version: 1.43 Release: 0 -%define cpan_name Test-CheckManifest -Summary: Check if your Manifest matches your distro License: Artistic-2.0 -Group: Development/Libraries/Perl -Url: https://metacpan.org/release/%{cpan_name} +Summary: Check if your Manifest matches your distro +URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/R/RE/RENEEB/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(CPAN::Meta::YAML) @@ -40,11 +38,11 @@ Check if your Manifest matches your distro %prep -%setup -q -n %{cpan_name}-%{version} +%autosetup -n %{cpan_name}-%{version} %build perl Makefile.PL INSTALLDIRS=vendor -make %{?_smp_mflags} +%make_build %check touch dummy.list @@ -58,7 +56,6 @@ %perl_gen_filelist %files -f %{name}.files -%defattr(-,root,root,755) %doc Changes CONTRIBUTING.md CONTRIBUTORS README %license LICENSE ++++++ Test-CheckManifest-1.42.tar.gz -> Test-CheckManifest-1.43.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/CONTRIBUTORS new/Test-CheckManifest-1.43/CONTRIBUTORS --- old/Test-CheckManifest-1.42/CONTRIBUTORS 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/CONTRIBUTORS 2023-02-01 08:45:14.000000000 +0100 @@ -6,12 +6,15 @@ patches, bug reports, help with troubleshooting, etc. A huge 'thank you' to all of them. + * bernhard * Dan Book * doug + * E. Choroba * LorenzoTa * LorenzoTa * Michael Gray * Mohammad S Anwar + * Paul Cochrane * reneeb * reneeb * Renee diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/Changes new/Test-CheckManifest-1.43/Changes --- old/Test-CheckManifest-1.42/Changes 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/Changes 2023-02-01 08:45:14.000000000 +0100 @@ -1,6 +1,15 @@ Revision history for Perl extension Test::CheckManifest. ======================================================== +1.43 2023-02-01 08:32:00 + + * $home is usually given without trailing slash, + the $files_in_skip is taken from MANIFEST.SKIP which usually contain regexes + for files relative the $home. Therefore the remaining leading slashes in $localfile (thanks to bschmalhofer) + * Fix home removal on Win32 (thanks to E. Choroba) + * Replace string eval with block eval (thanks to Paul Cochrane) + * various "infrastructure" changes (thanks to Paul Cochrane) + 1.42 2019-02-22 17:41:00 * add section in doc that explains how to replace test scripts using Test::CheckManifest @@ -163,7 +172,7 @@ 0.6 2006-11-21 Test scripts improved - + 0.5 2006-11-18 - bugfix: T::CM now works under taint mode (http://rt.cpan.org/Public/Bug/Display.html?id=22927) + added : ok_manifest accepts hashref where specific dirs can be excluded @@ -175,7 +184,7 @@ 0.3 2006-10-18 - bugfix: CheckManifest works under Solaris now -0.2 2006-10-03 +0.2 2006-10-03 - bugfix: some files excluded from test 0.1 2006-09-29 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/META.json new/Test-CheckManifest-1.43/META.json --- old/Test-CheckManifest-1.42/META.json 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/META.json 2023-02-01 08:45:14.000000000 +0100 @@ -4,13 +4,13 @@ "Renee Baecker <ren...@cpan.org>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010", + "generated_by" : "Dist::Zilla version 6.012, CPAN::Meta::Converter version 2.150010", "license" : [ "artistic_2" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "Test-CheckManifest", "prereqs" : { @@ -52,7 +52,7 @@ "provides" : { "Test::CheckManifest" : { "file" : "lib/Test/CheckManifest.pm", - "version" : "1.42" + "version" : "1.43" } }, "release_status" : "stable", @@ -67,18 +67,22 @@ "web" : "http://github.com/reneeb/Test-CheckManifest" } }, - "version" : "1.42", + "version" : "1.43", "x_contributors" : [ + "bernhard <bernhard.schmalho...@gmx.de>", "Dan Book <gri...@gmail.com>", "doug <d...@hcsw.org>", + "E. Choroba <chor...@matfyz.cz>", "LorenzoTa <lorenz...@users.noreply.github.com>", "LorenzoTa <lorta...@gmail.com>", "Michael Gray <mich...@michaelgray.info>", "Mohammad S Anwar <mohammad.an...@yahoo.com>", + "Paul Cochrane <paul.cochr...@posteo.de>", "reneeb <git...@renee-baecker.de>", "reneeb <i...@perl-services.de>", "Renee <r...@perl-services.de>" ], - "x_serialization_backend" : "JSON::XS version 3.04" + "x_generated_by_perl" : "v5.30.0", + "x_serialization_backend" : "Cpanel::JSON::XS version 4.19" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/META.yml new/Test-CheckManifest-1.43/META.yml --- old/Test-CheckManifest-1.42/META.yml 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/META.yml 2023-02-01 08:45:14.000000000 +0100 @@ -10,7 +10,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010' +generated_by: 'Dist::Zilla version 6.012, CPAN::Meta::Converter version 2.150010' license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -19,7 +19,7 @@ provides: Test::CheckManifest: file: lib/Test/CheckManifest.pm - version: '1.42' + version: '1.43' requires: Carp: '0' Cwd: '3.75' @@ -35,15 +35,19 @@ bugtracker: http://github.com/reneeb/Test-CheckManifest/issues homepage: http://github.com/reneeb/Test-CheckManifest repository: http://github.com/reneeb/Test-CheckManifest.git -version: '1.42' +version: '1.43' x_contributors: + - 'bernhard <bernhard.schmalho...@gmx.de>' - 'Dan Book <gri...@gmail.com>' - 'doug <d...@hcsw.org>' + - 'E. Choroba <chor...@matfyz.cz>' - 'LorenzoTa <lorenz...@users.noreply.github.com>' - 'LorenzoTa <lorta...@gmail.com>' - 'Michael Gray <mich...@michaelgray.info>' - 'Mohammad S Anwar <mohammad.an...@yahoo.com>' + - 'Paul Cochrane <paul.cochr...@posteo.de>' - 'reneeb <git...@renee-baecker.de>' - 'reneeb <i...@perl-services.de>' - 'Renee <r...@perl-services.de>' -x_serialization_backend: 'YAML::Tiny version 1.70' +x_generated_by_perl: v5.30.0 +x_serialization_backend: 'YAML::Tiny version 1.73' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/Makefile.PL new/Test-CheckManifest-1.43/Makefile.PL --- old/Test-CheckManifest-1.42/Makefile.PL 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/Makefile.PL 2023-02-01 08:45:14.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.010. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.012. use strict; use warnings; @@ -33,7 +33,7 @@ "IO::File" => 0, "Pod::Coverage::TrustPod" => 0 }, - "VERSION" => "1.42", + "VERSION" => "1.43", "test" => { "TESTS" => "t/*.t t/extra/*.t t/xt/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/README new/Test-CheckManifest-1.43/README --- old/Test-CheckManifest-1.42/README 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/README 2023-02-01 08:45:14.000000000 +0100 @@ -4,7 +4,7 @@ VERSION - version 1.42 + version 1.43 SYNOPSIS @@ -51,8 +51,8 @@ You can also combine "filter" and "exclude" with 'and' or 'or' default is 'or': - ok_manifest({exclude => ['/var/test'], - filter => [qr/\.svn/], + ok_manifest({exclude => ['/var/test'], + filter => [qr/\.svn/], bool => 'and'}); These files have to be named in the MANIFEST: @@ -91,7 +91,7 @@ use Test::More tests => 2; use ExtUtils::Manifest; - + is_deeply [ ExtUtils::Manifest::manicheck() ], [], 'missing'; is_deeply [ ExtUtils::Manifest::filecheck() ], [], 'extra'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/lib/Test/CheckManifest.pm new/Test-CheckManifest-1.43/lib/Test/CheckManifest.pm --- old/Test-CheckManifest-1.42/lib/Test/CheckManifest.pm 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/lib/Test/CheckManifest.pm 2023-02-01 08:45:14.000000000 +0100 @@ -4,6 +4,7 @@ use strict; use warnings; +use 5.008; use Cwd; use Carp; @@ -13,7 +14,7 @@ use File::Find; use Scalar::Util qw(blessed); -our $VERSION = '1.42'; +our $VERSION = '1.43'; our $VERBOSE = 1; our $HOME; our $test_bool = 1; @@ -33,13 +34,13 @@ my %plan = @_; for my $func ( qw( ok_manifest ) ) { - no strict 'refs'; + no strict 'refs'; ## no critic *{$caller."::".$func} = \&$func; } $test->exported_to($caller); $test->plan(%plan); - + $plan = 1 if(exists $plan{tests}); } @@ -66,7 +67,7 @@ my $bool = lc( $hashref->{bool} || '' ); $hashref->{bool} = $bool && $bool eq 'and' ? 'and' : 'or'; - + return $hashref, $msg; } @@ -88,7 +89,7 @@ push @excluded, $path; } - + return \@excluded; } @@ -140,9 +141,9 @@ sub ok_manifest { my ($hashref,$msg) = _validate_args( @_ ); - + $test->plan(tests => 1) if !$plan; - + my $home = _find_home( $hashref ); my $manifest = File::Spec->catfile( $home, 'MANIFEST' ); @@ -155,7 +156,7 @@ $test->diag( "No files in MANIFEST found (is it readable?)" ); return; } - + my $skip_path = File::Spec->catfile( $home, 'MANIFEST.SKIP' ); my @skip_files = _read_file( $skip_path ); my @skip_rx = map{ qr/$_/ }@skip_files; @@ -178,7 +179,7 @@ \@skip_rx, $home, ); - + my $abs = File::Spec->rel2abs($file); $is_excluded ? @@ -229,14 +230,14 @@ my %seen_files = (); @dup_files = map { $seen_files{$_}++ ? $_ : () } @manifest; $bool = 0 if scalar @dup_files > 0; - + my $diag = 'The following files are not named in the MANIFEST file: '. join(', ', sort keys %missing_files); my $plus = 'The following files are not part of distro but named in the MANIFEST file: '. join(', ',@files_plus); my $dup = 'The following files appeared more than once in the MANIFEST file: '. join(', ',@dup_files); - + my $success; if ( !$ENV{NO_MANIFEST_CHECK} ) { @@ -259,17 +260,17 @@ my ($path) = @_; return if !-r $path; - + my @files; open my $fh, '<', $path; while( my $fh_line = <$fh> ){ chomp $fh_line; - + next if $fh_line =~ m{ \A \s* \# }x; - + my ($file); - + if ( ($file) = $fh_line =~ /^'(\\[\\']|.+)+'\s*/) { $file =~ s/\\([\\'])/$1/g; } @@ -283,7 +284,7 @@ } close $fh; - + chomp @files; { @@ -308,7 +309,12 @@ return 0 if $files_in_skip and 'ARRAY' ne ref $files_in_skip; if ( $files_in_skip ) { - (my $local_file = $file) =~ s{\Q$home\E}{}; + + # $home is usually given without trailing slash, + # the $files_in_skip is taken from MANIFEST.SKIP which usually contain regexes + # for files relative the $home. Therefore the remaining leading slashes in $localfile + my $separator = $^O eq 'MSWin32' ? '[/\\\\]' : '/'; + (my $local_file = $file) =~ s{\Q$home\E$separator*}{}; for my $rx ( @{$files_in_skip} ) { return 1 if $local_file =~ $rx; } @@ -320,7 +326,7 @@ return 1 if @matches; my $is_in_dir = _is_in_dir( $file, $dirref ); - + $bool ||= 'or'; if ( $bool eq 'or' ) { push @matches, $file if grep{ $file =~ /$_/ }@$filter; @@ -331,7 +337,7 @@ push @matches, $file; } } - + return scalar @matches; } @@ -386,7 +392,7 @@ =head1 VERSION -version 1.42 +version 1.43 =head1 SYNOPSIS @@ -434,8 +440,8 @@ You can also combine "filter" and "exclude" with 'and' or 'or' default is 'or': - ok_manifest({exclude => ['/var/test'], - filter => [qr/\.svn/], + ok_manifest({exclude => ['/var/test'], + filter => [qr/\.svn/], bool => 'and'}); These files have to be named in the C<MANIFEST>: @@ -479,7 +485,7 @@ use Test::More tests => 2; use ExtUtils::Manifest; - + is_deeply [ ExtUtils::Manifest::manicheck() ], [], 'missing'; is_deeply [ ExtUtils::Manifest::filecheck() ], [], 'extra'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/01_selftest.t new/Test-CheckManifest-1.43/t/01_selftest.t --- old/Test-CheckManifest-1.42/t/01_selftest.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/01_selftest.t 2023-02-01 08:45:14.000000000 +0100 @@ -6,12 +6,12 @@ use File::Basename; use Test::More; -eval "use Test::CheckManifest tests => 10"; +eval { use Test::CheckManifest tests => 10 }; plan skip_all => "Test::CheckManifest required" if $@; #$Test::CheckManifest::VERBOSE = 0; -# create a directory and a file +# create a directory and a file my $home = dirname(File::Spec->rel2abs($0)); my $dir = File::Spec->catdir($home,'.git'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/02_validate_args.t new/Test-CheckManifest-1.43/t/02_validate_args.t --- old/Test-CheckManifest-1.42/t/02_validate_args.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/02_validate_args.t 2023-02-01 08:45:14.000000000 +0100 @@ -7,8 +7,9 @@ use Test::More; use Test::CheckManifest; -# create a directory and a file +# create a directory and a file my $sub = Test::CheckManifest->can('_validate_args'); +ok $sub; my $default = { filter => [], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/03_find_home.t new/Test-CheckManifest-1.43/t/03_find_home.t --- old/Test-CheckManifest-1.42/t/03_find_home.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/03_find_home.t 2023-02-01 08:45:14.000000000 +0100 @@ -9,8 +9,9 @@ use Test::CheckManifest; use Cwd; -# create a directory and a file +# create a directory and a file my $sub = Test::CheckManifest->can('_find_home'); +ok $sub; my $dir = Cwd::realpath( File::Spec->catdir( dirname( __FILE__ ), '..' ) ); my $file = File::Spec->catfile( $dir, 'MANIFEST' ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/04_check_excludes.t new/Test-CheckManifest-1.43/t/04_check_excludes.t --- old/Test-CheckManifest-1.42/t/04_check_excludes.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/04_check_excludes.t 2023-02-01 08:45:14.000000000 +0100 @@ -9,8 +9,10 @@ use Test::CheckManifest; use Test::More; -# create a directory and a file +# create a directory and a file my $sub = Test::CheckManifest->can('_check_excludes'); +ok $sub; + my $dir = Cwd::realpath( dirname __FILE__ ); $dir =~ s{.t\z}{}; @@ -25,5 +27,4 @@ is_deeply $sub->( { exclude => undef }, '' ), [ ], 'exclude is undef'; } - done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/05_is_excluded.t new/Test-CheckManifest-1.43/t/05_is_excluded.t --- old/Test-CheckManifest-1.42/t/05_is_excluded.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/05_is_excluded.t 2023-02-01 08:45:14.000000000 +0100 @@ -2,6 +2,7 @@ use strict; use warnings; + use File::Spec; use File::Basename; use Test::More; @@ -10,8 +11,9 @@ use Test::More; use Test::CheckManifest; -# create a directory and a file +# create a directory and a file my $sub = Test::CheckManifest->can('_is_excluded'); +ok $sub; my $dir = Cwd::realpath( dirname __FILE__ ); $dir =~ s{.t\z}{}; @@ -20,111 +22,128 @@ my $meta = 'META.yml'; my $abs_t_file = File::Spec->rel2abs( __FILE__ ); +my $this_file = basename($abs_t_file); my $bak_t_file = $abs_t_file . '.bak'; # my ($file,$dirref,$filter,$bool,$files_in_skip,$home) = @_; +# set up testcases my @tests = ( [ - [ $meta ], - 1, - $meta, - ], + [ $meta ], # arguments + 1, # success + $meta, # description + ], [ [ $meta, [] ], 1, "meta, empty dirref", - ], + ], [ [ $meta, [$t_dir] ], 1, "meta, t/ directory", - ], + ], [ [ $abs_t_file ], 0, "this file", - ], + ], [ [ $abs_t_file, [] ], 0, "this file, empty dirref", - ], + ], [ [ $abs_t_file, [ $t_dir ] ], 1, "this file, t/ dir", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/] ], 2, "this file, t/ dir, filter: 'excluded'", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and' ], 1, "this file, t/ dir, filter: 'excluded', bool => 'and'", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/not_excluded/] ], 1, "this file, t/ dir, filter: 'not_excluded'", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/not_excluded/], 'and' ], 0, "this file, t/ dir, filter: 'not_excluded', bool => 'and'", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and', [] ], 1, "this file, t/ dir, filter: 'excluded', bool => 'and', empty files_in_skip", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and', [qr/\Q$abs_t_file\E/] ], 1, "this file, t/ dir, filter: 'excluded', bool => 'and', skip this file", - ], + ], [ [ $abs_t_file . '.bak', [ $t_dir ], [qr/excluded/], 'and', [qr/\Q$bak_t_file\E/] ], 1, "<this_file>.bak, t/ dir, filter: 'excluded', bool => 'and', skip backup of this file", - ], + ], [ [ '/tmp/test', [ $t_dir ], [qr/excluded/], 'and', [qr/\Q$bak_t_file\E/] ], 0, "/tmp/test, t/ dir, filter: 'excluded', bool => 'and', skip backup of this file", - ], + ], [ [ '/tmp/test', [ $t_dir ], [qr/excluded/], 'and', ['/test'], '/tmp' ], - 1, + 0, "/tmp/test, t/ dir, filter: 'excluded', bool => 'and', skip /test in /tmp", - ], + ], + [ + [ '/tmp/test', [ $t_dir ], [qr/excluded/], 'and', ['^test'], '/tmp' ], + 1, + "/tmp/test, t/ dir, filter: 'excluded', bool => 'and', skip ^test in /tmp", + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and', [qr/\Q$bak_t_file\E/] ], 1, "this file, t/ dir, filter: 'excluded', bool => 'and', skip backup of this file", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and', {} ], 0, "this file, t/ dir, filter: 'excluded', bool => 'and', wrong reftype files_in_skip", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and' ], 1, "this file, t/ dir, filter: 'excluded', bool => 'and'", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'or' ], 2, "this file, t/ dir, filter: 'excluded', bool => 'or'", - ], + ], [ [ $abs_t_file, [ $t_dir ], [qr/excluded/], 'and', [qr/\Q$abs_t_file\E/] ], 1, "this file, t/ dir, filter: 'excluded', bool => 'and', excluded", - ], + ], + [ + [ $abs_t_file, [], [], undef, [qr/^$this_file/], $t_dir ], + 1, + "this file, matched by files_in_skip with start of string anchor", + ], + [ + [ $abs_t_file, [], [], undef, [qr/\/$this_file/], $t_dir ], + 0, + "this file, not matched by files_in_skip because of leading slash", + ], ); for my $test ( @tests ) { @@ -133,5 +152,4 @@ is $ret, $check, $desc; } - done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/06_bailout.t new/Test-CheckManifest-1.43/t/06_bailout.t --- old/Test-CheckManifest-1.42/t/06_bailout.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/06_bailout.t 2023-02-01 08:45:14.000000000 +0100 @@ -6,7 +6,7 @@ use File::Basename; use Test::More; -eval "use Test::CheckManifest tests => 2"; +eval { use Test::CheckManifest tests => 2 }; plan skip_all => "Test::CheckManifest required" if $@; $Test::CheckManifest::HOME = '/tmp/' . $$ . '/test'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/extra/02_test_in_subdirectory.t new/Test-CheckManifest-1.43/t/extra/02_test_in_subdirectory.t --- old/Test-CheckManifest-1.42/t/extra/02_test_in_subdirectory.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/extra/02_test_in_subdirectory.t 2023-02-01 08:45:14.000000000 +0100 @@ -6,7 +6,7 @@ use File::Basename; use Test::More; -eval "use Test::CheckManifest tests => 1"; +eval { use Test::CheckManifest tests => 1 }; plan skip_all => "Test::CheckManifest required" if $@; ok_manifest({filter => [qr/\.(?:svn|git|build)/]},'Filter: \.(?:svn|git)'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-CheckManifest-1.42/t/xt/03_issue7.t new/Test-CheckManifest-1.43/t/xt/03_issue7.t --- old/Test-CheckManifest-1.42/t/xt/03_issue7.t 2019-02-22 17:43:11.000000000 +0100 +++ new/Test-CheckManifest-1.43/t/xt/03_issue7.t 2023-02-01 08:45:14.000000000 +0100 @@ -19,12 +19,12 @@ my $fh_manifest = IO::File->new( $dir . '/MANIFEST', 'w' ); $fh_manifest->print( $_ . "\n" ) for (qw/MANIFEST A.txt B.txt 02_issue1.t 03_issue7.t/); $fh_manifest->close or die $!; - + # create file my $fh = IO::File->new( $dir . '/A.txt', 'w' ); $fh->print( scalar localtime ) or die $!; $fh->close or die $!; - + # create symlink eval { symlink $dir . '/A.txt', $dir . '/B.txt' };