From 062fcf6126c71601fa677bfab13bacdab78ec857 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 10 Oct 2014 15:53:30 +0100
Subject: Add function to normalise a URL
---
test/microformats/parser_expectations.clj | 6 ++++++
1 file changed, 6 insertions(+)
(limited to 'test')
diff --git a/test/microformats/parser_expectations.clj b/test/microformats/parser_expectations.clj
index 7344fde..0e72e10 100644
--- a/test/microformats/parser_expectations.clj
+++ b/test/microformats/parser_expectations.clj
@@ -54,6 +54,12 @@
(expect "http://example.com"
(get-base-url (snippet "")))
+(expect "/"
+ (normalise-url (snippet "") "/"))
+
+(expect "http://example.com/"
+ (normalise-url (snippet "") "/"))
+
(expect {:name '("Name")}
(parse-p (snippet "Name
")))
--
cgit 1.4.1