mupdate-test.pl   [plain text]

#!/usr/local/bin/perl

# Create a workload against a murder frontend
# that will give the MUPDATE server a workout.
#
# Interesting things to add:
#
#   - Try against more than one host to ensure the right thing happens
#     between hosts.
#   - Actually check result codes!!!

$|++;

$host = $ARGV[0] || "sourcefour";

open OUT, "|imtest $host" || die "no imtest";
print OUT "a SELECT INBOX\n";

for($i=0; $i < 1000; $i++) {
  print OUT "b$i CREATE INBOX.foo\n";
  print OUT "c$i SETACL INBOX.foo rjs3.admin lrswipcda\n";
  print OUT "d$i RENAME INBOX.foo INBOX.bar\n";
  print OUT "e$i SETACL INBOX.bar rjs3.admin \"\"\n";
  print OUT "f$i DELETE INBOX.bar\n";

  sleep 1 unless($i % 20);
}

print OUT "g LOGOUT\n";

close(OUT);