From 29161716cdfa1d235cfe1b22cf167b1cb8e5af4d Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 3 Nov 2021 10:45:07 -0300 Subject: [PATCH] [DO NOT PUSH] Bug 29404: Helper script to generate pickup locations Signed-off-by: Tomas Cohen Arazi --- generate_pickup_locations.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 generate_pickup_locations.pl diff --git a/generate_pickup_locations.pl b/generate_pickup_locations.pl new file mode 100644 index 0000000000..f69971bf22 --- /dev/null +++ b/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; -- 2.32.0