@@ -53,10 +53,17 @@
 				   inModule: module];	\
 			_fails++;			\
 		}					\
 	}
 #define R(...) (__VA_ARGS__, 1)
+#define PRINT(color, fmt, ...)					\
+	{							\
+		OFString *msg = [OFString stringWithFormat:	\
+		    @"[%@] " fmt @"\n", module, __VA_ARGS__];	\
+		[self outputString: msg				\
+			   inColor: color];			\
+	}
 
 @class OFString;
 
 enum {
 	NO_COLOR,
@@ -205,10 +212,14 @@
 @end
 
 @interface TestsAppDelegate (OFSHA512HashTests)
 - (void)SHA512HashTests;
 @end
+
+@interface TestsAppDelegate (OFSystemInfoTests)
+- (void)systemInfoTests;
+@end
 
 @interface TestsAppDelegate (OFHMACTests)
 - (void)HMACTests;
 @end