2002-07-23 21:27:44 +00:00
|
|
|
#! /usr/local/bin/php
|
|
|
|
<?php
|
2002-10-04 05:30:44 +00:00
|
|
|
// test the sticky file mechanism
|
|
|
|
|
|
|
|
include_once("test.inc");
|
|
|
|
|
|
|
|
$project = new Project;
|
|
|
|
$user = new User();
|
|
|
|
$host = new Host($user);
|
|
|
|
$app = new App("upper_case");
|
|
|
|
$app_version = new App_Version($app);
|
|
|
|
|
|
|
|
$project->add_user($user);
|
|
|
|
$project->add_app($app);
|
|
|
|
$project->add_app_version($app_version);
|
|
|
|
$project->install(); // must install projects before adding to hosts
|
|
|
|
|
|
|
|
$host->log_flags = "log_flags.xml";
|
|
|
|
$host->add_project($project);
|
|
|
|
$host->install();
|
|
|
|
|
|
|
|
echo "adding work\n";
|
|
|
|
|
|
|
|
$work = new Work($app);
|
|
|
|
$work->wu_template = "uc_wu_sticky";
|
|
|
|
$work->result_template = "uc_result_sticky";
|
|
|
|
$work->nresults = 2;
|
|
|
|
array_push($work->input_files, "input");
|
|
|
|
$work->install($project);
|
|
|
|
|
|
|
|
$project->start();
|
|
|
|
$host->run("-exit_when_idle");
|
|
|
|
$project->stop();
|
|
|
|
|
|
|
|
$project->check_results_done();
|
|
|
|
$project->compare_file("uc_wu_0_0", "uc_correct_output");
|
|
|
|
$project->compare_file("uc_wu_1_0", "uc_correct_output");
|
|
|
|
|
|
|
|
// make sure result files are still there
|
|
|
|
if (!$host->file_present($project, "uc_wu_0_0")) {
|
|
|
|
echo "test failed\n";
|
|
|
|
}
|
|
|
|
if (!$host->file_present($project, "uc_wu_1_0")) {
|
|
|
|
echo "test failed\n";
|
|
|
|
}
|
|
|
|
|
2002-07-23 21:27:44 +00:00
|
|
|
?>
|