Performance Timing

- Change the was performance measurements are taken.  This in preparation
  to automated daily perf charts, leading to efforts to speed up certain
  operations.
This commit is contained in:
Paul Beckingham 2011-08-15 21:53:01 -04:00
parent ad38d5b92e
commit ac9d1f3bfa
11 changed files with 182 additions and 53 deletions

View file

@ -63,9 +63,9 @@ for my $i (1 .. 1000)
diag ("1000 tasks added in " . (time () - $cursor) . " seconds");
$cursor = time ();
qx{../src/task rc:bench.rc modify /with/WITH/} for 1 .. 200;
qx{../src/task rc:bench.rc $_ done} for 201 .. 400;
qx{../src/task rc:bench.rc $_ start} for 401 .. 600;
qx{../src/task rc:bench.rc $_ modify /with/WITH/} for 1 .. 200;
qx{../src/task rc:bench.rc $_ done} for 201 .. 400;
qx{../src/task rc:bench.rc $_ start} for 401 .. 600;
diag ("600 tasks altered in " . (time () - $cursor) . " seconds");
$cursor = time ();