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 2022-02-23 16:25:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-File (Old) and /work/SRC/openSUSE:Factory/.perl-Test-File.new.1958 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-File" Wed Feb 23 16:25:33 2022 rev:6 rq:956103 version:1.992 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-File/perl-Test-File.changes 2022-01-29 20:57:43.308409025 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-File.new.1958/perl-Test-File.changes 2022-02-23 16:25:34.579506955 +0100 @@ -1,0 +2,11 @@ +Wed Feb 16 03:08:12 UTC 2022 - Tina M??ller <timueller+p...@suse.de> + +- updated to 1.992 + see /usr/share/doc/packages/perl-Test-File/Changes + + 1.992 2022-02-15T19:40:16Z + * GitHub #29 - race condition in tests for mtime, from Slaven Rezi??. + Most people never experienced this timing issue, so if you have this + already you don't need to update. + +------------------------------------------------------------------- Old: ---- Test-File-1.991.tar.gz New: ---- Test-File-1.992.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-File.spec ++++++ --- /var/tmp/diff_new_pack.DyhAMI/_old 2022-02-23 16:25:35.235506978 +0100 +++ /var/tmp/diff_new_pack.DyhAMI/_new 2022-02-23 16:25:35.239506978 +0100 @@ -18,10 +18,10 @@ %define cpan_name Test-File Name: perl-Test-File -Version: 1.991 +Version: 1.992 Release: 0 -Summary: Test file attributes License: Artistic-2.0 +Summary: Test file attributes URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/B/BD/BDFOY/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml @@ -68,7 +68,7 @@ %perl_gen_filelist %files -f %{name}.files -%doc Changes examples +%doc Changes CITATION.cff examples %license LICENSE %changelog ++++++ Test-File-1.991.tar.gz -> Test-File-1.992.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/CITATION.cff new/Test-File-1.992/CITATION.cff --- old/Test-File-1.991/CITATION.cff 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-File-1.992/CITATION.cff 2022-02-15 20:41:26.000000000 +0100 @@ -0,0 +1,19 @@ +# This CITATION.cff file was generated with /Users/brian/bin/bmt +# Tue Feb 15 12:46:17 2022 + +abstract: Test::File -- test file attributes +authors: +- family-names: foy + given-names: brian d + orcid: 0000-0002-0283-8283 +cff-version: 1.2.0 +date-released: refs/tags/v1.36 +doi: 10.5281/zenodo.6093297 +license: artistic_2 +license-url: https://github.com/briandfoy/test-file/LICENSE +message: The GitHub page for this module provides formatted citations +repository-code: https://github.com/briandfoy/test-file +title: The Test::File Perl module +type: software +version: '' + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/Changes new/Test-File-1.992/Changes --- old/Test-File-1.991/Changes 2022-01-21 02:39:55.000000000 +0100 +++ new/Test-File-1.992/Changes 2022-02-15 20:41:26.000000000 +0100 @@ -1,5 +1,10 @@ Revision history for Perl module Test::File +1.992 2022-02-15T19:40:16Z + * GitHub #29 - race condition in tests for mtime, from Slaven Rezi??. + Most people never experienced this timing issue, so if you have this + already you don't need to update. + 1.991 2022-01-21T01:37:36Z * Enforce text files in some functions, as warned in #18. * Change up some diag messages: 1) lowercase first letter 2) not ! at diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/MANIFEST new/Test-File-1.992/MANIFEST --- old/Test-File-1.991/MANIFEST 2022-01-21 02:39:57.000000000 +0100 +++ new/Test-File-1.992/MANIFEST 2022-02-15 20:41:31.000000000 +0100 @@ -1,4 +1,5 @@ Changes +CITATION.cff examples/README INSTALL.SKIP lib/Test/File.pm @@ -29,5 +30,6 @@ t/test_manifest t/win32.t xt/changes.t +xt/citations.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/META.json new/Test-File-1.992/META.json --- old/Test-File-1.991/META.json 2022-01-21 02:39:57.000000000 +0100 +++ new/Test-File-1.992/META.json 2022-02-15 20:41:31.000000000 +0100 @@ -70,6 +70,6 @@ "web" : "https://github.com/briandfoy/test-file"; } }, - "version" : "1.991", + "version" : "1.992", "x_serialization_backend" : "JSON::PP version 4.06" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/META.yml new/Test-File-1.992/META.yml --- old/Test-File-1.991/META.yml 2022-01-21 02:39:57.000000000 +0100 +++ new/Test-File-1.992/META.yml 2022-02-15 20:41:30.000000000 +0100 @@ -38,5 +38,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.991' +version: '1.992' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/lib/Test/File.pm new/Test-File-1.992/lib/Test/File.pm --- old/Test-File-1.991/lib/Test/File.pm 2022-01-21 02:39:55.000000000 +0100 +++ new/Test-File-1.992/lib/Test/File.pm 2022-02-15 20:41:26.000000000 +0100 @@ -30,7 +30,7 @@ file_mtime_gt_ok file_mtime_lt_ok file_mtime_age_ok ); -$VERSION = '1.991'; +$VERSION = '1.992'; my $Test = Test::Builder->new(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/t/file_mtime.t new/Test-File-1.992/t/file_mtime.t --- old/Test-File-1.991/t/file_mtime.t 2022-01-21 02:39:55.000000000 +0100 +++ new/Test-File-1.992/t/file_mtime.t 2022-02-15 20:41:26.000000000 +0100 @@ -12,67 +12,84 @@ ok( -e $mtime_file, 'mtime file exists ok' ) or die $!; my $curtime = time(); -my $set_mtime = $curtime-60*10; # 10 minutes ago -my $count = utime($set_mtime,$set_mtime,$mtime_file); -ok( $count, 'utime reports it set mtime' ) or diag explain $count; - -my $mtime = ( stat($mtime_file) )[9]; -ok ( $mtime == $set_mtime, 'utime successfully set mtime for testing' ) or diag "Got: $mtime, Expected: $set_mtime"; +subtest utime => sub { + my $set_mtime = $curtime-60*10; # 10 minutes ago + my $count = utime($set_mtime,$set_mtime,$mtime_file); + ok( $count, 'utime reports it set mtime' ) or diag explain $count; + + my $mtime = ( stat($mtime_file) )[9]; + ok( $mtime == $set_mtime, 'utime successfully set mtime for testing' ) + or diag "Got: $mtime, Expected: $set_mtime"; + }; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # -# file_mtime_age_ok -test_out( 'ok 1 - file_mtime_age_ok success' ); -test_out( 'ok 2 - mtime_file mtime within 660 seconds of current time' ); -file_mtime_age_ok( $mtime_file, 60*11, 'file_mtime_age_ok success' ); -file_mtime_age_ok( $mtime_file, 60*11 ); -test_test( 'file_mtime_age_ok success works' ); - -test_out( 'not ok 1 - mtime_file mtime within 0 seconds of current time' ); -file_mtime_age_ok( $mtime_file ); -test_test( name => 'file_mtime_age_ok success works', skip_err => 1 ); - - -test_out( 'not ok 1 - file_mtime_age_ok failure' ); -test_err( qr/\s*#\s*file \[$mtime_file\] [^\n]+\n/ ); -test_fail(+1); -file_mtime_age_ok( $mtime_file, 60*9, 'file_mtime_age_ok failure' ); -test_test( 'file_mime_age_ok failure works' ); - -# file_mtime_lt_ok -test_out( 'ok 1 - file_mtime_lt_ok success' ); -test_out( 'ok 2 - mtime_file mtime less than unix timestamp ' . time() ); -file_mtime_lt_ok( $mtime_file, time(), 'file_mtime_lt_ok success' ); -file_mtime_lt_ok( $mtime_file, time() ); -test_test( 'file_mtime_lt_ok success works' ); - -test_out( 'not ok 1 - file_mtime_lt_ok failure' ); -test_err( qr/\s*#\s*file \[$mtime_file\] [^\n]+\n/ ); -test_fail(+1); -file_mtime_lt_ok( $mtime_file, $curtime-60*11, 'file_mtime_lt_ok failure' ); -test_test( 'file_mtime_lt_ok failure works' ); - -# file_mtime_gt_ok -test_out( 'ok 1 - file_mtime_gt_ok success' ); -test_out( 'ok 2 - mtime_file mtime is greater than unix timestamp ' . ($curtime-60*11) ); -file_mtime_gt_ok( $mtime_file, $curtime-60*11, 'file_mtime_gt_ok success' ); -file_mtime_gt_ok( $mtime_file, $curtime-60*11 ); -test_test( 'file_mtime_gt_ok success works' ); - -test_out( 'not ok 1 - file_mtime_gt_ok failure' ); -test_err( qr/\s*#\s*file \[$mtime_file\] [^\n]+\n/ ); -test_fail( +1 ); -file_mtime_gt_ok( $mtime_file, $curtime-60*9, 'file_mtime_gt_ok failure' ); -test_test( 'file_mtime_gt_ok failure works' ); - -# Test internal _stat_file function -test_err( qr/\s*#\s*file \[.*?\] does not exist\n/ ); -Test::File::_stat_file( 'non-existent-file-12345', 9 ); -test_test( '_stat_file on non-existent file works' ); - -test_err( qr/\s*#\s*file name not specified\n/ ); -Test::File::_stat_file( undef ); -test_test( '_stat_file no file provided works' ); +subtest file_mtime_age_ok => sub { + test_out( 'ok 1 - file_mtime_age_ok success' ); + test_out( 'ok 2 - mtime_file mtime within 660 seconds of current time' ); + file_mtime_age_ok( $mtime_file, 60*11, 'file_mtime_age_ok success' ); + file_mtime_age_ok( $mtime_file, 60*11 ); + test_test( 'file_mtime_age_ok success works' ); + + test_out( 'not ok 1 - mtime_file mtime within 0 seconds of current time' ); + file_mtime_age_ok( $mtime_file ); + test_test( name => 'file_mtime_age_ok success works', skip_err => 1 ); + + + test_out( 'not ok 1 - file_mtime_age_ok failure' ); + test_err( qr/\s*#\s*file \[$mtime_file\] [^\n]+\n/ ); + test_fail(+1); + file_mtime_age_ok( $mtime_file, 60*9, 'file_mtime_age_ok failure' ); + test_test( 'file_mime_age_ok failure works' ); + + done_testing(); + }; + +subtest file_mtime_lt_ok => sub { + my $time = time() + 10; + test_out( 'ok 1 - file_mtime_lt_ok success' ); + test_out( 'ok 2 - mtime_file mtime less than unix timestamp ' . $time ); + file_mtime_lt_ok( $mtime_file, $time, 'file_mtime_lt_ok success' ); + file_mtime_lt_ok( $mtime_file, $time ); + test_test( 'file_mtime_lt_ok success works' ); + + test_out( 'not ok 1 - file_mtime_lt_ok failure' ); + test_err( qr/\s*#\s*file \[$mtime_file\] [^\n]+\n/ ); + test_fail(+1); + file_mtime_lt_ok( $mtime_file, $curtime-60*11, 'file_mtime_lt_ok failure' ); + test_test( 'file_mtime_lt_ok failure works' ); + + done_testing(); + }; + +subtest file_mtime_gt_ok => sub { + test_out( 'ok 1 - file_mtime_gt_ok success' ); + test_out( 'ok 2 - mtime_file mtime is greater than unix timestamp ' . ($curtime-60*11) ); + file_mtime_gt_ok( $mtime_file, $curtime-60*11, 'file_mtime_gt_ok success' ); + file_mtime_gt_ok( $mtime_file, $curtime-60*11 ); + test_test( 'file_mtime_gt_ok success works' ); + + test_out( 'not ok 1 - file_mtime_gt_ok failure' ); + test_err( qr/\s*#\s*file \[$mtime_file\] [^\n]+\n/ ); + test_fail( +1 ); + file_mtime_gt_ok( $mtime_file, $curtime-60*9, 'file_mtime_gt_ok failure' ); + test_test( 'file_mtime_gt_ok failure works' ); + + done_testing(); + }; + +subtest _stat_file => sub { + # Test internal _stat_file function + test_err( qr/\s*#\s*file \[.*?\] does not exist\n/ ); + Test::File::_stat_file( 'non-existent-file-12345', 9 ); + test_test( '_stat_file on non-existent file works' ); + + test_err( qr/\s*#\s*file name not specified\n/ ); + Test::File::_stat_file( undef ); + test_test( '_stat_file no file provided works' ); + + done_testing(); + }; done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-File-1.991/xt/citations.t new/Test-File-1.992/xt/citations.t --- old/Test-File-1.991/xt/citations.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-File-1.992/xt/citations.t 2022-02-15 20:41:26.000000000 +0100 @@ -0,0 +1,19 @@ +use strict; + +use Test::More; + +my $file = 'CITATION.cff'; + +SKIP: { + my $rc = eval { require YAML; YAML->VERSION('1.26'); 1 }; + skip "Need YAML to test $file", 1 unless $rc; + + subtest citations => sub { + ok( -e $file, "$file exists" ); + my $data = eval { YAML::LoadFile( $file ) }; + my $error = $@; + ok( defined $data, "Loaded data from $file" ) or diag( "Error loading $file: $@" ); + }; + } + +done_testing;
