Test almost working. TODO: format-message