4 use Test
::More tests
=> 14;
10 use_ok
('C4::Ratings');
12 my $dbh = C4
::Context
->dbh;
13 $dbh->{RaiseError
} = 1;
14 $dbh->{AutoCommit
} = 0;
16 my @categories = C4
::Category
->all;
17 my $categorycode = $categories[0]->categorycode;
18 my $branchcode = 'CPL';
21 cardnumber
=> '123456',
24 categorycode
=> $categorycode,
25 branchcode
=> $branchcode,
27 dateexpiry
=> '9999-12-31',
32 cardnumber
=> '345678',
35 categorycode
=> $categorycode,
36 branchcode
=> $branchcode,
38 dateexpiry
=> '9999-12-31',
42 my $borrowernumber1 = AddMember
(%john_doe);
43 my $borrowernumber2 = AddMember
(%jane_doe);
45 my $rating1 = AddRating
( 1, $borrowernumber1, 3 );
46 my $rating2 = AddRating
( 1, $borrowernumber2, 4 );
47 my $rating3 = ModRating
( 1, $borrowernumber1, 5 );
48 my $rating4 = GetRating
( 1, $borrowernumber2 );
49 my $rating5 = GetRating
(1);
51 ok
( defined $rating1, 'add a rating' );
52 ok
( defined $rating2, 'add another rating' );
53 ok
( defined $rating3, 'update a rating' );
54 ok
( defined $rating4, 'get a rating, with borrowernumber' );
56 ok
( $rating3->{'rating_avg'} == '4', "get a bib's average(float) rating" );
57 ok
( $rating3->{'rating_avg_int'} == 4.5, "get a bib's average(int) rating" );
58 ok
( $rating3->{'rating_total'} == 2, "get a bib's total number of ratings" );
59 ok
( $rating3->{'rating_value'} == 5, "verify user's bib rating" );
61 my $rating_1 = GetRating
(1);
62 my $rating_1_1 = GetRating
( 1, $borrowernumber1 );
66 rating_avg_int
=> 4.5,
69 rating_value
=> undef,
71 'GetRating should return total, avg_int and avg if biblionumber is given'
76 rating_avg_int
=> 4.5,
81 'GetRating should return total, avg_int, avg and value if biblionumber is given'
84 my $rating6 = DelRating
( 1, $borrowernumber1 );
85 my $rating7 = DelRating
( 1, $borrowernumber2 );
87 ok
( defined $rating6, 'delete a rating' );
88 ok
( defined $rating7, 'delete another rating' );
90 is
( GetRating
( 1, $borrowernumber1 ),
91 undef, 'GetRating should return undef if no rating exist' );