koha-dev.rot13.org Git - koha_fer/blob - t/db_dependent/Koha.t

   1 #!/usr/bin/perl
   2 #
   3 # This is to test C4/Koha
   4 # It requires a working Koha database with the sample data
   5
   6 use strict;
   7 use warnings;
   8 use C4::Context;
   9
  10 use Test::More tests => 3;
  11
  12 BEGIN {
  13     use_ok('C4::Koha');
  14 }
  15
  16 my $data = {
  17     category            => 'CATEGORY',
  18     authorised_value    => 'AUTHORISED_VALUE',
  19     lib                 => 'LIB',
  20     lib_opac            => 'LIBOPAC',
  21     imageurl            => 'IMAGEURL'
  22 };
  23
  24 my $dbh = C4::Context->dbh;
  25
  26 # Insert an entry into authorised_value table
  27 my $query = "INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) VALUES (?,?,?,?,?);";
  28 my $sth = $dbh->prepare($query);
  29 $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
  30
  31 # Tests
  32 is ( GetAuthorisedValueByCode($data->{category}, $data->{authorised_value}), $data->{lib}, "GetAuthorisedValueByCode" );
  33 is ( GetKohaImageurlFromAuthorisedValues($data->{category}, $data->{lib}), $data->{imageurl}, "GetKohaImageurlFromAuthorisedValues" );
  34
  35 # Clean up
  36 $query = "DELETE FROM authorised_values WHERE category=? AND authorised_value=? AND lib=? AND lib_opac=? AND imageurl=?;";
  37 $sth = $dbh->prepare($query);
  38 $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
  39