Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Struct-Dumb for openSUSE:Factory checked in at 2023-02-16 16:56:06 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Struct-Dumb (Old) and /work/SRC/openSUSE:Factory/.perl-Struct-Dumb.new.22824 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Struct-Dumb" Thu Feb 16 16:56:06 2023 rev:8 rq:1066015 version:0.14 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Struct-Dumb/perl-Struct-Dumb.changes 2022-09-09 18:29:28.269259055 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Struct-Dumb.new.22824/perl-Struct-Dumb.changes 2023-02-16 16:56:23.898831668 +0100 @@ -1,0 +2,13 @@ +Sun Feb 12 03:09:27 UTC 2023 - Tina Müller <timueller+p...@suse.de> + +- updated to 0.14 + see /usr/share/doc/packages/perl-Struct-Dumb/Changes + + 0.14 2023-02-11 + [CHANGES] + * Updates to `feature 'class'` support, using `:param` instead of + `ADJUST` blocks + * Swap all unit tests from `Test::More` to `Test2::V0` + * Drop test-time dependence on `Test::Fatal` + +------------------------------------------------------------------- Old: ---- Struct-Dumb-0.13.tar.gz New: ---- Struct-Dumb-0.14.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Struct-Dumb.spec ++++++ --- /var/tmp/diff_new_pack.eVZcsq/_old 2023-02-16 16:56:26.422841756 +0100 +++ /var/tmp/diff_new_pack.eVZcsq/_new 2023-02-16 16:56:26.430841788 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Struct-Dumb # -# Copyright (c) 2022 SUSE LLC +# 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 @@ -18,7 +18,7 @@ %define cpan_name Struct-Dumb Name: perl-Struct-Dumb -Version: 0.13 +Version: 0.14 Release: 0 License: Artistic-1.0 OR GPL-1.0-or-later Summary: Make simple lightweight record-like structures @@ -29,8 +29,7 @@ BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Module::Build) >= 0.400400 -BuildRequires: perl(Test::Fatal) -BuildRequires: perl(Test::More) >= 0.88 +BuildRequires: perl(Test2::V0) %{perl_requires} %description ++++++ Struct-Dumb-0.13.tar.gz -> Struct-Dumb-0.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/Build.PL new/Struct-Dumb-0.14/Build.PL --- old/Struct-Dumb-0.13/Build.PL 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/Build.PL 2023-02-11 13:57:36.000000000 +0100 @@ -6,8 +6,7 @@ my $build = Module::Build->new( module_name => 'Struct::Dumb', test_requires => { - 'Test::Fatal' => 0, - 'Test::More' => '0.88', # done_testing + 'Test2::V0' => 0, }, configure_requires => { 'Module::Build' => '0.4004', # test_requires diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/Changes new/Struct-Dumb-0.14/Changes --- old/Struct-Dumb-0.13/Changes 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/Changes 2023-02-11 13:57:36.000000000 +0100 @@ -1,5 +1,12 @@ Revision history for Struct-Dumb +0.14 2023-02-11 + [CHANGES] + * Updates to `feature 'class'` support, using `:param` instead of + `ADJUST` blocks + * Swap all unit tests from `Test::More` to `Test2::V0` + * Drop test-time dependence on `Test::Fatal` + 0.13 2022-08-27 [CHANGES] * Use `feature 'class'` instead of blessed ARRAYrefs on perls which diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/LICENSE new/Struct-Dumb-0.14/LICENSE --- old/Struct-Dumb-0.13/LICENSE 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/LICENSE 2023-02-11 13:57:36.000000000 +0100 @@ -1,4 +1,4 @@ -This software is copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>. +This software is copyright (c) 2023 by Paul Evans <leon...@leonerd.org.uk>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>. +This software is Copyright (c) 2023 by Paul Evans <leon...@leonerd.org.uk>. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2022 by Paul Evans <leon...@leonerd.org.uk>. +This software is Copyright (c) 2023 by Paul Evans <leon...@leonerd.org.uk>. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/MANIFEST new/Struct-Dumb-0.14/MANIFEST --- old/Struct-Dumb-0.13/MANIFEST 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/MANIFEST 2023-02-11 13:57:36.000000000 +0100 @@ -1,7 +1,11 @@ Build.PL Changes lib/Struct/Dumb.pm +LICENSE MANIFEST This list of files +META.json +META.yml +README t/00use.t t/01point.t t/02scope.t @@ -11,7 +15,3 @@ t/10data-dump.t t/11data-dump-late.t t/99pod.t -README -LICENSE -META.yml -META.json diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/META.json new/Struct-Dumb-0.14/META.json --- old/Struct-Dumb-0.13/META.json 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/META.json 2023-02-11 13:57:36.000000000 +0100 @@ -21,15 +21,14 @@ }, "test" : { "requires" : { - "Test::Fatal" : "0", - "Test::More" : "0.88" + "Test2::V0" : "0" } } }, "provides" : { "Struct::Dumb" : { "file" : "lib/Struct/Dumb.pm", - "version" : "0.13" + "version" : "0.14" } }, "release_status" : "stable", @@ -38,6 +37,6 @@ "http://dev.perl.org/licenses/" ] }, - "version" : "0.13", - "x_serialization_backend" : "JSON::PP version 4.06" + "version" : "0.14", + "x_serialization_backend" : "JSON::PP version 4.07" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/META.yml new/Struct-Dumb-0.14/META.yml --- old/Struct-Dumb-0.13/META.yml 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/META.yml 2023-02-11 13:57:36.000000000 +0100 @@ -3,8 +3,7 @@ author: - 'Paul Evans <leon...@leonerd.org.uk>' build_requires: - Test::Fatal: '0' - Test::More: '0.88' + Test2::V0: '0' configure_requires: Module::Build: '0.4004' dynamic_config: 1 @@ -17,8 +16,8 @@ provides: Struct::Dumb: file: lib/Struct/Dumb.pm - version: '0.13' + version: '0.14' resources: license: http://dev.perl.org/licenses/ -version: '0.13' +version: '0.14' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/lib/Struct/Dumb.pm new/Struct-Dumb-0.14/lib/Struct/Dumb.pm --- old/Struct-Dumb-0.13/lib/Struct/Dumb.pm 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/lib/Struct/Dumb.pm 2023-02-11 13:57:36.000000000 +0100 @@ -8,7 +8,7 @@ use strict; use warnings; -our $VERSION = '0.13'; +our $VERSION = '0.14'; use Carp; @@ -319,10 +319,7 @@ my $name = $_; my $var = "\$$name"; - " field $var;", - " ADJUST {", - " $var = delete \$_[0]->{$name};", - " }", + " field $var :param = undef;", " method $name$lvalue { \@_ and croak \"$pkg->$name invoked with arguments\"; $var }", } @$fields; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/00use.t new/Struct-Dumb-0.14/t/00use.t --- old/Struct-Dumb-0.13/t/00use.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/00use.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,8 +3,9 @@ use strict; use warnings; -use Test::More; +use Test2::V0; -use_ok( "Struct::Dumb" ); +require Struct::Dumb; +pass "Modules loaded"; done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/01point.t new/Struct-Dumb-0.14/t/01point.t --- old/Struct-Dumb-0.13/t/01point.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/01point.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,8 +3,7 @@ use strict; use warnings; -use Test::More; -use Test::Fatal; +use Test2::V0; use Scalar::Util qw( refaddr ); @@ -22,26 +21,26 @@ $point->y = 30; is( $point->y, 30, '$point->y is 30 after mutation' ); -like( exception { $point->z }, +like( dies { $point->z }, qr/^main::Point does not have a 'z' field at \S+ line \d+\.?\n/, '$point->z throws exception' ); -like( exception { $point->z = 40 }, +like( dies { $point->z = 40 }, qr/^main::Point does not have a 'z' field at \S+ line \d+\.?\n/, '$point->z :lvalue throws exception' ); -like( exception { Point(30) }, +like( dies { Point(30) }, qr/^usage: main::Point\(\$x, \$y\) at \S+ line \d+\.?\n/, 'Point(30) throws usage exception' ); -like( exception { @{ Point(0, 0) } }, +like( dies { @{ Point(0, 0) } }, qr/^Cannot use main::Point as an ARRAY reference at \S+ line \d+\.?\n/, 'Array deref throws exception' ); SKIP: { skip "Instances are not ARRAYs", 1 unless Scalar::Util::reftype( Point(1, 1) ) eq "ARRAY"; - ok( !( local $@ = exception { + ok( !( local $@ = dies { no warnings 'redefine'; local *Point::_forbid_arrayification = sub {}; @{ Point(2, 2) }; @@ -50,11 +49,11 @@ diag( "Exception was $@" ); } -like( exception { $point->x(50) }, +like( dies { $point->x(50) }, qr/^main::Point->x invoked with arguments at \S+ line \d+\.?\n/, 'Accessor with arguments throws exception' ); -ok( !( local $@ = exception { !! Point(0, 0) } ), +ok( !( local $@ = dies { !! Point(0, 0) } ), 'Point is boolean true' ) or diag( "Exception was $@" ); is( $point + 0, refaddr $point, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/02scope.t new/Struct-Dumb-0.14/t/02scope.t --- old/Struct-Dumb-0.13/t/02scope.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/02scope.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More; +use Test2::V0; package Foo; use Struct::Dumb; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/03readonly.t new/Struct-Dumb-0.14/t/03readonly.t --- old/Struct-Dumb-0.13/t/03readonly.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/03readonly.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,8 +3,7 @@ use strict; use warnings; -use Test::More; -use Test::Fatal; +use Test2::V0; use Struct::Dumb qw( readonly_struct ); @@ -14,7 +13,7 @@ is( $point->x, 10, '$point->x is 10' ); -ok( exception { $point->y = 30 }, +ok( dies { $point->y = 30 }, '$point->y throws exception on readonly_struct' ); done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/04named.t new/Struct-Dumb-0.14/t/04named.t --- old/Struct-Dumb-0.13/t/04named.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/04named.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,8 +3,7 @@ use strict; use warnings; -use Test::More; -use Test::Fatal; +use Test2::V0; use Struct::Dumb; @@ -33,11 +32,11 @@ ::is( $point->z, 3, '$point->z from default named constructor' ); } -like( exception { Colour( red => 0, green => 0 ) }, +like( dies { Colour( red => 0, green => 0 ) }, qr/^usage: main::Colour requires 'blue' at \S+ line \d+\.?\n/, 'Colour() without blue throws usage exception' ); -like( exception { Colour( red => 0, green => 0, blue => 0, yellow => 1 ) }, +like( dies { Colour( red => 0, green => 0, blue => 0, yellow => 1 ) }, qr/^usage: main::Colour does not recognise 'yellow' at \S+ line \d+\.?\n/, 'Colour() with yellow throws usage exception' ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/05predicate.t new/Struct-Dumb-0.14/t/05predicate.t --- old/Struct-Dumb-0.13/t/05predicate.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/05predicate.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,8 +3,7 @@ use strict; use warnings; -use Test::More; -use Test::Fatal; +use Test2::V0; use Struct::Dumb; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/10data-dump.t new/Struct-Dumb-0.14/t/10data-dump.t --- old/Struct-Dumb-0.13/t/10data-dump.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/10data-dump.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More; +use Test2::V0; BEGIN { plan skip_all => "No Data::Dump" unless eval { require Data::Dump; }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/11data-dump-late.t new/Struct-Dumb-0.14/t/11data-dump-late.t --- old/Struct-Dumb-0.13/t/11data-dump-late.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/11data-dump-late.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More; +use Test2::V0; use Struct::Dumb; BEGIN { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Struct-Dumb-0.13/t/99pod.t new/Struct-Dumb-0.14/t/99pod.t --- old/Struct-Dumb-0.13/t/99pod.t 2022-08-27 14:26:46.000000000 +0200 +++ new/Struct-Dumb-0.14/t/99pod.t 2023-02-11 13:57:36.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More; +use Test2::V0; eval "use Test::Pod 1.00"; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;