Commit b7779022 authored by stancakapost's avatar stancakapost
Browse files

changed to use ptc-loopback to avoid dependence on loopback port test 

adaptation implementation
parent ce6baf91

ATS/06_types_and_values/0602_structured_types_and_values/060210_component_types/06021002_reuse_component_type/Sem_060210_ReuseofComponentTypes_002.ttcn

+50 −31
Original line number Diff line number Diff line
@@ -34,9 +34,28 @@ module Sem_060210_ReuseofComponentTypes_002 { 
    inout float;

  }

  

  function loopback() runs on GeneralComp system GeneralComp {

    var integer v_i;

    var float v_f;

    while (true) {

      alt {

        [] pt_myPortA.receive(integer:?) -> value v_i { pt_myPortA.send(v_i); }

        [] pt_myPortA.receive(float:?) -> value v_f { pt_myPortA.send(v_f); }

        [] pt_myPortB.receive(integer:?) -> value v_i { pt_myPortB.send(v_i); }

        [] pt_myPortB.receive(float:?) -> value v_f { pt_myPortB.send(v_f); }

      }

    }

  }



  testcase TC_Sem_060210_ReuseofComponentTypes_002() runs on GeneralComp {

   

    var GeneralComp v_server := GeneralComp.create;

    

    connect(mtc:pt_myPortA, v_server:pt_myPortA);

    connect(mtc:pt_myPortB, v_server:pt_myPortB);

    

    v_server.start(loopback());

   

    //Send an integer from pt_myPortA:

    pt_myPortA.send(2);

    alt {

ATS/06_types_and_values/0602_structured_types_and_values/060210_component_types/06021002_reuse_component_type/Sem_060210_ReuseofComponentTypes_003.ttcn

+55 −35
Original line number Diff line number Diff line
@@ -35,7 +35,27 @@ module Sem_060210_ReuseofComponentTypes_003 { 
  }

  



    testcase TC_Sem_060210_ReuseofComponentTypes_003() runs on GeneralComp {

  function loopback() runs on GeneralComp {

    var integer v_i;

    var float v_f;

    while (true) {

      alt {

        [] pt_myPortA.receive(integer:?) -> value v_i { pt_myPortA.send(v_i); }

        [] pt_myPortA.receive(float:?) -> value v_f { pt_myPortA.send(v_f); }

        [] pt_myPortB.receive(integer:?) -> value v_i { pt_myPortB.send(v_i); }

        [] pt_myPortB.receive(float:?) -> value v_f { pt_myPortB.send(v_f); }

      }

    }

  }

    

  testcase TC_Sem_060210_ReuseofComponentTypes_003() runs on GeneralComp system GeneralComp {

   

    var GeneralComp v_server := GeneralComp.create;

    

    connect(mtc:pt_myPortA, v_server:pt_myPortA);

    connect(mtc:pt_myPortB, v_server:pt_myPortB);

    

    v_server.start(loopback());

   

    //Set a value to MyInt:

    MyInt := 10;