 ;; @@
 
 ;; @@
-(-> fun-generations last ->smallest-ind :genome)
+(def best-genome (-> fun-generations last ->smallest-ind :genome))
+
+best-genome
+;; @@
+
+;; **
+;;; ### Testing Model
+;; **
+
+;; @@
+(require '[clojure.repl :refer [source]])
+
+(source search/config->generations)
+;; @@
+
+;; @@
+(def fun-compute (:computed (search/compute-search fun-config)))
+(keys fun-compute)
+;; @@
+
+;; @@
+(def hopefully-times-four (partial (:test-fn fun-compute) best-genome))
+(hopefully-times-four -10)
 ;; @@
 
 ;; @@

(def fun-generations (search/config->generations fun-config))
;; @@

;; @@
(-> fun-generations first :individuals first)
;; @@

;; @@

;; @@
(println "Individual" schemas/Individual)
(println "Generation" schemas/Generation)
;; @@

;; @@
