View | Details | Raw Unified | Return to bug 5880
Collapse All | Expand All

(-)a/t/db_dependent/Koha.t (-1 / +39 lines)
Line 0 Link Here
0
- 
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

Return to bug 5880