From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 22 Apr 2014 03:43:04 +0000 (-0700)
Subject: html.entities: add a test to show "&amp".
X-Git-Tag: 0.97~646
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=bcb14d7a22a90dda159350d76da8cdc459fe0428

html.entities: add a test to show "&amp".
---

diff --git a/extra/html/entities/entities-tests.factor b/extra/html/entities/entities-tests.factor
index 5e680f4fd1..a9cdbd1a4d 100644
--- a/extra/html/entities/entities-tests.factor
+++ b/extra/html/entities/entities-tests.factor
@@ -4,6 +4,8 @@ IN: html.entities
 { "&" } [ "&amp;" html-unescape ] unit-test
 { "a" } [ "&#x61" html-unescape ] unit-test
 { "<foo>" } [ "&lt;foo&gt;" html-unescape ] unit-test
+{ "This &that" } [ "This &amp;that" html-unescape ] unit-test
+{ "This &that" } [ "This &ampthat" html-unescape ] unit-test
 
 { "&amp;" } [ "&" html-escape ] unit-test
 { "&lt;foo&gt;" } [ "<foo>" html-escape ] unit-test