#!/usr/bin/perl

#

# nkf test program for nkf 2.0

#    Shinji KONO <kono@ie.u-ryukyu.ac.jp>

# Sun Aug 18 12:25:40 JST 1996

# Sun Nov  8 00:16:06 JST 1998

# Sun Sep  8 14:03:28 JST 2002

#

# This is useful when you add new patch on nkf.

# Since this test is too strict, faileurs may not mean

# wrong conversion. 

#

# nkf 2.0 utf8

# nkf 1.5 differs on MIME decoding

# nkf 1.4 passes Basic Conversion tests

# nkf PDS version passes Basic Conversion tests  using "nkf -iB -oB "

#

$nkf = "./nkf";

# $nkf = "doscmd nkf.exe";

# If you want to see the testing process, set next flag.

$detail_all = 0;

$diff = 1;

&library_test0();

sub test  {

    use NKF;

    &library_test(@_);

}

sub library_test {

    local ($nkf,$in,@ans) = @_;

    local ($result);

    # $nkf =~ s/^[^_]* //;

    local (@nkf) = split(/ /,$nkf);

    shift(@nkf);

    print "\nINPUT:\n",$in  if ($detail || $detail_all);

    print "\nEXPECT:\n", $ans if ($detail || $detail_all);

    $result = NKF::nkf(@nkf,$in);

    print "\nGOT:\n",$result if ($detail || $detail_all);

    if( $nkf =~ /-\S*m/) {

        $result =~ s/ //g;

    }

    $i = -1;

    foreach $ans (@ans) {

        $i++;

        if( $nkf =~ /-\S*m/) {

            $ans =~ s/ //g;

        }

        if ($result eq $ans){

	    print "Ok\n";

	    return $result;

        }

    }

    $ans = @ans[$i];

    print "Fail\n";

    if ($diff) {

	open(R,"|od -c >tmp.result.bad"); binmode R; print R $result; close(R);

	open(R,"|od -c >tmp.expect.bad"); binmode R; print R $ans; close(R);

	print"$i\n;$result\n;$ans\n" if $nkf[0] eq'-w16B';

	system "diff -c tmp.result.bad tmp.expect.bad";

    }

    return $result;

}

sub library_test0 {

BEGIN { $| = 1; print "1..3\n"; }

END {print "not ok 1\n" unless $loaded;}

    use NKF;

    $loaded = 1;

    print "ok 1\n";

    ######################### End of black magic.

    # Insert your test code below (better if it prints "ok 13"

    # (correspondingly "not ok 13") depending on the success of chunk 13

    # of the test code):

    if ( nkf("-m","-e","1") ) {

	print "ok 2\n";

    } else {

	print "no 2\n";

    }

    $output = nkf("\033\$@#1#3#2%B");

    if ($output) {

    # print $output,"\n";

	print "ok 3\n";

    } else {

	print "no 3\n";

    }

    $output = nkf("-Zj","\033\$@#1#3#2%B");

    if ($output) {

    # print $output,"\n";

	print "ok 4\n";

    } else {

	print "no 4\n";

    }

    # conversion makes strings longer

    $output = "\244\306 " x 1024;

	$old =  length($output);

    $output = nkf("-j",$output);

    if ($output) {

    # print $output,"\n";

	print "ok 5 $old ",length($output),"\n";

    } else {

	print "no 5\n";

    }

}

sub command_tests {

    my @tests = @_;

    my ($in, $out, $ans);

    for (my $i = 0; $i <= $#tests; $i += 3){

	local (@nkf) = split(/ /,$tests[$i]);

	shift(@nkf);

	$in = $tests[$i+1];

	$ans = $tests[$i+2];

        $out = NKF::nkf(@nkf,$in);

	$out =~ s/ //g if $nkf =~ /-\w+m[NS]/o;

	$ans =~ s/ //g if $nkf =~ /-\w+m[NS]/o;

        if ($out ne $ans) {

	    last;

	}

    }

    if ($out eq $ans) {

	print "Ok\n";

	return;

    }

    print "Fail\n";

    if ($diff) {

	open(R,"|od -c >tmp.result.bad"); binmode R; print R $out; close(R);

	open(R,"|od -c >tmp.expect.bad"); binmode R; print R $ans; close(R);

	system "diff -c tmp.result.bad tmp.expect.bad";

    }

    return;

}

do "../nkf_test.pl";