This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip test when Encode isn't built
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Feb 2007 10:44:44 +0000 (10:44 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Feb 2007 10:44:44 +0000 (10:44 +0000)
(noticed by Jerry D. Hedden)

p4raw-id: //depot/perl@30370

ext/PerlIO/encoding/t/nolooping.t

index f3436ad..846a248 100644 (file)
@@ -1,5 +1,13 @@
 #!perl -w
 
+BEGIN {
+    use Config;
+    if ($Config{extensions} !~ /\bEncode\b/) {
+       print "1..0 # Skip: no Encode\n";
+       exit 0;
+    }
+}
+
 use Test::More tests => 1;
 
 BEGIN {