From 4c3235630e0ff8936bb2e9f69113e86306da1602 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 14 Apr 2002 08:20:37 +0000
Subject: Initial revision

---
 cpan/lib/Jcode/_test.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 cpan/lib/Jcode/_test.pl

(limited to 'cpan/lib/Jcode')

diff --git a/cpan/lib/Jcode/_test.pl b/cpan/lib/Jcode/_test.pl
new file mode 100644
index 00000000..7b8bb80d
--- /dev/null
+++ b/cpan/lib/Jcode/_test.pl
@@ -0,0 +1,16 @@
+
+use ExtUtils::testlib;
+use Jcode::Unicode;
+use Getopt::Std;
+getopts("p");
+
+my $file = "../t/table.euc";
+my $euc, $ucs2, $utf8;
+open F,  $file or die $!;
+read F, $euc, -s $file;
+
+print "1..2\n";
+print "Ok 1\n" if $ucs2  = Jcode::Unicode::euc_ucs2($euc, $opt_p);
+print "Ok 2\n" if $euc  eq Jcode::Unicode::ucs2_euc($ucs2, $opt_p);
+print "Ok 3\n" if $utf8  = Jcode::Unicode::ucs2_utf8($ucs2);
+print "Ok 4\n" if $ucs2 eq Jcode::Unicode::utf8_ucs2($utf8);
-- 
cgit v1.2.1