note description : "Objects that ..." author: "$Author$" date: "$Date$" revision: "$Revision$" class SPEC_TESTING_SETTINGS inherit TESTING_SETTINGS redefine is_trusted end feature -- Storage host: STRING once if attached json_configuration.item ("database.odbc.host") as l_host and then not l_host.is_empty then Result := l_host else Result := "localhost" end end database_name: STRING once if attached json_configuration.item ("database.odbc.name") as l_host and then not l_host.is_empty then Result := l_host else Result := "test" end end user_login: STRING once if attached json_configuration.item ("database.odbc.administrative_user") as l_user and then not l_user.is_empty then Result := l_user else Result := "root" end end user_password: STRING once if attached json_configuration.item ("database.odbc.administrative_user_passwd") as l_p and then not l_p.is_empty then Result := l_p else Result := "" end end is_trusted: BOOLEAN -- Is connection structed? once if attached json_configuration.item ("database.odbc.trusted") as l_p and then l_p.is_boolean then Result := l_p.to_boolean end end feature -- Query is_mysql: BOOLEAN = False is_odbc: BOOLEAN = True is_oracle: BOOLEAN = False is_sybase: BOOLEAN = False end