- New upstream release 0.40 - Test::Class failed on Test::Builder 0.99 (CPAN RT#89473) - This release by RJBS -> update source URL - Drop now-redundant test patch - Use a patch to fix the documentation character encoding - Drop %defattr, redundant since rpm 4.4 - Make the %files list more explicit - No need to remove empty directories from the buildroot - Don't use macros for commands - Work around annoying noise from TAP::Parser::SourceHandler::Perl version 3.28 (CPAN RT#85106)epel9
Paul Howarth
11 years ago
parent
bfd2413913
commit
bcac0eda35
@ -1,4 +1 @@
|
||||
Test-Class-0.33.tar.gz
|
||||
/Test-Class-0.36.tar.gz
|
||||
/Test-Class-0.38.tar.gz
|
||||
/Test-Class-0.39.tar.gz
|
||||
/Test-Class-[0-9.]*.tar.gz
|
||||
|
||||
@ -1,84 +0,0 @@
|
||||
From eceb5cde6609858e700cbeb2fd787109ce263e9c Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Wed, 7 Aug 2013 10:58:43 +0200
|
||||
Subject: [PATCH] Adjust to Test-Simple 0.98_04
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
<https://rt.cpan.org/Public/Bug/Display.html?id=85004>
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
t/fail2.t | 19 ++++++++++++++-----
|
||||
t/runtests_die.t | 17 +++++++++++++----
|
||||
2 files changed, 27 insertions(+), 9 deletions(-)
|
||||
|
||||
diff --git a/t/fail2.t b/t/fail2.t
|
||||
index 0231685..26d6f54 100644
|
||||
--- a/t/fail2.t
|
||||
+++ b/t/fail2.t
|
||||
@@ -23,14 +23,23 @@ sub _test_new : Test(3) {
|
||||
package main;
|
||||
$ENV{TEST_VERBOSE}=0;
|
||||
|
||||
-my $identifier = ($Test::More::VERSION < 0.88) ? 'object' : 'thing';
|
||||
+my $identifier = 'undef';
|
||||
+if ($Test::More::VERSION < 0.88) {
|
||||
+ $identifier = 'The object';
|
||||
+} elsif ($Test::More::VERSION < 0.9804) {
|
||||
+ $identifier = 'The thing';
|
||||
+}
|
||||
+my $quote = q{'};
|
||||
+if ($Test::More::VERSION < 0.9804) {
|
||||
+ $quote = q{};
|
||||
+}
|
||||
|
||||
-test_out("not ok 1 - The $identifier isa Object");
|
||||
+test_out("not ok 1 - $identifier isa $quote" . "Object" . "$quote");
|
||||
test_out("not ok 2 - cannot create Objects");
|
||||
-test_fail(-12);
|
||||
+test_fail(-21);
|
||||
test_err( "# (in Object::Test->_test_new)" );
|
||||
-test_err(qr/#\s+The $identifier isn't defined\n/);
|
||||
-test_fail(-15);
|
||||
+test_err(qr/#\s+\Q$identifier\E isn't defined\n/);
|
||||
+test_fail(-24);
|
||||
test_err( "# (in Object::Test->_test_new)" );
|
||||
|
||||
Object::Test->runtests;
|
||||
diff --git a/t/runtests_die.t b/t/runtests_die.t
|
||||
index 238ec21..953bd1d 100755
|
||||
--- a/t/runtests_die.t
|
||||
+++ b/t/runtests_die.t
|
||||
@@ -21,14 +21,23 @@ use Test::Builder::Tester tests => 1;
|
||||
$ENV{TEST_VERBOSE}=0;
|
||||
|
||||
my $filename = sub { return (caller)[1] }->();
|
||||
-my $identifier = ($Test::More::VERSION < 0.88) ? 'object' : 'thing';
|
||||
+my $identifier = 'undef';
|
||||
+if ($Test::More::VERSION < 0.88) {
|
||||
+ $identifier = 'The object';
|
||||
+} elsif ($Test::More::VERSION < 0.9804) {
|
||||
+ $identifier = 'The thing';
|
||||
+}
|
||||
+my $quote = q{'};
|
||||
+if ($Test::More::VERSION < 0.9804) {
|
||||
+ $quote = q{};
|
||||
+}
|
||||
|
||||
-test_out( "not ok 1 - The $identifier isa Object");
|
||||
+test_out( "not ok 1 - $identifier isa $quote" . "Object" . "$quote");
|
||||
test_err( "# Failed test ($filename at line 15)");
|
||||
test_err( "# (in Foo->test_object)" );
|
||||
-test_err( "# The $identifier isn't defined");
|
||||
+test_err( "# $identifier isn't defined");
|
||||
test_out( "not ok 2 - test_object died (could not create object)");
|
||||
-test_err( "# Failed test ($filename at line 33)");
|
||||
+test_err( "# Failed test ($filename at line 42)");
|
||||
test_err( "# (in Foo->test_object)" );
|
||||
Foo->runtests;
|
||||
test_test("early die handled");
|
||||
--
|
||||
1.8.1.4
|
||||
|
||||
Loading…
Reference in new issue