diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:09:02 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:09:02 (GMT) |
| commit | 3d02b25690bc4f8c08d1292375acd5194a86b086 (patch) | |
| tree | b787b2f62cdc197e17b1b0e86295e67eaa58dbff /tests-perf | |
| parent | efcfa2b368fa979b75f62e91ae673b260f2ba0c9 (diff) | |
| download | tcl-3d02b25690bc4f8c08d1292375acd5194a86b086.zip tcl-3d02b25690bc4f8c08d1292375acd5194a86b086.tar.gz tcl-3d02b25690bc4f8c08d1292375acd5194a86b086.tar.bz2 | |
[temp-commit]: tclClockFmt.c - 2nd try (with cherry picking of tclSE incompatible facilities)
Prepared for common usage of scan command (free scan / format scan)
Diffstat (limited to 'tests-perf')
| -rw-r--r-- | tests-perf/clock.perf.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests-perf/clock.perf.tcl b/tests-perf/clock.perf.tcl index 59469fd..7994428 100644 --- a/tests-perf/clock.perf.tcl +++ b/tests-perf/clock.perf.tcl @@ -28,8 +28,7 @@ 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} - #return + #{clock scan "25.11.2015" -format "%d.%m.%Y" -base 0 -gmt 1} #{**STOP** : Wed Nov 25 01:00:00 CET 2015} # FreeScan : relative date {clock scan "5 years 18 months 385 days" -base 0 -gmt 1} @@ -80,6 +79,7 @@ proc test-other {{reptime 1000}} { foreach _(c) [_test_get_commands { # Bad zone {catch {clock scan "1 day" -timezone BAD_ZONE -locale en}} + **STOP** # Scan : test rotate of GC objects (format is dynamic, so tcl-obj removed with last reference) {set i 0; time { clock scan "[incr i] - 25.11.2015" -format "$i - %d.%m.%Y" -base 0 -gmt 1 } 50} # Scan : test reusability of GC objects (format is dynamic, so tcl-obj removed with last reference) |