iso2022jp checkersnap-20010211

1 files changed, 27 insertions, 0 deletions

diff --git a/regress/ISO2022JP/is_iso2022jp_string b/regress/ISO2022JP/is_iso2022jp_string
new file mode 100755
index 00000000..c58cc953
--- /dev/null
+++ b/regress/ISO2022JP/is_iso2022jp_string
@@ -0,0 +1,27 @@
+#!/usr/local/bin/perl
+
+
+use Dialect::ISO2022JP qw(is_iso2022jp_string);
+
+$string = '¤¦¤¸¤ã';
+
+use Jcode;
+
+printf "%15s", "jis ... ";
+Jcode::convert(\$string, 'jis');
+print is_iso2022jp_string($string) ? "ok\n" : "fail\n";
+
+for ('ascii', 'binary', 'sjis', 'euc', 'ucs2', 'utf8') {
+    check($_);
+}
+
+
+sub check
+{
+    my ($code) = @_;
+
+    printf "%15s", "$code ... ";
+    Jcode::convert(\$string, $code);
+    print is_iso2022jp_string($string) ? "fail\n" : "ok\n";
+}
+