Index: openacs-4/packages/bm-portlet/tcl/test/bm-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/tcl/test/Attic/bm-portlet-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/bm-portlet/tcl/test/bm-portlet-procs.tcl	2 Oct 2020 16:59:20 -0000	1.1.2.3
+++ openacs-4/packages/bm-portlet/tcl/test/bm-portlet-procs.tcl	24 Mar 2023 16:47:02 -0000	1.1.2.4
@@ -7,6 +7,41 @@
 }
 
 aa_register_case -procs {
+    bm_portlet::show
+} -cats {
+    api
+    smoke
+} bm_render_portlet {
+    Test the rendering of the portlet
+} {
+    set package_id [db_string get_any_bm {
+        select max(package_id) from apm_packages
+        where package_key = 'bulk-mail'
+    }]
+
+    set cf [list \
+                package_id $package_id \
+                shaded_p false \
+                scoped_p false \
+               ]
+
+    set portlet [acs_sc::invoke \
+                     -contract portal_datasource \
+                     -operation Show \
+                     -impl bm_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 {
         bm_portlet::link
     } -cats {
         api
@@ -89,6 +124,7 @@
     aa_equals "bm_portlet pretty name" "[bm_portlet::get_pretty_name]" "$pretty_name"
 }
 
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4