Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added basic test

  • Loading branch information...
commit df34d2fbb8be239528fa0d9fa81b6b5e1bdbf4b0 1 parent 66910d9
@weavejester authored
Showing with 10 additions and 3 deletions.
  1. +10 −3 test/crouton/test/html.clj
View
13 test/crouton/test/html.clj
@@ -2,6 +2,13 @@
(:use clojure.test
crouton.html))
-(deftest a-test
- (testing "FIXME, I fail."
- (is (= 0 1))))
+(defn- string-stream [s]
+ (java.io.ByteArrayInputStream. (.getBytes s)))
+
+(deftest test-parse
+ (testing "Basic parsing"
+ (is (= (parse (string-stream "<html><head></head><body></body>"))
+ {:tag :html
+ :attrs nil
+ :content [{:tag :head :attrs nil :content nil}
+ {:tag :body :attrs nil :content nil}]}))))
Please sign in to comment.
Something went wrong with that request. Please try again.