(4 . 13)(4 . 17)
507 with Test_Packing;
508 with Test_RSA_OAEP;
509 with Messages.Test_Serializing;
510 with Raw_Types;
511
512 procedure testall is
513 begin
514 Test_Serpent.Selftest;
515 Test_RSA_OAEP.test_char_array;
516 Test_RSA_OAEP.test_oaep;
517 Test_RSA_OAEP.test_rsa;
518 Test_RSA_OAEP.test_rsa( Raw_Types.RSA_KEY_OCTETS,
519 Raw_Types.RSA_KEY_OCTETS*2, "keys_rsa.txt" );
520 Test_RSA_OAEP.test_rsa( Raw_Types.E_LENGTH_OCTETS*2,
521 Raw_Types.RSA_KEY_OCTETS*2 - 1, "8_keys.txt" );
522 Test_RSA_OAEP.test_rsa_oaep;
523 Test_Packing.Test_Pack_Unpack_Serpent;
524 Test_Packing.Test_Pack_Unpack_RSA;