Projects
openEuler:Mainline
perl-Test-Simple
Sign Up
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
Expand all
Collapse all
Changes of Revision 10
View file
_service:tar_scm:perl-Test-Simple.spec
Changed
@@ -2,8 +2,8 @@ Name: perl-%{mod_name} Summary: Basic utilities for writing tests Epoch: 2 -Version: 1.302188 -Release: 2 +Version: 1.302195 +Release: 1 License: (GPL+ or Artistic) and CC0 and Public Domain URL: https://metacpan.org/release/%{mod_name} Source0: https://cpan.metacpan.org/modules/by-module/Test/%{mod_name}-%{version}.tar.gz @@ -66,6 +66,9 @@ %{_mandir}/man3/Test* %changelog +* Thu Aug 3 2023 yangmingtai <yangmingtai@huawei.com> - 2:1.302195-1 +- upgrade version to 1.302195 + * Tue Oct 25 2022 zhoushuiqing <zhoushuiqing2@huawei.com> - 1.302188-2 - define mod_name to opitomize the specfile
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/Changes -> _service:tar_scm:Test-Simple-1.302195.tar.gz/Changes
Changed
@@ -1,3 +1,32 @@ +1.302195 2023-04-28 05:55:54-07:00 America/Los_Angeles + + - Fix done_testing(0) producing 2 plans and an incorrect message + +1.302194 2023-03-13 20:06:57-07:00 America/Los_Angeles + + - Fix failing test on 5.10 + +1.302193 2023-03-06 09:38:00-08:00 America/Los_Angeles + + - Deprecate isn't() + +1.302192 2023-02-02 07:34:08-08:00 America/Los_Angeles + + - Silence deprecation warning when testing smartmatch + +1.302191 2022-07-09 10:48:09-07:00 America/Los_Angeles + + - CI Fixes + - avoid failing when printing diagnostic info comparing partial overload objects + +1.302190 2022-03-04 15:07:45-08:00 America/Los_Angeles + + - Fix subtest times to be hi-res + +1.302189 2022-02-24 21:23:05-08:00 America/Los_Angeles + + - Fix #890, #891 + 1.302188 2021-09-29 08:31:27-07:00 America/Los_Angeles - Fix for non-gcc compilers on 5.10.0
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/LICENSE -> _service:tar_scm:Test-Simple-1.302195.tar.gz/LICENSE
Changed
@@ -1,4 +1,4 @@ -This software is copyright (c) 2021 by Chad Granum. +This software is copyright (c) 2023 by Chad Granum. 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) 2021 by Chad Granum. +This software is Copyright (c) 2023 by Chad Granum. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2021 by Chad Granum. +This software is Copyright (c) 2023 by Chad Granum. This is free software, licensed under:
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/META.json -> _service:tar_scm:Test-Simple-1.302195.tar.gz/META.json
Changed
@@ -51,7 +51,7 @@ "url" : "http://github.com/Test-More/test-more/" } }, - "version" : "1.302188", + "version" : "1.302195", "x_breaks" : { "Log::Dispatch::Config::TestLog" : "<= 0.02", "Net::BitTorrent" : "<= 0.052",
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/META.yml -> _service:tar_scm:Test-Simple-1.302195.tar.gz/META.yml
Changed
@@ -22,7 +22,7 @@ resources: bugtracker: http://github.com/Test-More/test-more/issues repository: http://github.com/Test-More/test-more/ -version: '1.302188' +version: '1.302195' x_breaks: Log::Dispatch::Config::TestLog: '<= 0.02' Net::BitTorrent: '<= 0.052'
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/Makefile.PL -> _service:tar_scm:Test-Simple-1.302195.tar.gz/Makefile.PL
Changed
@@ -23,7 +23,7 @@ "Storable" => 0, "utf8" => 0 }, - "VERSION" => "1.302188", + "VERSION" => "1.302195", "test" => { "TESTS" => "t/*.t t/Legacy/*.t t/Legacy/Bugs/*.t t/Legacy/Builder/*.t t/Legacy/Regression/*.t t/Legacy/Simple/*.t t/Legacy/Test2/*.t t/Legacy/Tester/*.t t/Legacy/subtest/*.t t/Legacy_And_Test2/*.t t/Test2/acceptance/*.t t/Test2/behavior/*.t t/Test2/legacy/*.t t/Test2/modules/*.t t/Test2/modules/API/*.t t/Test2/modules/API/InterceptResult/*.t t/Test2/modules/Event/*.t t/Test2/modules/Event/TAP/*.t t/Test2/modules/EventFacet/*.t t/Test2/modules/Formatter/*.t t/Test2/modules/Hub/*.t t/Test2/modules/Hub/Interceptor/*.t t/Test2/modules/IPC/*.t t/Test2/modules/IPC/Driver/*.t t/Test2/modules/Tools/*.t t/Test2/modules/Util/*.t t/Test2/regression/*.t t/regression/*.t" }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Builder.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Builder.pm
Changed
@@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { if( $ < 5.008 ) { @@ -767,7 +767,7 @@ require overload; } my $string_meth = overload::Method( $$thing, $type ) || return; - $$thing = $$thing->$string_meth(); + $$thing = $$thing->$string_meth(undef, 0); } sub _unoverload_str { @@ -1002,15 +1002,7 @@ $self->_is_diag( $got, $type, $expect ); } elsif( $type =~ /^(ne|!=)$/ ) { - no warnings; - my $eq = ($got eq $expect || $got == $expect) - && ( - (defined($got) xor defined($expect)) - || (length($got) != length($expect)) - ); - use warnings; - - if ($eq) { + if (defined($got) xor defined($expect)) { $self->_cmp_diag( $got, $type, $expect ); } else { @@ -1678,7 +1670,7 @@ return unless $plan || $count || $failed; # Ran tests but never declared a plan or hit done_testing - if( !$hub->plan and $hub->count ) { + if( !defined($hub->plan) and $hub->count ) { $self->diag("Tests were run but no plan was declared and done_testing() was not seen."); if($real_exit_code) {
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Builder/Formatter.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Builder/Formatter.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Builder/Module.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Builder/Module.pm
Changed
@@ -7,7 +7,7 @@ require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; =head1 NAME
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Builder/Tester.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Builder/Tester.pm
Changed
@@ -1,7 +1,7 @@ package Test::Builder::Tester; use strict; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test::Builder; use Symbol;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Builder/Tester/Color.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Builder/Tester/Color.pm
Changed
@@ -1,7 +1,7 @@ package Test::Builder::Tester::Color; use strict; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; require Test::Builder::Tester;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Builder/TodoDiag.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Builder/TodoDiag.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/More.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/More.pm
Changed
@@ -17,7 +17,7 @@ return warn @_, " at $file line $line\n"; } -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); @@ -394,8 +394,13 @@ isnt $obj, $clone, "clone() produces a different object"; -For those grammatical pedants out there, there's an C<isn't()> -function which is an alias of C<isnt()>. +Historically we supported an C<isn't()> function as an alias of +C<isnt()>, however in Perl 5.37.9 support for the use of aprostrophe as +a package separator was deprecated and by Perl 5.42.0 support for it +will have been removed completely. Accordingly use of C<isn't()> is also +deprecated, and will produce warnings when used unless 'deprecated' +warnings are specifically disabled in the scope where it is used. You +are strongly advised to migrate to using C<isnt()> instead. =cut @@ -411,8 +416,25 @@ return $tb->isnt_eq(@_); } -*isn't = \&isnt; -# ' to unconfuse syntax higlighters +# Historically it was possible to use apostrophes as a package +# separator. make this available as isn't() for perl's that support it. +# However in 5.37.9 the apostrophe as a package separator was +# deprecated, so warn users of isn't() that they should use isnt() +# instead. We assume that if they are calling isn::t() they are doing so +# via isn't() as we have no way to be sure that they aren't spelling it +# with a double colon. We only trigger the warning if deprecation +# warnings are enabled, so the user can silence the warning if they +# wish. +sub isn::t { + local ($@, $!, $?); + if (warnings::enabled("deprecated")) { + _carp + "Use of apostrophe as package separator was deprecated in Perl 5.37.9,\n", + "and will be removed in Perl 5.42.0. You should change code that uses\n", + "Test::More::isn't() to use Test::More::isnt() as a replacement"; + } + goto &isnt; +} =item B<like> @@ -1770,8 +1792,8 @@ Sometimes the Test::More interface isn't quite enough. Fortunately, Test::More is built on top of L<Test::Builder> which provides a single, unified backend for any test library to use. This means two test -libraries which both use <Test::Builder> B<can> be used together in the -same program>. +libraries which both use L<Test::Builder> B<can> be used together in the +same program. If you simply want to do a little tweaking of how the tests behave, you can access the underlying L<Test::Builder> object like so:
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Simple.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Simple.pm
Changed
@@ -4,7 +4,7 @@ use strict; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module);
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Tester.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Tester.pm
Changed
@@ -18,7 +18,7 @@ use vars qw( @ISA @EXPORT ); -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; @EXPORT = qw( run_tests check_tests check_test cmp_results show_space ); @ISA = qw( Exporter );
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Tester/Capture.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Tester/Capture.pm
Changed
@@ -2,7 +2,7 @@ package Test::Tester::Capture; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test::Builder;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Tester/CaptureRunner.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Tester/CaptureRunner.pm
Changed
@@ -3,7 +3,7 @@ package Test::Tester::CaptureRunner; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test::Tester::Capture;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/Tester/Delegate.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/Tester/Delegate.pm
Changed
@@ -3,7 +3,7 @@ package Test::Tester::Delegate; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Scalar::Util();
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test/use/ok.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test/use/ok.pm
Changed
@@ -1,7 +1,7 @@ package Test::use::ok; use 5.005; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; __END__
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; 1;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API.pm
Changed
@@ -2,6 +2,7 @@ use strict; use warnings; +use Time::HiRes qw/time/; use Test2::Util qw/USE_THREADS/; BEGIN { @@ -9,7 +10,7 @@ $ENV{TEST2_ACTIVE} = 1; } -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; my $INST;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/Breakage.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/Breakage.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::Util qw/pkg_to_file/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/Context.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/Context.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/confess croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/Instance.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/Instance.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/; use Carp qw/confess carp/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/InterceptResult.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/InterceptResult.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Scalar::Util qw/blessed/; use Test2::Util qw/pkg_to_file/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/InterceptResult/Event.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/InterceptResult/Event.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use List::Util qw/first/; use Test2::Util qw/pkg_to_file/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/InterceptResult/Facet.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/InterceptResult/Facet.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/InterceptResult/Hub.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/InterceptResult/Hub.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/InterceptResult/Squasher.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/InterceptResult/Squasher.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/croak/; use List::Util qw/first/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/API/Stack.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/API/Stack.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::Hub();
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Scalar::Util qw/blessed reftype/; use Carp qw/croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Bail.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Bail.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Diag.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Diag.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Encoding.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Encoding.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Exception.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Exception.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Fail.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Fail.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::EventFacet::Info;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Generic.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Generic.pm
Changed
@@ -5,7 +5,7 @@ use Carp qw/croak/; use Scalar::Util qw/reftype/; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) } use Test2::Util::HashBase;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Note.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Note.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Ok.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Ok.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Pass.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Pass.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::EventFacet::Info;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Plan.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Plan.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Skip.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Skip.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Subtest.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Subtest.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) } use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid start_stamp stop_stamp};
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/TAP/Version.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/TAP/Version.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/V2.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/V2.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Scalar::Util qw/reftype/; use Carp qw/croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Event/Waiting.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Event/Waiting.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::Util::HashBase qw/-details/; use Carp qw/croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/About.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/About.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -package -no_display -uuid -eid };
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Amnesty.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Amnesty.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; sub is_list { 1 }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Assert.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Assert.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -pass -no_debug -number };
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Control.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Control.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding -phase };
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Error.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Error.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; sub facet_key { 'errors' } sub is_list { 1 }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Hub.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Hub.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; sub is_list { 1 } sub facet_key { 'hubs' }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Info.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Info.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; sub is_list { 1 }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Info/Table.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Info/Table.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/confess/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Meta.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Meta.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use vars qw/$AUTOLOAD/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Parent.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Parent.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/confess/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Plan.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Plan.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) } use Test2::Util::HashBase qw{ -count -skip -none };
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Render.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Render.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; sub is_list { 1 }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/EventFacet/Trace.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/EventFacet/Trace.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Formatter.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Formatter.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; my %ADDED;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Formatter/TAP.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Formatter/TAP.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::Util qw/clone_io/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Hub.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Hub.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/carp croak confess/; @@ -432,7 +432,7 @@ $count = $self->{+COUNT}; $failed = $self->{+FAILED}; - if (($plan && $plan eq 'NO PLAN') || ($do_plan && !$plan)) { + if ((defined($plan) && $plan eq 'NO PLAN') || ($do_plan && !defined($plan))) { $self->send( Test2::Event::Plan->new( trace => $trace,
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Hub/Interceptor.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Hub/Interceptor.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::Hub::Interceptor::Terminator();
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Hub/Interceptor/Terminator.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Hub/Interceptor/Terminator.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; 1;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Hub/Subtest.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Hub/Subtest.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) } use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/IPC.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/IPC.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Test2::API::Instance;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/IPC/Driver.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/IPC/Driver.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/confess/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/IPC/Driver/Files.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/IPC/Driver/Files.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Tools/Tiny.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Tools/Tiny.pm
Changed
@@ -16,7 +16,7 @@ use Test2::Hub::Interceptor(); use Test2::Hub::Interceptor::Terminator(); -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; BEGIN { require Exporter; our @ISA = qw(Exporter) } our @EXPORT = qw{
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Util.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Util.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use POSIX(); use Config qw/%Config/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Util/ExternalMeta.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Util/ExternalMeta.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/croak/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Util/Facets2Legacy.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Util/Facets2Legacy.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use Carp qw/croak confess/; use Scalar::Util qw/blessed/;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Util/HashBase.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Util/HashBase.pm
Changed
@@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; ################################################################# # #
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/Test2/Util/Trace.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/Test2/Util/Trace.pm
Changed
@@ -6,7 +6,7 @@ our @ISA = ('Test2::EventFacet::Trace'); -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; 1;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/lib/ok.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/lib/ok.pm
Changed
@@ -1,5 +1,5 @@ package ok; -our $VERSION = '1.302188'; +our $VERSION = '1.302195'; use strict; use Test::More ();
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/t/Legacy/More.t -> _service:tar_scm:Test-Simple-1.302195.tar.gz/t/Legacy/More.t
Changed
@@ -8,7 +8,7 @@ } use lib 't/lib'; -use Test::More tests => 54; +use Test::More tests => 57; # Make sure we don't mess with $@ or $!. Test at bottom. my $Err = "this should not be touched"; @@ -24,7 +24,24 @@ ok( 2 eq 2, 'two is two is two is two' ); is( "foo", "foo", 'foo is foo' ); isnt( "foo", "bar", 'foo isnt bar'); -isn't("foo", "bar", 'foo isn\'t bar'); +{ + use warnings; + my $warning; + local $SIG{__WARN__}= sub { $warning = $_0 }; + isn::t("foo", "bar", 'foo isn\'t bar'); + is($warning, "Use of apostrophe as package separator was deprecated in Perl 5.37.9,\n" + . "and will be removed in Perl 5.42.0. You should change code that uses\n" + . "Test::More::isn't() to use Test::More::isnt() as a replacement" + . " at t/Legacy/More.t line 31\n", + "Got expected warning from isn::t() under use warnings"); +} +{ + no warnings "deprecated"; + my $warning; + local $SIG{__WARN__}= sub { $warning = $_0 }; + isn::t("foo", "bar", 'foo isn\'t bar'); + is($warning, undef, "No warnings from isn::t() under no warnings deprecated"); +} #'# like("fooble", '/^foo/', 'foo is like fooble');
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/t/Legacy/Regression/870-experimental-warnings.t -> _service:tar_scm:Test-Simple-1.302195.tar.gz/t/Legacy/Regression/870-experimental-warnings.t
Changed
@@ -2,12 +2,16 @@ use warnings; use Test2::Tools::Tiny; -BEGIN { skip_all "Only testing on 5.18+" if $ < 5.018 } +BEGIN { + skip_all "Not testing before 5.18 or after 5.37.10" + if $ < 5.018 or $ >= 5.037010; +} require Test::More; *cmp_ok = \&Test::More::cmp_ok; no warnings "experimental::smartmatch"; +no if !exists $warnings::Offsets{"experimental::smartmatch"}, warnings => 'deprecated'; my $warnings = warnings { cmp_ok(1, "~~", 1) };
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/t/Legacy/cmp_ok.t -> _service:tar_scm:Test-Simple-1.302195.tar.gz/t/Legacy/cmp_ok.t
Changed
@@ -60,6 +60,7 @@ require MyOverload; my $cmp = Overloaded::Compare->new("foo", 42); my $ify = Overloaded::Ify->new("bar", 23); +my $part = Overloaded::Partial->new('baz', 0); my @Tests = ( 1, '==', 1, @@ -74,6 +75,8 @@ $ify, 'eq', "bar", $ify, "==", 23, + $part, '!=', 0, 'expected: anything else', + 1, "=", 0, "= is not a valid comparison operator in cmp_ok()", 1, "+=", 0, "+= is not a valid comparison operator in cmp_ok()", );
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/t/Legacy/fail-more.t -> _service:tar_scm:Test-Simple-1.302195.tar.gz/t/Legacy/fail-more.t
Changed
@@ -26,7 +26,7 @@ # Test::Builder's own and the ending diagnostics don't come out right. require Test::Builder; my $TB = Test::Builder->create; -$TB->plan(tests => 80); +$TB->plan(tests => 81); sub like ($$;$) { $TB->like(@_); @@ -41,6 +41,14 @@ $TB->is_eq( $err->read, shift ); } +sub main::out_warn_ok ($$$) { + $TB->is_eq( $out->read, shift ); + $TB->is_eq( $err->read, shift ); + my $warning_expected = shift; + $warning_expected =~ s/^# //mg; + $TB->is_eq( $main::warning, $warning_expected ); +} + sub main::out_like ($$) { my($output, $failure) = @_; @@ -59,7 +67,7 @@ # This should all work in the presence of a __DIE__ handler. local $SIG{__DIE__} = sub { $TB->ok(0, "DIE handler called: ".join "", @_); }; - +local $SIG{__WARN__} = sub { $main::warning = $_0; }; my $tb = Test::More->builder; $tb->use_numbers(0); @@ -133,8 +141,8 @@ ERR #line 132 -isn't("foo", "foo",'foo isn\'t foo?' ); -out_ok( <<OUT, <<ERR ); +isn::t("foo", "foo",'foo isn\'t foo?' ); +out_warn_ok( <<OUT, <<ERR, <<WARN ); not ok - foo isn't foo? OUT # Failed test 'foo isn\'t foo?' @@ -142,6 +150,10 @@ # got: 'foo' # expected: anything else ERR +# Use of apostrophe as package separator was deprecated in Perl 5.37.9, +# and will be removed in Perl 5.42.0. You should change code that uses +# Test::More::isn't() to use Test::More::isnt() as a replacement at t/Legacy/fail-more.t line 132 +WARN #line 143 isnt(undef, undef, 'undef isnt undef?');
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/t/Test2/modules/IPC/Driver/Files.t -> _service:tar_scm:Test-Simple-1.302195.tar.gz/t/Test2/modules/IPC/Driver/Files.t
Changed
@@ -1,7 +1,7 @@ use Test2::Tools::Tiny; use Test2::Util qw/get_tid USE_THREADS try ipc_separator/; use File::Temp qw/tempfile/; -use File::Spec qw/catfile/; +use File::Spec; use List::Util qw/shuffle/; use strict; use warnings;
View file
_service:tar_scm:Test-Simple-1.302188.tar.gz/t/lib/MyOverload.pm -> _service:tar_scm:Test-Simple-1.302195.tar.gz/t/lib/MyOverload.pm
Changed
@@ -24,7 +24,20 @@ our @ISA = qw(Overloaded); use overload + q{""} => sub { + @_ == 3 or die "Expected 3 parameters"; + $_0->{string}; + }, + q{0+} => sub { + @_ == 3 or die "Expected 3 parameters"; + $_0->{num}; + }; + +package Overloaded::Partial; + +our @ISA = qw(Overloaded); +use overload q{""} => sub { $_0->{string} }, - q{0+} => sub { $_0->{num} }; + q{!=} => sub { $_0->{num} != $_1 }; 1;
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.
浙ICP备2022010568号-2