X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon.pm;h=8a270d68260fc0785f6a59d16b9b1c162c9b7254;hb=a3d80639b63f45a4fc89d9a4630ee336afc17e44;hp=2af9b5306a78229d334deaa819bd2b0fd30ece26;hpb=34cc90c9aa31c1cad1fcef0684e940407426ad1d;p=gruntmaster-daemon.git diff --git a/lib/Gruntmaster/Daemon.pm b/lib/Gruntmaster/Daemon.pm index 2af9b53..8a270d6 100644 --- a/lib/Gruntmaster/Daemon.pm +++ b/lib/Gruntmaster/Daemon.pm @@ -7,7 +7,7 @@ use warnings; our $VERSION = '5999.000_005'; use Gruntmaster::Daemon::Constants qw/ERR/; -use Gruntmaster::Daemon::Format qw/prepare_files stopvms/; +use Gruntmaster::Daemon::Format qw/prepare_files copy_from_vm stopvms/; use File::Slurp qw/read_file/; use File::Temp qw/tempdir/; @@ -34,6 +34,7 @@ use constant FORMAT_EXTENSION => { PERL => 'pl', PHP => 'php', PYTHON => 'py', + PYTHON3 => 'py', RUBY => 'rb', RUST => 'rs', SBCL => 'l', @@ -85,6 +86,7 @@ sub process{ unlink 'time-start-prog', 'time-stop-prog'; if (ref $result) { my $result_text = $result->[1]; + copy_from_vm 'result'; $result_text .= ': ' . read_file 'result' if -s 'result'; get_logger->trace("Test $test result is " . $result_text); push @full_results, {id => $test, result => $result->[0], result_text => $result_text, time => $time}