lang::test::assert_browser_locale (private)

 lang::test::assert_browser_locale accept_language expect_locale

Defined in packages/acs-lang/tcl/test/acs-lang-test-procs.tcl

Assert that with given accept language header lang::conn::browser_locale returns the expected locale.

Parameters:
accept_language
expect_locale
Author:
Peter Marklund

Partial Call Graph (max 5 caller/called nodes):
%3 test_locale__test_lang_conn_browser_locale locale__test_lang_conn_browser_locale (test acs-lang) lang::test::assert_browser_locale lang::test::assert_browser_locale test_locale__test_lang_conn_browser_locale->lang::test::assert_browser_locale aa_equals aa_equals (public) lang::test::assert_browser_locale->aa_equals lang::conn::browser_locale lang::conn::browser_locale (private) lang::test::assert_browser_locale->lang::conn::browser_locale

Testcases:
locale__test_lang_conn_browser_locale
Source code:
    ns_set update [ns_conn headers] "Accept-Language" $accept_language
    set browser_locale [lang::conn::browser_locale]
    aa_equals "accept-language header \"$accept_language\"" $browser_locale $expect_locale
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: