Fix syntax in Testeaux module. Add an example that uses it.

Author: kvap

contrib/mmts/testeaux/Testeaux.pm

@@ -1,31 +1,33 @@
 package Testeaux;
 
-package combineaux
+package Combineaux
 {
 	sub combine
 	{
 		my ($workloads, $troubles) = @_;
 
-		my $cluster = starteaux->deploy('lxc');
+		my $cluster = Starteaux->deploy('lxc');
 
 		foreach my $workload (@$workloads)
 		{
 			foreach my $trouble (@$troubles)
 			{
 				print("run workload $workload during trouble $trouble\n");
 				# FIXME: generate proper id instead of 'hello'
-				stresseaux::start('hello', $workload, $cluster);
-				# FIXME: add a time gap here
-				troubleaux::cause($cluster, $trouble);
-				# FIXME: add a time gap here
-				stresseaux::stop('hello');
-				troubleaux::fix($cluster);
+				Stresseaux::start('hello', $workload, $cluster);
+				sleep(1); # FIXME: will this work?
+				Troubleaux::cause($cluster, $trouble);
+				sleep(1); # FIXME: will this work?
+				Stresseaux::stop('hello');
+				Troubleaux::fix($cluster);
 			}
 		}
+
+		$cluster->destroy();
 	}
 }
 
-package stresseaux
+package Stresseaux
 {
 	sub start
 	{
@@ -42,15 +44,15 @@ package stresseaux
 	}
 }
 
-package starteaux
+package Starteaux
 {
 	sub deploy
 	{
 		my ($class, $driver, @args) = @_;
 		my $self = {};
 		print("deploy cluster using driver $driver\n");
 		# fixme: implement
-		return bless $self, 'starteaux';
+		return bless $self, 'Starteaux';
 	}
 
 	sub up
@@ -62,7 +64,7 @@ package starteaux
 
 	sub down
 	{
-		my ($self, $id = @_;
+		my ($self, $id) = @_;
 		print("down node $id\n");
 		# FIXME: implement
 	}
@@ -80,6 +82,30 @@ package starteaux
 		print("delay packets from $src to $dst by $msec msec\n");
 		# FIXME: implement
 	}
+
+	sub destroy
+	{
+		my ($self) = @_;
+		print("destroy cluster $cluster\n");
+		# FIXME: implement
+	}
+}
+
+package Troubleaux
+{
+	sub cause
+	{
+		my ($cluster, $trouble) = @_;
+		print("cause $trouble in cluster $cluster\n");
+		# fixme: implement
+	}
+
+	sub fix
+	{
+		my ($cluster) = @_;
+		print("fix cluster $cluster\n");
+		# fixme: implement
+	}
 }
 
 1;

contrib/mmts/testeaux/eaux.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+use Testeaux;
+
+Combineaux::combine(
+	['bank-transfers', 'pgbench-default'],
+	['split-brain', 'time-shift'],
+)