|
Lines 32-37
Link Here
|
| 32 |
|
32 |
|
| 33 |
use Modern::Perl; |
33 |
use Modern::Perl; |
| 34 |
|
34 |
|
|
|
35 |
use Test::More tests => 23; |
| 36 |
use Test::NoWarnings; |
| 37 |
|
| 35 |
use Time::HiRes qw(gettimeofday); |
38 |
use Time::HiRes qw(gettimeofday); |
| 36 |
use POSIX qw(strftime); |
39 |
use POSIX qw(strftime); |
| 37 |
use C4::Context; |
40 |
use C4::Context; |
|
Lines 39-45
use C4::Biblio qw( AddBiblio );
Link Here
|
| 39 |
|
42 |
|
| 40 |
use Koha::CirculationRules; |
43 |
use Koha::CirculationRules; |
| 41 |
|
44 |
|
| 42 |
use Test::More tests => 22; |
|
|
| 43 |
use MARC::Record; |
45 |
use MARC::Record; |
| 44 |
use MARC::Field; |
46 |
use MARC::Field; |
| 45 |
|
47 |
|
|
Lines 326-331
sub cleanup {
Link Here
|
| 326 |
sub time_diff { |
328 |
sub time_diff { |
| 327 |
my $lib = shift; |
329 |
my $lib = shift; |
| 328 |
my $now = gettimeofday; |
330 |
my $now = gettimeofday; |
| 329 |
warn "CP $lib = " . sprintf( "%.2f", $now - $prev_time ) . "\n"; |
331 |
|
|
|
332 |
#warn "CP $lib = " . sprintf( "%.2f", $now - $prev_time ) . "\n"; |
| 330 |
$prev_time = $now; |
333 |
$prev_time = $now; |
| 331 |
} |
334 |
} |
| 332 |
- |
|
|