diff options
author | Ulrich Germann <Ulrich.Germann@gmail.com> | 2015-12-06 22:32:49 +0300 |
---|---|---|
committer | Ulrich Germann <Ulrich.Germann@gmail.com> | 2015-12-06 22:32:49 +0300 |
commit | 42e3caacac2fa4da98cc7e42886fb5069dbbb802 (patch) | |
tree | 130f6b0d5e118c5e479176d07209b897dc5b2b08 /regression-testing/run-single-test.perl | |
parent | 7fb2e92951e47278a51ddc5a43efd38c1568a029 (diff) |
Server tests now also log the command line run during for test.
Diffstat (limited to 'regression-testing/run-single-test.perl')
-rwxr-xr-x | regression-testing/run-single-test.perl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/regression-testing/run-single-test.perl b/regression-testing/run-single-test.perl index b01524ab9..a99e24a26 100755 --- a/regression-testing/run-single-test.perl +++ b/regression-testing/run-single-test.perl @@ -176,7 +176,11 @@ sub exec_moses_server { } elsif ($pid == 0) { setpgrp(0, 0); warn "Starting Moses server on port $serverport ...\n"; - ($o, $ec, $sig) = run_command("$decoder --server --server-port $serverport -f $conf -verbose 2 --server-log $results/run.stderr.server 2> $results/run.stderr "); + my $cmd = "$decoder --server --server-port $serverport -f $conf -verbose 2 --server-log $results/run.stderr.server 2> $results/run.stderr "; + open CMD, ">$results/cmd_line"; + print CMD "$cmd\n"; + close CMD; + ($o, $ec, $sig) = run_command($cmd); exit; # this should not be reached unless the server fails to start } |