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); |
