(7 . 9)(7 . 10)
377 procedure testall is
378 begin
379 Test_Serpent.Selftest;
380 Test_Packing.Test_Pack_Unpack;
381 Test_RSA_OAEP.test_char_array;
382 Test_RSA_OAEP.test_oaep;
383 Test_RSA_OAEP.test_rsa;
384 Test_RSA_OAEP.test_rsa_oaep;
385 Test_Packing.Test_Pack_Unpack_Serpent;
386 Test_Packing.Test_Pack_Unpack_RSA;
387 end testall;