Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v diff -u -r1.72 -r1.73 --- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 3 Sep 2024 15:37:34 -0000 1.72 +++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl 24 Oct 2024 15:36:07 -0000 1.73 @@ -779,6 +779,13 @@ [export_vars -base "http://dummywebsite.com/one/two" {{foo a} {bar b}}] \ "http://dummywebsite.com/one/two?foo=a&bar=b" + aa_equals "absolute base URL with query vars + exported vars" \ + [export_vars \ + -no_base_encode \ + -base /absolute/url?param1=one¶m2=two \ + {{exported_param exported}}] \ + "/absolute/url?param1=one¶m2=two&exported_param=exported" + # Test base with query vars set var1 a set var2 {}