(defmethod report-on ((result test-result) (report minimal))
  (format (output report) "~{~A~^ :: ~}"
          (remove nil
                  (list 'constantia
                        (and (boundp '*parent*) *parent* (name (expression *parent*)))
                        (name (expression result))))))