diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:23:37 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:23:37 (GMT) |
| commit | 62ddcc3daa746fc8be02e6b118e0c923ec227793 (patch) | |
| tree | 36a0fdfa03ce4ff3c3ad39a71e6e359cdf89eaaf /tests-perf | |
| parent | dc9796c6e858828861b1339b4734bab19cccca4c (diff) | |
| download | tcl-62ddcc3daa746fc8be02e6b118e0c923ec227793.zip tcl-62ddcc3daa746fc8be02e6b118e0c923ec227793.tar.gz tcl-62ddcc3daa746fc8be02e6b118e0c923ec227793.tar.bz2 | |
[temp-commit]: not ready
Diffstat (limited to 'tests-perf')
| -rw-r--r-- | tests-perf/clock.perf.tcl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests-perf/clock.perf.tcl b/tests-perf/clock.perf.tcl index 9267684..fd24068 100644 --- a/tests-perf/clock.perf.tcl +++ b/tests-perf/clock.perf.tcl @@ -121,10 +121,17 @@ proc test-scan {{reptime 1000}} { # Scan : julian day with time (greedy match): {clock scan "2451545 102030" -format "%J%H%M%S"} + # Scan : century, lookup table month + {clock scan {1970 Jan 2} -format {%C%y %b %d} -locale en -gmt 1} + # Scan : century, lookup table month and day + {clock scan {1970 Jan 02} -format {%C%y %b %Od} -locale en -gmt 1} + + break + # Scan : zone only {clock scan "CET" -format "%z"} {clock scan "EST" -format "%z"} - #{**STOP** : Wed Nov 25 01:00:00 CET 2015} + {**STOP** : Wed Nov 25 01:00:00 CET 2015} # # Scan : long format test (allock chain) # {clock scan "25.11.2015" -format "%d.%m.%Y %d.%m.%Y %d.%m.%Y %d.%m.%Y %d.%m.%Y %d.%m.%Y %d.%m.%Y %d.%m.%Y" -base 0 -gmt 1} @@ -194,8 +201,8 @@ proc test-other {{reptime 1000}} { proc test {{reptime 1000}} { puts "" - #test-scan $reptime - test-freescan $reptime + test-scan $reptime + #test-freescan $reptime test-other $reptime puts \n**OK** |