Last change
on this file since 61 was
22,
checked in by rings, 14 years ago
|
|
-
Property svn:executable set to
*
|
File size:
1.5 KB
|
Line | |
---|
1 | /*
|
---|
2 | * @author STF 370
|
---|
3 | * @version $Id: LibIot_TestConfiguration.ttcn 16 2009-06-16 15:06:42Z pintar $
|
---|
4 | * @desc xxx.
|
---|
5 | */
|
---|
6 |
|
---|
7 | module LibIot_TestConfiguration {
|
---|
8 |
|
---|
9 | import from LibIot_TestInterface {
|
---|
10 | type
|
---|
11 | InterfaceMonitor,
|
---|
12 | IotEquipmentUser,
|
---|
13 | OracleClient,
|
---|
14 | OracleServer,
|
---|
15 | TestCoordinator;
|
---|
16 | }
|
---|
17 |
|
---|
18 | /**
|
---|
19 | * @desc connects the port of the monitor component to the
|
---|
20 | * port of the test oracle and activates the default
|
---|
21 | * @param p_monitor monitor component
|
---|
22 | */
|
---|
23 | function f_cf_oracle_up(in OracleClient p_client) runs on OracleServer {
|
---|
24 | connect(self:vPort, p_client:vPort);
|
---|
25 | }
|
---|
26 |
|
---|
27 | /**
|
---|
28 | * @desc deactivates the default and disconnects the port of the monitor
|
---|
29 | * component
|
---|
30 | * @param p_monitor monitor component
|
---|
31 | */
|
---|
32 | function f_cf_oracle_down(in OracleClient p_client) runs on OracleServer {
|
---|
33 | disconnect(self:vPort, p_client:vPort);
|
---|
34 | }
|
---|
35 |
|
---|
36 | /**
|
---|
37 | * @desc creates a IOT equipment user component
|
---|
38 | * @param p_name name of the equipment user component
|
---|
39 | * @return reference to the created equipment user component
|
---|
40 | */
|
---|
41 | function f_cf_create_IotEquipmentUser(in charstring p_name) runs on TestCoordinator return IotEquipmentUser {
|
---|
42 | var IotEquipmentUser v_iotEquipmentUser := IotEquipmentUser.create(p_name) alive;
|
---|
43 | // TODO var IotEquipmentUser v_iotEquipmentUser := IotEquipmentUser.create alive;
|
---|
44 | /* YANN
|
---|
45 | It's really better to use named port for debug and so on
|
---|
46 | */
|
---|
47 |
|
---|
48 | return v_iotEquipmentUser;
|
---|
49 | }
|
---|
50 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.