Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Test-ExpectAndCheck for
openSUSE:Factory checked in at 2026-01-08 15:28:28
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-ExpectAndCheck (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-ExpectAndCheck.new.1928 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-ExpectAndCheck"
Thu Jan 8 15:28:28 2026 rev:4 rq:1325872 version:0.80.0
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Test-ExpectAndCheck/perl-Test-ExpectAndCheck.changes
2025-01-07 20:53:13.488429666 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Test-ExpectAndCheck.new.1928/perl-Test-ExpectAndCheck.changes
2026-01-08 15:29:16.161651959 +0100
@@ -1,0 +2,12 @@
+Fri Jan 2 15:32:32 UTC 2026 - Tina Müller <[email protected]>
+
+- updated to 0.80.0 (0.08)
+ see /usr/share/doc/packages/perl-Test-ExpectAndCheck/Changes
+
+ 0.08 2026-01-01
+ [CHANGES]
+ * Optionally allow mock objects to claim to be instances of given
+ classes
+ * Treat "\r" as escapeable plain text when rendering argument
strings
+
+-------------------------------------------------------------------
Old:
----
Test-ExpectAndCheck-0.07.tar.gz
New:
----
README.md
Test-ExpectAndCheck-0.08.tar.gz
_scmsync.obsinfo
build.specials.obscpio
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-ExpectAndCheck.spec ++++++
--- /var/tmp/diff_new_pack.ELiUNw/_old 2026-01-08 15:29:16.689674225 +0100
+++ /var/tmp/diff_new_pack.ELiUNw/_new 2026-01-08 15:29:16.693674396 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Test-ExpectAndCheck
#
-# Copyright (c) 2024 SUSE LLC
+# Copyright (c) 2026 SUSE LLC and contributors
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,19 +18,20 @@
%define cpan_name Test-ExpectAndCheck
Name: perl-Test-ExpectAndCheck
-Version: 0.70.0
+Version: 0.80.0
Release: 0
-# 0.07 -> normalize -> 0.70.0
-%define cpan_version 0.07
+# 0.08 -> normalize -> 0.80.0
+%define cpan_version 0.08
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Expect/check-style unit testing with object methods
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{cpan_version}.tar.gz
Source1: cpanspec.yml
+Source100: README.md
BuildArch: noarch
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(Module::Build) >= 0.4004
+BuildRequires: perl(Module::Build) >= 0.400.400
BuildRequires: perl(Test2::V0)
BuildRequires: perl(Test::Builder) >= 1.302
BuildRequires: perl(Test::Deep)
@@ -51,7 +52,7 @@
each object is checked to ensure all the expected methods were called.
%prep
-%autosetup -n %{cpan_name}-%{cpan_version}
+%autosetup -n %{cpan_name}-%{cpan_version} -p1
%build
perl Build.PL --installdirs=vendor
++++++ README.md ++++++
## Build Results
Current state of perl in openSUSE:Factory is
The current state of perl in the devel project build (devel:languages:perl)
++++++ Test-ExpectAndCheck-0.07.tar.gz -> Test-ExpectAndCheck-0.08.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/Changes
new/Test-ExpectAndCheck-0.08/Changes
--- old/Test-ExpectAndCheck-0.07/Changes 2024-10-13 14:23:33.000000000
+0200
+++ new/Test-ExpectAndCheck-0.08/Changes 2026-01-01 21:28:08.000000000
+0100
@@ -1,5 +1,11 @@
Revision history for Test-ExpectAndCheck
+0.08 2026-01-01
+ [CHANGES]
+ * Optionally allow mock objects to claim to be instances of given
+ classes
+ * Treat "\r" as escapeable plain text when rendering argument strings
+
0.07 2024-10-13
[CHANGES]
* Added `namedargs()` helper for dealing with methods that take named
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/LICENSE
new/Test-ExpectAndCheck-0.08/LICENSE
--- old/Test-ExpectAndCheck-0.07/LICENSE 2024-10-13 14:23:33.000000000
+0200
+++ new/Test-ExpectAndCheck-0.08/LICENSE 2026-01-01 21:28:08.000000000
+0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2024 by Paul Evans <[email protected]>.
+This software is copyright (c) 2026 by Paul Evans <[email protected]>.
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) 2024 by Paul Evans <[email protected]>.
+This software is Copyright (c) 2026 by Paul Evans <[email protected]>.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Perl Artistic License 1.0 ---
-This software is Copyright (c) 2024 by Paul Evans <[email protected]>.
+This software is Copyright (c) 2026 by Paul Evans <[email protected]>.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/MANIFEST
new/Test-ExpectAndCheck-0.08/MANIFEST
--- old/Test-ExpectAndCheck-0.07/MANIFEST 2024-10-13 14:23:33.000000000
+0200
+++ new/Test-ExpectAndCheck-0.08/MANIFEST 2026-01-01 21:28:08.000000000
+0100
@@ -12,5 +12,6 @@
t/01expect.t
t/02whenever.t
t/03named-params.t
+t/04isa.t
t/10future.t
t/99pod.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/META.json
new/Test-ExpectAndCheck-0.08/META.json
--- old/Test-ExpectAndCheck-0.07/META.json 2024-10-13 14:23:33.000000000
+0200
+++ new/Test-ExpectAndCheck-0.08/META.json 2026-01-01 21:28:08.000000000
+0100
@@ -38,11 +38,11 @@
"provides" : {
"Test::ExpectAndCheck" : {
"file" : "lib/Test/ExpectAndCheck.pm",
- "version" : "0.07"
+ "version" : "0.08"
},
"Test::ExpectAndCheck::Future" : {
"file" : "lib/Test/ExpectAndCheck/Future.pm",
- "version" : "0.07"
+ "version" : "0.08"
}
},
"release_status" : "stable",
@@ -51,6 +51,6 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "0.07",
+ "version" : "0.08",
"x_serialization_backend" : "JSON::PP version 4.16"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/META.yml
new/Test-ExpectAndCheck-0.08/META.yml
--- old/Test-ExpectAndCheck-0.07/META.yml 2024-10-13 14:23:33.000000000
+0200
+++ new/Test-ExpectAndCheck-0.08/META.yml 2026-01-01 21:28:08.000000000
+0100
@@ -17,10 +17,10 @@
provides:
Test::ExpectAndCheck:
file: lib/Test/ExpectAndCheck.pm
- version: '0.07'
+ version: '0.08'
Test::ExpectAndCheck::Future:
file: lib/Test/ExpectAndCheck/Future.pm
- version: '0.07'
+ version: '0.08'
requires:
List::Util: '0'
Test::Builder: '1.302'
@@ -29,5 +29,5 @@
perl: '5.014'
resources:
license: http://dev.perl.org/licenses/
-version: '0.07'
+version: '0.08'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/README
new/Test-ExpectAndCheck-0.08/README
--- old/Test-ExpectAndCheck-0.07/README 2024-10-13 14:23:33.000000000 +0200
+++ new/Test-ExpectAndCheck-0.08/README 2026-01-01 21:28:08.000000000 +0100
@@ -51,7 +51,7 @@
create
- ( $controller, $mock ) = Test::ExpectAndCheck->create;
+ ( $controller, $mock ) = Test::ExpectAndCheck->create( %params );
Objects are created in "entangled pairs" by the create method. The
first object is called the "controller", and is used by the unit
@@ -61,6 +61,24 @@
are (hopefully) invoked. It will have whatever interface is implied by
the method call expectations.
+ Takes the following optional named parameters:
+
+ isa
+
+ isa => [qw( Some Class Names )],
+
+ Since version 0.08.
+
+ Specifies a list of class names that the mock object will claim to be
+ if interrogated by its isa method. This is useful if the code under
+ test will use an ->isa check on the passed-in mocking object and
+ therefore it needs to pretend to be of some particular class.
+
+ Note though that no actual method inheritence will take place here.
+ This simply provides the isa method. Any actual required behaviour
+ will still have to be created using the "expect" or "whenever"
+ methods as usual.
+
expect
$exp = $controller->expect( $method, @args );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-ExpectAndCheck-0.07/lib/Test/ExpectAndCheck/Future.pm
new/Test-ExpectAndCheck-0.08/lib/Test/ExpectAndCheck/Future.pm
--- old/Test-ExpectAndCheck-0.07/lib/Test/ExpectAndCheck/Future.pm
2024-10-13 14:23:33.000000000 +0200
+++ new/Test-ExpectAndCheck-0.08/lib/Test/ExpectAndCheck/Future.pm
2026-01-01 21:28:08.000000000 +0100
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2020-2023 -- [email protected]
-package Test::ExpectAndCheck::Future 0.07;
+package Test::ExpectAndCheck::Future 0.08;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/lib/Test/ExpectAndCheck.pm
new/Test-ExpectAndCheck-0.08/lib/Test/ExpectAndCheck.pm
--- old/Test-ExpectAndCheck-0.07/lib/Test/ExpectAndCheck.pm 2024-10-13
14:23:33.000000000 +0200
+++ new/Test-ExpectAndCheck-0.08/lib/Test/ExpectAndCheck.pm 2026-01-01
21:28:08.000000000 +0100
@@ -1,9 +1,9 @@
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
-# (C) Paul Evans, 2021-2023 -- [email protected]
+# (C) Paul Evans, 2021-2026 -- [email protected]
-package Test::ExpectAndCheck 0.07;
+package Test::ExpectAndCheck 0.08;
use v5.14;
use warnings;
@@ -79,7 +79,7 @@
=head2 create
- ( $controller, $mock ) = Test::ExpectAndCheck->create;
+ ( $controller, $mock ) = Test::ExpectAndCheck->create( %params );
Objects are created in "entangled pairs" by the C<create> method. The first
object is called the "controller", and is used by the unit testing script to
@@ -88,17 +88,41 @@
tested, on which the expected method calls are (hopefully) invoked. It will
have whatever interface is implied by the method call expectations.
+Takes the following optional named parameters:
+
+=over 4
+
+=item isa
+
+ isa => [qw( Some Class Names )],
+
+I<Since version 0.08.>
+
+Specifies a list of class names that the mock object will claim to be if
+interrogated by its C<isa> method. This is useful if the code under test will
+use an C<< ->isa >> check on the passed-in mocking object and therefore it
+needs to pretend to be of some particular class.
+
+Note though that no I<actual> method inheritence will take place here. This
+simply provides the C<isa> method. Any actual required behaviour will still
+have to be created using the L</expect> or L</whenever> methods as usual.
+
+=back
+
=cut
sub create
{
my $class = shift;
+ my %params = @_;
my $controller = bless {
expectations => [],
whenever => {},
}, $class;
- my $mock = Test::ExpectAndCheck::_Obj->new( $controller );
+ my $mock = Test::ExpectAndCheck::_Obj->new( $controller,
+ isa => $params{isa},
+ );
return ( $controller, $mock );
}
@@ -204,13 +228,14 @@
return qq('$v');
}
else {
- if( $v =~ m/[^\n\x20-\x7E]/ ) {
+ if( $v =~ m/[^\n\r\x20-\x7E]/ ) {
# string contains something non-printable; just hexdump it all
$v =~ s{(.)}{sprintf "\\x%02X", ord $1}gse;
}
else {
$v =~ s/([\\'\$\@])/\\$1/g;
$v =~ s{\n}{\\n}g;
+ $v =~ s{\r}{\\r}g;
}
return qq("$v");
}
@@ -600,9 +625,23 @@
sub new
{
my $class = shift;
- my ( $controller ) = @_;
+ my ( $controller, %params ) = @_;
+
+ my $isa = $params{isa} ? [ @{$params{isa}} ] : undef;
+
+ return bless [ $controller, $isa ], $class;
+}
+
+sub isa
+{
+ my $self = shift;
+ my ( $pkg ) = @_;
+
+ if( my $isa = $self->[1] ) {
+ $pkg eq $_ and return 1 for @$isa;
+ }
- return bless [ $controller ], $class;
+ return $self->SUPER::isa( $pkg );
}
sub AUTOLOAD
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-ExpectAndCheck-0.07/t/04isa.t
new/Test-ExpectAndCheck-0.08/t/04isa.t
--- old/Test-ExpectAndCheck-0.07/t/04isa.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Test-ExpectAndCheck-0.08/t/04isa.t 2026-01-01 21:28:08.000000000
+0100
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use v5.14;
+use warnings;
+
+use Test::Builder::Tester;
+use Test2::V0;
+
+use Test::ExpectAndCheck;
+
+my ( $controller, $mock ) = Test::ExpectAndCheck->create(
+ isa => [qw( A::Class B::Class )],
+);
+
+ok( $mock->isa( "A::Class" ), '$mock claims to be A::Class' );
+ok( !$mock->isa( "D::Class" ), '$mock does not claim to be D::Class' );
+
+done_testing;
++++++ _scmsync.obsinfo ++++++
mtime: 1767367953
commit: 62610c772246259a216ae9598fb8f690e90d2a2e93bf55eada0ac2a7ed7c94e7
url: https://src.opensuse.org/perl/perl-Test-ExpectAndCheck.git
revision: 62610c772246259a216ae9598fb8f690e90d2a2e93bf55eada0ac2a7ed7c94e7
projectscmsync: https://src.opensuse.org/perl/_ObsPrj
++++++ build.specials.obscpio ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/.gitignore new/.gitignore
--- old/.gitignore 1970-01-01 01:00:00.000000000 +0100
+++ new/.gitignore 2026-01-03 00:51:32.000000000 +0100
@@ -0,0 +1 @@
+.osc
