[Koha-cvs] CVS: koha/t/webscripts catalog.t,1.1.2.5,1.1.2.6

[Steve Tonnesen]

Update of /cvsroot/koha/koha/t/webscripts
In directory sc8-pr-cvs1:/tmp/cvs-serv23286

Modified Files:
      Tag: rel-1-2
	catalog.t 
Log Message:
Fixed catalog.t test to check for new confirmation before deleting biblios with
biblioitems.


Index: catalog.t
===================================================================
RCS file: /cvsroot/koha/koha/t/webscripts/Attic/catalog.t,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -C2 -r1.1.2.5 -r1.1.2.6
*** catalog.t	5 Nov 2002 19:47:12 -0000	1.1.2.5
--- catalog.t	15 Jan 2003 22:12:20 -0000	1.1.2.6
***************
*** 135,139 ****
  }
  
- $test='Delete Biblio with items - biblio #163';
  $script="$intranetdir/cgi-bin/delbiblio.pl 'biblio=163'";
  contains($script, $test, ['delete them before deleting this biblio']);
--- 135,138 ----
***************
*** 149,152 ****
--- 148,155 ----
  $test='Delete Biblio with no items - biblio #57';
  $script="$intranetdir/cgi-bin/delbiblio.pl 'biblio=57'";
+ contains($script, $test, ['delete the biblio and all of its subgroups']);
+ 
+ $test='Delete Biblio with no items, confirmed - biblio #57';
+ $script="$intranetdir/cgi-bin/delbiblio.pl 'biblio=57&confirmed=1'";
  contains($script, $test, ['location:', 'catalogue-home.pl']);
  
***************
*** 233,236 ****
--- 236,240 ----
  	unless ($result=~/$string/) {
  	    print "not ok ".$testnumber++." $test (couldn't find '$string')\n";
+ 	    warn "\nTestnumber $testnumber ($test) failed.  Couldn't find '$string' in output.\n";
  	    return;
  	}