From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 8 Jan 2007 21:52:32 +0000 (+0000)
Subject: do or die; for all the List::Util pure perl tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c09933ca11590e6a36fb0c235b6660a8b3c341d;p=p5sagit%2Fp5-mst-13.2.git

do or die; for all the List::Util pure perl tests.

p4raw-id: //depot/perl@29724
---

diff --git a/ext/List/Util/t/p_blessed.t b/ext/List/Util/t/p_blessed.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_blessed.t
+++ b/ext/List/Util/t/p_blessed.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_first.t b/ext/List/Util/t/p_first.t
index 676d967..cd39ec4 100644
--- a/ext/List/Util/t/p_first.t
+++ b/ext/List/Util/t/p_first.t
@@ -5,4 +5,4 @@ $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
 $::PERL_ONLY = $::PERL_ONLY = 1; # Mustn't use it only once!
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_lln.t b/ext/List/Util/t/p_lln.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_lln.t
+++ b/ext/List/Util/t/p_lln.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_max.t b/ext/List/Util/t/p_max.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_max.t
+++ b/ext/List/Util/t/p_max.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_maxstr.t b/ext/List/Util/t/p_maxstr.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_maxstr.t
+++ b/ext/List/Util/t/p_maxstr.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_min.t b/ext/List/Util/t/p_min.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_min.t
+++ b/ext/List/Util/t/p_min.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_minstr.t b/ext/List/Util/t/p_minstr.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_minstr.t
+++ b/ext/List/Util/t/p_minstr.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_openhan.t b/ext/List/Util/t/p_openhan.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_openhan.t
+++ b/ext/List/Util/t/p_openhan.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_readonly.t b/ext/List/Util/t/p_readonly.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_readonly.t
+++ b/ext/List/Util/t/p_readonly.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_reduce.t b/ext/List/Util/t/p_reduce.t
index 676d967..cd39ec4 100644
--- a/ext/List/Util/t/p_reduce.t
+++ b/ext/List/Util/t/p_reduce.t
@@ -5,4 +5,4 @@ $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
 $::PERL_ONLY = $::PERL_ONLY = 1; # Mustn't use it only once!
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_refaddr.t b/ext/List/Util/t/p_refaddr.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_refaddr.t
+++ b/ext/List/Util/t/p_refaddr.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_reftype.t b/ext/List/Util/t/p_reftype.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_reftype.t
+++ b/ext/List/Util/t/p_reftype.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_shuffle.t b/ext/List/Util/t/p_shuffle.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_shuffle.t
+++ b/ext/List/Util/t/p_shuffle.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_sum.t b/ext/List/Util/t/p_sum.t
index d594ac5..48e7ef7 100644
--- a/ext/List/Util/t/p_sum.t
+++ b/ext/List/Util/t/p_sum.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;
diff --git a/ext/List/Util/t/p_tainted.t b/ext/List/Util/t/p_tainted.t
index 4ebdd4e..5123a9f 100644
--- a/ext/List/Util/t/p_tainted.t
+++ b/ext/List/Util/t/p_tainted.t
@@ -7,4 +7,4 @@ $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
 my $filename = File::Spec->catfile(".", $f);
-do $filename;
+do $filename; die $@ if $@;