test/Variable/EPTF_Variable_Test_Definitions.ttcn

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// Copyright (c) 2000-2019 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                                 //
///////////////////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////
//  Module: EPTF_CLL_Variable_Test_Definitions
// 
//  Purpose:
//    This module contains the tests of generic EPTF Variable.
// 
//  Module depends on:
//    <EPTF_CLL_Variable_Definitions>
//    <EPTF_CLL_Definitions>
//
//  Module parameters:
//   tsp_EPTF_Test_selfname - *charstring* - name of the test module, default value: Test
// 
//  Current Owner:
//    Balazs Barcsik (EBALBAR)
// 
//  Last Review Date:
//    2007-xx-xx
//
//  Detailed Comments:
//    This module contains the tests for the EPTF Variable. 
//
///////////////////////////////////////////////////////////////
module EPTF_Variable_Test_Definitions {
//=========================================================================
// Import part
//=========================================================================
  import from EPTF_CLL_Variable_Definitions all;
  import from EPTF_CLL_Common_Definitions all;
//=========================================================================
// Module Parameters
//=========================================================================  
  modulepar charstring tsp_EPTF_Test_selfname := "Test";

//=========================================================================
// Port Definitions
//=========================================================================
  type port controlPort_PT message {
    inout boolean;
  } with{extension "internal"}
  
//=========================================================================
// Type Definitions
//=========================================================================  
  type record of VariableTest_CT VariableTest_CT_List;
  
//=========================================================================
// Component Types
//=========================================================================    
  //The definition of the Test component
  type component VariableTest_CT extends EPTF_Var_CT {
    
    //Definition of the Syncronisation timer 
    timer T_WAIT := 5.0;
    timer T_WAITResp := 200.0;
    
    //SlaveVariable for the postproc function test
    var integer v_inc := 0;
    
    //The local variables
    var integer v_intVar := 1;  
    var float v_floatVar := 1.0;
    var boolean v_boolVar := true;
    var charstring v_charstringVar := "1.0";
    var octetstring v_octetstringVar := '01'O;
    var hexstring v_hexstringVar := '01'H;
    var bitstring v_bitstringVar := '01'B;
    var EPTF_IntegerList v_integerlistVar := {0,1};
    var EPTF_FloatList v_floatlistVar := {0.0,1.0};
    var EPTF_CharstringList v_charstringlistVar := {"0","1"};
    var EPTF_StatusLED v_statusLEDVar := {led_blue,"1"};

    //Definition of the provider variables
    var integer v_intVarRefIdx;
    var integer v_intVarIdx;
    var integer v_floatVarIdx;
    var integer v_floatVarRefIdx;
    var integer v_boolVarIdx;
    var integer v_boolVarRefIdx;
    var integer v_charstringVarIdx;
    var integer v_charstringVarRefIdx;
    var integer v_octetstringVarIdx;
    var integer v_octetstringVarRefIdx;   
    var integer v_hexstringVarIdx;
    var integer v_hexstringVarRefIdx; 
    var integer v_bitstringVarIdx;
    var integer v_bitstringVarRefIdx;    
    var integer v_integerlistVarIdx;
    var integer v_integerlistVarRefIdx;    
    var integer v_floatlistVarIdx;
    var integer v_floatlistVarRefIdx;    
    var integer v_charstringlistVarIdx;
    var integer v_charstringlistVarRefIdx;    
    var integer v_statusLEDVarIdx;
    var integer v_statusLEDVarRefIdx;
    
    //Definition of the subscriber variables 
    var integer v_remoteIntSubscrIdx;
    var integer v_remoteFloatSubscrIdx;
    var integer v_remoteBoolSubscrIdx;
    var integer v_remoteCharstringSubscrIdx;
    var integer v_remoteOctetstringSubscrIdx;
    var integer v_remoteHexstringSubscrIdx;
    var integer v_remoteBitstringSubscrIdx;
    var integer v_remoteIntegerlistSubscrIdx;
    var integer v_remoteFloatlistSubscrIdx;
    var integer v_remoteCharstringlistSubscrIdx;
    var integer v_remoteStatusLEDSubscrIdx;
    var integer v_remoteIntSubscrIdxRef;
    var integer v_remoteFloatSubscrIdxRef;
    var integer v_remoteBoolSubscrIdxRef;
    var integer v_remoteCharstringSubscrIdxRef;
    var integer v_remoteOctetstringSubscrIdxRef;
    var integer v_remoteHexstringSubscrIdxRef;
    var integer v_remoteBitstringSubscrIdxRef;
    var integer v_remoteIntegerlistSubscrIdxRef;
    var integer v_remoteFloatlistSubscrIdxRef;
    var integer v_remoteCharstringlistSubscrIdxRef;
    var integer v_remoteStatusLEDSubscrIdxRef;
    
    var integer v_subscribeRemote_nonblockingHandlerCalled := 0; // to check whether the response handler function was called without blocking
    timer t_subscribeRemote_nonblocking := 0.0001;

    //Definition of the control ports
    port controlPort_PT statusPort1;
    port controlPort_PT statusPort2;
  }
  
  type component Var_Test_SubscribeWithCustomPeriod_CT extends EPTF_Var_CT {
    timer t_updateVars := 1.0;
    var integer v_currentValue := 0;
    
    var integer vl_intVarIdx := -1;

    var integer v_remoteIntSubscrIdx := -1;
    var integer v_intVarRefreshA_10Idx := -1;
    var integer v_intVarRefreshB_10Idx := -1;
    var integer v_intVarRefresh_20Idx := -1;

    var float v_remoteIntSubscr_Period := -1.0;
    var float v_intVarRefreshA_10_Period  := -1.0;
    var float v_intVarRefreshB_10_Period  := -1.0;
    var float v_intVarRefresh_20_Period  := -1.0;

    var float v_remoteIntSubscr_PrevTime := -1.0;
    var float v_intVarRefreshA_10_PrevTime  := -1.0;
    var float v_intVarRefreshB_10_PrevTime  := -1.0;
    var float v_intVarRefresh_20_PrevTime  := -1.0;
    
    var integer v_intVarRefreshB_10_PrevContent  := 0;
    var integer v_intVarRefresh_20_PrevContent  := 0;
  }

}