Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl	24 Sep 2013 18:44:37 -0000	1.1.2.1
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl	24 Sep 2013 19:04:10 -0000	1.1.2.2
@@ -1,16 +1,22 @@
 ad_library {
     Helper test Tcl procedures.
 
-    @author Peter Marklund (peter@collaboraid.biz)
-    @creation-date 18 October 2002
+    @author Gustaf Neumann
+    @creation-date Sept 2013
 }
 
 namespace eval lang::test {}
 
 
 aa_register_case \
     -procs {
-	lc_numeric
+
+      lc_numeric
+      lc_parse_number
+      lc_time_fmt
+      lc_time_utc_to_local
+      lc_time_local_to_utc
+
     } lang_test__lc_numeric {
 
     Minimal testset for localization functions. To be extended.
@@ -44,6 +50,8 @@
     set time [lc_time_fmt "2013-09-21 23:11:22" "%c" it_IT] 
     aa_equals "format us time" [lrange $time 0 end-1] "Sab 21 Settembre 2013 23:11"
 
+    aa_equals "asian time " [lc_time_utc_to_local "2013-09-21 23:11:22" "Asia/Tokyo"] "2013-09-22 08:11:22"
+    aa_equals "local time " [lc_time_local_to_utc "2013-09-22 08:11:22" "Asia/Tokyo"] "2013-09-21 23:11:22"
 
   }
 }