From d42c4d79e24ec152ce7369452fdd14b55eded1ba Mon Sep 17 00:00:00 2001
From: bouraqadi <435343+bouraqadi@users.noreply.github.com>
Date: Sat, 9 Nov 2024 15:56:29 +0100
Subject: [PATCH] Fix test suite to show progress bar running tests

---
 src/SUnit-Core/TestSuite.class.st | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SUnit-Core/TestSuite.class.st b/src/SUnit-Core/TestSuite.class.st
index 6a486bbe913..91c0e0d17c1 100644
--- a/src/SUnit-Core/TestSuite.class.st
+++ b/src/SUnit-Core/TestSuite.class.st
@@ -138,7 +138,7 @@ TestSuite >> runWith: aBlock [
 		do: [ :each |
 			aBlock value: each.
 			self announceTest: each.
-			self changed: each ] ]
+			self changed: each ] displayingProgress: [ :currentTest | currentTest className ] ]
 		ensure: [ self tearDown ]
 ]