OSDN Git Service

Merge pull request #7 from conao3/fix-mkdir-option
[nkf/nkf.git] / test.pl
1 #!/usr/bin/perl
2 #
3 # nkf test program for nkf 2.0
4 #    Shinji KONO <kono@ie.u-ryukyu.ac.jp>
5 # Sun Aug 18 12:25:40 JST 1996
6 # Sun Nov  8 00:16:06 JST 1998
7 # Sun Sep  8 14:04:02 JST 2002
8 #
9 # This is useful when you add new patch on nkf.
10 # Since this test is too strict, faileurs may not mean
11 # wrong conversion. 
12 #
13 # nkf 2.0 utf8
14 # nkf 1.5 differs on MIME decoding
15 # nkf 1.4 passes Basic Conversion tests
16 # nkf PDS version passes Basic Conversion tests  using "nkf -iB -oB "
17 #
18
19 if ($ARGV[0]) {
20     $nkf = $ARGV[0];
21 } else {
22     $nkf = 'MSWin32' eq $^O ? ".\\nkf" : "./nkf";
23 }
24 # $nkf = "doscmd nkf.exe";
25
26 # If you want to see the testing process, set next flag.
27
28 $error_count = 0;
29 $diff=1;
30
31 # &library_test0();
32 sub test {
33     &command_test(@_);
34 }
35
36 sub command_test {
37     local ($nkf,$in,@ans) = @_;
38     local ($result);
39
40     $result = '';
41     open(OUT,"> nkf.in");
42     binmode OUT;
43     print OUT $in;
44     close(OUT);
45     system("$nkf <nkf.in >nkf.out");   # easy
46     open(IN,"< nkf.out");
47     binmode IN;
48     while(<IN>) {
49         $result .= $_;
50     }
51
52     $result =~ s/ //g if $nkf =~ /-\w+m[NS]/o;
53     foreach $ans (@ans) {
54         $ans =~ s/ //g if $nkf =~ /-\w+m[NS]/o;
55         if ($result eq $ans) {
56             print "Ok\n";
57             return $result;
58         }
59     }
60     $ans = $ans[0];
61     print "Fail\n";
62     system "mv nkf.in nkf.in.$error_count.bad";
63     system "mv nkf.out nkf.out.$error_count.bad";
64     open(OUT,"> nkf.expect.$error_count.bad");
65     binmode OUT;
66     print OUT $ans;
67     close(OUT);
68     $error_count++;
69     if ($diff) {
70         open(R,"|od -c >tmp.result.bad"); binmode R; print R $result; close(R);
71         open(R,"|od -c >tmp.expect.bad"); binmode R; print R $ans; close(R);
72         system "diff -c tmp.result.bad tmp.expect.bad";
73     }
74     return $result;
75 }
76
77 sub command_tests {
78     my @tests = @_;
79     my ($in, $out, $ans);
80
81     for (my $i = 0; $i <= $#tests; $i += 3){
82         my $nkf = $tests[$i];
83         $in = $tests[$i+1];
84         $ans = $tests[$i+2];
85         $out = '';
86         open(OUT, "> nkf.in");
87         binmode OUT;
88         print OUT $in;
89         close(OUT);
90         system("$nkf <nkf.in >nkf.out");   # easy
91         open(IN,"< nkf.out");
92         binmode IN;
93         while (<IN>) {
94             $out .= $_;
95         }
96         close(IN);
97         $out =~ s/ //g if $nkf =~ /-\w+m[NS]/o;
98         $ans =~ s/ //g if $nkf =~ /-\w+m[NS]/o;
99         if ($out ne $ans) {
100             last;
101         }
102     }
103     if ($out eq $ans) {
104         print "Ok\n";
105         return;
106     }
107     print "Fail\n";
108     system "mv nkf.in nkf.in.$error_count.bad";
109     system "mv nkf.out nkf.out.$error_count.bad";
110     open(OUT,"> nkf.expect.$error_count.bad");
111     binmode OUT;
112     print OUT $ans;
113     close(OUT);
114     $error_count++;
115     if ($diff) {
116         open(R,"|od -c >tmp.result.bad"); binmode R; print R $out; close(R);
117         open(R,"|od -c >tmp.expect.bad"); binmode R; print R $ans; close(R);
118         system "diff -c tmp.result.bad tmp.expect.bad";
119     }
120     return;
121 }
122
123 do "./nkf_test.pl";
124 unlink "nkf.in";
125 unlink "nkf.out";
126
127 if ($error_count > 1) {
128     printf("%d errors were found.\n", $error_count);
129 } elsif ($error_count == 1) {
130     printf("1 error was found.\n");
131 } else {
132     printf("All tests are succeeded.\n");
133 }