blob: dc97d50a33e9b9680c60505908a70c09af2ba320 [file] [log] [blame]
///////////////////////////////////////////////////////////////////////////////
//
// Copyright (c) 2000-2017 Ericsson Telecom AB
//
// All rights reserved. This program and the accompanying materials
// are made available under the terms of the Eclipse Public License v2.0
// which accompanies this distribution, and is available at
// https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
///////////////////////////////////////////////////////////////////////////////
// File: IOT_App_Functions.ttcn
// Description:
// Rev: R1A
// Prodnr: LPA 108 661
// Updated: 2017-09-01
// Contact: http://ttcn.ericsson.se
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// Module: IOT_App_Functions
//
// Purpose:
// This module contains the functions of RIoT's main component
//
// See also:
// <IOT_App_Definitions>
//
// Module depends on:
// - <IOT_LGen_Definitions>
// - <IOT_LGen_Functions>
// - <EPTF_CLL_Base_Functions>
// - <EPTF_CLL_ExecCtrl_Definitions>
// - <EPTF_CLL_ExecCtrl_Functions>
// - <EPTF_CLL_DsRestAPI_Functions>
// - <EPTF_CLL_DataSource_Definitions>
// - <EPTF_CLL_DataSource_Functions>
//
// Module Parameters:
// tsp_nrOfLGens - <tsp_nrOfLGens> - *integer* - the number of <IOT_LGen_CT> instances to be createed during start up
// tsp_LGname_prefix - <tsp_LGname_prefix> - *charstring* - name prefix used for the created <IOT_LGen_CT> instances
///////////////////////////////////////////////////////////////
module IOT_App_Functions
{
import from IOT_App_Definitions all;
import from IOT_LGen_Definitions all;
import from IOT_LGen_Functions all;
import from EPTF_CLL_Base_Functions all;
import from EPTF_CLL_ExecCtrl_Definitions all;
import from EPTF_CLL_ExecCtrl_Functions all;
import from EPTF_CLL_DsRestAPI_Functions all;
import from EPTF_CLL_DataSource_Definitions all;
import from EPTF_CLL_DataSource_Functions all;
modulepar integer tsp_nrOfLGens := 0;
modulepar charstring tsp_LGname_prefix := "IOT_LGen";
///////////////////////////////////////////////////////////
// Testcase: TC
//
// Purpose:
// The main entry point of the RIoT application
//
// Related Types:
// <IOT_App_CT>
///////////////////////////////////////////////////////////
testcase TC() runs on IOT_App_CT
{
log(%definitionId,": Creating UI");
f_EPTF_DsRestAPI_init_CT("IOT_App");
log(%definitionId,": Creating ExecCtrl");
var EPTF_ExecCtrl_CT vc_ExtCtrl := EPTF_ExecCtrl_CT.create;
vc_ExtCtrl.start(f_IOT_App_startExecCtrl("ExecCtrl", tsp_nrOfLGens, self));
f_EPTF_DataSource_registerReadyCallback(refers(f_EPTF_ExecCtrl_Test_DataSourceClientReady));
log(%definitionId,": Creating LGens");
var IOT_LGen_CT vc_LG;
for (var integer i:=0; i<tsp_nrOfLGens; i:=i+1)
{
vc_LG := IOT_LGen_CT.create;
vc_LG.start(f_IOT_LGen_behavior(tsp_LGname_prefix & int2str(i), i, vc_ExtCtrl));
}
timer T_guard, T_alt;
T_alt.start( 0.0 );
T_guard.start( 15.0 );
// wait until ExecCtrl DataSource is registered
alt{
[] T_guard.timeout{
setverdict(fail,"Timeout during config");
f_EPTF_Base_stopAll();
}
[v_ready] T_alt.timeout{}
}
var integer vl_Ret := f_EPTF_DsRestAPI_start(
tsp_EPTF_DsRestAPI_HTTPServer_RemoteAddress,
tsp_EPTF_DsRestAPI_HTTPServer_RemotePort,
tsp_EPTF_DsRestAPI_HTTPServer_directory,
tsp_EPTF_DsRestAPI_customizableApp_directory,
tsp_EPTF_DsRestAPI_API_directory
);
f_EPTF_Base_wait4Shutdown();
}
///////////////////////////////////////////////////////////
// Function: f_IOT_App_startExecCtrl
//
// Purpose:
// Starting up the Execution Control component that will orchestrate
// the load generator <IOT_LGen_CT>,<EPTF_ExecCtrlClient_CT> component instances
//
// Parameters:
// pl_selfName - *in charstring* - name of the execution control components instance
// pl_nrOfClients - *in integer* - number of <EPTF_ExecCtrlClient_CT> load generator components to wait for
// pl_datasource - *in* <EPTF_DataSource_CT> - data source server
//
// Related Types:
// <EPTF_ExecCtrl_CT>
//
// Related functions:
// - <f_EPTF_ExecCtrl_loadConfig>
// - <f_EPTF_ExecCtrl_init_CT>
///////////////////////////////////////////////////////////
function f_IOT_App_startExecCtrl(
in charstring pl_selfName,
in integer pl_nrOfClients,
in EPTF_DataSource_CT pl_datasource)
runs on EPTF_ExecCtrl_CT
{
var EPTF_ExecCtrl_LGenFunction_Entry_List vl_functions :=
{
{ name := "RIoT.createLGen", fn := refers(f_IOT_LGen_create) }
}
f_EPTF_ExecCtrl_loadConfig(
pl_EPTF_ExecCtrl_LGenFunction_Entry_List := vl_functions
);
f_EPTF_ExecCtrl_init_CT(pl_selfName, pl_nrOfClients, pl_dataSource_compRef := pl_datasource);
f_EPTF_Base_wait4Shutdown();
}
///////////////////////////////////////////////////////////
// Function: f_IOT_LGen_create
//
// Purpose:
// Starting up a load generator <IOT_LGen_CT> component instances
//
// Parameters:
// pl_hostname - *in charstring* - name of the host, where the load generator instance will be created
// pl_componentName - *in charstring* - the name of the load generator component instance
//
// Related Types:
// <IOT_LGen_CT>
// <EPTF_ExecCtrlClient_CT>
// <EPTF_ExecCtrl_CT>
//
// Related functions:
// - <f_IOT_LGen_behavior>
///////////////////////////////////////////////////////////
function f_IOT_LGen_create
(
in charstring pl_hostname,
in charstring pl_componentName
)
runs on EPTF_ExecCtrl_CT
return EPTF_ExecCtrlClient_CT
{
// Create LGen instance
var IOT_LGen_CT vc_lgen := IOT_LGen_CT.create(pl_hostname);
// Connect and Start the LGen
vc_lgen.start(f_IOT_LGen_behavior(tsp_LGname_prefix & pl_componentName, 0, self));
return vc_lgen;
}
function f_EPTF_ExecCtrl_Test_DataSourceClientReady(
in charstring pl_source,
in charstring pl_ptcName)
runs on IOT_App_CT
{
if (pl_source==c_ExecCtrl_DataSource_sourceId)
{
v_ready := true;
}
}
}