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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
/*
* Copyright 2009- ECMWF.
*
* This software is licensed under the terms of the Apache Licence version 2.0
* which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
* In applying this licence, ECMWF does not waive the privileges and immunities
* granted to it by virtue of its status as an intergovernmental organisation
* nor does it submit to any jurisdiction.
*/
#include <iostream>
#include <string>
#include <boost/test/unit_test.hpp>
#include "TestHelper.hpp"
#include "ecflow/base/cts/task/MeterCmd.hpp"
#include "ecflow/node/Defs.hpp"
#include "ecflow/node/Family.hpp"
#include "ecflow/node/Suite.hpp"
#include "ecflow/node/System.hpp"
#include "ecflow/node/Task.hpp"
#include "ecflow/test/scaffold/Naming.hpp"
using namespace std;
using namespace ecf;
BOOST_AUTO_TEST_SUITE(U_Base)
BOOST_AUTO_TEST_SUITE(T_MeterCmd)
BOOST_AUTO_TEST_CASE(test_meter_cmd) {
ECF_NAME_THIS_TEST();
TestLog test_log("test_meter_cmd.log"); // will create log file, and destroy log and remove file at end of scope
// Create the defs file.
// suite suite
// family f
// task t1
// meter m 0 100 100
// endfamily
// endsuite
Defs defs;
string suite_f_t1 = "suite/f/t1";
task_ptr t1 = Task::create("t1");
std::string meter_name = "m";
{
t1->addMeter(Meter(meter_name, 0, 100, 100));
suite_ptr s = Suite::create("suite");
family_ptr f = Family::create("f");
f->addTask(t1);
s->addFamily(f);
defs.addSuite(s);
}
// Meter which doesn't exist should be silently ignore
int meter_value = 10;
TestHelper::invokeRequest(&defs,
Cmd_ptr(new MeterCmd(suite_f_t1,
Submittable::DUMMY_JOBS_PASSWORD(),
Submittable::DUMMY_PROCESS_OR_REMOTE_ID(),
1,
"FRED",
meter_value)),
false /* expect change number not to change */
);
/// Test setting meter value
TestHelper::invokeRequest(&defs,
Cmd_ptr(new MeterCmd(suite_f_t1,
Submittable::DUMMY_JOBS_PASSWORD(),
Submittable::DUMMY_PROCESS_OR_REMOTE_ID(),
1,
meter_name,
meter_value)));
const Meter& the_meter = t1->findMeter(meter_name);
BOOST_CHECK_MESSAGE(!the_meter.empty(), "Meter not found");
BOOST_CHECK_MESSAGE(the_meter.value() == meter_value,
"Expected meter value " << meter_value << " but found " << the_meter.value());
/// Set a meter value less than the current value.
meter_value = 9;
TestHelper::invokeRequest(&defs,
Cmd_ptr(new MeterCmd(suite_f_t1,
Submittable::DUMMY_JOBS_PASSWORD(),
Submittable::DUMMY_PROCESS_OR_REMOTE_ID(),
1,
meter_name,
meter_value)));
BOOST_CHECK_MESSAGE(the_meter.value() == meter_value,
"Expected meter value " << meter_value << " but found " << the_meter.value());
/// Set a meter value greater than max meter, this should be ignored
/// Avoid failing task, if meter, value is out of range. Just log a warning message
meter_value = 2000;
TestHelper::invokeRequest(&defs,
Cmd_ptr(new MeterCmd(suite_f_t1,
Submittable::DUMMY_JOBS_PASSWORD(),
Submittable::DUMMY_PROCESS_OR_REMOTE_ID(),
1,
meter_name,
meter_value)),
false /* expect change number not to change */);
BOOST_CHECK_MESSAGE(the_meter.value() == 9, "Expected meter value 9 but found " << the_meter.value());
/// Set to valid value
meter_value = 20;
TestHelper::invokeRequest(&defs,
Cmd_ptr(new MeterCmd(suite_f_t1,
Submittable::DUMMY_JOBS_PASSWORD(),
Submittable::DUMMY_PROCESS_OR_REMOTE_ID(),
1,
meter_name,
meter_value)));
BOOST_CHECK_MESSAGE(the_meter.value() == meter_value,
"Expected meter value " << meter_value << " but found " << the_meter.value());
/// Destroy System singleton to avoid valgrind from complaining
System::destroy();
}
BOOST_AUTO_TEST_SUITE_END()
BOOST_AUTO_TEST_SUITE_END()
|
