                                            (if-not (empty? unequals)
                                              (do
                                                (doseq [[a b] unequals]
-                                                 (println "Unequal:")
                                                  (println "Got:" a)
                                                  (println "Exp:" b))
                                                false)


;;;

(deftest- model-gcis-returns-correct-result
  (are [model initial-ordering result] (letfn [(find-all-unequal [seq-1 seq-2]
                                                 (when-not (and (empty? seq-1)
                                                                (empty? seq-2))
                                                   (let [a (first seq-1),
                                                         b (first seq-2)]
                                                     (if (not= a b)
                                                       (cons [a b]
                                                             (find-all-unequal (rest seq-1) (rest seq-2)))
                                                       (find-all-unequal (rest seq-1) (rest seq-2))))))]

       grandparent-model 32))

(defn test-ns-hook []
  (model-gcis-returns-correct-result)
  (model-gcis-returns-correct-count))

;;;
