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.11 -r1.12
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	26 Sep 2003 08:09:07 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	26 Sep 2003 12:00:45 -0000	1.12
@@ -448,4 +448,19 @@
     aa_equals "-no_empty { foo { bar \"\" } }" \
         [export_vars -no_empty { foo { bar "" } }] \
         "foo=1&bar="
+
+    # Test base with query vars
+    set var1 a
+    set var2 {}
+    set base [export_vars -base test-page { foo bar }]
+    set export_no_base [export_vars {var1 var2}]
+    aa_equals "base with query vars" \
+        [export_vars -base $base {var1 var2}] \
+        "$base&$export_no_base"        
+
+    # Test base without query vars
+    set base test-page
+    aa_equals "base without query vars" \
+        [export_vars -base $base {var1 var2}] \
+        "$base?$export_no_base"            
 }