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();
|
