STF538: Certificate generation script (137fb30c) · Commits · ITS - Intelligent Transport Systems / ITS

ttcn/TestCodec/TestCodec_SecuredFuntions.ttcn

+66 −0

Original line number	Original line	Diff line number	Diff line
	@@ -31,6 +31,72 @@ module TestCodec_SecuredFuntions {
	// TestCodec		// TestCodec
	import from TestCodec_TestAndSystem all;		import from TestCodec_TestAndSystem all;

			testcase tc_load_certificates() runs on TCType system TCType {

			if (fx_loadCertificates(PX_CERTIFICATE_POOL_PATH, "Yann") == false) {
			setverdict(fail);
			} else {
			setverdict(pass);
			}
			} // End of testcase tc_load_certificates

			testcase tc_read_certificate_1() runs on TCType system TCType {
			var octetstring v_certificate;

			if (fx_loadCertificates(PX_CERTIFICATE_POOL_PATH, "Yann") == false) {
			setverdict(fail);
			} else {
			setverdict(pass);
			}

			if (fx_readCertificate("CERT_TEST_A_ROOT", v_certificate) == false) {
			setverdict(fail);
			} else {
			log("v_certificate: ", v_certificate);
			setverdict(pass);
			}
			} // End of testcase tc_read_certificates_1

			testcase tc_read_certificate_2() runs on TCType system TCType {
			var octetstring v_certificate;

			if (fx_loadCertificates(PX_CERTIFICATE_POOL_PATH, "Yann") == false) {
			setverdict(fail);
			} else {
			setverdict(pass);
			}

			if (fx_readCertificate("CERT_TEST_A_ROOT", v_certificate) == false) {
			setverdict(fail);
			} else {
			var bitstring v_oct2bit;
			var EtsiTs103097Certificate v_dec_certificate;

			log("v_certificate: ", v_certificate);
			v_oct2bit := oct2bit(v_certificate);
			if (0 == decvalue(v_oct2bit, v_dec_certificate)) {
			log("v_certificate: ", v_dec_certificate);
			setverdict(pass);
			} else {
			setverdict(fail);
			}
			}
			} // End of testcase tc_load_certificates_2

			testcase tc_read_certificate_digest() runs on TCType system TCType {
			if (fx_loadCertificates(PX_CERTIFICATE_POOL_PATH, "Yann") == false) {
			setverdict(fail);
			} else {
			var octetstring v_digest;
			if (fx_readCertificateDigest("CERT_TEST_A_ROOT", v_digest) == false) {
			setverdict(fail);
			} else {
			log("v_digest = ", v_digest);
			setverdict(pass);
			}
			}
			} // End of testcase tc_load_certificates_digest

	testcase tc_sha256_1() runs on TCType system TCType {		testcase tc_sha256_1() runs on TCType system TCType {
	var octetstring v_test := '616263'O;		var octetstring v_test := '616263'O;
	var Oct32 v_exp_hash := 'ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad'O;		var Oct32 v_exp_hash := 'ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad'O;