From fc18e6363dcb0befca0088a66284b05979ee3036 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Tue, 9 Sep 2014 21:30:27 +0100 Subject: Create initial test and implementation --- src/microformats/core.clj | 6 ------ src/microformats/parser.clj | 6 ++++++ test/microformats/core_test.clj | 7 ------- test/microformats/parser_test.clj | 8 ++++++++ 4 files changed, 14 insertions(+), 13 deletions(-) delete mode 100644 src/microformats/core.clj create mode 100644 src/microformats/parser.clj delete mode 100644 test/microformats/core_test.clj create mode 100644 test/microformats/parser_test.clj diff --git a/src/microformats/core.clj b/src/microformats/core.clj deleted file mode 100644 index 512e790..0000000 --- a/src/microformats/core.clj +++ /dev/null @@ -1,6 +0,0 @@ -(ns microformats.core) - -(defn foo - "I don't do a whole lot." - [x] - (println x "Hello, World!")) diff --git a/src/microformats/parser.clj b/src/microformats/parser.clj new file mode 100644 index 0000000..c741549 --- /dev/null +++ b/src/microformats/parser.clj @@ -0,0 +1,6 @@ +(ns microformats.parser) + +(defn parse + "Parse a HTML string with microformats" + [html] + {:items [] :rels {}}) diff --git a/test/microformats/core_test.clj b/test/microformats/core_test.clj deleted file mode 100644 index ff74349..0000000 --- a/test/microformats/core_test.clj +++ /dev/null @@ -1,7 +0,0 @@ -(ns microformats.core-test - (:require [clojure.test :refer :all] - [microformats.core :refer :all])) - -(deftest a-test - (testing "FIXME, I fail." - (is (= 0 1)))) diff --git a/test/microformats/parser_test.clj b/test/microformats/parser_test.clj new file mode 100644 index 0000000..5bdf9ad --- /dev/null +++ b/test/microformats/parser_test.clj @@ -0,0 +1,8 @@ +(ns microformats.parser-test + (:require [clojure.test :refer :all] + [microformats.core :refer :all])) + +(deftest empty-document + (testing "Empty HTML document should return an empty 'items' array and 'rels' hash." + (is (= {:items [] :rels {}} + (parse ""))))) -- cgit 1.4.1