Ugochukwu Mmaduekwe 6 лет назад
Родитель
Сommit
d2ec04908f
1 измененных файлов с 10 добавлено и 7 удалено
  1. 10 7
      CryptoLib.Tests/src/Asn1/Asn1IntegerTests.pas

+ 10 - 7
CryptoLib.Tests/src/Asn1/Asn1IntegerTests.pas

@@ -333,7 +333,7 @@ begin
 
   try
 
-    TDerInteger.Create(rawInt);
+    i := TDerInteger.Create(rawInt);
 
   except
     on e: EArgumentCryptoLibException do
@@ -346,6 +346,9 @@ begin
 end;
 
 procedure TTestAsn1Integer.TestAsn1Integer;
+var
+  i: IDerInteger;
+  en: IDerEnumerated;
 begin
   SetAllowUnsafeProperty(true);
 
@@ -365,11 +368,11 @@ begin
 
   SetAllowUnsafeProperty(true);
 
-  TDerInteger.Create
+  i := TDerInteger.Create
     (DecodeHex
     ('ffda47bfc776bcd269da4832626ac332adfca6dd835e8ecd83cd1ebe7d709b0e'));
 
-  TDerEnumerated.Create
+  en := TDerEnumerated.Create
     (DecodeHex
     ('005a47bfc776bcd269da4832626ac332adfca6dd835e8ecd83cd1ebe7d709b0e'));
 
@@ -377,7 +380,7 @@ begin
 
   try
 
-    TDerInteger.Create
+    i := TDerInteger.Create
       (DecodeHex
       ('ffda47bfc776bcd269da4832626ac332adfca6dd835e8ecd83cd1ebe7d709b'));
 
@@ -407,7 +410,7 @@ begin
 
   try
 
-    TDerInteger.Create
+    i := TDerInteger.Create
       (DecodeHex
       ('ffda47bfc776bcd269da4832626ac332adfca6dd835e8ecd83cd1ebe7d709b0e'));
 
@@ -423,7 +426,7 @@ begin
 
   try
 
-    TDerEnumerated.Create
+    en := TDerEnumerated.Create
       (DecodeHex
       ('ffda47bfc776bcd269da4832626ac332adfca6dd835e8ecd83cd1ebe7d709b0e'));
 
@@ -439,7 +442,7 @@ begin
 
   try
 
-    TDerEnumerated.Create
+    en := TDerEnumerated.Create
       (DecodeHex
       ('005a47bfc776bcd269da4832626ac332adfca6dd835e8ecd83cd1ebe7d709b0e'));