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 $@;
