Move Stresseaux to a separate file.

Author: kvap

testeaux/Stresseaux.pm

@@ -0,0 +1,42 @@
+package Stresseaux;
+
+my %running = ();
+
+sub start
+{
+	my ($id, $workload, $cluster) = @_;
+	print("start stress $id: workload $workload, cluster $cluster\n");
+
+	if (exists $running{$id})
+	{
+		print("cannot start stress $id: that id has already been taken\n");
+		return 0;
+	}
+
+	# FIXME: implement 'stress'/'workload' objects
+	$running{$id} = {hello => 'world'};
+
+	# FIXME: implement
+
+	return 1;
+}
+
+sub stop
+{
+	my $id = shift;
+	print("stop stress $id\n");
+
+	my $stress = delete $running{$id};
+
+	if (!defined $stress)
+	{
+		print("cannot stop stress $id: that id is not running\n");
+		return 0;
+	}
+
+	# FIXME: implement
+
+	return 1;
+}
+
+1;

testeaux/Testeaux.pm

@@ -1,5 +1,7 @@
 package Testeaux;
 
+use Stresseaux;
+
 package Combineaux
 {
 	sub combine
@@ -12,13 +14,13 @@ package Combineaux
 		{
 			foreach my $trouble (@$troubles)
 			{
-				print("run workload $workload during trouble $trouble\n");
-				# FIXME: generate proper id instead of 'hello'
-				Stresseaux::start('hello', $workload, $cluster);
+				print("--- $workload vs. $trouble ---\n");
+				my $id = "$workload+$trouble";
+				Stresseaux::start($id, $workload, $cluster) || die "stress wouldn't start";
 				sleep(1); # FIXME: will this work?
 				Troubleaux::cause($cluster, $trouble);
 				sleep(1); # FIXME: will this work?
-				Stresseaux::stop('hello');
+				Stresseaux::stop($id) || die "stress wouldn't stop";
 				Troubleaux::fix($cluster);
 			}
 		}
@@ -27,23 +29,6 @@ package Combineaux
 	}
 }
 
-package Stresseaux
-{
-	sub start
-	{
-		my ($id, $workload, $cluster) = @_;
-		print("start stress $id: workload $workload, cluster $cluster\n");
-		# fixme: implement
-	}
-
-	sub stop
-	{
-		my $id = shift;
-		print("stop stress $id\n");
-		# FIXME: implement
-	}
-}
-
 package Starteaux
 {
 	sub deploy