+#! perl -w
#
# $Id$
#
# -- dankogai
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 'euc-jp';
my @hiragana = map {chr} ord("¤¡")..ord("¤ó");