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 |
- |
|
|