tcl_tests: Fix pkcs8 test (showing public key)

diff --git a/tcl_tests/pkcs8.try b/tcl_tests/pkcs8.try
index ce742c7bd896465a4156cfbbae1ee5b8f6493134..d40c6123de8958c02a16eb7411a5102a7e0e0ea2 100644 (file)
--- a/tcl_tests/pkcs8.try
+++ b/tcl_tests/pkcs8.try
@@ -12,6 +12,9 @@ UeoKl5svrvYuMriHeAQvuSIvjAg5fnk=
 test "Печатаем эталонный ключ gost2001" {
        set etalon [openssl [list pkey -text -noout << $key]]
 } 0 "Private key: 499F36A98A6EE9142351EA0A979B2FAEF62E32B88778042FB9222F8C08397E79
+Public key:
+   X:3A5EB29A20FAB84B58ADECB6F27EBAF2F21FE12122A5B1CF0ACEDD52756F238E
+   Y:D2CB63A5699267CDA88FABA9E417C5931FA106B07D6853D9B70BACB4E592A6CC
 Parameter set: id-GostR3410-2001-CryptoPro-A-ParamSet
 "
 
@@ -99,6 +102,9 @@ GCo/srftX/HPs2AmcFKffF3/RWokTAKxMcM=
 test "Печатаем эталонный ключ gost2012_256" {
        set etalon256 [openssl [list pkey -text -noout << $key256]]
 } 0 "Private key: 2BF7B32B8679182A3FB2B7ED5FF1CFB3602670529F7C5DFF456A244C02B131C3
+Public key:
+   X:AEE47DB40193567F54626017CD98EC2FA1BD72CC2F73F7D0D517C61F1F83F3C8
+   Y:3AED4E504E0E470F0C1DEE399A440A791C45C42539E56F9AECCB63ABF3FC2F1F
 Parameter set: id-GostR3410-2001-CryptoPro-A-ParamSet
 "
 
@@ -139,6 +145,9 @@ save_env2 {CRYPT_PARAMS GOST_PBE_HMAC}
 test "Печатаем эталонный ключ gost2012_512" {
        set etalon512 [openssl [list pkey -text -noout << $key512]]
 } 0 "Private key: 8828C5DABC0E99BE58C0D9F239BBDEBAC0833BE930DF78C18A34AB3E2C9ED79E443B8001CF6686F121CE4CE6D5BF874582D7D983BC02B8E64DDC3E91481C8524
+Public key:
+   X:C9303D4DF7601366C35F1F79B735257FFBBABBBAF80AA89C52C385A4BF2FFBE922CDDD2C96842D3BFBB0BA06F00A3A92D5304386EEFA0F711C7AD9C360513DC
+   Y:12A3A22F5C29640628DB2676FF922429D67D646F8D73EA2C9675B17E3183B300B9D726930CBBD45CF294242DAE07E54C25ED12D5A4D453CB82D4706B1CF2D7B8
 Parameter set: GOST R 34.10-2012 (512 bit) ParamSet A
 "