Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
/***************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:6.1.1, Assign and read universal charstring using USI like notation
** @verdict pass accept, ttcn3verdict:pass
***************************************************/
//Note: not working with TestCast v.6.8.2.5.
/* The following requirements are tested:
The UCS sequence identifier-like (USI-like) notation using their short identifiers of code point. The USI-like notation is composed of the keyword char followed by parentheses. The
parentheses enclose a comma-separated list of short identifiers . Each short identifier represents a single
character and it shall be composed of a letter U or u followed by an optional "+" PLUS SIGN character,
followed by 1..8 hexadecimal digits.
*/
module Sem_060101_TopLevel_007 {
type component GeneralComp {}
testcase TC_Sem_060101_TopLevel_007() runs on GeneralComp {
var universal charstring v_a := char(U0041); //USI notation for character "A"
var universal charstring v_b := char(U0171); //USI notation for character "ű"
var universal charstring v_c := char(U41); //USI notation for character "A" without leading zeroes
var universal charstring v_b := char(U+171); //USI notation for character "ű" without leading zeroes and + sign notation
var universal charstring v_d := char(U171,U41); //USI notation for character "ű" and "A" without leading zeroes and + sign notation
if ((v_a == "A") and (v_b == "ű") and (v_c == "A") and (v_d == "űA") ){
setverdict(pass);
}
else {
setverdict(fail);
}
}
control{
execute(TC_Sem_060101_TopLevel_007());
}
}