--- a/TestCase.st	Tue Dec 03 11:05:36 2019 +0100
+++ b/TestCase.st	Tue Dec 03 11:46:05 2019 +0100
@@ -463,6 +463,50 @@
         ^self == TestCase
 !
 
+isRunningUnderBorland32
+    "
+        self isRunningUnderBorland32
+    "
+
+    ^ OperatingSystem isMSWINDOWSlike
+    and:[ExternalAddress pointerSize == 4]
+
+    "Created: / 03-12-2019 / 11:45:25 / Stefan Reise"
+!
+
+isRunningUnderGcc32
+    "
+        self isRunningUnderGcc32  
+    "
+
+    ^ OperatingSystem isMSWINDOWSlike not
+    and:[ExternalAddress pointerSize == 4]
+
+    "Created: / 03-12-2019 / 11:45:54 / Stefan Reise"
+!
+
+isRunningUnderGcc64
+    "
+        self isRunningUnderGcc64
+    "
+
+    ^ OperatingSystem isMSWINDOWSlike not
+    and:[ExternalAddress pointerSize == 8]
+
+    "Created: / 03-12-2019 / 11:45:46 / Stefan Reise"
+!
+
+isRunningUnderMingw64
+    "
+        self isRunningUnderMingw64
+    "
+
+    ^ OperatingSystem isMSWINDOWSlike
+    and:[ExternalAddress pointerSize == 8]
+
+    "Created: / 03-12-2019 / 11:45:34 / Stefan Reise"
+!
+
 requiredPackageNames
     "can be redefined to return a collection of packages 
      which are required to be present when running tests.