Megatest

Artifact 229dc9c405ebb9e2c4c937b957e136e497fbf2f7:

• File utils/runner — part of check-in [ae6dbecf17] at 2011-05-01 23:05:22 on branch trunk — Importing 1.0.1 version of megatest, (nb// work in progress, please wait for next release) (user: matt, size: 500) [annotate] [blame] [check-ins using]

#!/usr/bin/perl -w

$starthr=`date +%k`;
$hrsper = 1;
$nexthr=$starthr + $hrsper;

$ltr='a';

while (1) {
  $runname = `date +%GWW%V.%u`;
  chomp $runname;
  $runname = $runname . $ltr;
  $cmd = "megatest -runall :datapath testing :fsname local :sysname ubuntu :runname $runname";
  print "Running $cmd\n";
  system $cmd;
  $currhr = `date +%k`;
  if ($currhr > $nexthr) {
    $ltr = chr(ord($ltr)+1);
    $nexthr=$nexthr + $hrsper;
  }
  if ($nexthr > 23) {
    $nexthr = 0;
  }
  sleep 10;
}