note description: "Summary description for {JWT_ALG_TEST}." author: "" date: "$Date$" revision: "$Revision$" class JWT_ALG_TEST inherit JWT_ALG feature -- Access name: STRING = "test" encoded_string (a_message: READABLE_STRING_8; a_secret: READABLE_STRING_8): STRING do Result := "TEST<<"+ a_message + ">>" end end