Index: openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl 25 Feb 2021 12:24:40 -0000 1.1.2.6
+++ openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl 31 Mar 2023 13:04:17 -0000 1.1.2.7
@@ -7,6 +7,76 @@
}
aa_register_case -procs {
+ static_portlet::show
+ static_admin_portlet::show
+} -cats {
+ api
+} render_portlet {
+ Test portlet rendering
+} {
+ set user_info [acs::test::user::create]
+ set portal_user_id [dict get $user_info user_id]
+
+ aa_run_with_teardown -rollback -test_code {
+
+ set content "
My name Jeff
"
+ set content_package_id 0
+ set content_pretty_name "foo"
+ set content_format "text/html"
+ set content_id [static_portal_content::new \
+ -package_id $content_package_id \
+ -content $content \
+ -pretty_name $content_pretty_name \
+ -format $content_format]
+
+ set cf [list \
+ content_id $content_id \
+ shaded_p false \
+ ]
+
+ aa_section static_admin_portlet
+
+ set portlet [acs_sc::invoke \
+ -contract portal_datasource \
+ -operation Show \
+ -impl static_admin_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_section static_portlet
+
+ set portlet [acs_sc::invoke \
+ -contract portal_datasource \
+ -operation Show \
+ -impl static_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 contains our text" {
+ [string first $content $portlet] >= 0
+ }
+
+ } -teardown_code {
+ if {[info exists portal_user_id]} {
+ acs::test::user::delete -user_id $portal_user_id
+ }
+ }
+}
+
+
+aa_register_case -procs {
static_admin_portlet::link
static_portlet::link
static_portlet::get_pretty_name