Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
MTS - Methods for Testing and Specification
TTCN-3_Compiler_Tests
TTCN3_PART1
Commits
6bfe718e
Commit
6bfe718e
authored
Sep 28, 2015
by
kovacsa
Browse files
Sem_predefined_functions_071
parent
6a623d4a
Changes
119
Hide whitespace changes
Inline
Side-by-side
ATS/06_types_and_values/0601_basic_types_and_values/060101_basic_string_types_and_values/060101_toplevel/Sem_060101_TopLevel_007.ttcn
View file @
6bfe718e
...
...
@@ -29,11 +29,12 @@ module Sem_060101_TopLevel_007 {
if
(
match
(
v_a
,
"A"
)
and
match
(
v_b
,
"ű"
)
and
match
(
v_c
,
"A"
)
and
match
(
v_d
,
"űA"
)
){
setverdict
(
pass
,
"v_a:"
,
v_a
,
", v_b:"
,
v_b
,
", v_c:"
,
v_c
,
", v_d:"
,
v_d
);
match
(
v_d
,
"űA"
))
{
setverdict
(
pass
,
"v_a:"
,
v_a
,
"v_b:"
,
v_b
,
"v_c:"
,
v_c
,
"v_d:"
,
v_d
);
}
else
{
setverdict
(
fail
,
"v_a:"
,
v_a
,
",
v_b:"
,
v_b
,
",
v_c:"
,
v_c
,
"
,
v_d:"
,
v_d
);
setverdict
(
fail
,
"v_a:"
,
v_a
,
"
v_b:"
,
v_b
,
"
v_c:"
,
v_c
,
"v_d:"
,
v_d
);
}
}
...
...
ATS/07_expressions/0701_operators/070101_arithmetic_operators/
Neg
Sem_070101_ArithmeticOperators_0
05
.ttcn
→
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_0
27
.ttcn
View file @
6bfe718e
/*****************************************************************
** @author STF 47
0
** @author STF 4
8
7
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can
not
handle special float values
** @verdict pass
reject
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass
accept, ttcn3verdict:pass
*****************************************************************/
module
Neg
Sem_070101_ArithmeticOperators_0
05
{
module
Sem_070101_ArithmeticOperators_0
27
{
type
component
GeneralComp
{
}
testcase
TC_
Neg
Sem_070101_ArithmeticOperators_0
05
()
runs
on
GeneralComp
{
testcase
TC_Sem_070101_ArithmeticOperators_0
27
()
runs
on
GeneralComp
{
var
float
v_i
:=
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
*
v_k
;
// arithmetic operator with infinity
is not allowed
var
float
v_result
:=
v_i
+
v_k
;
//
"+"
arithmetic operator with infinity
setverdict
(
pass
);
if
(
v_result
==
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_
Neg
Sem_070101_ArithmeticOperators_0
05
());
execute
(
TC_Sem_070101_ArithmeticOperators_0
27
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_028.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_028
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_028
()
runs
on
GeneralComp
{
var
float
v_i
:=
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
-
v_k
;
// "-" arithmetic operator with infinity
if
(
v_result
==
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_028
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_029.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_029
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_029
()
runs
on
GeneralComp
{
var
float
v_i
:=
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
*
v_k
;
// "*" arithmetic operator with infinity
if
(
v_result
==
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_029
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_030.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_030
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_030
()
runs
on
GeneralComp
{
var
float
v_i
:=
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
/
v_k
;
// "/" arithmetic operator with infinity
if
(
v_result
==
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_030
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_031.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_031
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_031
()
runs
on
GeneralComp
{
var
float
v_i
:=
-
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
+
v_k
;
// "+" arithmetic operator with -infinity
if
(
v_result
==
-
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_031
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_032.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_032
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_032
()
runs
on
GeneralComp
{
var
float
v_i
:=
-
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
-
v_k
;
// "-" arithmetic operator with -infinity
if
(
v_result
==
-
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_032
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_033.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_033
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_033
()
runs
on
GeneralComp
{
var
float
v_i
:=
-
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
*
v_k
;
// "*" arithmetic operator with -infinity
if
(
v_result
==
-
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_033
());
}
}
\ No newline at end of file
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_034.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_034
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_034
()
runs
on
GeneralComp
{
var
float
v_i
:=
-
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
/
v_k
;
// "/" arithmetic operator with -infinity
if
(
v_result
==
-
infinity
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_034
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/
Neg
Sem_070101_ArithmeticOperators_0
07
.ttcn
→
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_0
35
.ttcn
View file @
6bfe718e
/*****************************************************************
** @author STF 47
0
** @author STF 4
8
7
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can
not
handle special float values
** @verdict pass
reject
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass
accept, ttcn3verdict:pass
*****************************************************************/
module
Neg
Sem_070101_ArithmeticOperators_0
07
{
module
Sem_070101_ArithmeticOperators_0
35
{
type
component
GeneralComp
{
}
testcase
TC_
Neg
Sem_070101_ArithmeticOperators_0
07
()
runs
on
GeneralComp
{
testcase
TC_Sem_070101_ArithmeticOperators_0
35
()
runs
on
GeneralComp
{
var
float
v_i
:=
not_a_number
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
*
v_k
;
// arithmetic operator with NaN
is not allowed
var
float
v_result
:=
v_i
+
v_k
;
//
"+"
arithmetic operator with NaN
setverdict
(
pass
);
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_
Neg
Sem_070101_ArithmeticOperators_0
07
());
execute
(
TC_Sem_070101_ArithmeticOperators_0
35
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_036.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_036
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_036
()
runs
on
GeneralComp
{
var
float
v_i
:=
not_a_number
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
-
v_k
;
// "-" arithmetic operator with NaN
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_036
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_037.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_037
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_037
()
runs
on
GeneralComp
{
var
float
v_i
:=
not_a_number
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
*
v_k
;
// "*" arithmetic operator with NaN
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_037
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_038.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_038
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_038
()
runs
on
GeneralComp
{
var
float
v_i
:=
not_a_number
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_i
/
v_k
;
// "/" arithmetic operator with NaN
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_038
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_039.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_039
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_039
()
runs
on
GeneralComp
{
var
float
v_i
:=
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_k
/
v_i
;
// Infinity special float as denominator
if
(
v_result
==
0.0
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_039
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_040.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_040
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_040
()
runs
on
GeneralComp
{
var
float
v_i
:=
-
infinity
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_k
/
v_i
;
// -Infinity special float as denominator
if
(
v_result
==
0.0
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_040
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_041.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_041
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_041
()
runs
on
GeneralComp
{
var
float
v_i
:=
not_a_number
;
var
float
v_k
:=
2.0E0
;
var
float
v_result
:=
v_k
/
v_i
;
// NaN special float as denominator
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_041
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_042.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_042
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_042
()
runs
on
GeneralComp
{
var
float
v_i
:=
not_a_number
;
var
float
v_k
:=
not_a_number
;
var
float
v_result
:=
v_k
/
v_i
;
// NaN special float as nominator and denominator
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_042
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_043.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_043
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_043
()
runs
on
GeneralComp
{
var
float
v_i
:=
infinity
;
var
float
v_k
:=
infinity
;
var
float
v_result
:=
v_k
/
v_i
;
// infinity special float as nominator and denominator
if
(
v_result
==
not_a_number
)
{
setverdict
(
pass
,
"match"
)
}
else
{
setverdict
(
fail
,
v_result
)
}
}
control
{
execute
(
TC_Sem_070101_ArithmeticOperators_043
());
}
}
ATS/07_expressions/0701_operators/070101_arithmetic_operators/Sem_070101_ArithmeticOperators_044.ttcn
0 → 100644
View file @
6bfe718e
/*****************************************************************
** @author STF 487
** @version 0.0.1
** @purpose 1:7.1.1, Ensure that arithmetic operators can handle special float values
** @verdict pass accept, ttcn3verdict:pass
*****************************************************************/
module
Sem_070101_ArithmeticOperators_044
{
type
component
GeneralComp
{
}
testcase
TC_Sem_070101_ArithmeticOperators_044
()
runs
on
GeneralComp
{
var
float
v_i
:=
-
infinity
;
var
float
v_k
:=
-
infinity
;