gistfile1.clj

(ns chat.user
  (:use [clojure.test] [clojure.contrib.def]))

(defvar- users (agent {}))

(defn create
  [user-name]
  (let [new-user (agent {:user-name user-name})]
    (send users conj {user-name new-user})
    new-user))

;TODO: replace prinln sideffect with write to netty channel
(defn- do-write
  [user message]
  (do
    (println "User: " (user :user-name) " Received: [" message "]")
    user))

(defn write
  [user message]
  (send user do-write message))

(deftest- test-create
  (is (= 0 (count @users)))
  (create "Jonas")
  (await-for 100 users)
  (is (= 1 (count @users))))

;(run-tests 'chat.user)