         trimmed-render (minimize-ws rendered)]
     (is (= trimmed-render trimmed-expected))))
 
-#_ (defview ^{:custom :bit-of-meta-data} simple-view
+(defview ^{:custom :bit-of-meta-data} simple-view
   [env]
   :p [(env :message)])
 
-#_ (deftest simple-defview
+(deftest simple-defview
   (render-test simple-view "simple-defview" {:message "Embedded Template"}))
 
-#_ (deftest meta-data
+(deftest meta-data
   (let [md (meta #'simple-view)]
     (is (= (md :name) 'simple-view) "standard meta-data")
     (is (= (md :custom) :bit-of-meta-data) "added meta-data")))
 
-#_ (defview attributes-view
-  [message]
+(defview attributes-view
+  [env]
   :p {:id "outer"} [
   :em {:id (env :inner)} [
     (env :message)

    [clojure [test :only (is are deftest)] pprint]
    [clojure.contrib [duck-streams :only [slurp*]]]))

#_ (defn render [dom]
  (let [writer (CharArrayWriter.)]
    (render-html dom writer)
    (.toString writer)))

#_ (defn minimize-ws [string]
  (.replaceAll string "\\s+" " "))

#_ (defn find-classpath-resource [path]
  (.. Thread currentThread getContextClassLoader (getResourceAsStream path)))

#_ (defn render-test
  [view-fn name & rest]
  (let [input-path (str "expected/" name ".txt")
        expected (slurp* (find-classpath-resource input-path))

  (env :copyright)
  ])

(deftest attribute-rendering
  (render-test attributes-view "attribute-rendering" {:message "Nested Text"
                                                      :copyright "(c) 2009 HLS"
                                                      :inner "frotz"}))

(defview special-attribute-values-view []
  :p {:class :foo :height 0 :skipped nil} ["some text"])

(deftest special-attribute-values
  (render-test special-attribute-values-view "special-attribute-values"))

(defn fetch-accounts []
  [{:name "Dewey" :id 595}
   {:name "Cheatum" :id 1234}
   {:name "Howe" :id 4328}])

(defview list-accounts
  []
  :html [
  :head [:title ["List Accounts"]]
