Start validation of AtsPki; Add missing AcSecurity primitive implementation in Facilities

ItsCam_TpFunctions.ttcn

@@ -3178,11 +3178,13 @@ module ItsCam_TpFunctions {
             /**
              * @desc    TP Function for TC_CAM_MSP_SSP_BV_XX
              * @param p_certName Certificate to be used to sign the CAM message
-             * @param p_camMsg   CAM value template to be sent to IUT 
+             * @param p_camMsg   CAM value template to be sent to IUT
+             * @param p_discarded Set to true if the message shallbe discarded
              */
             function f_CAM_MSP_SSP_BV_XX(
                 in charstring p_certName,
-                in template (value) CAM p_camMsg
+                in template (value) CAM p_camMsg,
+                in boolean p_discarded := true
             ) runs on ItsCam {
                 
                 // Local variables
@@ -3222,12 +3224,22 @@ module ItsCam_TpFunctions {
                     // empty on purpose 
                 }
                 if(i < lengthof(vc_utEvents)) {
-                    log("*** " & testcasename() & ": FAIL: CAM was not transmitted to upper layer ***");
-                    f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
+                    if (p_discarded == false) {
+                        log("*** " & testcasename() & ": PASS: CAM was transmitted to upper layer ***");
+                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
+                    } else {
+                        log("*** " & testcasename() & ": FAIL: CAM was not transmitted to upper layer ***");
+                        f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
+                    }
                 }
                 else {
-                    log("*** " & testcasename() & ": PASS: CAM was transmitted to upper layer ***");
-                    f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
+                    if (p_discarded) {
+                        log("*** " & testcasename() & ": PASS: CAM was not transmitted to upper layer ***");
+                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
+                    } else {
+                        log("*** " & testcasename() & ": FAIL: CAM was not transmitted to upper layer ***");
+                        f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
+                    }
                 }
                 
                 // Postamble