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

(-)a/generate_pickup_locations.pl (-1 / +15 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
use t::lib::TestBuilder;
4
5
my $builder = t::lib::TestBuilder->new;
6
foreach ( 1..100 ) {
7
    $builder->build_object(
8
        {
9
            class => 'Koha::Libraries',
10
            value => { pickup_location => 1 }
11
        }
12
    );
13
}
14
15
1;

Return to bug 29404