$project->add_app_version($app_version);
$project->install();
// must install projects before adding to hosts
$project->install_feeder();
$host->log_flags = "log_flags.xml";
$host->add_user($user, $project);
$host->install();
echo "adding work\n";
$work = new Work($app);
$work->wu_template = "uc_wu";
$work->result_template = "uc_result";
$work->redundancy = 2;
array_push($work->input_files, "input");
$work->install($project);
//delete the download_dir immediately
$project->delete_downloaddir();
$project->start_servers();
$pid = $host->run_asynch("-exit_when_idle");
echo "sleeping 100 secs\n";
sleep(100);
$project->reinstall_downloaddir(null);
$status = 0;
//wait until the host has stopped running
pcntl_waitpid($pid, $status, 0);
$project->stop();
$result->server_state = RESULT_SERVER_STATE_OVER;
$result->stderr_out = "APP: upper_case: starting, argc 1";
$result->exit_status = 0;
$project->check_results(2, $result);
$project->compare_file("uc_wu_0_0", "uc_correct_output");
$project->compare_file("uc_wu_1_0", "uc_correct_output");
Exemple #2
0
$host->install();
echo "adding work\n";
$work = new Work($app);
$work->wu_template = "uc_wu";
$work->result_template = "uc_result";
$work->redundancy = 2;
array_push($work->input_files, "input");
$work->install($project);
$project->start_feeder();
//get the path for checking download
$source_dir = SRC_DIR;
$enc_url = strtr($project->master_url, "/", "_");
$enc_url = substr($enc_url, 7, strlen($enc_url));
$path = "{$host->host_dir}/projects/{$enc_url}/upper_case";
print "\n the path for checking download is :" . $path;
$pid = $host->run_asynch("-exit_when_idle -limit_transfer_rate 2048");
$client_pid = $host->get_new_client_pid(null);
assert($pid != -1);
$first = 0;
$file_size = 0;
//Check download
while (1) {
    if (file_exists($path)) {
        $temp = filesize($path);
        if ($temp < $file_size) {
            echo "\nfilesize dropped, problem downloading\n";
            echo "temp is {$temp}, file_size is  {$file_size}\n";
            break;
        } else {
            if ($temp > $file_size) {
                print "\n filesize increased, it is : " . $temp;