Index: openacs-4/packages/forums-portlet/tcl/test/forums-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/tcl/test/forums-portlet-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/forums-portlet/tcl/test/forums-portlet-procs.tcl	30 Mar 2023 16:09:18 -0000	1.1.2.4
+++ openacs-4/packages/forums-portlet/tcl/test/forums-portlet-procs.tcl	30 Mar 2023 16:11:54 -0000	1.1.2.5
@@ -7,6 +7,45 @@
 }
 
 aa_register_case -procs {
+    forums_admin_portlet::show
+    forums_portlet::show
+} -cats {
+    api
+    smoke
+} render_portlet {
+    Test the rendering of the portlets
+} {
+    aa_run_with_teardown -rollback -test_code {
+        set package_id [site_node::instantiate_and_mount \
+                            -package_key forums \
+                            -node_name __test_forums_portlet]
+
+        set cf [list \
+                    package_id $package_id \
+                    shaded_p false \
+                   ]
+
+        foreach portlet {forums_admin_portlet forums_portlet} {
+            aa_section $portlet
+
+            set portlet [acs_sc::invoke \
+                             -contract portal_datasource \
+                             -operation Show \
+                             -impl $portlet \
+                             -call_args [list $cf]]
+
+            aa_log "Portlet returns: [ns_quotehtml $portlet]"
+
+            aa_false "No error was returned" {
+                [string first "Error in include template" $portlet] >= 0
+            }
+
+            aa_true "Portlet looks like HTML" [ad_looks_like_html_p $portlet]
+        }
+    }
+}
+
+aa_register_case -procs {
         forums_admin_portlet::link
         forums_portlet::link
         forums_admin_portlet::get_pretty_name