| Lines 1-395
          
      
      
        Link Here | 
            
              | 1 | #!/usr/bin/perl |  |  | 
            
              | 2 |  | 
            
              | 3 | # Copyright 2015 BibLibre | 
            
              | 4 | # | 
            
              | 5 | # This file is part of Koha. | 
            
              | 6 | # | 
            
              | 7 | # Koha is free software; you can redistribute it and/or modify it under the | 
            
              | 8 | # terms of the GNU General Public License as published by the Free Software | 
            
              | 9 | # Foundation; either version 3 of the License, or (at your option) any later | 
            
              | 10 | # version. | 
            
              | 11 | # | 
            
              | 12 | # Koha is distributed in the hope that it will be useful, but WITHOUT ANY | 
            
              | 13 | # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR | 
            
              | 14 | # A PARTICULAR PURPOSE. See the GNU General Public License for more details. | 
            
              | 15 | # | 
            
              | 16 | # You should have received a copy of the GNU General Public License along | 
            
              | 17 | # with Koha; if not, see <http://www.gnu.org/licenses>. | 
            
              | 18 |  | 
            
              | 19 | use Modern::Perl; | 
            
              | 20 |  | 
            
              | 21 | use Test::More tests => 117; | 
            
              | 22 | use t::lib::TestBuilder; | 
            
              | 23 |  | 
            
              | 24 | use Koha::Database; | 
            
              | 25 | use Time::Piece; | 
            
              | 26 |  | 
            
              | 27 | BEGIN { | 
            
              | 28 |     use_ok('C4::Biblio'); | 
            
              | 29 |     use_ok('C4::Review'); | 
            
              | 30 |     use_ok('Koha::Patron'); | 
            
              | 31 |     use_ok('MARC::Record'); | 
            
              | 32 | } | 
            
              | 33 |  | 
            
              | 34 | can_ok( | 
            
              | 35 |     'C4::Review', qw( | 
            
              | 36 |       getreview | 
            
              | 37 |       savereview | 
            
              | 38 |       updatereview | 
            
              | 39 |       numberofreviews | 
            
              | 40 |       numberofreviewsbybiblionumber | 
            
              | 41 |       getreviews | 
            
              | 42 |       getallreviews | 
            
              | 43 |       approvereview | 
            
              | 44 |       unapprovereview | 
            
              | 45 |       deletereview ) | 
            
              | 46 | ); | 
            
              | 47 |  | 
            
              | 48 | my $schema = Koha::Database->new->schema; | 
            
              | 49 | $schema->storage->txn_begin; | 
            
              | 50 | our $dbh = C4::Context->dbh; | 
            
              | 51 |  | 
            
              | 52 | $dbh->do('DELETE FROM reviews'); | 
            
              | 53 | $dbh->do('DELETE FROM issues'); | 
            
              | 54 | $dbh->do('DELETE FROM borrowers'); | 
            
              | 55 |  | 
            
              | 56 | my $builder = t::lib::TestBuilder->new; | 
            
              | 57 |  | 
            
              | 58 | # ---------- Some borrowers for testing ------------------- | 
            
              | 59 | my $categorycode = $builder->build({ source => 'Category' })->{ categorycode }; | 
            
              | 60 | my $branchcode   = $builder->build({ source => 'Branch' })->{ branchcode }; | 
            
              | 61 |  | 
            
              | 62 | my $b1 = Koha::Patron->new( | 
            
              | 63 |     {   surname      => 'Borrower 1', | 
            
              | 64 |         branchcode   => $branchcode, | 
            
              | 65 |         categorycode => $categorycode | 
            
              | 66 |     } | 
            
              | 67 | ); | 
            
              | 68 | $b1->store(); | 
            
              | 69 |  | 
            
              | 70 | my $b2 = Koha::Patron->new( | 
            
              | 71 |     {   surname      => 'Borrower 2', | 
            
              | 72 |         branchcode   => $branchcode, | 
            
              | 73 |         categorycode => $categorycode | 
            
              | 74 |     } | 
            
              | 75 | ); | 
            
              | 76 | $b2->store(); | 
            
              | 77 |  | 
            
              | 78 | my $b3 = Koha::Patron->new( | 
            
              | 79 |     {   surname      => 'Borrower 3', | 
            
              | 80 |         branchcode   => $branchcode, | 
            
              | 81 |         categorycode => $categorycode | 
            
              | 82 |     } | 
            
              | 83 | ); | 
            
              | 84 | $b3->store(); | 
            
              | 85 |  | 
            
              | 86 | # ---------- Some biblios for testing ------------------- | 
            
              | 87 | my ($biblionumber1) = AddBiblio( MARC::Record->new, '' ); | 
            
              | 88 | my ($biblionumber2) = AddBiblio( MARC::Record->new, '' ); | 
            
              | 89 | my ($biblionumber3) = AddBiblio( MARC::Record->new, '' ); | 
            
              | 90 |  | 
            
              | 91 | # ---------- Some reviews for testing ------------------- | 
            
              | 92 | my $rev1 = 'Review 1'; | 
            
              | 93 | my $rev2 = 'Review 2'; | 
            
              | 94 | my $rev3 = 'Review 3'; | 
            
              | 95 |  | 
            
              | 96 | # ---------- Testing savereview --------------------------- | 
            
              | 97 | my $date = Time::Piece::localtime->strftime('%F %T'); | 
            
              | 98 |  | 
            
              | 99 | savereview( $biblionumber1, $b1->borrowernumber, $rev1 ); | 
            
              | 100 |  | 
            
              | 101 | my $query = ' | 
            
              | 102 |   SELECT count(*) | 
            
              | 103 |   FROM reviews | 
            
              | 104 | '; | 
            
              | 105 | my $count = $dbh->selectrow_array($query); | 
            
              | 106 | is( $count, 1, 'There is 1 review' ); | 
            
              | 107 |  | 
            
              | 108 | $query = ' | 
            
              | 109 |   SELECT reviewid, borrowernumber, biblionumber, review, approved, datereviewed | 
            
              | 110 |   FROM reviews | 
            
              | 111 | '; | 
            
              | 112 | my ( $reviewid, $borrowernumber, $biblionumber, $review, $approved, $datereviewed ) = $dbh->selectrow_array($query); | 
            
              | 113 | is( $borrowernumber, $b1->borrowernumber, 'borrowernumber field is good' ); | 
            
              | 114 | is( $biblionumber,   $biblionumber1,      'biblionumber field is good' ); | 
            
              | 115 | is( $review,         $rev1,               'review field is good' ); | 
            
              | 116 | is( $approved,       0,                   'approved field is 0 by default' ); | 
            
              | 117 | is( $datereviewed,   $date,               'datereviewed field is good' ); | 
            
              | 118 |  | 
            
              | 119 | # We add some others reviews | 
            
              | 120 | savereview( $biblionumber1, $b2->borrowernumber, $rev2 ); | 
            
              | 121 | savereview( $biblionumber3, $b2->borrowernumber, $rev3 ); | 
            
              | 122 |  | 
            
              | 123 | # ---------- Testing getreview ---------------------------- | 
            
              | 124 | my $review1 = getreview( $biblionumber1, $b1->borrowernumber ); | 
            
              | 125 | my $review2 = getreview( $biblionumber1, $b2->borrowernumber ); | 
            
              | 126 | my $review3 = getreview( $biblionumber3, $b2->borrowernumber ); | 
            
              | 127 |  | 
            
              | 128 | $query = ' | 
            
              | 129 |   SELECT count(*) | 
            
              | 130 |   FROM reviews | 
            
              | 131 | '; | 
            
              | 132 | $count = $dbh->selectrow_array($query); | 
            
              | 133 | is( $count, 3, 'There are 3 reviews' ); | 
            
              | 134 |  | 
            
              | 135 | isa_ok( $review1, 'HASH', '$review1 is defined as a hash' ); | 
            
              | 136 | is( $review1->{borrowernumber}, $b1->borrowernumber, 'borrowernumber field is good' ); | 
            
              | 137 | is( $review1->{biblionumber},   $biblionumber1,      'biblionumber field is good' ); | 
            
              | 138 | is( $review1->{review},         $rev1,               'review field is good' ); | 
            
              | 139 | is( $review1->{approved},       0,                   'approved field is 0 by default' ); | 
            
              | 140 | cmp_ok( $review1->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 141 |  | 
            
              | 142 | isa_ok( $review2, 'HASH', '$review2 is defined as a hash' ); | 
            
              | 143 | is( $review2->{borrowernumber}, $b2->borrowernumber, 'borrowernumber field is good' ); | 
            
              | 144 | is( $review2->{biblionumber},   $biblionumber1,      'biblionumber field is good' ); | 
            
              | 145 | is( $review2->{review},         $rev2,               'review field is good' ); | 
            
              | 146 | is( $review2->{approved},       0,                   'approved field is 0 by default' ); | 
            
              | 147 | cmp_ok( $review2->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 148 |  | 
            
              | 149 | isa_ok( $review3, 'HASH', '$review3 is defined as a hash' ); | 
            
              | 150 | is( $review3->{borrowernumber}, $b2->borrowernumber, 'borrowernumber field is good' ); | 
            
              | 151 | is( $review3->{biblionumber},   $biblionumber3,      'biblionumber field is good' ); | 
            
              | 152 | is( $review3->{review},         $rev3,               'review field is good' ); | 
            
              | 153 | is( $review3->{approved},       0,                   'approved field is 0 by default' ); | 
            
              | 154 | cmp_ok( $review3->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 155 |  | 
            
              | 156 | # ---------- Testing getreviews --------------------------- | 
            
              | 157 | my $status = 0; | 
            
              | 158 | my $reviews = getreviews( $biblionumber1, $status ); | 
            
              | 159 |  | 
            
              | 160 | $query = ' | 
            
              | 161 |   SELECT count(*) | 
            
              | 162 |   FROM reviews | 
            
              | 163 |   WHERE biblionumber = ? | 
            
              | 164 |     AND approved = ? | 
            
              | 165 | '; | 
            
              | 166 | $count = $dbh->selectrow_array( $query, {}, $biblionumber1, $status ); | 
            
              | 167 | is( $count, 2, 'There are 2 reviews corresponding' ); | 
            
              | 168 |  | 
            
              | 169 | isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' ); | 
            
              | 170 |  | 
            
              | 171 | isa_ok( $reviews->[0], 'HASH', '$reviews->[0] is defined as a hash' ); | 
            
              | 172 | is( $reviews->[0]->{reviewid},       $review1->{reviewid},       'reviewid field is good' ); | 
            
              | 173 | is( $reviews->[0]->{borrowernumber}, $review1->{borrowernumber}, 'borrowernumber field is good' ); | 
            
              | 174 | is( $reviews->[0]->{biblionumber},   $review1->{biblionumber},   'biblionumber field is good' ); | 
            
              | 175 | is( $reviews->[0]->{review},         $review1->{review},         'review field is good' ); | 
            
              | 176 | is( $reviews->[0]->{approved},       $review1->{approved},       'approved field is 0 by default' ); | 
            
              | 177 | cmp_ok( $reviews->[0]->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 178 |  | 
            
              | 179 | isa_ok( $reviews->[1], 'HASH', '$reviews->[1] is defined as a hash' ); | 
            
              | 180 | is( $reviews->[1]->{reviewid},       $review2->{reviewid},       'reviewid field is good' ); | 
            
              | 181 | is( $reviews->[1]->{borrowernumber}, $review2->{borrowernumber}, 'borrowernumber field is good' ); | 
            
              | 182 | is( $reviews->[1]->{biblionumber},   $review2->{biblionumber},   'biblionumber field is good' ); | 
            
              | 183 | is( $reviews->[1]->{review},         $review2->{review},         'review field is good' ); | 
            
              | 184 | is( $reviews->[1]->{approved},       $review2->{approved},       'approved field is 0 by default' ); | 
            
              | 185 | cmp_ok( $reviews->[1]->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 186 |  | 
            
              | 187 | $status = 1; | 
            
              | 188 | $reviews = getreviews( $biblionumber1, $status ); | 
            
              | 189 | isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' ); | 
            
              | 190 | is_deeply( $reviews, [], '$reviews is empty, there is no approved review' ); | 
            
              | 191 |  | 
            
              | 192 | # ---------- Testing getallreviews ------------------------ | 
            
              | 193 | $status  = 1; | 
            
              | 194 | $reviews = getallreviews($status); | 
            
              | 195 | isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' ); | 
            
              | 196 | is_deeply( $reviews, [], '$reviews is empty, there is no approved review' ); | 
            
              | 197 |  | 
            
              | 198 | $status  = 0; | 
            
              | 199 | $reviews = getallreviews($status); | 
            
              | 200 |  | 
            
              | 201 | $query = ' | 
            
              | 202 |   SELECT count(*) | 
            
              | 203 |   FROM reviews | 
            
              | 204 |   WHERE approved = ? | 
            
              | 205 | '; | 
            
              | 206 | $count = $dbh->selectrow_array( $query, {}, $status ); | 
            
              | 207 | is( $count, 3, 'There are 3 reviews corresponding' ); | 
            
              | 208 |  | 
            
              | 209 | my $count2 = numberofreviews($status); | 
            
              | 210 | is( $count2, $count, 'number of reviews returned is good' ); | 
            
              | 211 |  | 
            
              | 212 | isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' ); | 
            
              | 213 |  | 
            
              | 214 | isa_ok( $reviews->[0], 'HASH', '$reviews->[0] is defined as a hash' ); | 
            
              | 215 | is( $reviews->[0]->{reviewid},       $review1->{reviewid},       'reviewid field is good' ); | 
            
              | 216 | is( $reviews->[0]->{borrowernumber}, $review1->{borrowernumber}, 'borrowernumber field is good' ); | 
            
              | 217 | is( $reviews->[0]->{biblionumber},   $review1->{biblionumber},   'biblionumber field is good' ); | 
            
              | 218 | is( $reviews->[0]->{review},         $review1->{review},         'review field is good' ); | 
            
              | 219 | is( $reviews->[0]->{approved},       $review1->{approved},       'approved field is 0 by default' ); | 
            
              | 220 | cmp_ok( $reviews->[0]->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 221 |  | 
            
              | 222 | isa_ok( $reviews->[1], 'HASH', '$reviews->[1] is defined as a hash' ); | 
            
              | 223 | is( $reviews->[1]->{reviewid},       $review2->{reviewid},       'reviewid field is good' ); | 
            
              | 224 | is( $reviews->[1]->{borrowernumber}, $review2->{borrowernumber}, 'borrowernumber field is good' ); | 
            
              | 225 | is( $reviews->[1]->{biblionumber},   $review2->{biblionumber},   'biblionumber field is good' ); | 
            
              | 226 | is( $reviews->[1]->{review},         $review2->{review},         'review field is good' ); | 
            
              | 227 | is( $reviews->[1]->{approved},       $review2->{approved},       'approved field is 0 by default' ); | 
            
              | 228 | cmp_ok( $reviews->[1]->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 229 |  | 
            
              | 230 | isa_ok( $reviews->[2], 'HASH', '$reviews->[2] is defined as a hash' ); | 
            
              | 231 | is( $reviews->[2]->{reviewid},       $review3->{reviewid},       'reviewid field is good' ); | 
            
              | 232 | is( $reviews->[2]->{borrowernumber}, $review3->{borrowernumber}, 'borrowernumber field is good' ); | 
            
              | 233 | is( $reviews->[2]->{biblionumber},   $review3->{biblionumber},   'biblionumber field is good' ); | 
            
              | 234 | is( $reviews->[2]->{review},         $review3->{review},         'review field is good' ); | 
            
              | 235 | is( $reviews->[2]->{approved},       $review3->{approved},       'approved field is 0 by default' ); | 
            
              | 236 | cmp_ok( $reviews->[2]->{datereviewed}, 'ge', $date, 'datereviewed field is good' ); | 
            
              | 237 |  | 
            
              | 238 | my $offset    = 1; | 
            
              | 239 | my $row_count = 1; | 
            
              | 240 | $reviews = getallreviews( $status, $offset ); | 
            
              | 241 | is( @$reviews, 2, 'There are only 2 Reviews here' ); | 
            
              | 242 | is_deeply( $reviews->[0], $review2, 'We have Review2...' ); | 
            
              | 243 | is_deeply( $reviews->[1], $review3, '...and Review3' ); | 
            
              | 244 |  | 
            
              | 245 | $reviews = getallreviews( $status, $offset, $row_count ); | 
            
              | 246 | is( @$reviews, 1, 'There is only 1 Review here' ); | 
            
              | 247 | is_deeply( $reviews->[0], $review2, 'We have only Review2' ); | 
            
              | 248 |  | 
            
              | 249 | # ---------- Testing numberofreviews ---------------------- | 
            
              | 250 | $status = 0; | 
            
              | 251 | $count  = numberofreviews($status); | 
            
              | 252 | is( $count, 3, 'There are 3 reviews where approved = 0' ); | 
            
              | 253 |  | 
            
              | 254 | $status = 1; | 
            
              | 255 | $count  = numberofreviews($status); | 
            
              | 256 | is( $count, 0, 'There is no review where approved = 0' ); | 
            
              | 257 |  | 
            
              | 258 | $count = numberofreviews(); | 
            
              | 259 | is( $count, 0, 'There is no review where approved = 0 (Default)' ); | 
            
              | 260 |  | 
            
              | 261 | # ---------- Testing approvereview ------------------------ | 
            
              | 262 | is( $review1->{approved}, 0, 'review1 is not approved' ); | 
            
              | 263 | approvereview( $review1->{reviewid} ); | 
            
              | 264 | $review1 = getreview( $biblionumber1, $b1->borrowernumber ); | 
            
              | 265 | is( $review1->{approved}, 1, 'review1 is approved' ); | 
            
              | 266 |  | 
            
              | 267 | is( $review2->{approved}, 0, 'review2 is not approved' ); | 
            
              | 268 | approvereview( $review2->{reviewid} ); | 
            
              | 269 | $review2 = getreview( $biblionumber1, $b2->borrowernumber ); | 
            
              | 270 | is( $review2->{approved}, 1, 'review2 is approved' ); | 
            
              | 271 |  | 
            
              | 272 | is( $review3->{approved}, 0, 'review3 is not approved' ); | 
            
              | 273 | approvereview( $review3->{reviewid} ); | 
            
              | 274 | $review3 = getreview( $biblionumber3, $b2->borrowernumber ); | 
            
              | 275 | is( $review3->{approved}, 1, 'review3 is approved' ); | 
            
              | 276 |  | 
            
              | 277 | $status  = 1; | 
            
              | 278 | $reviews = getallreviews($status); | 
            
              | 279 |  | 
            
              | 280 | $count = numberofreviews($status); | 
            
              | 281 | is( $count, 3, '3 reviews are approved' ); | 
            
              | 282 |  | 
            
              | 283 | $status = 0; | 
            
              | 284 | $count  = numberofreviews($status); | 
            
              | 285 | is( $count, 0, 'No review are not approved' ); | 
            
              | 286 |  | 
            
              | 287 | # ---------- Testing unapprovereview ---------------------- | 
            
              | 288 | is( $review1->{approved}, 1, 'review1 is approved' ); | 
            
              | 289 | unapprovereview( $review1->{reviewid} ); | 
            
              | 290 | $review1 = getreview( $biblionumber1, $b1->borrowernumber ); | 
            
              | 291 | is( $review1->{approved}, 0, 'review1 is not approved' ); | 
            
              | 292 |  | 
            
              | 293 | is( $review2->{approved}, 1, 'review2 is approved' ); | 
            
              | 294 | unapprovereview( $review2->{reviewid} ); | 
            
              | 295 | $review2 = getreview( $biblionumber1, $b2->borrowernumber ); | 
            
              | 296 | is( $review2->{approved}, 0, 'review2 is not approved' ); | 
            
              | 297 |  | 
            
              | 298 | is( $review3->{approved}, 1, 'review3 is approved' ); | 
            
              | 299 | unapprovereview( $review3->{reviewid} ); | 
            
              | 300 | $review3 = getreview( $biblionumber3, $b2->borrowernumber ); | 
            
              | 301 | is( $review3->{approved}, 0, 'review3 is not approved' ); | 
            
              | 302 |  | 
            
              | 303 | $status  = 0; | 
            
              | 304 | $reviews = getallreviews($status); | 
            
              | 305 |  | 
            
              | 306 | $count = numberofreviews($status); | 
            
              | 307 | is( $count, 3, '3 reviews are not approved' ); | 
            
              | 308 |  | 
            
              | 309 | $status = 1; | 
            
              | 310 | $count  = numberofreviews($status); | 
            
              | 311 | is( $count, 0, 'No review are approved' ); | 
            
              | 312 |  | 
            
              | 313 | # ---------- Testing numberofreviewsbybiblionumber -------- | 
            
              | 314 | approvereview( $review1->{reviewid} ); | 
            
              | 315 | approvereview( $review2->{reviewid} ); | 
            
              | 316 | approvereview( $review3->{reviewid} ); | 
            
              | 317 |  | 
            
              | 318 | $biblionumber = $biblionumber1; | 
            
              | 319 | $count        = numberofreviewsbybiblionumber($biblionumber); | 
            
              | 320 | is( $count, 2, 'There are 2 reviews for biblionumber1 and approved = 1' ); | 
            
              | 321 |  | 
            
              | 322 | $biblionumber = $biblionumber2; | 
            
              | 323 | $count        = numberofreviewsbybiblionumber($biblionumber); | 
            
              | 324 | is( $count, 0, 'There is no review for biblionumber2 and  approved = 1' ); | 
            
              | 325 |  | 
            
              | 326 | $biblionumber = $biblionumber3; | 
            
              | 327 | $count        = numberofreviewsbybiblionumber($biblionumber); | 
            
              | 328 | is( $count, 1, 'There 1 review for biblionumber3 and approved = 1' ); | 
            
              | 329 |  | 
            
              | 330 | unapprovereview( $review1->{reviewid} ); | 
            
              | 331 | unapprovereview( $review3->{reviewid} ); | 
            
              | 332 |  | 
            
              | 333 | $biblionumber = $biblionumber1; | 
            
              | 334 | $count        = numberofreviewsbybiblionumber($biblionumber); | 
            
              | 335 | is( $count, 1, 'There is 1 review for biblionumber1 and approved = 1' ); | 
            
              | 336 |  | 
            
              | 337 | $biblionumber = $biblionumber2; | 
            
              | 338 | $count        = numberofreviewsbybiblionumber($biblionumber); | 
            
              | 339 | is( $count, 0, 'There is no review for biblionumber2 and  approved = 1' ); | 
            
              | 340 |  | 
            
              | 341 | $biblionumber = $biblionumber3; | 
            
              | 342 | $count        = numberofreviewsbybiblionumber($biblionumber); | 
            
              | 343 | is( $count, 0, 'There is no review for biblionumber3 and approved = 1' ); | 
            
              | 344 |  | 
            
              | 345 | # ---------- Testing updatereview ------------------------- | 
            
              | 346 | my $rev1b = 'Review 1 bis'; | 
            
              | 347 | my $rev2b = 'Review 2 bis'; | 
            
              | 348 | my $rev3b = 'Review 3 bis'; | 
            
              | 349 |  | 
            
              | 350 | is( $review1->{review}, $rev1, 'review field is "Review 1"' ); | 
            
              | 351 | updatereview( $biblionumber1, $b1->borrowernumber, $rev1b ); | 
            
              | 352 | $review1 = getreview( $biblionumber1, $b1->borrowernumber ); | 
            
              | 353 | is( $review1->{review}, $rev1b, 'review field is "Review 1 bis"' ); | 
            
              | 354 |  | 
            
              | 355 | is( $review2->{review}, $rev2, 'review field is "Review 2"' ); | 
            
              | 356 | updatereview( $biblionumber1, $b2->borrowernumber, $rev2b ); | 
            
              | 357 | $review2 = getreview( $biblionumber1, $b2->borrowernumber ); | 
            
              | 358 | is( $review2->{review}, $rev2b, 'review field is "Review 2 bis"' ); | 
            
              | 359 |  | 
            
              | 360 | is( $review3->{review}, $rev3, 'review field is "Review 3"' ); | 
            
              | 361 | updatereview( $biblionumber3, $b2->borrowernumber, $rev3b ); | 
            
              | 362 | $review3 = getreview( $biblionumber3, $b2->borrowernumber ); | 
            
              | 363 | is( $review3->{review}, $rev3b, 'review field is "Review 3 bis"' ); | 
            
              | 364 |  | 
            
              | 365 | # ---------- Testing deletereview ------------------------- | 
            
              | 366 | my $status0 = 0; | 
            
              | 367 | my $status1 = 1; | 
            
              | 368 |  | 
            
              | 369 | my $numberOfReviews = numberofreviews($status0) + numberofreviews($status1); | 
            
              | 370 | is( $numberOfReviews, 3, 'There are 3 reviews in database' ); | 
            
              | 371 |  | 
            
              | 372 | deletereview( $review1->{reviewid} ); | 
            
              | 373 | $review1 = getreview( $biblionumber1, $b3->borrowernumber ); | 
            
              | 374 | ok( !defined($review1), 'Review1 is no longer defined' ); | 
            
              | 375 |  | 
            
              | 376 | $numberOfReviews = numberofreviews($status0) + numberofreviews($status1); | 
            
              | 377 | is( $numberOfReviews, 2, 'There are 2 reviews left in database' ); | 
            
              | 378 |  | 
            
              | 379 | deletereview( $review2->{reviewid} ); | 
            
              | 380 | $review2 = getreview( $biblionumber2, $b2->borrowernumber ); | 
            
              | 381 | ok( !defined($review2), 'Review2 is no longer defined' ); | 
            
              | 382 |  | 
            
              | 383 | $numberOfReviews = numberofreviews($status0) + numberofreviews($status1); | 
            
              | 384 | is( $numberOfReviews, 1, 'There is 1 review left in database' ); | 
            
              | 385 |  | 
            
              | 386 | deletereview( $review3->{reviewid} ); | 
            
              | 387 | $review3 = getreview( $biblionumber3, $b2->borrowernumber ); | 
            
              | 388 | ok( !defined($review3), 'Review3 is no longer defined' ); | 
            
              | 389 |  | 
            
              | 390 | $numberOfReviews = numberofreviews($status0) + numberofreviews($status1); | 
            
              | 391 | is( $numberOfReviews, 0, 'There is no review left in database' ); | 
            
              | 392 |  | 
            
              | 393 | $schema->storage->txn_rollback; | 
            
              | 394 |  | 
            
              | 395 | 1; | 
            
              | 396 | -  |