Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Test-File for openSUSE:Factory
checked in at 2021-03-10 08:47:08
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-File (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-File.new.2378 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-File"
Wed Mar 10 08:47:08 2021 rev:4 rq:878053 version:1.448
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-File/perl-Test-File.changes
2021-02-23 20:22:10.503749604 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Test-File.new.2378/perl-Test-File.changes
2021-03-10 08:47:27.242281976 +0100
@@ -1,0 +2,22 @@
+Sat Mar 6 03:08:19 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 1.448
+ see /usr/share/doc/packages/perl-Test-File/Changes
+
+ 1.448 2021-03-05T15:01:18Z
+ * Promote to a user release
+
+ 1.447_01 2021-03-02T16:11:23Z
+ * Try handling all-numeric user and group names (but, also, wtf?)
+ Github #26.
+
+-------------------------------------------------------------------
+Thu Feb 25 03:09:11 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 1.447
+ see /usr/share/doc/packages/perl-Test-File/Changes
+
+ 1.447 2021-02-24T21:32:41Z
+ * Trying harder to get the tests to pass on Cygwin
+
+-------------------------------------------------------------------
Old:
----
Test-File-1.446.tar.gz
New:
----
Test-File-1.448.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-File.spec ++++++
--- /var/tmp/diff_new_pack.BktrE2/_old 2021-03-10 08:47:27.798282550 +0100
+++ /var/tmp/diff_new_pack.BktrE2/_new 2021-03-10 08:47:27.798282550 +0100
@@ -18,7 +18,7 @@
%define cpan_name Test-File
Name: perl-Test-File
-Version: 1.446
+Version: 1.448
Release: 0
Summary: Test file attributes
License: Artistic-2.0
++++++ Test-File-1.446.tar.gz -> Test-File-1.448.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/Changes new/Test-File-1.448/Changes
--- old/Test-File-1.446/Changes 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/Changes 2021-03-05 16:05:43.000000000 +0100
@@ -1,5 +1,15 @@
Revision history for Perl module Test::File
+1.448 2021-03-05T15:01:18Z
+ * Promote to a user release
+
+1.447_01 2021-03-02T16:11:23Z
+ * Try handling all-numeric user and group names (but, also, wtf?)
+ Github #26.
+
+1.447 2021-02-24T21:32:41Z
+ * Trying harder to get the tests to pass on Cygwin
+
1.446 2021-02-20T21:18:48Z
* Better cygwin detection, from Achim Gratz
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/META.json
new/Test-File-1.448/META.json
--- old/Test-File-1.446/META.json 2021-02-20 22:18:55.000000000 +0100
+++ new/Test-File-1.448/META.json 2021-03-05 16:05:45.000000000 +0100
@@ -71,6 +71,6 @@
"web" : "https://github.com/briandfoy/test-file";
}
},
- "version" : "1.446",
+ "version" : "1.448",
"x_serialization_backend" : "JSON::PP version 4.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/META.yml new/Test-File-1.448/META.yml
--- old/Test-File-1.446/META.yml 2021-02-20 22:18:54.000000000 +0100
+++ new/Test-File-1.448/META.yml 2021-03-05 16:05:45.000000000 +0100
@@ -39,5 +39,5 @@
bugtracker: https://github.com/briandfoy/test-file/issues
homepage: https://github.com/briandfoy/test-file
repository: https://github.com/briandfoy/test-file.git
-version: '1.446'
+version: '1.448'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/lib/Test/File.pm
new/Test-File-1.448/lib/Test/File.pm
--- old/Test-File-1.446/lib/Test/File.pm 2021-02-20 22:18:53.000000000
+0100
+++ new/Test-File-1.448/lib/Test/File.pm 2021-03-05 16:05:43.000000000
+0100
@@ -30,7 +30,7 @@
file_mtime_gt_ok file_mtime_lt_ok file_mtime_age_ok
);
-$VERSION = '1.446';
+$VERSION = '1.448';
my $Test = Test::Builder->new();
@@ -1594,36 +1594,93 @@
}
sub _get_uid {
- my $owner = shift;
- my $owner_uid;
+ my $arg = shift;
- if ($owner =~ /^\d+/) {
- $owner_uid = $owner;
- $owner = ( getpwuid $owner )[0];
- }
- else {
- $owner_uid = (getpwnam($owner))[2];
- }
-
- $owner_uid;
+ # the name might be numeric (why would you do that?), so we need
+ # to figure out which of several possibilities we have. And, 0 means
+ # root, so we have to be very careful with the values.
+
+ # maybe the argument is a UID. First, it has to be numeric. If it's
+ # a UID, we'll get the same UID back. But, if we get back a value
+ # that doesn't mean that we are done. There might be a name with
+ # the same value.
+ #
+ # Don't use this value in comparisons! An undef could be turned
+ # into zero!
+ my $from_uid = (getpwuid($arg))[2] if $arg =~ /\A[0-9]+\z/;
+
+ # Now try the argument as a name. If it's a name, then we'll get
+ # back a UID. Maybe we get back nothing.
+ my $from_nam = (getpwnam($arg))[2];
+
+ return do {
+ # first case, we got back nothing from getpwnam but did get
+ # something from getpwuid. The arg is not a name and is a
+ # UID.
+ if( defined $from_uid and not defined $from_nam ) { $arg }
+ # second case, we got back nothing from getpwuid but did get
+ # something from getpwnam. The arg is a name and is not a
+ # UID.
+ elsif( not defined $from_uid and defined $from_nam ) {
$from_nam }
+ # Now, what happens if neither are defined? The argument does
+ # not correspond to a name or GID on the system. Since no such
+ # user exists, we return undef.
+ elsif( not defined $from_uid and not defined $from_nam ) {
undef }
+ # But what if they are both defined? The argument could
represent
+ # a UID and a name, and those could be different users! In this
+ # case, we'll choose the original argument. That might be wrong,
+ # so the best we can do is a warning.
+ else {
+ carp( "Found both a UID or name for <$arg>. Guessing
the UID is <$arg>." );
+ $arg
+ }
+ };
}
sub _get_gid {
- my $group = shift;
- my $group_uid;
+ my $arg = shift;
- if ($group =~ /^\d+/) {
- $group_uid = $group;
- $group = ( getgrgid $group )[0];
- }
- else {
- $group_uid = (getgrnam($group))[2];
- }
-
- $group_uid;
+ # the name might be numeric (why would you do that?), so we need
+ # to figure out which of several possibilities we have. And, 0 means
+ # root, so we have to be very careful with the values.
+
+ # maybe the argument is a GID. First, it has to be numeric. If it's
+ # a GID, we'll get the same GID back. But, if we get back a value
+ # that doesn't mean that we are done. There might be a name with
+ # the same value.
+ #
+ # Don't use this value in comparisons! An undef could be turned
+ # into zero!
+ my $from_gid = (getgrgid($arg))[2] if $arg =~ /\A[0-9]+\z/;
+
+ # Now try the argument as a name. If it's a name, then we'll get
+ # back a GID. Maybe we get back nothing.
+ my $from_nam = (getgrnam($arg))[2];
+
+ return do {
+ # first case, we got back nothing from getgrnam but did get
+ # something from getpwuid. The arg is not a name and is a
+ # GID.
+ if( defined $from_gid and not defined $from_nam ) { $arg }
+ # second case, we got back nothing from getgrgid but did get
+ # something from getgrnam. The arg is a name and is not a
+ # GID.
+ elsif( not defined $from_gid and defined $from_nam ) {
$from_nam }
+ # Now, what happens if neither are defined? The argument does
+ # not correspond to a name or GID on the system. Since no such
+ # user exists, we return undef.
+ elsif( not defined $from_gid and not defined $from_nam ) {
undef }
+ # But what if they are both defined? The argument could
represent
+ # a GID and a name, and those could be different users! In this
+ # case, we'll choose the original argument. That might be wrong,
+ # so the best we can do is a warning.
+ else {
+ carp( "Found both a GID or name for <$arg>. Guessing
the GID is <$arg>." );
+ $arg;
+ }
+ };
}
-
=item file_mtime_age_ok( FILE [, WITHIN_SECONDS ] [, NAME ] )
Ok if FILE's modified time is WITHIN_SECONDS inclusive of the system's current
time.
@@ -1746,7 +1803,8 @@
L<Test::Builder>,
L<Test::More>
-If you are using the new C<Test2> stuff, see L<Test2::Tool::File>.
+If you are using the new C<Test2> stuff, see Test2::Tools::File
+(https://github.com/torbjorn/Test2-Tools-File).
=head1 SOURCE AVAILABILITY
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/dm_skeleton.t
new/Test-File-1.448/t/dm_skeleton.t
--- old/Test-File-1.446/t/dm_skeleton.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/dm_skeleton.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,7 +1,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
require "./t/setup_common";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/file_contains.t
new/Test-File-1.448/t/file_contains.t
--- old/Test-File-1.446/t/file_contains.t 2021-02-20 22:18:53.000000000
+0100
+++ new/Test-File-1.448/t/file_contains.t 2021-03-05 16:05:43.000000000
+0100
@@ -2,11 +2,9 @@
use warnings;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
-use Config;
-
require "./t/setup_common";
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
@@ -31,9 +29,9 @@
test_test();
SKIP: {
-skip "Superuser has special privileges", 1 if
is_unix_superuser();
-skip "Windows has a different idea of readable", 1 if is_win32();
-skip "Not possible to make file unreadable on MSYS or Cygwin", 1 if
is_cygwin();
+skip "Superuser has special privileges", 1 if is_unix_superuser();
+skip "Windows has a different idea of readable", 1 if is_win32();
+skip "Not possible to make file unreadable on MSYS", 1 if is_msys();
test_out( "not ok 1 - not_readable contains $pattern1" );
test_diag( 'File [not_readable] is not readable!' );
test_fail(+1);
@@ -61,9 +59,9 @@
test_test();
SKIP: {
-skip "Superuser has special privileges", 1 if
is_unix_superuser();
-skip "Windows has a different idea of readable", 1 if is_win32();
-skip "Not possible to make file unreadable on MSYS or Cygwin", 1 if
is_cygwin();
+skip "Superuser has special privileges", 1 if is_unix_superuser();
+skip "Windows has a different idea of readable", 1 if is_win32();
+skip "Not possible to make file unreadable on MSYS", 1 if is_msys();
test_out( "not ok 1 - not_readable doesn't contain $bad_pattern" );
test_diag( 'File [not_readable] is not readable!' );
test_fail(+1);
@@ -97,9 +95,9 @@
test_test();
SKIP: {
-skip "Superuser has special privileges", 1 if
is_unix_superuser();
-skip "Windows has a different idea of readable", 1 if is_win32();
-skip "Not possible to make file unreadable on MSYS or Cygwin", 1 if
is_cygwin();
+skip "Superuser has special privileges", 1 if is_unix_superuser();
+skip "Windows has a different idea of readable", 1 if is_win32();
+skip "Not possible to make file unreadable on MSYS", 1 if is_msys();
test_out( "not ok 1 - not_readable contains $pattern1" );
test_diag( 'File [not_readable] is not readable!' );
test_fail(+1);
@@ -134,9 +132,9 @@
test_test();
SKIP: {
-skip "Superuser has special privileges", 1 if
is_unix_superuser();
-skip "Windows has a different idea of readable", 1 if is_win32();
-skip "Not possible to make file unreadable on MSYS or Cygwin", 1 if
is_cygwin();
+skip "Superuser has special privileges", 1 if is_unix_superuser();
+skip "Windows has a different idea of readable", 1 if is_win32();
+skip "Not possible to make file unreadable on MSYS", 1 if is_msys();
test_out( "not ok 1 - not_readable doesn't contain $bad_pattern" );
test_diag( 'File [not_readable] is not readable!' );
test_fail(+1);
@@ -157,8 +155,7 @@
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
-sub like_diag
-{
+sub like_diag {
my ($string, $pattern, $verb) = @_;
my $diag = ' ' x 18 . "'$string'\n";
@@ -166,4 +163,4 @@
$diag =~ s/^/# /mg;
test_err($diag);
-}
+ }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/file_contains_encoded.t
new/Test-File-1.448/t/file_contains_encoded.t
--- old/Test-File-1.446/t/file_contains_encoded.t 2021-02-20
22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/file_contains_encoded.t 2021-03-05
16:05:43.000000000 +0100
@@ -3,7 +3,7 @@
use utf8;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
use Test::utf8;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/file_contains_utf8.t
new/Test-File-1.448/t/file_contains_utf8.t
--- old/Test-File-1.446/t/file_contains_utf8.t 2021-02-20 22:18:53.000000000
+0100
+++ new/Test-File-1.448/t/file_contains_utf8.t 2021-03-05 16:05:43.000000000
+0100
@@ -3,7 +3,7 @@
use utf8;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
# Hello world from utf8 test file:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/file_mtime.t
new/Test-File-1.448/t/file_mtime.t
--- old/Test-File-1.446/t/file_mtime.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/file_mtime.t 2021-03-05 16:05:43.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
require "./t/setup_common";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/file_sizes.t
new/Test-File-1.448/t/file_sizes.t
--- old/Test-File-1.446/t/file_sizes.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/file_sizes.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,7 +1,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
require "./t/setup_common";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/line_counters.t
new/Test-File-1.448/t/line_counters.t
--- old/Test-File-1.446/t/line_counters.t 2021-02-20 22:18:53.000000000
+0100
+++ new/Test-File-1.448/t/line_counters.t 2021-03-05 16:05:43.000000000
+0100
@@ -1,7 +1,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
require "./t/setup_common";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/link_counts.t
new/Test-File-1.448/t/link_counts.t
--- old/Test-File-1.446/t/link_counts.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/link_counts.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,7 +1,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use_ok( 'Test::File' );
require "./t/setup_common";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/links.t
new/Test-File-1.448/t/links.t
--- old/Test-File-1.446/t/links.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/links.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,7 +1,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
my $can_symlink = eval { symlink("",""); 1 };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/load.t new/Test-File-1.448/t/load.t
--- old/Test-File-1.446/t/load.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/load.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,4 +1,4 @@
-use Test::More 0.95;
+use Test::More 1;
my @classes = qw(Test::File);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/obviously_non_multi_user.t
new/Test-File-1.448/t/obviously_non_multi_user.t
--- old/Test-File-1.446/t/obviously_non_multi_user.t 2021-02-20
22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/obviously_non_multi_user.t 2021-03-05
16:05:43.000000000 +0100
@@ -1,4 +1,4 @@
-use Test::More 0.95;
+use Test::More 1;
BEGIN {
our $getpwuid_should_die = 0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/pod_coverage.t
new/Test-File-1.448/t/pod_coverage.t
--- old/Test-File-1.446/t/pod_coverage.t 2021-02-20 22:18:53.000000000
+0100
+++ new/Test-File-1.448/t/pod_coverage.t 2021-03-05 16:05:43.000000000
+0100
@@ -1,13 +1,4 @@
use Test::More;
-eval "use Test::Pod::Coverage";
-
-if( $@ )
- {
- plan skip_all => "Test::Pod::Coverage required for testing POD";
- }
-else
- {
- plan tests => 1;
-
- pod_coverage_ok( "Test::File" );
- }
+eval "use Test::Pod::Coverage 1.00";
+plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage"
if $@;
+all_pod_coverage_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/rt/30346.t
new/Test-File-1.448/t/rt/30346.t
--- old/Test-File-1.446/t/rt/30346.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/rt/30346.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,7 +1,7 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use_ok( 'Test::File' );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/setup_common
new/Test-File-1.448/t/setup_common
--- old/Test-File-1.446/t/setup_common 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/setup_common 2021-03-05 16:05:43.000000000 +0100
@@ -5,14 +5,17 @@
use Config;
use File::Temp qw(tempdir);
+sub is_cygwin () { scalar grep { lc($^O) eq $_ or lc($Config{osname}) eq $_ }
qw( cygwin ) }
+
+sub is_msys () { scalar grep { lc($^O) eq $_ or lc($Config{osname}) eq $_ }
qw( msys msys2 ) }
+
+sub is_win32 () { $^O eq 'MSWin32' }
+
sub is_unix_superuser () {
- ($^O ne 'MSWin32' and ( $> == 0 or $< == 0 ))
+ ( not is_win32() and ( $> == 0 or $< == 0 ) )
or
- ($^O eq 'cygwin' and grep { $_ == 544 } split /\s+/, `/usr/bin/id -G`)
+ ( is_cygwin() and grep { $_ == 544 } split /\s+/, `/usr/bin/id -G` )
}
-sub is_cygwin () { scalar grep { lc($^O) eq $_ or lc($Config{osname})
eq $_ } qw( cygwin msys msys2 ) }
-
-sub is_win32 () { $^O eq 'MSWin32' }
my $dir = tempdir( CLEANUP => 1 ) or BAIL_OUT( "Could not setup temp
directory" );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/test_dirs.t
new/Test-File-1.448/t/test_dirs.t
--- old/Test-File-1.446/t/test_dirs.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/test_dirs.t 2021-03-05 16:05:43.000000000 +0100
@@ -2,7 +2,7 @@
use warnings;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
use File::Spec::Functions qw(catfile);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/test_files.t
new/Test-File-1.448/t/test_files.t
--- old/Test-File-1.446/t/test_files.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/test_files.t 2021-03-05 16:05:43.000000000 +0100
@@ -1,11 +1,9 @@
use strict;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
use Test::File;
-use Config;
-
=pod
max_file non_zero_file not_readable readable zero_file
@@ -82,7 +80,7 @@
subtest not_readable_fails => sub { SKIP: {
skip "Superuser has special privileges", 3, if is_unix_superuser();
- skip "Not possible to make file unreadable on MSYS or Cygwin" if
is_cygwin();
+ skip "Not possible to make file unreadable on MSYS" if is_msys();
test_out( 'ok 1 - writeable is not readable' );
file_not_readable_ok( 'writeable' );
test_out( 'ok 2 - writeable really is not readable' );
@@ -102,7 +100,7 @@
file_writable_ok( 'writable' );
test_out( "ok 2 - $label" );
file_writable_ok( 'writable', $label );
- if( is_cygwin() or is_unix_superuser() ) {
+ if( is_msys() or is_unix_superuser() ) {
test_out( 'ok 3 - readable is writable' );
}
else {
@@ -118,7 +116,7 @@
subtest not_writable => sub { SKIP: {
skip "Superuser has special privileges", 1, if is_unix_superuser();
- skip "Not possible to make file unreadable on MSYS or Cygwin" if
is_cygwin();
+ skip "Not possible to make file unreadable on MSYS" if is_msys();
test_out( 'ok 1 - readable is not writable' );
test_out( 'not ok 2 - writable is not writable' );
test_diag('File [writable] is writable!');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-File-1.446/t/win32.t
new/Test-File-1.448/t/win32.t
--- old/Test-File-1.446/t/win32.t 2021-02-20 22:18:53.000000000 +0100
+++ new/Test-File-1.448/t/win32.t 2021-03-05 16:05:43.000000000 +0100
@@ -2,7 +2,7 @@
use warnings;
use Test::Builder::Tester;
-use Test::More 0.95;
+use Test::More 1;
subtest load => sub {
use_ok( 'Test::File' );
