 
 (deftest server-messaging-test []
   (try
-    (sc/boot)
+    (boot)
     (groups-test)
     (node-tree-test)
     (finally 
-      (sc/quit))))
+      (quit))))

     clojure.test
     clojure.contrib.seq-utils
     clj-backtrace.repl
     overtone.utils)
  (:require 
     [overtone.sc :as sc]
     [overtone.log :as log]))

(def ditty-notes [50 50 57 50 48 62 62 50])

         durs durs
         t (now)]
    (when (and notes durs)
      (hit t inst :pitch (first notes) :dur (first durs))
      (recur (next notes) (next durs) (+ t (first durs))))))

(deftest boot-test []
  (try 
    (boot)
    (is (not (nil? @server*)))
    (is (= 1 (:n-groups (status))))
    (play "sin" ditty-notes ditty-durs)
    (Thread/sleep 3000)
    (finally 
      (quit))))

(defn groups-test []
  (group :head DEFAULT-GROUP)
  (group :head DEFAULT-GROUP)
  (group :head DEFAULT-GROUP)
  (is (= 4 (:n-groups (status)))))

(defn node-tree-test []
  (reset)
  (group :head 0)
  (group :tail 0)
  (hit :sin :dur 10000 :target 2)
  ;(is (= 1 (:n-synths (status))))
  )

; These are what the responses look like for a queryTree msg.  The first
; without and the second with control information.
