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 <[email protected]>
+
+- 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 <[email protected]>"
],
"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 <[email protected]>",
"Dan Book <[email protected]>",
"doug <[email protected]>",
+ "E. Choroba <[email protected]>",
"LorenzoTa <[email protected]>",
"LorenzoTa <[email protected]>",
"Michael Gray <[email protected]>",
"Mohammad S Anwar <[email protected]>",
+ "Paul Cochrane <[email protected]>",
"reneeb <[email protected]>",
"reneeb <[email protected]>",
"Renee <[email protected]>"
],
- "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 <[email protected]>'
- 'Dan Book <[email protected]>'
- 'doug <[email protected]>'
+ - 'E. Choroba <[email protected]>'
- 'LorenzoTa <[email protected]>'
- 'LorenzoTa <[email protected]>'
- 'Michael Gray <[email protected]>'
- 'Mohammad S Anwar <[email protected]>'
+ - 'Paul Cochrane <[email protected]>'
- 'reneeb <[email protected]>'
- 'reneeb <[email protected]>'
- 'Renee <[email protected]>'
-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' };
