Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	4 Apr 2003 09:47:43 -0000	1.2
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	14 Aug 2003 09:50:34 -0000	1.3
@@ -15,4 +15,15 @@
     } {
         return "[acs_package_root_dir acs-lang]/tcl/test"
     }
+
+    ad_proc assert_browser_locale {accept_language expect_locale} {
+        Assert that with given accept language header lang::conn::browser_locale returns
+        the expected locale.
+
+        @author Peter Marklund
+    } {
+        ns_set update [ns_conn headers] "Accept-Language" $accept_language
+        set browser_locale [lang::conn::browser_locale]
+        aa_equals "Checking return value of lang::conn::browser_locale " $browser_locale $expect_locale
+    }
 }