Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ITS - Intelligent Transport Systems
ITS
Commits
8a3e80ed
Commit
8a3e80ed
authored
Mar 18, 2016
by
garciay
Browse files
STF507 Week#11: Merge GNSS support from C2C branch
parent
7f8ae006
Changes
1
Hide whitespace changes
Inline
Side-by-side
ttcn/AtsCAM/ItsCam_TpFunctions.ttcn
View file @
8a3e80ed
...
...
@@ -14,11 +14,11 @@ module ItsCam_TpFunctions {
import
from
LibCommon_Time
all
;
import
from
LibCommon_BasicTypesAndValues
all
;
// LibItsCommon
import
from
LibItsCommon_Pixits
all
;
// LibIts
import
from
LibItsCommon_Functions
all
;
import
from
LibItsCommon_TypesAndValues
{
type
UtChangePosition
};
import
from
LibItsCommon_TypesAndValues
all
;
import
from
LibItsCam_TestSystem
all
;
import
from
LibItsCam_Functions
all
;
import
from
LibItsCam_Templates
all
;
...
...
@@ -168,7 +168,7 @@ module ItsCam_TpFunctions {
// Test Body
for
(
v_cntSpeed
:=
0
;
v_cntSpeed
<
lengthof
(
v_speedValues
);
v_cntSpeed
:=
v_cntSpeed
+
1
)
{
f_
utTriggerEvent
(
m_
changeSpeed
(
v_speedValues
[
v_cntSpeed
])
)
;
f_changeSpeed
(
v_speedValues
[
v_cntSpeed
]);
v_cntTime
:=
0
;
tc_ac
.
start
;
alt
{
...
...
@@ -320,7 +320,7 @@ module ItsCam_TpFunctions {
// Test Body
for
(
v_cntSpeed
:=
0
;
v_cntSpeed
<
lengthof
(
v_speedValues
);
v_cntSpeed
:=
v_cntSpeed
+
1
)
{
f_
utTriggerEvent
(
m_
changeSpeed
(
v_speedValues
[
v_cntSpeed
])
)
;
f_changeSpeed
(
v_speedValues
[
v_cntSpeed
]);
v_cntTime
:=
0
;
tc_ac
.
start
;
alt
{
...
...
@@ -419,6 +419,7 @@ module ItsCam_TpFunctions {
/**
* @desc TP Function for TC_CAM_MSD_INA_BV_01_01
*/
// TODO yann/ifsttar: why 3601? 0 and 3600 indicates the north!!!!
function
f_CAM_MSD_INA_BV_01_01
()
runs
on
ItsCam
{
// Local variables
...
...
@@ -466,7 +467,7 @@ module ItsCam_TpFunctions {
}
else
{
// TODO Add negative value case
v_curVal
:=
v_camInd
.
msgIn
.
cam
.
camParameters
.
highFrequencyContainer
.
basicVehicleContainerHighFrequency
.
curvature
.
curvatureValue
-
c_curValOffset
;
if
(
valueof
(
v_curVal
)
<
-
30000
)
{
v_curVal
:=
0
;
v_curVal
:=
0
;
// yann/ifsttar TODO It's not a true negative modulus operation
}
}
f_utTriggerEvent
(
m_changeCurvature
(
c_curValOffset
));
...
...
@@ -1597,7 +1598,7 @@ module ItsCam_TpFunctions {
log
(
"*** "
&
testcasename
()
&
": Checking INFO==Heading value ***"
);
// change the heading value to retrieve the current value
f_
utTriggerEvent
(
m_
changeHeading
(
c_headingValOffset
)
)
;
f_changeHeading
(
c_headingValOffset
);
tc_ac
.
start
;
alt
{
...
...
@@ -1612,7 +1613,7 @@ module ItsCam_TpFunctions {
v_initialReceived
:=
true
;
//change again the heading value and set the expectation to the measured value
v_headingVal
:=
(
v_camInd
.
msgIn
.
cam
.
camParameters
.
highFrequencyContainer
.
basicVehicleContainerHighFrequency
.
heading
.
headingValue
+
c_headingValOffset
)
mod
3601
;
f_
utTriggerEvent
(
m_
changeHeading
(
c_headingValOffset
)
)
;
f_changeHeading
(
c_headingValOffset
);
tc_ac
.
start
;
repeat
;
}
...
...
@@ -1660,7 +1661,7 @@ module ItsCam_TpFunctions {
log
(
"*** "
&
testcasename
()
&
": Checking INFO==Speed value ***"
);
// change the speed value to retrieve the current value
f_
utTriggerEvent
(
m_
changeSpeed
(
c_speedValOffset
)
)
;
f_changeSpeed
(
c_speedValOffset
);
tc_ac
.
start
;
alt
{
...
...
@@ -1675,7 +1676,7 @@ module ItsCam_TpFunctions {
v_initialReceived
:=
true
;
//change again the speed value and set the expectation to the measured value
v_speedVal
:=
(
v_camInd
.
msgIn
.
cam
.
camParameters
.
highFrequencyContainer
.
basicVehicleContainerHighFrequency
.
speed
.
speedValue
+
c_speedValOffset
)
mod
16384
;
f_
utTriggerEvent
(
m_
changeSpeed
(
c_speedValOffset
)
)
;
f_changeSpeed
(
c_speedValOffset
);
tc_ac
.
start
;
repeat
;
}
...
...
@@ -1798,7 +1799,8 @@ module ItsCam_TpFunctions {
v_initialReceived
:=
true
;
//change again the yaw rate value and set the expectation to the measured value
v_yawRateVal
:=
v_camInd
.
msgIn
.
cam
.
camParameters
.
highFrequencyContainer
.
basicVehicleContainerHighFrequency
.
yawRate
.
yawRateValue
;
if
(
valueof
(
v_yawRateVal
)
>=
32767
)
{
if
(
valueof
(
v_yawRateVal
)
>=
32767
)
{
// FIXME Yann/ifsttar: quid if we receive -32768
// FIXME if current value is 32760 and offset applied, we shall not expect posiive value
v_yawRateVal
:=
-
32766
;
}
else
{
...
...
@@ -2236,7 +2238,7 @@ module ItsCam_TpFunctions {
}
t_minTransInterval
.
start
;
}
f_
utTriggerEvent
(
m_
changeSpeed
(
v_speedValues
[
v_cntSpeed
])
)
;
f_changeSpeed
(
v_speedValues
[
v_cntSpeed
]);
}
t_minTransInterval
.
stop
;
log
(
"*** "
&
testcasename
()
&
": PASS: Generation of CAM messages was successful ***"
);
...
...
@@ -2403,7 +2405,7 @@ module ItsCam_TpFunctions {
f_selfOrClientSyncAndVerdictPreamble
(
c_prDone
,
e_timeout
);
}
}
f_
utTriggerEvent
(
m_
changeSpeed
(
1000
)
)
;
f_changeSpeed
(
1000
);
tc_ac
.
start
;
alt
{
[]
camPort
.
receive
(
mw_camInd
(
mw_camMsg_any
)){
...
...
@@ -2513,7 +2515,7 @@ module ItsCam_TpFunctions {
f_selfOrClientSyncAndVerdictPreamble
(
c_prDone
,
e_success
);
// Test Body
f_
utTriggerEvent
(
m_
changeHeading
(
v_changeHeadingValue
)
)
;
f_changeHeading
(
v_changeHeadingValue
);
t_genCam_dcc
.
timeout
;
t_genCam_min
.
start
;
alt
{
...
...
@@ -2543,7 +2545,7 @@ module ItsCam_TpFunctions {
timer
t_genCam_dcc
:=
PICS_T_GENCAMDCC
*
0.90
;
var
CamInd
v_camPdu
;
var
ReferencePosition
v_referencePosition
,
v_expectedReferencePosition
;
var
integer
v_changePosValue
:=
8
;
// 8 >> 4m
var
float
v_changePosValue
:=
8
.0
;
// 8 >> 4m
// Test control
if
(
not
PICS_CAM_GENERATION
)
{
...
...
@@ -2577,10 +2579,16 @@ module ItsCam_TpFunctions {
// Test Body
v_expectedReferencePosition
:=
f_computePositionUsingDistance
(
v_referencePosition
,
v_changePosValue
);
f_utChangePosition
(
valueof
(
UtChangePosition
:
{
latitude
:=
v_expectedReferencePosition
.
latitude
-
v_referencePosition
.
latitude
,
longitude
:=
v_expectedReferencePosition
.
longitude
-
v_referencePosition
.
longitude
,
elevation
:=
0
}
)
);
if
(
PICS_GNSS_SCENARIO_SUPPORT
==
false
)
{
f_utChangePosition
(
valueof
(
UtChangePosition
:
{
latitude
:=
v_expectedReferencePosition
.
latitude
-
v_referencePosition
.
latitude
,
longitude
:=
v_expectedReferencePosition
.
longitude
-
v_referencePosition
.
longitude
,
elevation
:=
0
}
));
}
t_genCam_dcc
.
timeout
;
t_genCam_dcc
.
start
;
alt
{
...
...
@@ -2644,7 +2652,7 @@ module ItsCam_TpFunctions {
f_selfOrClientSyncAndVerdictPreamble
(
c_prDone
,
e_success
);
// Test Body
f_
utTriggerEvent
(
m_
changeSpeed
(
v_changeSpeedValue
)
)
;
f_changeSpeed
(
v_changeSpeedValue
);
t_genCam_dcc
.
timeout
;
t_genCam_min
.
start
;
alt
{
...
...
@@ -2706,7 +2714,7 @@ module ItsCam_TpFunctions {
f_selfOrClientSyncAndVerdictPreamble
(
c_prDone
,
e_timeout
);
}
}
f_
utTriggerEvent
(
m_
changeSpeed
(
1000
)
)
;
f_changeSpeed
(
1000
);
tc_ac
.
start
;
alt
{
[]
camPort
.
receive
(
mw_camInd
(
mw_camMsg_any
)){
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment