@@ -, +, @@ locations --- generate_pickup_locations.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 generate_pickup_locations.pl --- a/generate_pickup_locations.pl +++ a/generate_pickup_locations.pl @@ -0,0 +1,15 @@ +use Modern::Perl; + +use t::lib::TestBuilder; + +my $builder = t::lib::TestBuilder->new; +foreach ( 1..100 ) { + $builder->build_object( + { + class => 'Koha::Libraries', + value => { pickup_location => 1 } + } + ); +} + +1; --