|
From: <jgr...@us...> - 2003-10-28 17:33:55
|
Update of /cvsroot/popfile/engine/tests In directory sc8-pr-cvs1:/tmp/cvs-serv25486/tests Modified Files: TestBayes.tst Added Files: TestMailParse026.kks TestMailParse026.msg TestMailParse026.wrd Log Message: Merged patch that provides testing of Japanese support --- NEW FILE: TestMailParse026.kks --- Return-Path: <wa...@sp...> Delivered-To: da...@do... Received: (qmail 1771 invoked by alias); 25 Oct 2003 16:37:11 +0900 Received: (qmail 1752 invoked from network); 25 Oct 2003 16:37:11 +0900 Received: from unknown (HELO DOKOKANOHOST) (12.235.202.19) by dokoka.co.jp with SMTP; 25 Oct 2003 16:37:11 +0900 Message-ID: <001501c39aca$cd4183c0$2102a8c0@DOKOKANOHOST> From: "=?iso-2022-jp?B?GyRCJTklUSVgQkBPOhsoQg==?=" <wa...@sp...> To: <da...@do...> Subject: =?iso-2022-jp?B?GyRCTCQ+NUJ6OS05cBsoQg==?= Date: Sat, 25 Oct 2003 00:37:10 -0700 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-2022-jp" Content-Transfer-Encoding: 7bit X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 ¤³¤ì¤Ï ¥¹¥Ñ¥à ¤Ç¤¹ ¡£ --- NEW FILE: TestMailParse026.msg --- Return-Path: <wa...@sp...> Delivered-To: da...@do... Received: (qmail 1771 invoked by alias); 25 Oct 2003 16:37:11 +0900 Received: (qmail 1752 invoked from network); 25 Oct 2003 16:37:11 +0900 Received: from unknown (HELO DOKOKANOHOST) (12.235.202.19) by dokoka.co.jp with SMTP; 25 Oct 2003 16:37:11 +0900 Message-ID: <001501c39aca$cd4183c0$2102a8c0@DOKOKANOHOST> From: "=?iso-2022-jp?B?GyRCJTklUSVgQkBPOhsoQg==?=" <wa...@sp...> To: <da...@do...> Subject: =?iso-2022-jp?B?GyRCTCQ+NUJ6OS05cBsoQg==?= Date: Sat, 25 Oct 2003 00:37:10 -0700 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-2022-jp" Content-Transfer-Encoding: 7bit X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 $B$3$l$O%9%Q%`$G$9!#(B --- NEW FILE: TestMailParse026.wrd --- (This appears to be a binary file; contents omitted.) Index: TestBayes.tst =================================================================== RCS file: /cvsroot/popfile/engine/tests/TestBayes.tst,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** TestBayes.tst 28 Oct 2003 01:06:46 -0000 1.31 --- TestBayes.tst 28 Oct 2003 17:32:36 -0000 1.32 *************** *** 1,755 **** ! # --------------------------------------------------------------------------------------------- ! # ! # Tests for Bayes.pm ! # ! # Copyright (c) 2003 John Graham-Cumming ! # ! # This file is part of POPFile ! # ! # POPFile is free software; you can redistribute it and/or modify ! # it under the terms of the GNU General Public License as published by [...1560 lines suppressed...] ! ! foreach my $word (keys %words) { ! test_assert_equal( $b->get_base_value_( 'gomi', $word ), $words{$word}, "gomi: $word $words{$word}" ); ! } ! ! # get_bucket_word_prefixes ! ! my @words = $b->get_bucket_word_prefixes( 'gomi' ); ! test_assert_equal( $#words, 19 ); ! test_assert_equal( $words[17], chr(0xa4) . chr(0xb3) ); ! test_assert_equal( $words[18], chr(0xa4) . chr(0xc7) ); ! test_assert_equal( $words[19], chr(0xa5) . chr(0xb9) ); ! ! # remove_message_from_bucket ! ! test_assert( $b->remove_message_from_bucket( 'gomi', 'TestMailParse026.kks' ) ); ! test_assert_equal( $b->get_bucket_word_count( 'gomi' ), 0 ); ! ! ! $b->stop(); |