commit perl-Term-ProgressBar for openSUSE:Factory
Hello community, here is the log from the commit of package perl-Term-ProgressBar for openSUSE:Factory checked in at 2017-07-21 22:47:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Term-ProgressBar (Old) and /work/SRC/openSUSE:Factory/.perl-Term-ProgressBar.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Term-ProgressBar" Fri Jul 21 22:47:44 2017 rev:8 rq:509656 version:2.20 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Term-ProgressBar/perl-Term-ProgressBar.changes 2016-12-10 18:28:50.164744332 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Term-ProgressBar.new/perl-Term-ProgressBar.changes 2017-07-21 22:47:50.917852374 +0200 @@ -1,0 +2,18 @@ +Wed Jul 12 06:13:35 UTC 2017 - coolo@suse.com + +- updated to 2.20 + see /usr/share/doc/packages/perl-Term-ProgressBar/Changes + + 2.20 2017-07-11 MANWAR + - silent mode avoids uninitialized value messages (GFIREBALL) + +------------------------------------------------------------------- +Tue Jul 11 06:26:04 UTC 2017 - coolo@suse.com + +- updated to 2.19 + see /usr/share/doc/packages/perl-Term-ProgressBar/Changes + + 2.19 2017-07-10 MANWAR + - Fixed inconsistent version as reported by CPANTS. + +------------------------------------------------------------------- Old: ---- Term-ProgressBar-2.18.tar.gz New: ---- Term-ProgressBar-2.20.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Term-ProgressBar.spec ++++++ --- /var/tmp/diff_new_pack.cN95DZ/_old 2017-07-21 22:47:51.485772263 +0200 +++ /var/tmp/diff_new_pack.cN95DZ/_new 2017-07-21 22:47:51.489771698 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Term-ProgressBar # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Term-ProgressBar -Version: 2.18 +Version: 2.20 Release: 0 %define cpan_name Term-ProgressBar Summary: Provide a Progress Meter On a Standard Terminal License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Term-ProgressBar/ -Source0: http://www.cpan.org/authors/id/M/MA/MANWAR/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/M/MA/MANWAR/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ Term-ProgressBar-2.18.tar.gz -> Term-ProgressBar-2.20.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Term-ProgressBar-2.18/Changes new/Term-ProgressBar-2.20/Changes --- old/Term-ProgressBar-2.18/Changes 2016-12-06 14:07:40.000000000 +0100 +++ new/Term-ProgressBar-2.20/Changes 2017-07-10 13:30:15.000000000 +0200 @@ -1,5 +1,11 @@ Revision history for Perl extension Term::ProgressBar +2.20 2017-07-11 MANWAR + - silent mode avoids uninitialized value messages (GFIREBALL) + +2.19 2017-07-10 MANWAR + - Fixed inconsistent version as reported by CPANTS. + 2.18 2016-12-06 MANWAR - Add MANIFEST file. - Removed META.yml file. @@ -104,4 +110,4 @@ 1.00 2001-10-30 - original version - - by Edward Avis, <epa98 at sync32> + - by Edward Avis, <epa98 at sync32> \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Term-ProgressBar-2.18/META.json new/Term-ProgressBar-2.20/META.json --- old/Term-ProgressBar-2.18/META.json 2016-12-06 14:10:36.000000000 +0100 +++ new/Term-ProgressBar-2.20/META.json 2017-07-11 11:41:15.000000000 +0200 @@ -4,7 +4,7 @@ "Martyn J. Pearce" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.150005", + "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], @@ -50,6 +50,6 @@ "url" : "https://github.com/manwar/Term-ProgressBar" } }, - "version" : "2.18", - "x_serialization_backend" : "JSON::PP version 2.27300" + "version" : "2.20", + "x_serialization_backend" : "JSON::PP version 2.27400" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Term-ProgressBar-2.18/META.yml new/Term-ProgressBar-2.20/META.yml --- old/Term-ProgressBar-2.18/META.yml 2016-12-06 14:10:36.000000000 +0100 +++ new/Term-ProgressBar-2.20/META.yml 2017-07-11 11:41:15.000000000 +0200 @@ -10,7 +10,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.150005' +generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -29,5 +29,5 @@ perl: '5.006' resources: repository: https://github.com/manwar/Term-ProgressBar -version: '2.18' +version: '2.20' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Term-ProgressBar-2.18/lib/Term/ProgressBar/IO.pm new/Term-ProgressBar-2.20/lib/Term/ProgressBar/IO.pm --- old/Term-ProgressBar-2.18/lib/Term/ProgressBar/IO.pm 2016-11-27 11:07:41.000000000 +0100 +++ new/Term-ProgressBar-2.20/lib/Term/ProgressBar/IO.pm 2017-07-10 13:30:15.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '2.17'; +our $VERSION = '2.20'; # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -149,9 +149,3 @@ __END__ - - - - - - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Term-ProgressBar-2.18/lib/Term/ProgressBar.pm new/Term-ProgressBar-2.20/lib/Term/ProgressBar.pm --- old/Term-ProgressBar-2.18/lib/Term/ProgressBar.pm 2016-11-27 11:55:13.000000000 +0100 +++ new/Term-ProgressBar-2.20/lib/Term/ProgressBar.pm 2017-07-10 13:30:15.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '2.18'; +our $VERSION = '2.20'; #XXX TODO Redo original test with count=20 # Amount Output @@ -463,7 +463,6 @@ sub init { my $self = shift; - return if $self->silent; # V1 Compatibility return $self->init({count => $_[1], name => $_[0], @@ -684,7 +683,6 @@ # We generate these by hand since we want to check the values. sub bar_width { my $self = shift; - return if $self->silent; return $self->{bar_width} if not @_; croak 'wrong number of arguments' if @_ != 1; croak 'bar_width < 1' if $_[0] < 1; @@ -692,7 +690,6 @@ } sub term_width { my $self = shift; - return if $self->silent; return $self->{term_width} if not @_; croak 'wrong number of arguments' if @_ != 1; croak 'term_width must be at least 5' if $self->term and $_[0] < 5; @@ -701,7 +698,6 @@ sub target { my $self = shift; - return if $self->silent; if ( @_ ) { my ($target) = @_; @@ -788,7 +784,10 @@ sub update { my $self = shift; - return if $self->silent; + # returning target+1 as next value should avoid calling update + # method in the smooth form of using the progress bar + return $self->target+1 if $self->silent; + my ($so_far) = @_; if ( ! defined $so_far ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Term-ProgressBar-2.18/t/silent.t new/Term-ProgressBar-2.20/t/silent.t --- old/Term-ProgressBar-2.18/t/silent.t 2016-11-27 11:23:04.000000000 +0100 +++ new/Term-ProgressBar-2.20/t/silent.t 2017-07-10 13:30:15.000000000 +0200 @@ -10,7 +10,7 @@ =cut -use Test::More tests => 8; +use Test::More tests => 13; use Test::Exception; use Capture::Tiny qw(capture_stderr); @@ -19,7 +19,7 @@ # ------------------------------------- -=head2 Test +=head2 Test 1--5 Create a progress bar with 10 things. Update it it from 1 to 10. Verify that it has no output. @@ -41,7 +41,7 @@ # ------------------------------------- -=head2 Tests 9--11: Message Check +=head2 Tests 6--8: Message Check Run a progress bar from 0 to 100, each time calling a message after an update. Check that we still have no output. @@ -55,7 +55,42 @@ lives_ok { for (0..100) { $p->update($_); $p->message("Hello") } } 'Message Check ( 2)'; }; - ok !$err, 'We should sill have no output'; + ok !$err, 'We should still have no output'; +} + +# ---------------------------------------------------------------------------- + +=head2 Tests 9--13: Message Check + +Run a progress bar from 0 to 1000, each time calling a message after an update. +Check that we still have no output. + +=cut +{ + my $err = capture_stderr { + my $p; + my $max_value = 1000; + my $half_value = int($max_value/2); + lives_ok { $p = Term::ProgressBar->new({ count => $max_value, silent => 1}); } 'Count 1-1000 (1)'; + my $next_value = 0; + lives_ok { + for (my $i=0; $i<$half_value; $i++) + { + $next_value = $p->update($i) if ($i >= $next_value); + } + } 'Count 1-1000 (2)'; + lives_ok { $p->message($MESSAGE1) } 'Count 1-1000 (3)'; + lives_ok { + for (my $i=$half_value; $i<$max_value; $i++) + { + $next_value = $p->update($i) if ($i >= $next_value); + } + } 'Count 1-1000 (4)'; + }; + + diag "ERR:\n$err\nlength: " . length($err) + if $ENV{TEST_DEBUG}; + ok !$err, 'We should still have no output even with warnings enabled'; } # ----------------------------------------------------------------------------
participants (1)
-
root@hilbert.suse.de