diff --git a/src/modules/Parser/testsuite.in b/src/modules/Parser/testsuite.in
index 6eb25c54e2b152fca4c823cbf4045844c0996238..56eaaa827a36452cef6930b0af14037340109e8c 100644
--- a/src/modules/Parser/testsuite.in
+++ b/src/modules/Parser/testsuite.in
@@ -122,6 +122,17 @@ test_any([[
 		    "\'");
   return p->finish ("<t> <!-- <t a='> -- --> <!-<t a='> -->")->read();
 ]], "x [ <t a='> -- ] {<t a=} -->");
+test_any_equal([[
+  object p = Parser.HTML();
+  array a = ({ });
+  p->_set_tag_callback (
+    lambda (object p, string str) {
+      a += ({ p->tag_name() });
+      return 0;
+    });
+  p->finish("<t>x</t>");
+  return a;
+]], ({ "t", "/t" }));
 
 // Current context functions
 test_any([[{