Implement JSON output parsing for tests

1 files changed, 4 insertions, 0 deletions

diff --git a/NPTest.pm b/NPTest.pm
index 9b25ac3e..47773acc 100644
--- a/NPTest.pm
+++ b/NPTest.pm
@@ -15,6 +15,8 @@ use warnings;
 use Cwd;
 use File::Basename;
 
+use JSON;
+
 use IO::File;
 use Data::Dumper;
 
@@ -617,6 +619,8 @@ sub testCmd {
     chomp $output;
     $object->output($output);
 
+    $object->{'mp_test_result'} = decode_json($output);
+
     alarm(0);
 
     my ($pkg, $file, $line) = caller(0);