Menu
▾
▴
[popfile-commit] engine/tests TestMailParse019.clr,NONE,1.1 TestMailParse.tst,1.9,1.10
|
From: <jgr...@us...> - 2003-07-12 06:17:07
|
Update of /cvsroot/popfile/engine/tests In directory sc8-pr-cvs1:/tmp/cvs-serv21679/tests Modified Files: TestMailParse.tst Added Files: TestMailParse019.clr Log Message: Add colorization test and improve TestMailParse to bring up to 91% coverage... will get to 100% tomorrow --- NEW FILE: TestMailParse019.clr --- <tt><b><font color="black">Return-Path</font></b>: <<b><font color="black">bu...@dr...</font></b>><br /><b><font color="black">Delivered-To</font></b>: run@mail.<b><font color="black">tepkom</font></b>.ru<br /><b><font color="black">Received</font></b>: by mail.<b><font color="black">tepkom</font></b>.ru (<b><font color="black">Postfix</font></b>)<br /> id 70071971F2; Wed, 29 Jan 2003 20:30:49 +0300 (<b><font color="black">MSK</font></b>)<br /><b><font color="black">Delivered-To</font></b>: rescuebre@<b><font color="black">tepkom</font></b>.ru<br /><b><font color="black">Received</font></b>: from localhost (localhost [<b><font color="brown">127.0.0.1</font></b>])<br /> by mail.<b><font color="black">tepkom</font></b>.ru (<b><font color="black">Postfix</font></b>) with SMTP<br /> id 6474D971FA; Wed, 29 Jan 2003 20:30:49 +0300 (<b><font color="black">MSK</font></b>)<br /><b><font color="black">Received</font></b>: from <b><font color="black">keymaster.<b><font color="black">relativity.com</font></b></font></b> (<b><font color="black">keymaster.<b><font color="black">relativity.com</font></b></font></b> [<b><font color="black">12.146.171.10</font></b>])<br /> by mail.<b><font color="black">tepkom</font></b>.ru (<b><font color="black">Postfix</font></b>) with ESMTP<br /> id 93510971F2; Wed, 29 Jan 2003 20:30:47 +0300 (<b><font color="black">MSK</font></b>)<br /><b><font color="black">Received</font></b>: from <b><font color="black">rtfm</font></b> (<b><font color="black">rtfm.<b><font color="black">relativity.com</font></b></font></b> [<b><font color="black">63.100.138.144</font></b>]) by <b><font color="black">keymaster.<b><font color="black">relativity.com</font></b></font></b> with SMTP (<b><font color="green">Microsoft</font></b> <b><font color="green">Exchange</font></b> <b><font color="brown">Internet</font></b> Mail <b><font color="green">Service</font></b> <b><font color="brown">Version</font></b> 5.5.2653.13)<br /> id D4Z7<b><font color="black">ASMC</font></b>; Wed, 29 Jan 2003 12:28:21 -0500<br /><b><font color="black">To</font></b>: <b><font color="black">elia@<b><font color="black">tepkom.ru</font></b></font></b>, <b><font color="black">rescuebre@<b><font color="black">tepkom.ru</font></b></font></b>, <b><font color="black">kcruz@<b><font color="black">relativity.com</font></b></font></b>, <b><font color="black">bugtracker@<b><font color="black">relativity.com</font></b></font></b><br /><b><font color="black">Date</font></b>: Wed, 29 Jan 03 12:28:29<br /><b><font color="black">From</font></b>: <<b><font color="black">bugs@<b><font color="black">drunin.net</font></b></font></b>><br /><b><font color="black">Subject</font></b>: VI ID: 24149 Status: <b><font color="black">Dev</font></b> <b><font color="black">Confirmed</font></b> <b><font color="black">Fix</font></b> <b><font color="black">Sev</font></b>: 1<br /><b><font color="black">MIME-Version</font></b>: 1.0<br /><b><font color="black">Content-Type</font></b>: multipart/mixed; boundary="isboundary"<br /><b><font color="black">Message-Id</font></b>: <200...@ma...><br /><b><font color="black">X-Text-Classification</font></b>: lists<br /><b><font color="black">X-POPFile-Link</font></b>: <http://<b><font color="brown">127.0.0.1</font></b>:8080/<b><font color="black">jump</font></b>_to_message?view=popfile523=1.<b><font color="black">msg</font></b>><br /><br />--isboundary<br /><b><font color="black">Content-Type</font></b>: text/html; charset=<b><font color="green">us-ascii</font></b><br /><br /><HTML><HEAD><br /><BODY><br /><DIV><B><FONT size=4><b><font color="black">Visual</font></b> <b><font color="black">Intercept</font></b> <b><font color="black">Notification</font></b>:</FONT></B></DIV><BR><br /><TABLE border rules=groups><br /> <TBODY><br /> <TR><br /> <TD><B><b><font color="black">Incident</font></b>:</B></TD><br /> <TD><br /> <A href="http://<b><font color="black">rtfm.<b><font color="black">relativity.com</font></b></font></b>/VIWeb/default.asp?type=incident&name=24149">24149</A><br /> (<A href="http://<b><font color="black">vi.<b><font color="black">relativity.com</font></b></font></b>/VIWeb/default.asp?type=incident&name=24149"><b><font color="brown">Alternative</font></b> <br /><b><font color="brown">server</font></b></A>)<br /> </TD><br /> <TD WIDTH="20%"><TD><TD><TD></TR><br /> <TBODY><br /> <TR><br /> <TD><B>Subject:</B></TD><br /> <TD COLSPAN=5><b><font color="black">Internal</font></b> <b><font color="brown">error</font></b> in <b><font color="black">BRE</font></b>.<b><font color="brown">dll</font></b></TD></TR><br /> <TBODY><br /> <TR><br /> <TD><B><b><font color="brown">Project</font></b>:</B></TD><br /> <TD COLSPAN=5>/<b><font color="green">Program</font></b>/RW/<b><font color="black">Cobol</font></b>/<b><font color="black">BRE</font></b>/<b><font color="brown">Structure</font></b> <b><font color="green">Based</font></b></TD></TR><br /> <TR><br /> <TD><B><b><font color="brown">Version</font></b>:</B></TD><br /> <TD COLSPAN=5>7.1.00</TD></TR><br /> <TR><br /> <TD><B><b><font color="black">Release</font></b>:</B></TD><br /> <TD COLSPAN=5></TD></TR><br /> <TR><br /> <TD><B><b><font color="brown">Build</font></b>:</B></TD><br /> <TD COLSPAN=5></TD></TR><br /> <TBODY><br /> <TR><br /> <TD><B><b><font color="green">Customer</font></b>:</B></TD><br /> <TD COLSPAN=5><b><font color="black">INTERNAL</font></b></TD></TR><br /> <TBODY><br /> <TR><br /> <TD><B>Status:</B></TD><br /> <TD><b><font color="brown">Dev</font></b> <b><font color="brown">Confirmed</font></b> <b><font color="black">Fix</font></b></TD><TD><br /> <TD><B><b><font color="black">AssignID</font></b>:</B></TD><br /> <TD><b><font color="black">snd</font></b></TD><br /> <TD>1/29/2003 10:16:01 AM</TD></TR><br /> <TR><br /> <TD><B><b><font color="black">Priority</font></b>:</B></TD><br /> <TD><b><font color="brown">High</font></b></TD><TD><br /> <TD><B><b><font color="black">RequestID</font></b>:</B></TD><br /> <TD><b><font color="black">elia</font></b></TD><br /> <TD>1/29/2003 10:16:01 AM</TD></TR><br /> <TR><br /> <TD><B><b><font color="black">Severity</font></b>:</B></TD><br /> <TD>1</TD><TD><br /> <TD><B><b><font color="black">QAID</font></b>:</B></TD><br /> <TD><b><font color="black">elia</font></b></TD><br /> <TD>1/29/2003 10:16:01 AM</TD></TR><br /> <TR><br /> <TD><B><b><font color="black">Category</font></b>:</B></TD><br /> <TD><b><font color="black">BRE</font></b></TD><TD><br /> <TD><B><b><font color="black">ChangeID</font></b>:</B></TD><br /> <TD><b><font color="black">snd</font></b></TD><br /> <TD>1/29/2003 12:26:59 PM</TD></TR><br /> <TBODY><br /> <TR><br /> <TD vAlign=top><B><b><font color="brown">Description</font></b>:</B></TD><br /> <TD COLSPAN=5><TEXTAREA READONLY ROWS=10 COLS=60>FROM:<b><font color="black">elia</font></b> DATE:01/29/2003 10:16:01 <br /><br /> The "<b><font color="black">Internal</font></b> <b><font color="brown">error</font></b> in <b><font color="black">BRE</font></b>.<b><font color="brown">dll</font></b>" message is <b><font color="black">generated</font></b> <b><font color="green">when</font></b> <b><font color="brown">structure</font></b> <b><font color="green">based</font></b> <b><font color="black">slice</font></b><br /> is <b><font color="black">extracted</font></b> from <b><font color="green">program</font></b> <b><font color="brown">which</font></b> has been <b><font color="black">verified</font></b> with "<b><font color="green">Perform</font></b> <b><font color="green">Program</font></b> <b><font color="green">analysis</font></b> = no"<br /> and at the <b><font color="green">same</font></b> <b><font color="green">time</font></b> <b><font color="black">BRE</font></b> <b><font color="brown">option</font></b> "<b><font color="green">Ensure</font></b> <b><font color="black">consistent</font></b> <b><font color="green">access</font></b> to <b><font color="black">external</font></b> <b><font color="brown">resources</font></b> = yes".<br /><br /> The <b><font color="black">correct</font></b> <b><font color="brown">error</font></b> message <b><font color="green">should</font></b> be <b><font color="black">generated</font></b>.<br /><br /> "<b><font color="brown">Severe</font></b> Re-<b><font color="black">verify</font></b> the <b><font color="green">program</font></b> with '<b><font color="green">Perform</font></b> <b><font color="green">program</font></b> <b><font color="black">analysis'</font></b> <b><font color="brown">option</font></b> <b><font color="green">set</font></b>".<br /><br /><br /> <b><font color="black">Test</font></b>:MEDIUM\\RescueWin\archives\VS-cobol\Computation\<b><font color="black">Logical</font></b>-path\<b><font color="green">CALL</font></b>-accept4.<b><font color="black">CBL</font></b> <br /><br /> *|<b><font color="green">Start</font></b> <b><font color="brown">paragraph</font></b>: p1<br /> *|<b><font color="brown">Last</font></b> <b><font color="brown">paragraph</font></b>: p1<br /><br /> 1015 <b><font color="green">blue</font></b>.<br /><br />FROM:<b><font color="black">snd</font></b> DATE:<b><font color="green">Wednesday</font></b>, <b><font color="green">January</font></b> 29, 2003 11:52:45 AM <br /><br /><b><font color="green">Fixed</font></b> in <b><font color="green">Blue</font></b>. No <b><font color="black">warning</font></b> in this <b><font color="green">case</font></b>, <b><font color="black">BRE</font></b> <b><font color="black">runs</font></b> <b><font color="black">DFA</font></b> <b><font color="black">instead</font></b>.<br /></TEXTAREA></TD></TR><br /> <TR><br /> <TD vAlign=top><B><b><font color="black">Resolution</font></b>:</B></TD><br /> <TD COLSPAN=5><TEXTAREA READONLY ROWS=10 COLS=60></TEXTAREA></TD></TR><br /> <TR><br /> <TD vAlign=top><B><b><font color="black">WorkAround</font></b>:</B></TD><br /> <TD COLSPAN=5><TEXTAREA READONLY ROWS=10 COLS=60></TEXTAREA></TD></TR></TBODY></TABLE><br /><HR><br />If you have received this <b><font color="green">email</font></b> in <b><font color="brown">error</font></b>, <b><font color="green">please</font></b> <b><font color="black">respond</font></b> to: <A <br />href="mailto:BugTracker@<b><font color="black">relativity.com</font></b>">Bug...@re...</A> <br /><HR><br /></BODY></HTML><br /><br />--isboundary--<br /><br /><br /></tt> Index: TestMailParse.tst =================================================================== RCS file: /cvsroot/popfile/engine/tests/TestMailParse.tst,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** TestMailParse.tst 11 Jul 2003 21:53:30 -0000 1.9 --- TestMailParse.tst 12 Jul 2003 06:17:03 -0000 1.10 *************** *** 8,11 **** --- 8,44 ---- use Classifier::MailParse; + use Classifier::Bayes; + use POPFile::Configuration; + use POPFile::MQ; + use POPFile::Logger; + + # Load the test corpus + my $c = new POPFile::Configuration; + my $mq = new POPFile::MQ; + my $l = new POPFile::Logger; + my $b = new Classifier::Bayes; + + $c->configuration( $c ); + $c->mq( $mq ); + $c->logger( $l ); + + $l->configuration( $c ); + $l->mq( $mq ); + $l->logger( $l ); + + $l->initialize(); + + $mq->configuration( $c ); + $mq->mq( $mq ); + $mq->logger( $l ); + + $b->configuration( $c ); + $b->mq( $mq ); + $b->logger( $l ); + + + $b->initialize(); + $b->config_( 'corpus', 'tests/corpus' ); + $b->start(); my $cl = new Classifier::MailParse; *************** *** 147,148 **** --- 180,199 ---- test_assert_equal( $cl->{cc__}, 'ds...@dm..., ds...@da..., ds...@cr..., ds...@da..., <ds...@do...>, <ds...@dn...>, <ds...@cy...>, <ds...@cs...>, <ds...@di...>, <ds...@cv...>, <ds...@dr...>, <ds...@cr...>, <ds...@dc...>, <ds...@da...>' ); + # Test colorization + + my @color_tests = sort glob 'tests/TestMailParse019.msg'; + + for my $color_test (@color_tests) { + my $colored = $color_test; + $colored =~ s/msg/clr/; + + $cl->{color__} = 1; + $cl->{bayes__} = $b; + my $html = $cl->parse_file( $color_test ); + + open HTML, "<$colored"; + my $check = <HTML>; + $check =~ s/[\r\n]*//g; + close HTML; + test_assert_equal( $check, $html ); + } |
