[popfile-commit] engine/tests TestHTML.script,1.11,1.12 TestHTML.tst,1.15,1.16

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

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

Modified Files:
	TestHTML.script TestHTML.tst 
Log Message:
Tests for the individual bucket page viewing word frequencies and emptying the bucket; TestHTML now covers 74% of the HTML.pm code; just the History page to test

Index: TestHTML.script
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestHTML.script,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** TestHTML.script	22 Aug 2003 23:55:26 -0000	1.11
--- TestHTML.script	23 Aug 2003 00:48:24 -0000	1.12
***************
*** 269,272 ****
--- 269,273 ----
  CONFIGIS html_skin default
  
+ 
  # Check language change
  
***************
*** 514,517 ****
--- 515,520 ----
  SETSUBMIT word four11@.-_
  NOTMATCH four11@.-_
+ SETSUBMIT word ba"d
+ MATCH Ignored words can only contain alphanumeric, ., _, -, or @ characters
  
  # Check change arbitrary parameter
***************
*** 650,655 ****
  MATCH spam current color is feldspar
  
! # TODO Check individual bucket page for accuracy
! # TODO Check clearing of individual bucket
  
  # TODO Check shutdown operation
--- 653,673 ----
  MATCH spam current color is feldspar
  
! # Check individual bucket page for accuracy
! 
! MATCH /buckets?session=$sk&showbucket=spam
! GET /buckets?session=$sk&showbucket=spam
! MATCH Detail for <font color="feldspar">spam</font>
! MATCH 12,114
! MATCH (3,353 unique)
! MATCH >100.00%<
! MATCH <a href=/buckets?session=$sk&amp;showbucket=spam&amp;showletter=m><b>m</b></a>
! 
! GET /buckets?session=$sk&amp;showbucket=spam&amp;showletter=m
! MATCH <a class="wordListLink" href="/buckets?session=$sk&amp;lookup=Lookup&amp;word=missouri#Lookup"><b>missouri</b></a>
! 
! # Check clearing of individual bucket
! 
! CLICK clearbucket
! MATCH <td width="1%">&nbsp;</td><td align="right">0</td><td width="1%">&nbsp;</td>
  
  # TODO Check shutdown operation

Index: TestHTML.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestHTML.tst,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** TestHTML.tst	22 Aug 2003 23:55:26 -0000	1.15
--- TestHTML.tst	23 Aug 2003 00:48:24 -0000	1.16
***************
*** 41,49 ****
  
  my $count = 0;
  foreach my $msg (@messages) {
!     test_assert( `cp $msg messages/popfile0=$count.msg` == 0 );
      $msg =~ s/\.msg$/\.cls/;
!     test_assert( `cp $msg messages/popfile0=$count.cls` == 0 );
      $count += 1;
  }
  
--- 41,54 ----
  
  my $count = 0;
+ my $dl    = 0;
  foreach my $msg (@messages) {
!     my $name = "messages/popfile$dl" . "=" . "$count";
!     test_assert( `cp $msg $name.msg` == 0 );
      $msg =~ s/\.msg$/\.cls/;
!     test_assert( `cp $msg $name.cls` == 0 );
      $count += 1;
+     if ( rand(1) > 0.5 ) {
+         $dl += 1;
+     }
  }
  
***************
*** 175,178 ****
--- 180,184 ----
  $h->initialize();
  $h->version( 'testsuite' );
+ test_assert_equal( $h->language(), 'English' );
  our $version = $h->version();