11 lines
373 B
Clojure
11 lines
373 B
Clojure
(ns simulated-genetics.core-test
|
|
(:require [clojure.test :refer :all]
|
|
[cc.journeyman.simulated-genetics.genome :refer :all]))
|
|
|
|
(deftest clone-test
|
|
(testing "All bits should come from one or other parent. If parent genomes
|
|
are identical, the offspring is a clone."
|
|
(let [g (rand-genome)
|
|
c (create-genome g g)]
|
|
(is (= c g)))))
|