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' );