2
0
Эх сурвалжийг харах

update to pkcs10 cert request test

Ugochukwu Mmaduekwe 3 өдөр өмнө
parent
commit
b997f6923c

+ 5 - 5
CryptoLib.Tests/src/Asn1/Pkcs/Pkcs10CertRequestTests.pas

@@ -212,11 +212,11 @@ begin
   LOrder[3] := TX509Name.ST;
   LOrder[3] := TX509Name.ST;
   LOrder[4] := TX509Name.EmailAddress;
   LOrder[4] := TX509Name.EmailAddress;
   SetLength(LValues, 5);
   SetLength(LValues, 5);
-  LValues[0] := 'AU';
-  LValues[1] := 'The Legion of the Bouncy Castle';
-  LValues[2] := 'Melbourne';
-  LValues[3] := 'Victoria';
-  LValues[4] := 'feedback-crypto@bouncycastle.org';
+  LValues[0] := 'NG';
+  LValues[1] := 'CryptoLib4Pascal';
+  LValues[2] := 'Alausa';
+  LValues[3] := 'Lagos';
+  LValues[4] := 'feedback-crypto@cryptolib4pascal.org';
   LSubject := TX509Name.Create(LOrder, LValues);
   LSubject := TX509Name.Create(LOrder, LValues);
 
 
   LName1 := TGeneralName.Create(TGeneralName.DnsName, 'bc1.local');
   LName1 := TGeneralName.Create(TGeneralName.DnsName, 'bc1.local');