Skip to content
Snippets Groups Projects
Commit 17042f3c authored by balaskoa's avatar balaskoa
Browse files

refined matching message + renaming to support java based usage


Signed-off-by: default avatarbalaskoa <Jeno.Balasko@ericsson.com>
parent 26a8c65e
No related branches found
No related tags found
No related merge requests found
...@@ -20,20 +20,21 @@ module ConnectMapOperNegTest { ...@@ -20,20 +20,21 @@ module ConnectMapOperNegTest {
port loopbackPort p2; port loopbackPort p2;
} }
type component System { type component System_ {
port loopbackPort p1; port loopbackPort p1;
port loopbackPort p2; port loopbackPort p2;
} }
testcase tc_neg_connect_after_map() runs on GeneralComp system System { testcase tc_neg_connect_after_map() runs on GeneralComp system System_ {
map(self:p1, system:p1); map(self:p1, system:p1);
template charstring t_expected := pattern "*Dynamic test case error: Connect operation cannot be performed on a mapped port \(p1\).*"
@try { @try {
connect(self:p1, self:p2); connect(self:p1, self:p2);
setverdict(fail, "Connect operation succeeded. Expected error."); setverdict(fail, "Connect operation succeeded. Expected error.");
} }
@catch (msg) { @catch (msg) {
if (match(msg, "Dynamic test case error: Connect operation cannot be performed on a mapped port (p1).")) { if (match(msg, t_expected)) {
setverdict(pass); setverdict(pass);
} }
else { else {
...@@ -43,15 +44,16 @@ module ConnectMapOperNegTest { ...@@ -43,15 +44,16 @@ module ConnectMapOperNegTest {
setverdict(pass); setverdict(pass);
} }
testcase tc_neg_connect_after_map2() runs on GeneralComp system System { testcase tc_neg_connect_after_map2() runs on GeneralComp system System_ {
var GeneralComp v_comp := GeneralComp.create; var GeneralComp v_comp := GeneralComp.create;
template charstring t_expected := pattern "*Dynamic test case error: Connect operation cannot be performed on a mapped port \(p1\).*"
map(self:p1, system:p1); map(self:p1, system:p1);
@try { @try {
connect(self:p1, v_comp:p2); connect(self:p1, v_comp:p2);
setverdict(fail, "Connect operation succeeded. Expected error."); setverdict(fail, "Connect operation succeeded. Expected error.");
} }
@catch (msg) { @catch (msg) {
if (match(msg, "Dynamic test case error: Connect operation cannot be performed on a mapped port (p1).")) { if (match(msg, t_expected)) {
setverdict(pass); setverdict(pass);
} }
else { else {
...@@ -61,15 +63,16 @@ module ConnectMapOperNegTest { ...@@ -61,15 +63,16 @@ module ConnectMapOperNegTest {
setverdict(pass); setverdict(pass);
} }
testcase tc_neg_map_after_connect() runs on GeneralComp system System { testcase tc_neg_map_after_connect() runs on GeneralComp system System_ {
var GeneralComp v_comp := GeneralComp.create; var GeneralComp v_comp := GeneralComp.create;
template charstring t_expected := pattern "*Dynamic test case error: Map operation is not allowed on a connected port \(p1\)."
connect(self:p1, v_comp:p2); connect(self:p1, v_comp:p2);
@try { @try {
map(self:p1, system:p1); map(self:p1, system:p1);
setverdict(fail, "Connect operation succeeded. Expected error."); setverdict(fail, "Connect operation succeeded. Expected error.");
} }
@catch (msg) { @catch (msg) {
if (match(msg, "Dynamic test case error: Map operation is not allowed on a connected port (p1).")) { if (match(msg, t_expected)) {
setverdict(pass); setverdict(pass);
} }
else { else {
...@@ -82,7 +85,6 @@ module ConnectMapOperNegTest { ...@@ -82,7 +85,6 @@ module ConnectMapOperNegTest {
control{ control{
execute(tc_neg_connect_after_map()); execute(tc_neg_connect_after_map());
execute(tc_neg_connect_after_map2()); execute(tc_neg_connect_after_map2());
execute(tc_neg_map_after_connect()); execute(tc_neg_map_after_connect());
} }
} }
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment