gistfile1.clj

(ns scratch.core
  (:use midje.sweet
        [clojure.set :only [union intersection]]
        ))

(unfinished booking-transaction bookings)

(defn empty-history []
  [ [] ])

(defn bookings [history]
  (last history))


(defn booking-transaction [history booking]
  (conj history (conj (bookings history) booking)))

;.;. Achievement is its own reward. -- David Lynch
(facts "about the insert-animal transaction"
  "inserting an animal into the empty database adds that animal"
  (bookings (empty-history)) => []
  (let [new-history (booking-transaction (empty-history) [...animal...])]
    (bookings new-history) => [ [...animal...] ]
    (let [newer-history (booking-transaction new-history [...fred... ...betsy...])]
      (bookings newer-history) => [ [...animal...] [...fred... ...betsy...] ])))