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

(-)a/t/db_dependent/Koha/Ratings.t (+52 lines)
Line 0 Link Here
1
#!/usr/bin/perl
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
18
use Modern::Perl;
19
20
use Test::More tests => 4;
21
22
use Koha::Database;
23
use Koha::Rating;
24
use Koha::Ratings;
25
26
use t::lib::TestBuilder;
27
28
my $schema = Koha::Database->schema;
29
$schema->storage->txn_begin;
30
my $builder = t::lib::TestBuilder->new;
31
32
my $patron_1 = $builder->build( { source => 'Borrower', } );
33
my $patron_2 = $builder->build( { source => 'Borrower', } );
34
my $biblio_1 = $builder->build( { source => 'Biblio', } );
35
my $biblionumber = $biblio_1->{biblionumber};
36
37
my $rating_1 = Koha::Rating->new( { biblionumber => $biblionumber, borrowernumber => $patron_1->{borrowernumber}, rating_value => 3 } )->store;
38
my $rating_2 = Koha::Rating->new( { biblionumber => $biblionumber, borrowernumber => $patron_2->{borrowernumber}, rating_value => 4 } )->store;
39
40
is( Koha::Ratings->search( { biblionumber => $biblionumber } )->get_avg_rating, 3.5, );
41
42
$rating_1->rating_value(5)->store;
43
44
is( Koha::Ratings->search( { biblionumber => $biblionumber } )->get_avg_rating, 4.5, );
45
46
Koha::Ratings->find( { biblionumber => $biblionumber, borrowernumber => $patron_1->{borrowernumber} } )->delete;
47
Koha::Ratings->find( { biblionumber => $biblionumber, borrowernumber => $patron_2->{borrowernumber} } )->delete;
48
is( Koha::Ratings->search( { biblionumber => $biblionumber } )->count, 0, 'Delete should have deleted the ratings' );
49
50
is( int(Koha::Ratings->search( { biblionumber => $biblionumber } )->get_avg_rating), 0, 'get_avg_rating should return 0 if no rating exist' );
51
52
1;
(-)a/t/db_dependent/Ratings.t (-122 lines)
Lines 1-121 Link Here
1
#!/usr/bin/perl
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
18
use Modern::Perl;
19
20
use Test::More tests => 14;
21
22
use C4::Biblio qw/AddBiblio/;
23
use C4::Members;
24
use C4::Context;
25
use C4::Category;
26
use Koha::Database;
27
28
use t::lib::TestBuilder;
29
30
use_ok('C4::Ratings');
31
32
my $schema = Koha::Database->schema;
33
$schema->storage->txn_begin;
34
my $builder = t::lib::TestBuilder->new;
35
my $dbh = C4::Context->dbh;
36
$dbh->{RaiseError} = 1;
37
38
my $library = $builder->build({
39
    source => 'Branch',
40
});
41
42
my ($biblionumber) = AddBiblio( MARC::Record->new, '' );
43
44
my @categories   = C4::Category->all;
45
my $categorycode = $categories[0]->categorycode;
46
my $branchcode   = $library->{branchcode};
47
48
my %john_doe = (
49
    cardnumber   => '123456',
50
    firstname    => 'John',
51
    surname      => 'Doe',
52
    categorycode => $categorycode,
53
    branchcode   => $branchcode,
54
    dateofbirth  => '',
55
    dateexpiry   => '9999-12-31',
56
    userid       => 'john.doe'
57
);
58
59
my %jane_doe = (
60
    cardnumber   => '345678',
61
    firstname    => 'Jane',
62
    surname      => 'Doe',
63
    categorycode => $categorycode,
64
    branchcode   => $branchcode,
65
    dateofbirth  => '',
66
    dateexpiry   => '9999-12-31',
67
    userid       => 'jane.doe'
68
);
69
70
my $borrowernumber1 = AddMember(%john_doe);
71
my $borrowernumber2 = AddMember(%jane_doe);
72
73
my $rating1 = AddRating( $biblionumber, $borrowernumber1, 3 );
74
my $rating2 = AddRating( $biblionumber, $borrowernumber2, 4 );
75
my $rating3 = ModRating( $biblionumber, $borrowernumber1, 5 );
76
my $rating4 = GetRating( $biblionumber, $borrowernumber2 );
77
my $rating5 = GetRating( $biblionumber );
78
79
ok( defined $rating1, 'add a rating' );
80
ok( defined $rating2, 'add another rating' );
81
ok( defined $rating3, 'update a rating' );
82
ok( defined $rating4, 'get a rating, with borrowernumber' );
83
84
ok( $rating3->{'rating_avg'} == '4',     "get a bib's average(float) rating" );
85
ok( $rating3->{'rating_avg_int'} == 4.5, "get a bib's average(int) rating" );
86
ok( $rating3->{'rating_total'} == 2, "get a bib's total number of ratings" );
87
ok( $rating3->{'rating_value'} == 5, "verify user's bib rating" );
88
89
my $rating_1   = GetRating( $biblionumber );
90
my $rating_1_1 = GetRating( $biblionumber, $borrowernumber1 );
91
is_deeply(
92
    $rating_1,
93
    {
94
        rating_avg_int => 4.5,
95
        rating_total   => 2,
96
        rating_avg     => 4,
97
        rating_value   => undef,
98
    },
99
    'GetRating should return total, avg_int and avg if  biblionumber is given'
100
);
101
is_deeply(
102
    $rating_1_1,
103
    {
104
        rating_avg_int => 4.5,
105
        rating_total   => 2,
106
        rating_avg     => 4,
107
        rating_value   => 5,
108
    },
109
'GetRating should return total, avg_int, avg and value if biblionumber is given'
110
);
111
112
my $rating6 = DelRating( $biblionumber, $borrowernumber1 );
113
my $rating7 = DelRating( $biblionumber, $borrowernumber2 );
114
115
ok( defined $rating6, 'delete a rating' );
116
ok( defined $rating7, 'delete another rating' );
117
118
is( GetRating( $biblionumber, $borrowernumber1 ),
119
    undef, 'GetRating should return undef if no rating exist' );
120
121
1;
122
- 

Return to bug 17089