[popfile-commit] engine/tests TestMailParse.tst,1.22,1.23

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv8972/tests

Modified Files:
	TestMailParse.tst 
Log Message:
Better QP test for CRLF handling

Index: TestMailParse.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestMailParse.tst,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** TestMailParse.tst	20 Oct 2003 21:49:11 -0000	1.22
--- TestMailParse.tst	20 Oct 2003 22:00:37 -0000	1.23
***************
*** 296,298 ****
--- 296,305 ----
  test_assert_equal( $cl->{words__}{'html:imgheight41'}, 1 );
  
+ open FILE, ">temp.tmp";
+ print FILE "From: John\nContent-Type: multipart/alternative;\n\tboundary=\"247C6_.5B._4\"\n\n--247C6_.5B._4\nContent-Type: text/html;\nContent-Transfer-Encoding: quoted-printable\n\n<img width=3D42\nheight=3D41>\n\n--247C6_.5B._4--\n";
+ close FILE;
+ $cl->parse_file( 'temp.tmp' );
+ test_assert_equal( $cl->{words__}{'html:imgwidth42'}, 1 );
+ test_assert_equal( $cl->{words__}{'html:imgheight41'}, 1 );
+ 
  $b->stop();