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

(-)a/t/db_dependent/selenium/basic_workflow.t (-3 / +5 lines)
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
- 

Return to bug 40406