+#!./perl -w
BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- @INC = '../lib';
- }
require Config; import Config;
if ($Config{'extensions'} !~ /\bEncode\b/) {
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
$| = 1;
+
+ require './test.pl';
}
use strict;
-use Test::More tests => 6;
-use Encode;
-
+plan (tests => 6);
use encoding 'johab';
ok(chr(0x7f) eq "\x7f");