From 20f1c7760460fd2130c4d471d782db00a1f12ae7 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Wed, 20 Mar 2024 10:17:40 +0100 Subject: [PATCH] Bug 28173: [DO NOT PUSH] Benchmark script --- bench-object-store-hooks.pl | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100755 bench-object-store-hooks.pl diff --git a/bench-object-store-hooks.pl b/bench-object-store-hooks.pl new file mode 100755 index 0000000000..f17c371888 --- /dev/null +++ b/bench-object-store-hooks.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl + +use Modern::Perl; +use Time::HiRes qw(gettimeofday tv_interval); + +use Koha::City; + +my $schema = Koha::Database->schema; +$schema->txn_begin; + +my $city = Koha::City->new( { city_name => 'Marseille' } ); +$city->store; +my $t0 = [gettimeofday]; + +my $n = 10_000; +for ( 1 .. $n ) { + $city->make_column_dirty('city_name'); + $city->store; +} + +my $elapsed = tv_interval( $t0, [gettimeofday] ); +printf "Time for %d store (s): %.3f\n", $n, $elapsed; +printf "Time per store (µs): %.3f\n", ($elapsed / $n) * 1_000_000; + + +$schema->txn_rollback; -- 2.30.2