html: adding some tests

diff --git a/basis/html/html-tests.factor b/basis/html/html-tests.factor
new file mode 100644 (file)
index 0000000..023f623
--- /dev/null
+++ b/basis/html/html-tests.factor
@@ -0,0 +1,18 @@
+
+USING: html multiline tools.test xml.writer ;
+
+{
+    [=[ <a href="https://en.wikipedia.org/wiki/Minor_%28linear_algebra%29">minor on Wikipedia</a>]=]
+} [
+    "minor on Wikipedia"
+    "https://en.wikipedia.org/wiki/Minor_(linear_algebra)"
+    simple-link xml>string
+] unit-test
+
+{
+    [=[ <a href="https://en.wikipedia.org/wiki/Minor_%28linear_algebra%29">minor on Wikipedia</a>]=]
+} [
+    "minor on Wikipedia"
+    "https://en.wikipedia.org/wiki/Minor_%28linear_algebra%29"
+    simple-link xml>string
+] unit-test