Subcase allignement.

diff --git a/tests/TestManager.pm b/tests/TestManager.pm
index 4f95fad75b408a3e0c8a7be5e1ab619852a597cf..91acb4bd7a88925a537d83efaeb55b43dcdc5955 100644 (file)
--- a/tests/TestManager.pm
+++ b/tests/TestManager.pm
@@ -60,6 +60,7 @@ sub case {
 sub subcase {
     my ($self, $out) =@_;
     my $sub_cnt = ++$self->{sub_cnt};
+    $stab ="   ";
     print GREEN,"\t$stab   Sub->".$self->{test_cnt}.".$sub_cnt: $out\n", RESET;
     $stab ="     ";
     return $self;