Create test & implementation for p-name parsing

1 files changed, 6 insertions, 1 deletions

diff --git a/test/microformats/parser_test.clj b/test/microformats/parser_test.clj
index 5bdf9ad..9720ad2 100644
--- a/test/microformats/parser_test.clj
+++ b/test/microformats/parser_test.clj
@@ -1,8 +1,13 @@
 (ns microformats.parser-test
   (:require [clojure.test :refer :all]
-            [microformats.core :refer :all]))
+            [microformats.parser :refer :all]))
 
 (deftest empty-document
   (testing "Empty HTML document should return an empty 'items' array and 'rels' hash."
     (is (= {:items [] :rels {}}
            (parse "")))))
+
+(deftest parse-p-inner-text
+  (testing "Inner text of a p- property should be parsed")
+  (is (= {:items [{:properties {:name "Example User"}}] :rels {}}
+         (parse "<div class=\"h-card\"><p class=\"p-name\">Example User</p></div>"))))