Test Doctype marked SYSTEM but with no ID is rejected

diff --git a/expat/tests/runtests.c b/expat/tests/runtests.c
index 91a9cd6ee226aacf6f75a0e7b7748854b5fdf13e..381b0648f6bb2002de59e4de409b8cd9a8b69ae7 100644 (file)
--- a/expat/tests/runtests.c
+++ b/expat/tests/runtests.c
@@ -6714,6 +6714,14 @@ START_TEST(test_short_doctype_2)
 }
 END_TEST
 
+START_TEST(test_short_doctype_3)
+{
+    const char *text = "<!DOCTYPE doc SYSTEM></doc>";
+    expect_failure(text, XML_ERROR_SYNTAX,
+                   "DOCTYPE without System ID not rejected");
+}
+END_TEST
+
 /*
  * Namespaces tests.
  */
@@ -12199,6 +12207,7 @@ make_suite(void)
     tcase_add_test(tc_basic, test_entity_public_utf16_le);
     tcase_add_test(tc_basic, test_short_doctype);
     tcase_add_test(tc_basic, test_short_doctype_2);
+    tcase_add_test(tc_basic, test_short_doctype_3);
 
     suite_add_tcase(s, tc_namespace);
     tcase_add_checked_fixture(tc_namespace,