From: Will Budic <redacted>
Date: Wed, 1 May 2024 08:56:55 +0000 (+1000)
Subject: Subcase allignement.
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=825ea6430c84fda1f3b623b2ebf95f4a35997a8b;p=PerlCNF.git

Subcase allignement.
---

diff --git a/tests/TestManager.pm b/tests/TestManager.pm
index 4f95fad..91acb4b 100644
--- 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;