Index: openacs-4/packages/acs-lang/www/admin/test/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/test.tcl,v
diff -u -N
--- openacs-4/packages/acs-lang/www/admin/test/test.tcl 11 Oct 2019 15:39:15 -0000 1.5.2.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,79 +0,0 @@
-#/packages/lang/www/test.tcl
-ad_page_contract {
-
- Tests procedures in the lang package
-
- @author John Lowry (lowry@ardigita.com)
- @creation-date 29 September 2000
- @cvs-id $Id: test.tcl,v 1.5.2.1 2019/10/11 15:39:15 gustafn Exp $
-} { }
-
-set title "Test lang package"
-set header [ad_header $title]
-# set navbar [ad_context_bar "Test"]
-set footer [ad_footer]
-
-# Test 1 verifies that the message catalog has loaded successfully
-set english [_ en test.English]
-set french [_ fr test.French]
-set spanish [_ es test.Spanish]
-set german [_ de test.German]
-
-#set lang [lang::user::language]
-set lang [ad_get_client_property lang locale]
-if {$lang eq ""} {
- set lang "en"
-}
-
-db_1row lang_get_lang_name "SELECT nls_language as language FROM ad_locales WHERE language = :lang"
-if {$language eq ""} {
- set language English
-}
-
-# Test 2 checks the locale cookie to display in user's preferred language.
-# We cannot embed the tags in the template because they will not get run each time.
-# So we won't see the results of changing the locale cookie immediately.
-set trn_english [ns_adp_parse "English"]
-set trn_french [ns_adp_parse "French"]
-set trn_spanish [ns_adp_parse "Spanish"]
-set trn_german [ns_adp_parse "German"]
-
-# Test 3 checks that the timezone tables are installed
-# Need this data to check that test 4 works
-set tz_sql "SELECT tz as timezone
- ,local_start
- ,local_end
- ,ROUND(timezones.gmt_offset * 24) as utc_offset
- FROM timezone_rules, timezones
- WHERE timezones.tz = 'Europe/Paris'
- and timezone_rules.tz_id = timezones.tz_id
- AND local_start > sysdate - 365
- AND local_end < sysdate + 365
- ORDER BY local_start"
-db_multirow tz_results lang_tz_get_data $tz_sql
-
-# Test 4 checks that we can convert from local time to UTC
-db_1row lang_system_time_select {}
-
-set paris_time [lc_time_utc_to_local $system_time "Europe/Paris"]
-set local_time [lc_time_local_to_utc $paris_time "Europe/Paris"]
-
-
-set tokyo_time [lc_time_utc_to_local $system_time "Asia/Tokyo"]
-set tokyo_utc_time [lc_time_local_to_utc $paris_time "Asia/Tokyo"]
-
-
-# Test 5 checks the localization routines
-set us_number [lc_numeric 123456.789 {} en_US]
-set fr_number [lc_numeric 123456.789 {} fr_FR]
-set us_parse [lc_parse_number 123,456.789 en_US]
-set fr_parse [lc_parse_number "123 456,789" fr_FR]
-set us_time [lc_time_fmt $system_time "%c" en_US]
-set fr_time [lc_time_fmt $system_time "%c" fr_FR]
-
-ad_return_template
-# Local variables:
-# mode: tcl
-# tcl-indent-level: 4
-# indent-tabs-mode: nil
-# End: