diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:12:07 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:12:07 (GMT) |
| commit | 3f06a6ec89b41434fe38bede870563e35b809019 (patch) | |
| tree | 7aa11fe69ef1ddc9696c271d75cbf19796ba01f6 /tests-perf | |
| parent | 68f320e5ffddc67ee02c233c1b8396b198bde577 (diff) | |
| download | tcl-3f06a6ec89b41434fe38bede870563e35b809019.zip tcl-3f06a6ec89b41434fe38bede870563e35b809019.tar.gz tcl-3f06a6ec89b41434fe38bede870563e35b809019.tar.bz2 | |
[temp-commit]: rewrite scan token map handling
Diffstat (limited to 'tests-perf')
| -rw-r--r-- | tests-perf/clock.perf.tcl | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tests-perf/clock.perf.tcl b/tests-perf/clock.perf.tcl index 7994428..969e279 100644 --- a/tests-perf/clock.perf.tcl +++ b/tests-perf/clock.perf.tcl @@ -28,8 +28,16 @@ proc _test_get_commands {lst} { proc test-scan {{reptime 1000}} { foreach _(c) [_test_get_commands { # Scan : date - #{clock scan "25.11.2015" -format "%d.%m.%Y" -base 0 -gmt 1} - #{**STOP** : Wed Nov 25 01:00:00 CET 2015} + {clock scan "25.11.2015" -format "%d.%m.%Y" -base 0 -gmt 1} + {clock scan "1111" -format "%d%m%y" -base 0 -gmt 1} + {**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} + # Scan : dynamic, very long format test (create obj representation, allock chain, GC, etc): + {clock scan "25.11.2015" -format [string repeat "[incr i] %d.%m.%Y %d.%m.%Y" 10] -base 0 -gmt 1} + # Scan : again: + {clock scan "25.11.2015" -format [string repeat "[incr i -1] %d.%m.%Y %d.%m.%Y" 10] -base 0 -gmt 1} + # FreeScan : relative date {clock scan "5 years 18 months 385 days" -base 0 -gmt 1} # FreeScan : relative date with relative weekday |