[Koha-cvs] CVS: koha/t/webscripts acquisitions-simple.t,NONE,1.1.2.1

[Steve Tonnesen]

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

Added Files:
      Tag: rel-1-2
        acquisitions-simple.t 
Log Message:
Test harness for simple acquisitions started


--- NEW FILE ---
BEGIN { 
    unless ($ENV{'nonproductionserver'}) {
        print "1..0 # Skipped: environment variable 'nonproductionserver' not 
set\n";
        exit;
    }

    $| = 1; print "1..6\n";
    $::intranetdir=`grep intranetdir /etc/koha.conf`;
    chomp $::intranetdir;
    $::intranetdir=~s/\s*intranetdir\s*=\s*//i;
}

END {print "not ok 1 test script load\n" unless $loaded;}

use lib $::intranetdir."/modules";
$ENV{PERLLIB}=$::intranetdir."/modules";

use C4::Context;
$loaded = 1;
print "ok 1 Test script load\n";

my $dbh=C4::Context->dbh();
my $sth;

my $debug=$ARGV[0];

my $intranetdir=C4::Context->config('intranetdir');
my $user=C4::Context->config('user');
$ENV{REMOTE_USER}=$user;

my $testnumber=2;

my $test='Acquisitions/Simple - addbooks.pl no parameters';
my $script="$intranetdir/cgi-bin/acqui.simple/addbooks.pl";
contains($script, $test, ['input name=isbn']);

my $test='Acquisitions/Simple - addbooks.pl ISBN=0920541968';
my $script="$intranetdir/cgi-bin/acqui.simple/addbooks.pl 'isbn=0920541968'";
contains($script, $test, ['input name=title', 'input name=author', 'input 
name=subtitle']);

my $test='Acquisitions/Simple - addbooks.pl ISBN=0920541968 Section One';
my $script="$intranetdir/cgi-bin/acqui.simple/addbooks.pl 
'isbn=0920541968&checkforbiblio=1&title=On+the+Move&subtitle=Teaching+the+Learners+Way+In+Grades+4-7&author=Forester,+Anne+D.&copyrightdate=1991&notes=Testing+Book+entered+by+Koha+test+script'";
contains($script, $test, ['input name=publishercode', 'input 
name=publicationyear', 'input name=place', 'input name=illus', 
'name=biblionumber value=501']);

my $test='Acquisitions/Simple - addbooks.pl ISBN=0920541968 Section Two';
my $script="$intranetdir/cgi-bin/acqui.simple/addbooks.pl 
'isbn=0920541968&biblionumber=501&newbiblioitem=1&publisher=Stratton+and+Co.&publicationyear=1997&place=New+York&illus=Margaret+Reinhard&additionalauthors=Margaret+Reinhard&subjectheadings=&itemtype=NF&dewey=372.6&subclass=FOR&issn=&lccn=&volume=&pages=335p.&size=10in.&notes=Test+biblioitem+added+by+Koha+test+scripts'";
contains($script, $test, ['name=newitem value=1', 'name=biblionumber 
value=501', 'name=biblioitemnumber value=501', 'input name=barcode']);

my $test='Acquisitions/Simple - addbooks.pl ISBN=0920541968 Section Three';
my $script="$intranetdir/cgi-bin/acqui.simple/addbooks.pl 
'newitem=1&biblionumber=501&biblioitemnumber=501&barcode=T777&homebranch=MAIN&replacementprice=17.99&notes=Test+item+added+by+Koha+test+harness.'";
contains($script, $test, ['input name=isbn']);


$sth=$dbh->do("delete from items where biblionumber=501");
$sth=$dbh->do("delete from biblioitems where biblionumber=501");
$sth=$dbh->do("delete from bibliosubtitle where biblionumber=501");
$sth=$dbh->do("delete from bibliosubject where biblionumber=501");
$sth=$dbh->do("delete from additionalauthors where biblionumber=501");
$sth=$dbh->do("delete from biblio where biblionumber=501");



sub contains {
    my $script = shift;
    my $test = shift;
    my $contains = shift;
    my $result=`perl $script`;
    if ($debug) {
        open O, ">test-".$testnumber.".html";
        print O $result;
        close O;
    }
    foreach my $string (@$contains) {
        unless ($result=~/$string/) {
            print "not ok ".$testnumber++." $test (couldn't find '$string')\n";
            return;
        }
    }
    print "ok ".$testnumber++." $test\n";
}