2002-07-12 18:24:58 +00:00
|
|
|
#! /usr/local/bin/php
|
|
|
|
<?php
|
2002-10-04 05:30:44 +00:00
|
|
|
// test whether the scheduling server filters out
|
|
|
|
// work units too big for client
|
|
|
|
|
|
|
|
include_once("test.inc");
|
|
|
|
|
2003-04-29 17:51:58 +00:00
|
|
|
$retval = 0;
|
|
|
|
|
2002-10-04 05:30:44 +00:00
|
|
|
$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
|
2003-04-01 07:34:08 +00:00
|
|
|
$project->install_feeder();
|
2002-10-04 05:30:44 +00:00
|
|
|
|
|
|
|
$host->log_flags = "log_flags.xml";
|
2003-04-01 07:34:08 +00:00
|
|
|
$host->add_user($user,$project);
|
2002-10-04 05:30:44 +00:00
|
|
|
$host->install();
|
|
|
|
|
|
|
|
echo "adding work\n";
|
|
|
|
|
|
|
|
$work = new Work($app);
|
|
|
|
$work->wu_template = "uc_wu";
|
|
|
|
$work->result_template = "uc_result";
|
2002-12-05 19:13:06 +00:00
|
|
|
$work->redundancy = 1;
|
2002-10-04 05:30:44 +00:00
|
|
|
$work->rsc_disk = 1000000000000; // 1 TB
|
2002-11-11 09:17:17 +00:00
|
|
|
$work->rsc_fpops = 0;
|
2002-10-04 05:30:44 +00:00
|
|
|
array_push($work->input_files, "input");
|
|
|
|
$work->install($project);
|
|
|
|
|
2003-04-01 07:34:08 +00:00
|
|
|
$project->start_servers();
|
|
|
|
$host->run("-exit_when_idle -skip_cpu_benchmarks");
|
2002-10-04 05:30:44 +00:00
|
|
|
$project->stop();
|
|
|
|
|
2003-04-01 07:34:08 +00:00
|
|
|
$result->server_state = RESULT_STATE_OVER;
|
2002-10-06 00:43:55 +00:00
|
|
|
$project->check_results(0, $result);
|
2003-04-29 17:51:58 +00:00
|
|
|
|
|
|
|
exit($retval);
|
2002-07-12 18:24:58 +00:00
|
|
|
?>
|