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.28 -r1.28.2.1 --- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 9 Sep 2018 18:51:18 -0000 1.28 +++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 14 Mar 2019 14:26:59 -0000 1.28.2.1 @@ -839,24 +839,18 @@ aa_register_case \ - -cats db \ - strange_oracle_problem { - Strange Oracle problem when selecting by language + -cats db \ + -procs { + lang::util::default_locale_from_lang + } default_locale_from_lang { + Check that the retrieval of the deafault locale for a language + is working + } { + set default_locale [lang::util::default_locale_from_lang en] + aa_true "Retrieve the default english locale works fine" {$default_locale eq "en_US"} + } -} { - set language "da " - set locale da_DK - set db_string [db_string select_default_locale { - select locale - from ad_locales - where language = :language - } -default "WRONG"] - - aa_false "Does not return 'WRONG'" [string equal $db_string "WRONG"] -} - - aa_register_case \ -procs { lang::conn::timezone