     (is (or (= "il gatto rosso si è alzato"
                (morph (first result)))
             (= "il rosso gatto si è alzato"
-               (morph (first result)))))))
+               (morph (first result))))))
+  (log/info (str "ending test: the-red-cat-woke-up")))
             
 ;; tricky tokenization of 'la sua' and 'la loro' as lexemes.
 (deftest parsing

                          expressions))))))

(deftest the-red-cat-woke-up
  (let [result (:parses (first (parse "il gatto rosso si è alzato")))]
    ;; should find at least one structure:
    (is (not (empty? result)))

                          (let [surface (morph expr)
                                parsed (reduce concat (map :parses (parse surface)))]
                            (if (not (empty? parsed))
                              (log/info (str "roundtrip-past:" surface))
                              (log/error (str "parse failed: " surface)))
                            (is (not (empty? parsed)))))
                        expressions))))))
