Add CxxTest debug tool module.

Change-Id: Ifaae5def099938f0c9eb953433a066fe86e72b1a
Reviewed-on: http://gfw160.austin.ibm.com:8080/gerrit/490
Tested-by: Jenkins Server
Reviewed-by: Mark W. Wenning <wenning@us.ibm.com>
Reviewed-by: CAMVAN T. NGUYEN <ctnguyen@us.ibm.com>
Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>

1 files changed, 40 insertions, 0 deletions

diff --git a/src/build/debug/Hostboot/CxxTest.pm b/src/build/debug/Hostboot/CxxTest.pm
new file mode 100644
index 000000000..e542e0794
--- /dev/null
+++ b/src/build/debug/Hostboot/CxxTest.pm
@@ -0,0 +1,40 @@
+use strict;
+
+package Hostboot::CxxTest;
+use Exporter;
+our @EXPORT_OK = ('main');
+
+sub main
+{
+    my $modules_started =
+        ::read64 ::findSymbolAddress("CxxTest::g_ModulesStarted");
+    my $modules_complete =
+        ::read64 ::findSymbolAddress("CxxTest::g_ModulesCompleted");
+
+    my $total_tests =
+        ::read64 ::findSymbolAddress("CxxTest::g_TotalTests");
+    my $failed_tests =
+        ::read64 ::findSymbolAddress("CxxTest::g_FailedTests");
+    my $test_warnings =
+        ::read64 ::findSymbolAddress("CxxTest::g_Warnings");
+    my $test_traces =
+        ::read64 ::findSymbolAddress("CxxTest::g_TraceCalls");
+
+    ::userDisplay "===================================================\n";
+    ::userDisplay "    Modules started:   $modules_started\n";
+    ::userDisplay "    Modules completed: $modules_complete\n";
+    ::userDisplay "\n";
+    ::userDisplay "    Total tests:       $total_tests\n";
+    ::userDisplay "    Failed tests:      $failed_tests\n";
+    ::userDisplay "    Warnings:          $test_warnings\n";
+    ::userDisplay "    Trace calls:       $test_traces\n";
+    ::userDisplay "===================================================\n";
+
+}
+
+sub help
+{
+    ::userDisplay "Tool: CxxTest\n";
+    ::userDisplay "\tDisplays the number of CxxTest cases executed and their\n";
+    ::userDisplay "\tresults, warnings, etc.\n";
+}