tools/TestResultGen/demo/TestResultGen_Demo.ttcn

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// 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 v1.0     //
// which accompanies this distribution, and is available at                  //
// http://www.eclipse.org/legal/epl-v10.html                                 //
///////////////////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////
//  Module: TestResultGen_Demo
// 
//  Purpose:
//    This module provides definition of the Test Result Generator Demo.
// 
//  Module Parameters:
//    -
// 
//  Module depends on:
//    <TestResultGen>
// 
//  Current Owner:
//    ethjgi
// 
//  Last Review Date:
//    2010-11-26
// 
//  Detailed Comments:
//    This module is a demo for TestResultGen.
//
//    Test Cases:
//      <tc_encode_test_appendResult>
//      <tc_encode_test_writeResult>
//      <tc_encode_test_fillEnv>
// 
///////////////////////////////////////////////////////////
module TestResultGen_Demo {

import from TestResultGen all;
import from ttcn_ericsson_se_TitanSim_Perftest all;

type component encode_CT {};

testcase tc_encode_test_appendResult()
runs on encode_CT{
  var Testresult vl_message;
  dec_Testresult(
      char2oct(
        "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<testresult xmlns=\"http://ttcn.ericsson.se/TitanSim/Perftest\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://ericsson.com perf_test.xsd\">
  <name>MaxReceivedMsgs</name>
  <purpose>
    The purpose of this test is to measure the number of received messages.  
  </purpose>
  <start_time>2010-11-17 07:36:54</start_time>
  <end_time>2010-11-17 07:39:37</end_time>
  <environment>
    <user>etstest2</user>
    <host>tcclab1</host>
    <kernel>Linux version: 2.6.34-12-desktop</kernel>
    <gcc_version>v4.4.1</gcc_version>
    <titan_version>1.8.pl4</titan_version>
    <cpu_info> ... </cpu_info>
    <memory_info> ... </memory_info>
  </environment>
  <parameter name='duration' unit='second'>10</parameter>
  <parameter name='cpsToSet' unit='Call/sec'>25000</parameter>
  <result name='messages sent' unit='-'>832500</result>
  <result name='messages received' unit='-'>32500</result>
  <result name='faulty messages' unit='%'>0.7</result>
//    <data><name>duration</name><value>10</value><unit>second</unit></data>
//    <data><name>cpsToSet</name><value>25000</value><unit>Call/sec</unit></data>
//  <result>
//    <data><name>messages sent</name><value>832500</value><unit>-</unit></data>
//    <data><name>messages received</name><value>32500</value><unit>-</unit></data>
//    <data><name>faulty messages</name><value>0.7</value><unit>%</unit></data>
//  </result>
</testresult>"
        ),vl_message
    );
  action("vl_message: ", vl_message);
  var octetstring vl_strMsg := enc_Testresult(vl_message);
  action("vl_strMsg: ", oct2char(vl_strMsg));
  dec_Testresult(vl_strMsg,vl_message);
  action("vl_message: ", vl_message);
  if (f_TestResultGen_appendResult("testresults.xml", vl_message)) {
    setverdict(pass);
  } else {
    setverdict(fail,"Cannot write testresults into testresults.xml");
  }
}
  
testcase tc_encode_test_writeResult()
runs on encode_CT{
  var Testresult vl_message;
  dec_Testresult(
      char2oct(
        "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<testresult xmlns=\"http://ttcn.ericsson.se/TitanSim/Perftest\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://ericsson.com perf_test.xsd\">
  <name>MaxReceivedMsgs</name>
  <purpose>
    The purpose of this test is to measure the number of received messages.  
  </purpose>
  <start_time>2010-11-17 07:36:54</start_time>
  <end_time>2010-11-17 07:39:37</end_time>
  <environment>
    <user>etstest2</user>
    <host>tcclab1</host>
    <kernel>Linux version: 2.6.34-12-desktop</kernel>
    <gcc_version>v4.4.1</gcc_version>
    <titan_version>1.8.pl4</titan_version>
    <cpu_info> ... </cpu_info>
    <memory_info> ... </memory_info>
  </environment>
  <parameter name='duration' unit='second'>10</parameter>
  <parameter name='cpsToSet' unit='Call/sec'>25000</parameter>
  <result name='messages sent' unit='-'>832500</result>
  <result name='messages received' unit='-'>32500</result>
  <result name='faulty messages' unit='%'>0.7</result>
//    <data><name>duration</name><value>10</value><unit>second</unit></data>
//    <data><name>cpsToSet</name><value>25000</value><unit>Call/sec</unit></data>
//  <result>
//    <data><name>messages sent</name><value>832500</value><unit>-</unit></data>
//    <data><name>messages received</name><value>32500</value><unit>-</unit></data>
//    <data><name>faulty messages</name><value>0.7</value><unit>%</unit></data>
//  </result>
</testresult>"
        ),vl_message
    );
  action("vl_message: ", vl_message);
  var octetstring vl_strMsg := enc_Testresult(vl_message);
  action("vl_strMsg: ", oct2char(vl_strMsg));
  dec_Testresult(vl_strMsg,vl_message);
  action("vl_message: ", vl_message);
  if (f_TestResultGen_writeResult("testresults.xml", vl_message)) {
    setverdict(pass);
  } else {
    setverdict(fail,"Cannot write testresults into testresults.xml");
  }
}
  
testcase tc_encode_test_fillEnv()
runs on TestResultGen_CT{
  var Testresult vl_message;
  dec_Testresult(
      char2oct(
        "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<testresult xmlns=\"http://ttcn.ericsson.se/TitanSim/Perftest\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://ericsson.com perf_test.xsd\">
  <name>MaxReceivedMsgs</name>
  <purpose>
    The purpose of this test is to measure the number of received messages.  
  </purpose>
  <start_time>2010-11-17 07:36:54</start_time>
  <end_time>2010-11-17 07:39:37</end_time>
  <environment>
    <user>etstest2</user>
    <host>tcclab1</host>
    <kernel>Linux version: 2.6.34-12-desktop</kernel>
    <gcc_version>v4.4.1</gcc_version>
    <titan_version>1.8.pl4</titan_version>
    <cpu_info> ... </cpu_info>
    <memory_info> ... </memory_info>
  </environment>
  <parameter name='duration' unit='second'>10</parameter>
  <parameter name='cpsToSet' unit='Call/sec'>25000</parameter>
  <result name='messages sent' unit='-'>832500</result>
  <result name='messages received' unit='-'>32500</result>
  <result name='faulty messages' unit='%'>0.7</result>
//    <data><name>duration</name><value>10</value><unit>second</unit></data>
//    <data><name>cpsToSet</name><value>25000</value><unit>Call/sec</unit></data>
//  <result>
//    <data><name>messages sent</name><value>832500</value><unit>-</unit></data>
//    <data><name>messages received</name><value>32500</value><unit>-</unit></data>
//    <data><name>faulty messages</name><value>0.7</value><unit>%</unit></data>
//  </result>
</testresult>"
        ),vl_message
    );
  action("vl_message: ", vl_message);
  f_TestResultGen_getEnvironment(vl_message.environment);
  vl_message.start_time := f_TestResultGen_getCurrentTime();
  timer t_wait := 1.0; t_wait.start; t_wait.timeout;
  vl_message.end_time := f_TestResultGen_getCurrentTime();
  if (f_TestResultGen_writeResult("testresults.xml", vl_message)) {
    setverdict(pass);
  } else {
    setverdict(fail,"Cannot write testresults into testresults.xml");
  }
}
  
}  // end of module