diff --git a/src/modules/spider/testsuite.in b/src/modules/spider/testsuite.in
index ea0f30e38a6232e38339483e1ee418ed3d952d23..e439650782f81a5391a932439e5c773b91f24a4a 100644
--- a/src/modules/spider/testsuite.in
+++ b/src/modules/spider/testsuite.in
@@ -1,3 +1,4 @@
+test_true(objectp(spider))
 dnl fcgi_create_listen_socket
 dnl _lock
 dnl _unlock
@@ -58,6 +59,11 @@ dnl _num_mappings
 cond([[all_constants()->_num_mappings]],[[test_true(intp(_num_mappings()))]])
 dnl _dump_obj_table
 dnl parse_html
+test_eq([[parse_html("f<bar>o", ([ "bar":lambda(){return "o";} ]), ([]))]], "foo")
+test_eq([[parse_html("f<bar>o", ([ "bar":lambda(){return 0;} ]), ([]))]], "f<bar>o")
+test_eq([[parse_html("f<\nbar\rt\"a b\"=\no>o", ([ "bar":lambda(string s, mapping(string:string) attr){return attr["ta b"];} ]), ([]))]], "foo")
+test_eq([[parse_html("f<bar>g</bar>o", ([]), ([ "bar":lambda(){return "o";}]))]], "foo")
+test_eq([[parse_html("f<\nbar\rt\"a b\"=\no>g<\n/bar\r>o", ([]), ([ "bar":lambda(string s, mapping(string:string) attr, string g){return g=="g"?attr["ta b"]:"-";}]))]], "foo")
 dnl real_perror
 dnl openlog
 dnl syslog