From: Jess Robinson <j.robinson@shadowcat.co.uk>
Date: Tue, 1 May 2012 13:58:59 +0000 (+0000)
Subject: Amended to store/use benchmarking data profiles per host
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b94fa8d5c344098ecebea31d990b5374da2d579;p=scpubgit%2Fstemmatology.git

Amended to store/use benchmarking data profiles per host
---

diff --git a/t/load-save-speed.t b/t/load-save-speed.t
index dc19b09..0192af0 100644
--- a/t/load-save-speed.t
+++ b/t/load-save-speed.t
@@ -5,6 +5,7 @@ use warnings;
 
 use Benchmark 'timethis';
 use JSON;
+use Sys::Hostname;
 use File::Path 'mkpath';
 
 use Text::Tradition;
@@ -101,7 +102,14 @@ my $test_load = sub {
 #    print STDERR $load_tradition->name, $tradition->name, "\n";
 };
 
-my $last_benchmark = $benchmark_data->[-1];
+## Find most recent benchmark info on this hostname
+my ($last_benchmark) = grep { $_->{host} eq hostname() } (reverse @{$benchmark_data}); 
+
+if(!$last_benchmark) {
+    diag "Can't find last benchmark for " . hostname() . ", starting again";
+    $last_benchmark = fresh_benchmark();
+}
+
 
 ## Benchmark current code:
 ## Should probably run the test the same number of times as the last time it ran
@@ -119,6 +127,7 @@ $test_load->();
 if($git_hash) {
     push(@{ $benchmark_data }, {
         git_hash => $git_hash,
+        host => hostname(),
         load_times => [@$new_load_result],
         save_times => [@$new_save_result],
     });
@@ -140,18 +149,24 @@ sub load_benchmark {
         $loaded_data = decode_json( $json_text );
     } else {
         ## bare bones default table:
-        $loaded_data = [
-            {
-                git_hash => '',
-                load_times => [1000, 1000, 1000, 0, 0, 5],
-                save_times => [1000, 1000, 1000, 0, 0, 20],
-            }
-        ];
+        $loaded_data = fresh_benchmark();
     }
 
     return $loaded_data;
 }
 
+sub fresh_benchmark {
+    return 
+        [
+         {
+             git_hash => '',
+             host => hostname(),
+             load_times => [1000, 1000, 1000, 0, 0, 5],
+             save_times => [1000, 1000, 1000, 0, 0, 20],
+         }
+    ];
+}
+
 sub save_benchmark {
     my ($filename, $new_benchmarks) = @_;