popfile-commit

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

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

Modified Files:
	TestWordMangle.tst 
Log Message:
Fix bug 835862, removes slash from mangled words to prevent regexps problems; update test suite

Index: TestWordMangle.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestWordMangle.tst,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** TestWordMangle.tst	13 Oct 2003 20:23:41 -0000	1.6
--- TestWordMangle.tst	4 Nov 2003 20:01:16 -0000	1.7
***************
*** 32,40 ****
  
  test_assert_equal( $w->mangle( 'BIGWORD' ), 'bigword' );
! test_assert_equal( $w->mangle( 'BIG+/?*|()[]{}^$.WORD' ), 'big..............word' );
  test_assert_equal( $w->mangle( 'awordthatisfartolongtobeacceptableforuseinclassification' ), '' );
  test_assert_equal( $w->mangle( 'A1234BEF66' ), '' );
  test_assert_equal( $w->mangle( 'BIG:WORD' ), 'bigword' );
! test_assert_equal( $w->mangle( 'BIG:WORD', 1 ), 'big:word' );
  
  # Test stop words
--- 32,40 ----
  
  test_assert_equal( $w->mangle( 'BIGWORD' ), 'bigword' );
! test_assert_equal( $w->mangle( 'BIG+/?*|()[]{}^$\\.WORD' ), 'big...............word' );
  test_assert_equal( $w->mangle( 'awordthatisfartolongtobeacceptableforuseinclassification' ), '' );
  test_assert_equal( $w->mangle( 'A1234BEF66' ), '' );
  test_assert_equal( $w->mangle( 'BIG:WORD' ), 'bigword' );
! test_assert_equal( $w->mangle( 'BIG:WORD', 1 ), 'BIG:WORD' );
  
  # Test stop words