From 5bbc983e7d92d4d21f0731f8bd378db155693f0f Mon Sep 17 00:00:00 2001
From: Rhodri James <rhodri@kynesim.co.uk>
Date: Tue, 20 Jun 2017 14:15:38 +0100
Subject: [PATCH] Test overly brief doctype is rejected

---
 expat/tests/runtests.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/expat/tests/runtests.c b/expat/tests/runtests.c
index a8af6920..bf07eb61 100644
--- a/expat/tests/runtests.c
+++ b/expat/tests/runtests.c
@@ -6695,6 +6695,17 @@ START_TEST(test_entity_public_utf16_le)
 }
 END_TEST
 
+/* Test that a doctype with neither an internal nor external subset is
+ * faulted
+ */
+START_TEST(test_short_doctype)
+{
+    const char *text = "<!DOCTYPE doc></doc>";
+    expect_failure(text, XML_ERROR_INVALID_TOKEN,
+                   "DOCTYPE without subset not rejected");
+}
+END_TEST
+
 /*
  * Namespaces tests.
  */
@@ -12178,6 +12189,7 @@ make_suite(void)
     tcase_add_test(tc_basic, test_entity_in_utf16_le_attr);
     tcase_add_test(tc_basic, test_entity_public_utf16_be);
     tcase_add_test(tc_basic, test_entity_public_utf16_le);
+    tcase_add_test(tc_basic, test_short_doctype);
 
     suite_add_tcase(s, tc_namespace);
     tcase_add_checked_fixture(tc_namespace,