diff options
Diffstat (limited to 'NPTest.pm')
-rw-r--r-- | NPTest.pm | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -15,6 +15,10 @@ use warnings; | |||
15 | use Cwd; | 15 | use Cwd; |
16 | use File::Basename; | 16 | use File::Basename; |
17 | 17 | ||
18 | use JSON; | ||
19 | |||
20 | use Try::Tiny; | ||
21 | |||
18 | use IO::File; | 22 | use IO::File; |
19 | use Data::Dumper; | 23 | use Data::Dumper; |
20 | 24 | ||
@@ -617,6 +621,10 @@ sub testCmd { | |||
617 | chomp $output; | 621 | chomp $output; |
618 | $object->output($output); | 622 | $object->output($output); |
619 | 623 | ||
624 | try { | ||
625 | $object->{'mp_test_result'} = decode_json($output); | ||
626 | }; | ||
627 | |||
620 | alarm(0); | 628 | alarm(0); |
621 | 629 | ||
622 | my ($pkg, $file, $line) = caller(0); | 630 | my ($pkg, $file, $line) = caller(0); |