Path: | nkf/test.rb |
Last Update: | Sat Oct 15 23:43:53 AUS Eastern Standard Time 2005 |
nkf test program for nkf-2
$Id: test.rb,v 1.2.8.3 2004/12/03 18:01:05 naruse Exp $
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
Sun Aug 18 12:25:40 JST 1996 Sun Nov 8 00:16:06 JST 1998
This is useful when you add new patch on nkf. Since this test is too strict, faileurs may not mean wrong conversion.
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 "
# File nkf/test.rb, line 21 def result(result, message = nil) $counter += 1 printf("%s %d%s\n", result ? 'ok' : 'no', $counter, message ? ' ... ' + message : '') end
# File nkf/test.rb, line 71 def test(opt, input, expects) print "\nINPUT:\n", input if $detail print "\nEXPECT:\n", expects.to_s if $detail result = nkf(opt, input) result.delete!(' ') if opt.include?('-m') print "\nGOT:\n", result if $detail expects.each do |e| e.delete!(' ') if opt.include?('-m') if result == e then puts "Ok" return result end end puts "Fail" puts result.unpack('H*').first puts expects.map{|x|x.unpack('H*').first}.join("\n\n") end