function_test/Semantic_Analyser/import_of_iports/B_APR_SE.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2014 Ericsson Telecom AB
   3  * All rights reserved. This program and the accompanying materials
   4  * are made available under the terms of the Eclipse Public License v1.0
   5  * which accompanies this distribution, and is available at
   6  * http://www.eclipse.org/legal/epl-v10.html
   7  ******************************************************************************/
   8 //^In TTCN-3 module `B_APR_SE'://
   9
  10 // This module
  11 // 1. provides a module with "private import from A_SE all;" to test import statement located in next modules and this module
  12 // 2. provides a module which is NOT a friend of A
  13 module B_APR_SE {
  14
  15 private import from A_SE all;
  16
  17 type component MTC {};
  18
  19 //==CONST===
  20 const integer c_B_i := 0;
  21 public const integer c_B_i_pu := 0;
  22 friend const integer c_B_i_fr := 0;
  23 private const integer c_B_i_pr := 0;
  24
  25 //==TEMPLATES===
  26 template integer t_B_i := 0;
  27 public template integer t_B_i_pu := 0;
  28 friend template integer t_B_i_fr := 0;
  29 private template integer t_B_i_pr := 0;
  30
  31 //===TYPES===
  32 type integer B_MyInt;
  33 public type integer B_MyInt_pu;
  34 private type integer B_MyInt_pr;
  35 friend type integer B_MyInt_fr;
  36
  37 //==functions
  38 /* public */ function f_B() { log("This is f_C") }
  39 public function f_B_pu() { log("This is f_B_pu") }
  40 friend function f_B_fr() { log("This is f_B_fr") }
  41 private function f_B_pr() { log("This is f_B_pr") }
  42
  43 //=============Testcases=========================================
  44
  45 testcase tc_A() runs on MTC {  //^In testcase definition `tc_A'://
  46   var integer i:=c_A_i;
  47   i:=c_A_i_pu;
  48   i:=valueof(t_A_i_pu);
  49   i:=valueof(t_A_i);
  50   var A_MyInt myInt;
  51   var A_MyInt_pu myInt_pu;
  52   f_A();
  53   f_A_pu();
  54
  55   i:=c_A_i_fr; //^In variable assignment:// //^error: There is no local or imported definition with name `c_A_i_fr'//
  56   i:=valueof(t_A_i_fr); //^In variable assignment:// //In the operand of operation `valueof\(\)'// //^error: There is no local or imported definition with name `t_A_i_fr'//
  57   var A_MyInt_fr myInt_fr; //^In variable definition `myInt_fr'// //^error: There is no local or imported definition with name `A_MyInt_fr'//
  58   f_A_fr();//^In function or altstep instance:// //^error: There is no local or imported definition with name `f_A_fr'//
  59
  60   i:=c_A_i_pr;//^In variable assignment:// //^error: There is no local or imported definition with name `c_A_i_pr'//
  61   i:=valueof(t_A_i_pr);//^In variable assignment:// //^In the operand of operation `valueof\(\)'// //^error: There is no local or imported definition with name `t_A_i_pr'//
  62   var A_MyInt_pr a_myInt_pr; //^In variable definition `a_myInt_pr'// //^error: There is no local or imported definition with name `A_MyInt_pr'//
  63   f_A_pr();//^In function or altstep instance:// //^error: There is no local or imported definition with name `f_A_pr'//
  64   setverdict(pass);
  65 }
  66
  67 }