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 Modern::Perl;
   7 use DateTime::Format::MySQL;
   8 use Test::More tests => 6;
   9
  10 use t::lib::TestBuilder;
  11
  12 use C4::Context;
  13 use Koha::Database;
  14 use Koha::DateUtils qw(dt_from_string);
  15 use Koha::AuthorisedValue;
  16 use Koha::AuthorisedValueCategories;
  17
  18 BEGIN {
  19     use_ok('C4::Koha', qw( :DEFAULT GetDailyQuote GetItemTypesCategorized));
  20     use_ok('C4::Members');
  21 }
  22
  23 my $schema  = Koha::Database->new->schema;
  24 $schema->storage->txn_begin;
  25 my $builder = t::lib::TestBuilder->new;
  26 my $dbh = C4::Context->dbh;
  27
  28 our $itype_1 = $builder->build({ source => 'Itemtype' });
  29
  30 subtest 'Authorized Values Tests' => sub {
  31     plan tests => 3;
  32
  33     my $data = {
  34         category            => 'CATEGORY',
  35         authorised_value    => 'AUTHORISED_VALUE',
  36         lib                 => 'LIB',
  37         lib_opac            => 'LIBOPAC',
  38         imageurl            => 'IMAGEURL'
  39     };
  40
  41     my $avc = Koha::AuthorisedValueCategories->find($data->{category});
  42     Koha::AuthorisedValueCategory->new({ category_name => $data->{category} })->store unless $avc;
  43 # Insert an entry into authorised_value table
  44     my $insert_success = Koha::AuthorisedValue->new(
  45         {   category         => $data->{category},
  46             authorised_value => $data->{authorised_value},
  47             lib              => $data->{lib},
  48             lib_opac         => $data->{lib_opac},
  49             imageurl         => $data->{imageurl}
  50         }
  51     )->store;
  52     ok( $insert_success, "Insert data in database" );
  53
  54
  55 # Clean up
  56     if($insert_success){
  57         my $query = "DELETE FROM authorised_values WHERE category=? AND authorised_value=? AND lib=? AND lib_opac=? AND imageurl=?;";
  58         my $sth = $dbh->prepare($query);
  59         $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
  60     }
  61
  62     SKIP: {
  63         eval { require Test::Deep; import Test::Deep; };
  64         skip "Test::Deep required to run the GetAuthorisedValues() tests.", 2 if $@;
  65         Koha::AuthorisedValueCategory->new({ category_name => 'BUG10656' })->store;
  66         Koha::AuthorisedValue->new(
  67             {   category         => 'BUG10656',
  68                 authorised_value => 'ZZZ',
  69                 lib              => 'Z_STAFF',
  70                 lib_opac         => 'A_PUBLIC',
  71                 imageurl         => ''
  72             }
  73         )->store;
  74         Koha::AuthorisedValue->new(
  75             {   category         => 'BUG10656',
  76                 authorised_value => 'AAA',
  77                 lib              => 'A_STAFF',
  78                 lib_opac         => 'Z_PUBLIC',
  79                 imageurl         => ''
  80             }
  81         )->store;
  82
  83         # the next one sets lib_opac to NULL; in that case, the staff
  84         # display value is meant to be used.
  85         Koha::AuthorisedValue->new(
  86             {   category         => 'BUG10656',
  87                 authorised_value => 'DDD',
  88                 lib              => 'D_STAFF',
  89                 lib_opac         => undef,
  90                 imageurl         => ''
  91             }
  92         )->store;
  93
  94         my $authvals = GetAuthorisedValues('BUG10656');
  95         cmp_deeply(
  96             $authvals,
  97             [
  98                 {
  99                     id => ignore(),
 100                     category => 'BUG10656',
 101                     authorised_value => 'AAA',
 102                     lib => 'A_STAFF',
 103                     lib_opac => 'Z_PUBLIC',
 104                     imageurl => '',
 105                 },
 106                 {
 107                     id => ignore(),
 108                     category => 'BUG10656',
 109                     authorised_value => 'DDD',
 110                     lib => 'D_STAFF',
 111                     lib_opac => undef,
 112                     imageurl => '',
 113                 },
 114                 {
 115                     id => ignore(),
 116                     category => 'BUG10656',
 117                     authorised_value => 'ZZZ',
 118                     lib => 'Z_STAFF',
 119                     lib_opac => 'A_PUBLIC',
 120                     imageurl => '',
 121                 },
 122             ],
 123             'list of authorised values in staff mode sorted by staff label (bug 10656)'
 124         );
 125         $authvals = GetAuthorisedValues('BUG10656', 1);
 126         cmp_deeply(
 127             $authvals,
 128             [
 129                 {
 130                     id => ignore(),
 131                     category => 'BUG10656',
 132                     authorised_value => 'ZZZ',
 133                     lib => 'A_PUBLIC',
 134                     lib_opac => 'A_PUBLIC',
 135                     imageurl => '',
 136                 },
 137                 {
 138                     id => ignore(),
 139                     category => 'BUG10656',
 140                     authorised_value => 'DDD',
 141                     lib => 'D_STAFF',
 142                     lib_opac => undef,
 143                     imageurl => '',
 144                 },
 145                 {
 146                     id => ignore(),
 147                     category => 'BUG10656',
 148                     authorised_value => 'AAA',
 149                     lib => 'Z_PUBLIC',
 150                     lib_opac => 'Z_PUBLIC',
 151                     imageurl => '',
 152                 },
 153             ],
 154             'list of authorised values in OPAC mode sorted by OPAC label (bug 10656)'
 155         );
 156     }
 157
 158 };
 159
 160 ### test for C4::Koha->GetDailyQuote()
 161 SKIP:
 162     {
 163         eval { require Test::Deep; import Test::Deep; };
 164         skip "Test::Deep required to run the GetDailyQuote tests.", 1 if $@;
 165
 166         subtest 'Daily Quotes Test' => sub {
 167             plan tests => 4;
 168
 169             SKIP: {
 170
 171                 skip "C4::Koha can't \'GetDailyQuote\'!", 3 unless can_ok('C4::Koha','GetDailyQuote');
 172
 173 # Fill the quote table with the default needed and a spare
 174 $dbh->do("DELETE FROM quotes WHERE id=3 OR id=25;");
 175 my $sql = "INSERT INTO quotes (id,source,text,timestamp) VALUES
 176 (25,'Richard Nixon','When the President does it, that means that it is not illegal.','0000-00-00 00:00:00'),
 177 (3,'Abraham Lincoln','Four score and seven years ago our fathers brought forth on this continent, a new nation, conceived in Liberty, and dedicated to the proposition that all men are created equal.','0000-00-00 00:00:00');";
 178 $dbh->do($sql);
 179
 180                 my $expected_quote = {
 181                     id          => 3,
 182                     source      => 'Abraham Lincoln',
 183                     text        => 'Four score and seven years ago our fathers brought forth on this continent, a new nation, conceived in Liberty, and dedicated to the proposition that all men are created equal.',
 184                     timestamp   => re('\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2}'),   #'0000-00-00 00:00:00',
 185                 };
 186
 187 # test quote retrieval based on id
 188
 189                 my $quote = GetDailyQuote('id'=>3);
 190                 cmp_deeply ($quote, $expected_quote, "Got a quote based on id.") or
 191                     diag('Be sure to run this test on a clean install of sample data.');
 192
 193 # test quote retrieval based on today's date
 194
 195                 my $query = 'UPDATE quotes SET timestamp = ? WHERE id = ?';
 196                 my $sth = C4::Context->dbh->prepare($query);
 197                 $sth->execute(DateTime::Format::MySQL->format_datetime( dt_from_string() ), $expected_quote->{'id'});
 198
 199                 DateTime::Format::MySQL->format_datetime( dt_from_string() ) =~ m/(\d{4}-\d{2}-\d{2})/;
 200                 $expected_quote->{'timestamp'} = re("^$1");
 201
 202 #        $expected_quote->{'timestamp'} = DateTime::Format::MySQL->format_datetime( dt_from_string() );   # update the timestamp of expected quote data
 203
 204                 $quote = GetDailyQuote(); # this is the "default" mode of selection
 205                 cmp_deeply ($quote, $expected_quote, "Got a quote based on today's date.") or
 206                     diag('Be sure to run this test on a clean install of sample data.');
 207
 208 # test random quote retrieval
 209
 210                 $quote = GetDailyQuote('random'=>1);
 211                 ok ($quote, "Got a random quote.");
 212             }
 213         };
 214 }
 215
 216
 217 subtest 'ISBN tests' => sub {
 218     plan tests => 6;
 219
 220     my $isbn13  = "9780330356473";
 221     my $isbn13D = "978-0-330-35647-3";
 222     my $isbn10  = "033035647X";
 223     my $isbn10D = "0-330-35647-X";
 224     is( xml_escape(undef), '',
 225         'xml_escape() returns empty string on undef input' );
 226     my $str = q{'"&<>'};
 227     is(
 228         xml_escape($str),
 229         '&apos;&quot;&amp;&lt;&gt;&apos;',
 230         'xml_escape() works as expected'
 231     );
 232     is( $str, q{'"&<>'}, '... and does not change input in place' );
 233     is( C4::Koha::_isbn_cleanup('0-590-35340-3'),
 234         '0590353403', '_isbn_cleanup removes hyphens' );
 235     is( C4::Koha::_isbn_cleanup('0590353403 (pbk.)'),
 236         '0590353403', '_isbn_cleanup removes parenthetical' );
 237     is( C4::Koha::_isbn_cleanup('978-0-321-49694-2'),
 238         '0321496949', '_isbn_cleanup converts ISBN-13 to ISBN-10' );
 239
 240 };
 241
 242 subtest 'GetItemTypesCategorized test' => sub{
 243     plan tests => 7;
 244
 245     my $avc = Koha::AuthorisedValueCategories->find('ITEMTYPECAT');
 246     Koha::AuthorisedValueCategory->new({ category_name => 'ITEMTYPECAT' })->store unless $avc;
 247     my $insertGroup = Koha::AuthorisedValue->new(
 248         {   category         => 'ITEMTYPECAT',
 249             authorised_value => 'Quertyware',
 250         }
 251     )->store;
 252
 253     ok($insertGroup, "Create group Qwertyware");
 254
 255     my $query = "INSERT into itemtypes (itemtype, description, searchcategory, hideinopac) values (?,?,?,?)";
 256     my $insertSth = C4::Context->dbh->prepare($query);
 257     $insertSth->execute('BKghjklo1', 'One type of book', '', 0);
 258     $insertSth->execute('BKghjklo2', 'Another type of book', 'Qwertyware', 0);
 259     $insertSth->execute('BKghjklo3', 'Yet another type of book', 'Qwertyware', 0);
 260
 261     # Azertyware should not exist.
 262     my @itemtypes = Koha::ItemTypes->search({ searchcategory => 'Azertyware' });
 263     is( @itemtypes, 0, 'Search item types by searchcategory: Invalid category returns nothing');
 264
 265     @itemtypes = Koha::ItemTypes->search({ searchcategory => 'Qwertyware' });
 266     my @got = map { $_->itemtype } @itemtypes;
 267     my @expected = ( 'BKghjklo2', 'BKghjklo3' );
 268     is_deeply(\@got,\@expected,'Search item types by searchcategory: valid category returns itemtypes');
 269
 270     # add more data since GetItemTypesCategorized's search is more subtle
 271     $insertGroup = Koha::AuthorisedValue->new(
 272         {   category         => 'ITEMTYPECAT',
 273             authorised_value => 'Varyheavybook',
 274         }
 275     )->store;
 276
 277     $insertSth->execute('BKghjklo4', 'Another hidden book', 'Veryheavybook', 1);
 278
 279     my $hrCat = GetItemTypesCategorized();
 280     ok(exists $hrCat->{Qwertyware}, 'GetItemTypesCategorized: fully visible category exists');
 281     ok($hrCat->{Veryheavybook} &&
 282        $hrCat->{Veryheavybook}->{hideinopac}==1, 'GetItemTypesCategorized: non-visible category hidden' );
 283
 284     $insertSth->execute('BKghjklo5', 'An hidden book', 'Qwertyware', 1);
 285     $hrCat = GetItemTypesCategorized();
 286     ok(exists $hrCat->{Qwertyware}, 'GetItemTypesCategorized: partially visible category exists');
 287
 288     my @only = ( 'BKghjklo1', 'BKghjklo2', 'BKghjklo3', 'BKghjklo4', 'BKghjklo5', 'Qwertyware', 'Veryheavybook' );
 289     my @results = ();
 290     foreach my $key (@only) {
 291         push @results, $key if exists $hrCat->{$key};
 292     }
 293     @expected = ( 'BKghjklo1', 'Qwertyware', 'Veryheavybook' );
 294     is_deeply(\@results,\@expected, 'GetItemTypesCategorized: grouped and ungrouped items returned as expected.');
 295 };
 296
 297 $schema->storage->txn_rollback;