t/db_dependent/Ratings.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 14;
   5 use C4::Members;
   6
   7 use C4::Context;
   8 use C4::Category;
   9
  10 use_ok('C4::Ratings');
  11
  12 my $dbh = C4::Context->dbh;
  13 $dbh->{RaiseError} = 1;
  14 $dbh->{AutoCommit} = 0;
  15
  16 my @categories   = C4::Category->all;
  17 my $categorycode = $categories[0]->categorycode;
  18 my $branchcode   = 'CPL';
  19
  20 my %john_doe = (
  21     cardnumber   => '123456',
  22     firstname    => 'John',
  23     surname      => 'Doe',
  24     categorycode => $categorycode,
  25     branchcode   => $branchcode,
  26     dateofbirth  => '',
  27     dateexpiry   => '9999-12-31',
  28     userid       => 'john.doe'
  29 );
  30
  31 my %jane_doe = (
  32     cardnumber   => '345678',
  33     firstname    => 'Jane',
  34     surname      => 'Doe',
  35     categorycode => $categorycode,
  36     branchcode   => $branchcode,
  37     dateofbirth  => '',
  38     dateexpiry   => '9999-12-31',
  39     userid       => 'jane.doe'
  40 );
  41
  42 my $borrowernumber1 = AddMember(%john_doe);
  43 my $borrowernumber2 = AddMember(%jane_doe);
  44
  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);
  50
  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' );
  55
  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" );
  60
  61 my $rating_1 = GetRating(1);
  62 my $rating_1_1 = GetRating( 1, $borrowernumber1 );
  63 is_deeply(
  64     $rating_1,
  65     {
  66         rating_avg_int => 4.5,
  67         rating_total   => 2,
  68         rating_avg     => 4,
  69         rating_value   => undef,
  70     },
  71     'GetRating should return total, avg_int and avg if  biblionumber is given'
  72 );
  73 is_deeply(
  74     $rating_1_1,
  75     {
  76         rating_avg_int => 4.5,
  77         rating_total   => 2,
  78         rating_avg     => 4,
  79         rating_value   => 5,
  80     },
  81 'GetRating should return total, avg_int, avg and value if biblionumber is given'
  82 );
  83
  84 my $rating6 = DelRating( 1, $borrowernumber1 );
  85 my $rating7 = DelRating( 1, $borrowernumber2 );
  86
  87 ok( defined $rating6, 'delete a rating' );
  88 ok( defined $rating7, 'delete another rating' );
  89
  90 is( GetRating( 1, $borrowernumber1 ),
  91     undef, 'GetRating should return undef if no rating exist' );