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

(-)a/t/db_dependent/Ratings.t (-20 / +25 lines)
Lines 3-8 Link Here
3
use strict;
3
use strict;
4
use warnings;
4
use warnings;
5
use Test::More tests => 12;
5
use Test::More tests => 12;
6
use C4::Members;
6
7
7
BEGIN {
8
BEGIN {
8
9
Lines 13-39 BEGIN { Link Here
13
    DelRating( 1, 901 );
14
    DelRating( 1, 901 );
14
    DelRating( 1, 902 );
15
    DelRating( 1, 902 );
15
16
16
    my $rating1 = AddRating( 1, 102, 3 );
17
    my $rating2 = AddRating( 1, 103, 4 );
18
    my $rating3 = ModRating( 1, 102, 5 );
19
    my $rating4 = GetRating( 1, 103 );
20
    my $rating5 = GetRating( 1, undef );
17
    my $rating5 = GetRating( 1, undef );
21
    my $rating6 = DelRating( 1, 102 );
22
    my $rating7 = DelRating( 1, 103 );
23
24
    ok( defined $rating1, 'add a rating' );
25
    ok( defined $rating2, 'add another rating' );
26
    ok( defined $rating3, 'update a rating' );
27
    ok( defined $rating4, 'get a rating, with borrowernumber' );
28
    ok( defined $rating5, 'get a rating, without borrowernumber' );
18
    ok( defined $rating5, 'get a rating, without borrowernumber' );
29
    ok( $rating3->{'rating_avg'} == '4', "get a bib's average(float) rating" );
19
30
    ok( $rating3->{'rating_avg_int'} == 4.5,
20
    my $borrower102 = GetMember( borrowernumber => 102);
31
        "get a bib's average(int) rating" );
21
    my $borrower103 = GetMember( borrowernumber => 103);
32
    ok( $rating3->{'rating_total'} == 2,
22
    SKIP: {
33
        "get a bib's total number of ratings" );
23
        skip 'Missing test borrowers, skipping specific tests', 10 unless ( defined $borrower102 && defined $borrower103 );
34
    ok( $rating3->{'rating_value'} == 5, "verify user's bib rating" );
24
        my $rating1 = AddRating( 1, 102, 3 );
35
    ok( defined $rating6,                'delete a rating' );
25
        my $rating2 = AddRating( 1, 103, 4 );
36
    ok( defined $rating7,                'delete another rating' );
26
        my $rating3 = ModRating( 1, 102, 5 );
27
        my $rating4 = GetRating( 1, 103 );
28
        my $rating6 = DelRating( 1, 102 );
29
        my $rating7 = DelRating( 1, 103 );
30
31
        ok( defined $rating1, 'add a rating' );
32
        ok( defined $rating2, 'add another rating' );
33
        ok( defined $rating3, 'update a rating' );
34
        ok( defined $rating4, 'get a rating, with borrowernumber' );
35
        ok( defined $rating6,                'delete a rating' );
36
        ok( defined $rating7,                'delete another rating' );
37
38
        ok( $rating3->{'rating_avg'} == '4', "get a bib's average(float) rating" );
39
        ok( $rating3->{'rating_avg_int'} == 4.5, "get a bib's average(int) rating" );
40
        ok( $rating3->{'rating_total'} == 2, "get a bib's total number of ratings" );
41
        ok( $rating3->{'rating_value'} == 5, "verify user's bib rating" );
42
    }
37
43
38
}
44
}
39
45
40
- 

Return to bug 5668