[PATCH] testbot/WineRunWine*: Better check the step type.

[Francois Gouget]

This can help avoid errors when testing the script manually.

Signed-off-by: Francois Gouget 
---
 testbot/bin/WineRunBuild.pl    | 6 +++++-
 testbot/bin/WineRunReconfig.pl | 6 +++++-
 testbot/bin/WineRunTask.pl     | 6 +++++-
 testbot/bin/WineRunWineTest.pl | 6 +++++-
 4 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/testbot/bin/WineRunBuild.pl b/testbot/bin/WineRunBuild.pl
index 47e4b3bbd..c681d2e14 100755
--- a/testbot/bin/WineRunBuild.pl
+++ b/testbot/bin/WineRunBuild.pl
@@ -325,9 +325,13 @@ if (!$VM->GetDomain()->IsPoweredOn())
   FatalError("The VM is not powered on\n");
 }

+if ($Step->Type ne "build")
+{
+  FatalError("Unexpected step type '". $Step->Type ."' found\n");
+}
 if ($Step->FileType ne "patch")
 {
-  FatalError("Unexpected file type '". $Step->FileType ."' found\n");
+  FatalError("Unexpected file type '". $Step->FileType ."' found for ". $Step->Type ." step\n");
 }

diff --git a/testbot/bin/WineRunReconfig.pl b/testbot/bin/WineRunReconfig.pl
index 24a24d067..b45dba5c7 100755
--- a/testbot/bin/WineRunReconfig.pl
+++ b/testbot/bin/WineRunReconfig.pl
@@ -325,9 +325,13 @@ if (!$VM->GetDomain()->IsPoweredOn())
   FatalError("The VM is not powered on\n");
 }

+if ($Step->Type ne "reconfig")
+{
+  FatalError("Unexpected step type '". $Step->Type ."' found\n");
+}
 if ($Step->FileType ne "none")
 {
-  FatalError("Unexpected file type '". $Step->FileType ."' found\n");
+  FatalError("Unexpected file type '". $Step->FileType ."' found for ". $Step->Type ." step\n");
 }

diff --git a/testbot/bin/WineRunTask.pl b/testbot/bin/WineRunTask.pl
index 204f86305..27dd8e7b3 100755
--- a/testbot/bin/WineRunTask.pl
+++ b/testbot/bin/WineRunTask.pl
@@ -381,9 +381,13 @@ if (!$VM->GetDomain()->IsPoweredOn())
   FatalError("The VM is not powered on\n");
 }

+if ($Step->Type ne "single" and $Step->Type ne "suite")
+{
+  FatalError("Unexpected step type '". $Step->Type ."' found\n");
+}
 if ($Step->FileType ne "exe32" and $Step->FileType ne "exe64")
 {
-  FatalError("Unexpected file type '". $Step->FileType ."' found\n");
+  FatalError("Unexpected file type '". $Step->FileType ."' found for ". $Step->Type ." step\n");
 }

diff --git a/testbot/bin/WineRunWineTest.pl b/testbot/bin/WineRunWineTest.pl
index ee4c8537a..6c0c923c9 100755
--- a/testbot/bin/WineRunWineTest.pl
+++ b/testbot/bin/WineRunWineTest.pl
@@ -382,10 +382,14 @@ if (!$VM->GetDomain()->IsPoweredOn())
   FatalError("The VM is not powered on\n");
 }

+if ($Step->Type ne "build" and $Step->Type ne "suite")
+{
+  FatalError("Unexpected step type '". $Step->Type ."' found\n");
+}
 if (($Step->Type eq "suite" and $Step->FileType ne "none") or
     ($Step->Type ne "suite" and $Step->FileType ne "patch"))
 {
-  FatalError("Unexpected file type '". $Step->FileType ."' found\n");
+  FatalError("Unexpected file type '". $Step->FileType ."' found for ". $Step->Type ." step\n");
 }