Index: openacs-4/packages/acs-lang/www/admin/test/index.html =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/index.html,v diff -u -N -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-lang/www/admin/test/index.html 7 Aug 2017 23:47:57 -0000 1.3 +++ openacs-4/packages/acs-lang/www/admin/test/index.html 29 Jul 2020 11:27:02 -0000 1.3.2.1 @@ -12,8 +12,6 @@
-
- - -Test 3 -
-Verify that data required to convert from local times for Europe/Paris into Universal Time -is loaded into the database. -
-
Timezone | Start date | End date | UTC offset | -||||
---|---|---|---|---|---|---|---|
@tz_results.timezone@ | @tz_results.local_start@ | -@tz_results.local_end@ | @tz_results.utc_offset@ |
- -Test 4 -
-Verify that the conversions between UTC and local time work correctly. -
-
Locale | Time | Test Passed? |
---|---|---|
Oracle sysdate (should be UTC) | @system_time@ | |
Local time in America/New_York | @NYC_time@ | |
UTC time (converted from New York time) | @NYC_utc_time@ | @NYC_p@ |
Local time in America/Los_Angeles | @LA_time@ | |
UTC time (converted from Los Angeles time) | @LA_utc_time@ | @LA_p@ |
Local time in Europe/Paris | @paris_time@ | |
UTC time (converted from Paris time) | @paris_utc_time@ | @paris_p@ |
Local time in Asia/Tokyo | @tokyo_time@ | |
UTC time (converted from Tokyo time) | @tokyo_utc_time@ | @tokyo_p@ |
-
-
-
-@footer@
-
-
-
-
Index: openacs-4/packages/acs-lang/www/admin/test/timezone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/timezone.tcl,v
diff -u -N
--- openacs-4/packages/acs-lang/www/admin/test/timezone.tcl 16 Nov 2017 13:15:33 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,75 +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: timezone.tcl,v 1.4 2017/11/16 13:15:33 antoniop Exp $
-} { }
-
-set title "Test acs-lang package timezones"
-set header [ad_header $title]
-# set navbar [ad_context_bar "Test"]
-set footer [ad_footer]
-
-
-# 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 NYC_time [lc_time_utc_to_local $system_time "America/New_York"]
-set NYC_utc_time [lc_time_local_to_utc $NYC_time "America/New_York"]
-if {$system_time eq $NYC_utc_time } {
- set NYC_p "OK"
-} else {
- set NYC_p "FAILED"
-}
-
-
-set LA_time [lc_time_utc_to_local $system_time "America/Los_Angeles"]
-set LA_utc_time [lc_time_local_to_utc $LA_time "America/Los_Angeles"]
-if {$system_time eq $LA_utc_time } {
- set LA_p "OK"
-} else {
- set LA_p "FAILED"
-}
-
-set paris_time [lc_time_utc_to_local $system_time "Europe/Paris"]
-set paris_utc_time [lc_time_local_to_utc $paris_time "Europe/Paris"]
-if {$system_time eq $paris_utc_time } {
- set paris_p "OK"
-} else {
- set paris_p "FAILED"
-}
-
-set tokyo_time [lc_time_utc_to_local $system_time "Asia/Tokyo"]
-set tokyo_utc_time [lc_time_local_to_utc $tokyo_time "Asia/Tokyo"]
-if {$system_time eq $tokyo_utc_time } {
- set tokyo_p "OK"
-} else {
- set tokyo_p "FAILED"
-}
-
-
-ad_return_template
-
-
-# Local variables:
-# mode: tcl
-# tcl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
Index: openacs-4/packages/acs-lang/www/admin/test/timezone.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/timezone.xql,v
diff -u -N
--- openacs-4/packages/acs-lang/www/admin/test/timezone.xql 16 Nov 2017 13:15:33 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,11 +0,0 @@
-
-