2002-04-30 22:22:54 +00:00
|
|
|
#! /usr/local/bin/php
|
|
|
|
<?php
|
2002-10-04 05:30:44 +00:00
|
|
|
// This tests whether the most basic mechanisms are working
|
|
|
|
// Also whether stderr output is reported correctly
|
2003-03-29 07:25:12 +00:00
|
|
|
// Also tests if water levels are working correctly
|
2002-10-04 05:30:44 +00:00
|
|
|
|
2002-10-03 18:33:46 +00:00
|
|
|
include_once("test.inc");
|
2002-11-22 23:25:19 +00:00
|
|
|
|
2003-04-29 17:51:58 +00:00
|
|
|
$retval = 0;
|
|
|
|
|
2002-10-03 18:33:46 +00:00
|
|
|
$project = new Project;
|
2002-04-30 22:22:54 +00:00
|
|
|
|
2002-11-11 08:51:51 +00:00
|
|
|
$app = new App("upper_case");
|
2002-11-09 20:26:50 +00:00
|
|
|
$app_version = new App_Version($app);
|
2002-11-11 08:51:51 +00:00
|
|
|
|
2002-11-11 10:26:40 +00:00
|
|
|
// the following is optional (makes client web download possible)
|
|
|
|
$core_app = new App("core client");
|
|
|
|
$core_app_version = new App_Version($core_app);
|
|
|
|
$project->add_app($core_app);
|
|
|
|
$project->add_app_version($core_app_version);
|
|
|
|
|
2002-11-09 20:26:50 +00:00
|
|
|
$project->add_app($app);
|
|
|
|
$project->add_app_version($app_version);
|
|
|
|
|
2003-02-21 01:38:16 +00:00
|
|
|
$user = new User();
|
|
|
|
$user->project_prefs = "<project_specific>\nfoobar\n</project_specific>\n";
|
2003-03-29 07:25:12 +00:00
|
|
|
$user->global_prefs = "<venue name=\"home\">\n".
|
|
|
|
"<work_buf_min_days>0</work_buf_min_days>\n".
|
|
|
|
"<work_buf_max_days>2</work_buf_max_days>\n".
|
|
|
|
"<run_on_batteries/>\n".
|
|
|
|
"<max_bytes_sec_down>400000</max_bytes_sec_down>\n".
|
|
|
|
"</venue>\n";
|
2003-02-21 01:38:16 +00:00
|
|
|
|
|
|
|
$project->add_user($user);
|
2002-10-03 18:33:46 +00:00
|
|
|
$project->install(); // must install projects before adding to hosts
|
2003-03-29 07:25:12 +00:00
|
|
|
$project->install_feeder();
|
2002-10-03 18:33:46 +00:00
|
|
|
|
2003-02-21 01:38:16 +00:00
|
|
|
$host = new Host();
|
2002-10-04 00:16:41 +00:00
|
|
|
$host->log_flags = "log_flags.xml";
|
2003-02-21 01:38:16 +00:00
|
|
|
$host->add_user($user, $project);
|
2002-10-03 18:33:46 +00:00
|
|
|
$host->install();
|
|
|
|
|
|
|
|
echo "adding work\n";
|
|
|
|
|
2002-10-04 00:16:41 +00:00
|
|
|
$work = new Work($app);
|
2002-10-03 18:33:46 +00:00
|
|
|
$work->wu_template = "uc_wu";
|
|
|
|
$work->result_template = "uc_result";
|
2003-04-01 03:28:37 +00:00
|
|
|
$work->redundancy = 2;
|
2002-12-18 01:02:01 +00:00
|
|
|
$work->delay_bound = 2;
|
2003-03-29 07:25:12 +00:00
|
|
|
// Say that 1 WU takes 1 day on a ref comp
|
|
|
|
$work->rsc_fpops = 86400*1e9/2;
|
|
|
|
$work->rsc_iops = 86400*1e9/2;
|
2002-10-03 18:33:46 +00:00
|
|
|
array_push($work->input_files, "input");
|
2002-10-04 00:16:41 +00:00
|
|
|
$work->install($project);
|
2002-10-03 18:33:46 +00:00
|
|
|
|
2003-03-29 07:25:12 +00:00
|
|
|
$project->start_servers();
|
2003-05-14 21:17:58 +00:00
|
|
|
sleep(1); // make sure feeder has a chance to run
|
2003-04-01 03:28:37 +00:00
|
|
|
$host->run("-exit_when_idle -skip_cpu_benchmarks");
|
2002-12-20 02:12:27 +00:00
|
|
|
|
2002-10-03 18:33:46 +00:00
|
|
|
$project->stop();
|
2003-04-29 17:51:58 +00:00
|
|
|
$project->restart();
|
2002-12-03 18:57:40 +00:00
|
|
|
$project->validate($app, 2);
|
2003-04-01 07:34:08 +00:00
|
|
|
$result->server_state = RESULT_STATE_OVER;
|
2002-10-06 00:43:55 +00:00
|
|
|
$result->stderr_out = "APP: upper_case: starting, argc 1";
|
|
|
|
$result->exit_status = 0;
|
2003-04-29 17:51:58 +00:00
|
|
|
$project->check_results(2, $result);
|
2002-10-03 18:33:46 +00:00
|
|
|
$project->compare_file("uc_wu_0_0", "uc_correct_output");
|
|
|
|
$project->compare_file("uc_wu_1_0", "uc_correct_output");
|
2002-12-18 01:34:51 +00:00
|
|
|
|
|
|
|
$project->assimilate($app);
|
|
|
|
$project->file_delete();
|
2003-04-29 17:51:58 +00:00
|
|
|
if (file_exists("$project->project_dir/download/input")) {
|
|
|
|
echo "ERROR: File $project->project_dir/download/input still there\n";
|
|
|
|
$retval = -1;
|
|
|
|
}
|
|
|
|
if (file_exists("$project->project_dir/upload/uc_wu_0_0")) {
|
|
|
|
echo "ERROR: File $project->project_dir/upload/uc_wu_0_0 still there\n";
|
|
|
|
$retval = -1;
|
|
|
|
}
|
|
|
|
if (file_exists("$project->project_dir/upload/uc_wu_1_0")) {
|
|
|
|
echo "ERROR: File $project->project_dir/upload/uc_wu_1_0 still there\n";
|
|
|
|
$retval = -1;
|
|
|
|
}
|
|
|
|
$project->stop();
|
|
|
|
|
|
|
|
exit($retval);
|
2002-04-30 22:22:54 +00:00
|
|
|
?>
|