[Koha-cvs] CVS: koha/t/webscripts catalog.t,1.1.2.1,1.1.2.2

[Steve Tonnesen]

Update of /cvsroot/koha/koha/t/webscripts
In directory usw-pr-cvs1:/tmp/cvs-serv29183

Modified Files:
      Tag: rel-1-2
        catalog.t 
Log Message:
Added some more cataloging tests.


Index: catalog.t
===================================================================
RCS file: /cvsroot/koha/koha/t/webscripts/Attic/catalog.t,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** catalog.t   29 Oct 2002 16:47:35 -0000      1.1.2.1
--- catalog.t   29 Oct 2002 18:05:09 -0000      1.1.2.2
***************
*** 1,3 ****
! BEGIN { $| = 1; print "1..6\n";
      $::intranetdir=`grep intranetdir /etc/koha.conf`;
      chomp $::intranetdir;
--- 1,3 ----
! BEGIN { $| = 1; print "1..19\n";
      $::intranetdir=`grep intranetdir /etc/koha.conf`;
      chomp $::intranetdir;
***************
*** 43,46 ****
--- 43,50 ----
  contains($script, $test, ['subjectitems=BEARS-BLACK', 
'subjectitems=GRIZZLY%20BEARS']);
  
+ $test='Subjectitem search - BEARS-BLACK';
+ $script="$intranetdir/cgi-bin/search.pl subjectitems=BEARS-BLACK";
+ contains($script, $test, ['Encounters With Black Bears and Grizzly Bears', 
225]);
+ 
  $test='Dewey search - 599';
  $script="$intranetdir/cgi-bin/search.pl dewey=599";
***************
*** 51,54 ****
--- 55,62 ----
  contains($script, $test, [270]);
  
+ $test='Barcode search - T120';
+ $script="$intranetdir/cgi-bin/search.pl 'itemnumber=T120'";
+ contains($script, $test, [133, 'Floating Schools and Frozen Inkwells']);
+ 
  
  $test='Detail - biblio #270';
***************
*** 70,73 ****
--- 78,97 ----
  
  
+ # Add subject headings for #163 to catalogueentry table
+ 
+ my $dbh=C4::Context->dbh();
+ my $sth=$dbh->prepare("select * from catalogueentry where entrytype='s' and 
catalogueentry=?");
+ $sth->execute('UNITED STATES-MANUFACTURERS-CATALOGUE');
+ unless ($sth->rows) {
+     $sth=$dbh->prepare("insert into catalogueentry (entrytype,catalogueentry) 
values ('s', ?)");
+     $sth->execute('UNITED STATES-MANUFACTURERS-CATALOGUE');
+ }
+ $sth=$dbh->prepare("select * from catalogueentry where entrytype='s' and 
catalogueentry=?");
+ $sth->execute('CATALOGUES-HISTORICAL SUPPLIES');
+ unless ($sth->rows) {
+     $sth=$dbh->prepare("insert into catalogueentry (entrytype,catalogueentry) 
values ('s', ?)");
+     $sth->execute('CATALOGUES-HISTORICAL SUPPLIES');
+ }
+ 
  $test='Modify Biblio change title to "Testing" - biblio #163';
  $script="$intranetdir/cgi-bin/updatebiblio.pl 
'Author=Wellikoff%2C+Alan&Title=Testing&Subject=UNITED+STATES-MANUFACTURERS-CATALOGUE%7CCATALOGUES-HISTORICAL+SUPPLIES&Copyright=&Series=&Additional=&Subtitle=&Unititle=&Notes=&Serial=&Analytic=&Analytic=&bibnum=163&bibitemnum=163'";
***************
*** 78,81 ****
--- 102,136 ----
  contains($script, $test, ['location: detail.pl', 'bib=163']);
  
+ $test='Delete Biblio with items - biblio #163';
+ $script="$intranetdir/cgi-bin/delbiblio.pl 'biblio=163'";
+ contains($script, $test, ['delete them before deleting this biblio']);
+ 
+ $test='Delete Biblio with no items - biblio #57';
+ $script="$intranetdir/cgi-bin/delbiblio.pl 'biblio=57'";
+ contains($script, $test, ['location:', 'catalogue-home.pl']);
+ 
+ my $query="select * from deletedbiblio where biblionumber=57";
+ $sth=$dbh->prepare($query);
+ $sth->execute;
+ if (my @data=$sth->fetchrow_array) {
+     $sth->finish;
+     $query="Insert into biblio values (";
+     foreach my $temp (@data){
+       $temp=~ s/\'/\\\'/g;
+       $query.=$dbh->quote($temp).",";
+     }
+     $query=~ s/\,$/\)/;
+     $sth=$dbh->prepare($query);
+     $sth->execute;
+     $sth->finish;
+     $query = "delete from deletedbiblio where biblionumber=57";
+     $sth=$dbh->prepare($query);
+     $sth->execute;
+     $sth->finish;
+ }
+ 
+ $test='Modify biblioitem (group) - biblio #331';
+ $script="$intranetdir/cgi-bin/modbibitem.pl 
'bibitem=331&biblio=331&submit.x=62&submit=modify'";
+ contains($script, $test, ['Dog stories', 'Herriot, James', 'T291', 331]);
  
  
***************
*** 94,98 ****
      foreach my $string (@$contains) {
        unless ($result=~/$string/) {
!           print "not ok ".$testnumber++." $test $string\n";
            return;
        }
--- 149,153 ----
      foreach my $string (@$contains) {
        unless ($result=~/$string/) {
!           print "not ok ".$testnumber++." $test (couldn't find '$string')\n";
            return;
        }