diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2006-07-30 19:15:41 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2006-07-30 19:15:41 (GMT) |
| commit | 7286027bfe63e54eb30b77335cd0f2061003eda3 (patch) | |
| tree | 2a252e1553be442e4cca07ad0b5b6eb3640053a5 /tests/clock.test | |
| parent | 89523cfd09df9126005a8a40871fc44b9da1e89c (diff) | |
| download | tcl-7286027bfe63e54eb30b77335cd0f2061003eda3.zip tcl-7286027bfe63e54eb30b77335cd0f2061003eda3.tar.gz tcl-7286027bfe63e54eb30b77335cd0f2061003eda3.tar.bz2 | |
Fixed Bug 1494664
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/tests/clock.test b/tests/clock.test index cabac3f..5b549a4 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.test,v 1.64 2006/07/30 18:58:55 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.65 2006/07/30 19:15:42 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -36023,6 +36023,24 @@ test clock-53.1 {%EC %Ey} { clock format 0 -gmt true -locale en_US_roman -format %EC%Ey } mcmlxx +# Test that glob-special characters can be handled in [clock] + +test clock-54.1 {glob specials in [clock format]} \ + -setup { + clock format 0 -gmt 1 -format %Y + } \ + -body { + clock format 0 -gmt 1 -format {*[%Y%m%d]*} + } \ + -result {*[19700101]*} +test clock-54.2 {glob specials in [clock scan]} \ + -setup { + clock scan 1970 -gmt 1 -format %Y + } \ + -body { + clock scan {*[19700101]*} -format {*[%Y%m%d]*} -gmt 1 + } \ + -result 0 # cleanup |