freeze_emacs.clj

(ns ko.score-test
  (:use midje.sweet)
  (:require [ko.score :refer :all]))

(facts "about `score`"
       (fact
        (read-score) => [])

       (fact
        (read-score
         1.0 [(+ 2 2)]) => [1.0 [4]])
       (fact
        (read-score
         1 [(+ 1 1)
            2]

         3 [(! {:name (:name a-gesture) :spec {:freq 220}})]

         1 [3]) => [1 [2 2]
                    [1 [3]]))