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

(-)a/t/db_dependent/Ratings.t (-12 / +32 lines)
Lines 1-9 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
3
use Modern::Perl;
18
use Modern::Perl;
19
4
use Test::More tests => 14;
20
use Test::More tests => 14;
5
use C4::Members;
6
21
22
use C4::Biblio qw/AddBiblio/;
23
use C4::Members;
7
use C4::Context;
24
use C4::Context;
8
use C4::Category;
25
use C4::Category;
9
26
Lines 13-18 my $dbh = C4::Context->dbh; Link Here
13
$dbh->{RaiseError} = 1;
30
$dbh->{RaiseError} = 1;
14
$dbh->{AutoCommit} = 0;
31
$dbh->{AutoCommit} = 0;
15
32
33
my ($biblionumber) = AddBiblio( MARC::Record->new, '' );
34
16
my @categories   = C4::Category->all;
35
my @categories   = C4::Category->all;
17
my $categorycode = $categories[0]->categorycode;
36
my $categorycode = $categories[0]->categorycode;
18
my $branchcode   = 'CPL';
37
my $branchcode   = 'CPL';
Lines 42-52 my %jane_doe = ( Link Here
42
my $borrowernumber1 = AddMember(%john_doe);
61
my $borrowernumber1 = AddMember(%john_doe);
43
my $borrowernumber2 = AddMember(%jane_doe);
62
my $borrowernumber2 = AddMember(%jane_doe);
44
63
45
my $rating1 = AddRating( 1, $borrowernumber1, 3 );
64
my $rating1 = AddRating( $biblionumber, $borrowernumber1, 3 );
46
my $rating2 = AddRating( 1, $borrowernumber2, 4 );
65
my $rating2 = AddRating( $biblionumber, $borrowernumber2, 4 );
47
my $rating3 = ModRating( 1, $borrowernumber1, 5 );
66
my $rating3 = ModRating( $biblionumber, $borrowernumber1, 5 );
48
my $rating4 = GetRating( 1, $borrowernumber2 );
67
my $rating4 = GetRating( $biblionumber, $borrowernumber2 );
49
my $rating5 = GetRating(1);
68
my $rating5 = GetRating( $biblionumber );
50
69
51
ok( defined $rating1, 'add a rating' );
70
ok( defined $rating1, 'add a rating' );
52
ok( defined $rating2, 'add another rating' );
71
ok( defined $rating2, 'add another rating' );
Lines 58-65 ok( $rating3->{'rating_avg_int'} == 4.5, "get a bib's average(int) rating" ); Link Here
58
ok( $rating3->{'rating_total'} == 2, "get a bib's total number of ratings" );
77
ok( $rating3->{'rating_total'} == 2, "get a bib's total number of ratings" );
59
ok( $rating3->{'rating_value'} == 5, "verify user's bib rating" );
78
ok( $rating3->{'rating_value'} == 5, "verify user's bib rating" );
60
79
61
my $rating_1 = GetRating(1);
80
my $rating_1   = GetRating( $biblionumber );
62
my $rating_1_1 = GetRating( 1, $borrowernumber1 );
81
my $rating_1_1 = GetRating( $biblionumber, $borrowernumber1 );
63
is_deeply(
82
is_deeply(
64
    $rating_1,
83
    $rating_1,
65
    {
84
    {
Lines 81-91 is_deeply( Link Here
81
'GetRating should return total, avg_int, avg and value if biblionumber is given'
100
'GetRating should return total, avg_int, avg and value if biblionumber is given'
82
);
101
);
83
102
84
my $rating6 = DelRating( 1, $borrowernumber1 );
103
my $rating6 = DelRating( $biblionumber, $borrowernumber1 );
85
my $rating7 = DelRating( 1, $borrowernumber2 );
104
my $rating7 = DelRating( $biblionumber, $borrowernumber2 );
86
105
87
ok( defined $rating6, 'delete a rating' );
106
ok( defined $rating6, 'delete a rating' );
88
ok( defined $rating7, 'delete another rating' );
107
ok( defined $rating7, 'delete another rating' );
89
108
90
is( GetRating( 1, $borrowernumber1 ),
109
is( GetRating( $biblionumber, $borrowernumber1 ),
91
    undef, 'GetRating should return undef if no rating exist' );
110
    undef, 'GetRating should return undef if no rating exist' );
92
- 
111
112
1;

Return to bug 13998