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 -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-localization-procs.tcl	24 Sep 2013 18:44:37 -0000	1.1.2.1
@@ -0,0 +1,50 @@
+ad_library {
+    Helper test Tcl procedures.
+
+    @author Peter Marklund (peter@collaboraid.biz)
+    @creation-date 18 October 2002
+}
+
+namespace eval lang::test {}
+
+
+aa_register_case \
+    -procs {
+	lc_numeric
+    } lang_test__lc_numeric {
+
+    Minimal testset for localization functions. To be extended.
+
+    @author Gustaf Neumann
+    @creation-date Sept 2013
+} {
+
+  aa_run_with_teardown -rollback -test_code {
+
+    lang::system::locale_set_enabled -locale de_DE -enabled_p true
+    lang::system::locale_set_enabled -locale it_IT -enabled_p true
+
+    lang::catalog::import -locales it_IT -package_key acs-lang
+    lang::catalog::import -locales de_DE -package_key acs-lang
+    
+    aa_equals "format us number" [lc_numeric 123456.789 {} en_US] 123,456.789
+    aa_equals "format de number" [lc_numeric 123456.789 {} de_DE] 123.456,789
+    aa_equals "format it number" [lc_numeric 123456.789 {} it_IT] 123.456,789
+
+    aa_equals "parse us number" [lc_parse_number 123,456.789 en_US] 123456.789
+    aa_equals "parse de number" [lc_parse_number 123.456,789 de_DE] 123456.789
+    aa_equals "parse it number" [lc_parse_number 123.456,789 it_IT] 123456.789
+    
+    set time [lc_time_fmt "2013-09-21 23:11:22" "%c" en_US] 
+    aa_equals "format us time" [lrange $time 0 end-1] "Sat September 21, 2013 11:11 PM"
+
+    set time [lc_time_fmt "2013-09-21 23:11:22" "%c" de_DE] 
+    aa_equals "format us time" [lrange $time 0 end-1] "Sa, 21. September 2013 23:11"
+
+    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"
+
+
+  }
+}
+