my $load_sql = 't/data/speed_test_load.sql';
## uuid to load from the above stored db:
-my $load_uuid = '7D0AA7C0-92C2-11E1-98B2-D7BDA89F4671';
+my $load_uuid = 'load-test';
## Pass the git hash to identify this performance improvement, if you
## want to save the results of this run. Pass nothing to just run a test
};
+my $load_tradition;
my $test_load = sub {
my $dir = Text::Tradition::Directory->new(
dsn => $load_dsn,
## This seems to be a required magic incantation:
my $scope = $dir->new_scope;
- my $load_tradition = $dir->tradition($load_uuid);
+ $load_tradition = $dir->tradition($load_uuid);
# print STDERR $load_tradition->name, $tradition->name, "\n";
};
## Or compare results more sanely
my $new_save_result = timethis(5, $test_save);
-ok($new_save_result->[1] + $new_save_result->[2] < $last_benchmark->{save_times}[1] + $last_benchmark->{save_times}[2], 'Saving to a Tradition Directory got faster');
+my $new_save = $new_save_result->[1] + $new_save_result->[2];
+use Data::Dump;
+
+my $old_save = $last_benchmark->{save_times}[1] + $last_benchmark->{save_times}[2];
+ok( $new_save < $old_save, "Saving to a Tradition Directory got faster: $new_save vs $old_save");
my $new_load_result = timethis(20, $test_load);
-ok($new_load_result->[1] + $new_load_result->[2] < $last_benchmark->{load_times}[1] + $last_benchmark->{load_times}[2], 'Loading from a Tradition Directory got faster');
+my $new_load = $new_load_result->[1] + $new_load_result->[2];
+my $old_load = $last_benchmark->{load_times}[1] + $last_benchmark->{load_times}[2];
+ok($new_load < $old_load, "Loading from a Tradition Directory got faster: $new_load vs $old_load");
$test_load->();
+isa_ok($load_tradition, 'Text::Tradition');
+ok($load_tradition->collation->as_svg());
if($git_hash) {
push(@{ $benchmark_data }, {
}
sub fresh_benchmark {
- return
- [
- {
+ return {
git_hash => '',
host => hostname(),
load_times => [1000, 1000, 1000, 0, 0, 5],
save_times => [1000, 1000, 1000, 0, 0, 20],
}
- ];
}
sub save_benchmark {