From be8eafc621983b6ee7e7c101db81d4ed251c49c9 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 Mar 2004 22:22:49 +0000
Subject: [PATCH] Change the skip logic on the unicode tests so that they don't
 rely on miniperl's "dynamic loading unavailable" message

p4raw-id: //depot/perl@22424
---
 t/uni/chomp.t    | 6 +++---
 t/uni/tr_7jis.t  | 5 ++---
 t/uni/tr_eucjp.t | 5 ++---
 t/uni/tr_sjis.t  | 5 ++---
 t/uni/tr_utf8.t  | 5 ++---
 5 files changed, 11 insertions(+), 15 deletions(-)

diff --git a/t/uni/chomp.t b/t/uni/chomp.t
index 00d6e46..12f1375 100644
--- a/t/uni/chomp.t
+++ b/t/uni/chomp.t
@@ -18,13 +18,13 @@ BEGIN {
         print "1..0 # Skip: PerlIO required\n";
         exit 0;
     }
-    eval 'use Encode';
-    if ($@ =~ /dynamic loading not available/) {
-        print "1..0 # Skip: no dynamic loading, no Encode\n";
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
         exit 0;
     }
 }
 
+use Encode;
 use strict;
 use Test::More;
 
diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t
index 6e74f1d..5443880 100644
--- a/t/uni/tr_7jis.t
+++ b/t/uni/tr_7jis.t
@@ -23,9 +23,8 @@ BEGIN {
         print "1..0 # Skip: PerlIO required\n";
         exit 0;
     }
-    eval 'use Encode';
-    if ($@ =~ /dynamic loading not available/) {
-        print "1..0 # Skip: no dynamic loading, no Encode\n";
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
         exit 0;
     }
     $| = 1;
diff --git a/t/uni/tr_eucjp.t b/t/uni/tr_eucjp.t
index 6958f46..9d60079 100644
--- a/t/uni/tr_eucjp.t
+++ b/t/uni/tr_eucjp.t
@@ -22,9 +22,8 @@ BEGIN {
         print "1..0 # Skip: PerlIO required\n";
         exit 0;
     }
-    eval 'use Encode';
-    if ($@ =~ /dynamic loading not available/) {
-        print "1..0 # Skip: no dynamic loading, no Encode\n";
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
         exit 0;
     }
     $| = 1;
diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t
index 732eb1a..6fda9f2 100644
--- a/t/uni/tr_sjis.t
+++ b/t/uni/tr_sjis.t
@@ -22,9 +22,8 @@ BEGIN {
         print "1..0 # Skip: PerlIO required\n";
         exit 0;
     }
-    eval 'use Encode';
-    if ($@ =~ /dynamic loading not available/) {
-        print "1..0 # Skip: no dynamic loading, no Encode\n";
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
         exit 0;
     }
     $| = 1;
diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t
index e623909..4b35c6d 100644
--- a/t/uni/tr_utf8.t
+++ b/t/uni/tr_utf8.t
@@ -23,9 +23,8 @@ BEGIN {
         print "1..0 # Skip: PerlIO required\n";
         exit 0;
     }
-    eval 'use Encode';
-    if ($@ =~ /dynamic loading not available/) {
-        print "1..0 # Skip: no dynamic loading, no Encode\n";
+    if ($ENV{PERL_CORE_MINITEST}) {
+        print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
         exit 0;
     }
     $| = 1;
-- 
2.7.4