From 8558c743c1df3fbd01d2dee982f1c411c11c5b7a Mon Sep 17 00:00:00 2001
From: balaskoa <Jeno.Balasko@ericsson.com>
Date: Wed, 6 Nov 2019 13:34:22 +0100
Subject: [PATCH] New testcases for handling TitanCharString_Element
Signed-off-by: balaskoa <Jeno.Balasko@ericsson.com>
Change-Id: Iecc3cdc10367c1958da10f26ecb7a7200b4fc03a
---
regression_test/charstrOper/TcharstrOper.ttcn | 89 +++++++++++++++++++
1 file changed, 89 insertions(+)
diff --git a/regression_test/charstrOper/TcharstrOper.ttcn b/regression_test/charstrOper/TcharstrOper.ttcn
index f7f0bf757..5a8ff5dcc 100644
--- a/regression_test/charstrOper/TcharstrOper.ttcn
+++ b/regression_test/charstrOper/TcharstrOper.ttcn
@@ -602,6 +602,88 @@ testcase tc_charstring_IndexMistakes() runs on charstrOper_comptype {
}
}
+// === String_Element tests ===
+
+type component CT{
+ port CSPort CS
+ timer T
+}
+
+type port CSPort message {
+ inout charstring
+} with { extension "internal" }
+
+function f_cs(in charstring cs) return charstring {
+ return cs;
+}
+
+testcase tc_cs() runs on CT {
+ var charstring vl_cs1 := "Hi", vl_cs2
+ vl_cs2 := f_cs(vl_cs1[0]);
+ if( vl_cs2 == "H") {setverdict(pass)} else { setverdict(fail)}
+}
+
+//cs in altstep
+
+altstep as_cs(in charstring str) runs on CT {
+ var template charstring vl_str := ?
+ var charstring r;
+ [] CS.receive(vl_str) -> value r { if ( r == str) { setverdict(pass) } }
+ [] T.timeout { setverdict(fail, "timeout")}
+}
+
+testcase tc_altstep_cs() runs on CT {
+ var charstring vl_str := "Hi";
+ connect(self:CS, self:CS);
+ T.start(1.0);
+ CS.send(vl_str);
+ as_cs(vl_str);
+ T.stop;
+}
+
+testcase tc_altstep_cs_idx() runs on CT {
+ var charstring vl_str := "Hi"
+ connect(self:CS, self:CS);
+ T.start(1.0);
+ CS.send(vl_str[0]);
+ as_cs(vl_str[0]);
+ T.stop;
+}
+
+altstep as_cs_template(in template charstring str) runs on CT {
+ var template charstring vl_str := ?;
+ var charstring r;
+ [] CS.receive(vl_str) -> value r { if ( r == valueof(str)) { setverdict(pass) } }
+ [] T.timeout { setverdict(fail, "timeout")}
+}
+
+testcase tc_altstep_cs_template() runs on CT {
+ var template charstring vl_str := "Hi";
+ connect(self:CS, self:CS);
+ T.start(1.0);
+ CS.send(vl_str);
+ as_cs_template(vl_str);
+ T.stop;
+}
+
+// cs in value list
+testcase tc__value_list_cs() runs on CT {
+ var charstring vl_cs1 := "ABab", vl_cs2
+ var template charstring vlt_cs := (vl_cs1[0], vl_cs1[1]);
+ vl_cs2 := "A";
+ if( match(vl_cs2,vlt_cs)) {setverdict(pass)} else { setverdict(fail)}
+ vl_cs2 := "B";
+ if( match(vl_cs2,vlt_cs)) {setverdict(pass)} else { setverdict(fail)}
+}
+
+testcase tc__match_cs_idx() runs on CT {
+ var charstring vl_cs1 := "ABab";
+ var template charstring vlt_cs := ("A","B"); //ok
+ if( match(vl_cs1[0],vlt_cs)) {setverdict(pass)} else { setverdict(fail)}
+}
+
+
+
control {
const charstring cl_1:="asd1";
var charstring vl_1;
@@ -634,6 +716,13 @@ control {
execute(tc_simple_charstring_template_pattern());
execute(tc_charstring_Uninit());
execute(tc_charstring_IndexMistakes());
+
+ execute(tc_cs());
+ execute(tc_altstep_cs());
+ execute(tc_altstep_cs_idx());
+ execute(tc_altstep_cs_template());
+ execute(tc__value_list_cs());
+ execute(tc__match_cs_idx());
}
}
--
GitLab