                           expressions))))))
 
 (deftest the-red-cat-woke-up
+  (log/info (str "starting test: 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)))

    (is (or (= "il gatto rosso si è alzato"
               (morph (first result)))
            (= "il rosso gatto si è alzato"
               (morph (first result)))))))
            
;; tricky tokenization of 'la sua' and 'la loro' as lexemes.
(deftest parsing

                            (let [surface (morph expr)
                                  parsed (reduce concat (map :parses (parse surface)))]
                              (if (not (empty? parsed))
                                (log/info (str "roundtrip-present: " surface))
                                (log/error (str "parse failed: " surface ": italiano:"
                                                (dag_unify.core/strip-refs
                                                 (get-in expr
                                                         [:italiano])))))
                              (is (not (empty? parsed)))))
                          expressions))))))

