blob: cc3a61390ef9dcce7111d206696d9e5432edd5d7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/env perl
# downloads the regression data
use strict;
use MosesRegressionTesting;
my $data_version = MosesRegressionTesting::TESTING_DATA_VERSION;
exit 0 if -d "moses-reg-test-data-$data_version";
# data in place
safesystem("wget http://www.statmt.org/moses/reg-testing/moses-reg-test-data-$data_version.tgz")
or die "wget failed";
safesystem("tar xzf moses-reg-test-data-$data_version.tgz")
or die "untar failed";
safesystem("rm moses-reg-test-data-$data_version.tgz");
sub safesystem {
# print STDERR "Executing: @_\n";
system(@_);
if ($? == -1) {
print STDERR "Failed to execute: @_\n $!\n";
exit(1);
}
elsif ($? & 127) {
printf STDERR "Execution of: @_\n died with signal %d, %s coredump\n",
($? & 127), ($? & 128) ? 'with' : 'without';
exit(1);
}
else {
my $exitcode = $? >> 8;
print STDERR "Exit code: $exitcode\n" if $exitcode;
return ! $exitcode;
}
}
|