conformance_test/positive_tests/16_functions_altsteps_testcases/1601_functions/160102_predefined_functions/Sem_160102_predefined_functions_027.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2016 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  * Contributors:
   9  *   Adrien Kirjak – initial implementation
  10  *
  11  ** @version  0.0.1
  12  ** @purpose  1:16.1.2, Ensure that the IUT recognizes predefined functions and correctly evaluates them (as specified by Annex C)
  13  ** @verdict  pass accept, ttcn3verdict:pass
  14  ***************************************************/
  15
  16 /* The following requirements are tested:
  17  * This function converts an UTF-8 universal charstring value to an octetstring.*/
  18
  19
  20 module Sem_160102_predefined_functions_027 {
  21
  22
  23     type component GeneralComp {
  24     }
  25
  26
  27     testcase TC_Sem_160102_predefined_functions_027 () runs on GeneralComp {
  28
  29         // universal charstring:
  30         var universal charstring v_0 := "ABC123abc";
  31
  32         // predefined function for universal charstring to octetstring conversion:
  33         var octetstring v_encoded := unichar2oct(v_0,"UTF-8");
  34                 //"UTF-8", expected value: '414243313233616263'O
  35         var octetstring v_1 := '414243313233616263'O;
  36
  37
  38         if( match(v_encoded,v_1)
  39         ) {
  40             setverdict(pass,"Encoded value for: ",v_0, " is ", v_encoded);
  41         }
  42         else {
  43             setverdict(fail,"encoded value is: ", v_encoded, " expected ", v_1);
  44         }
  45     }
  46
  47     control{
  48         execute(TC_Sem_160102_predefined_functions_027());
  49     }
  50 }