diff options
| author | Steve Bennett <steveb@workware.net.au> | 2020-07-17 11:15:10 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2023-07-04 10:08:32 +1000 |
| commit | 92aec20d365d699d001b767659b2b3aa4d90bd18 (patch) | |
| tree | f01c5a53d4b3ac78a7649c48cbae952980703b78 /tests/history.test | |
| parent | a6f101248ee409e1b952fa9560f409127701e9c7 (diff) | |
| download | jimtcl-92aec20d365d699d001b767659b2b3aa4d90bd18.zip jimtcl-92aec20d365d699d001b767659b2b3aa4d90bd18.tar.gz jimtcl-92aec20d365d699d001b767659b2b3aa4d90bd18.tar.bz2 | |
interactive: enable hint support
And add a default implementation of tcl::stdhint to add
hinting for some built-in commands.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/history.test')
| -rw-r--r-- | tests/history.test | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/history.test b/tests/history.test index 70b90bf..9abf0ef 100644 --- a/tests/history.test +++ b/tests/history.test @@ -9,7 +9,7 @@ Use "history -help ?command?" for help} test history-1.2 {history -help} -body { history -help -} -result {Usage: "history command ... ", where command is one of: add, completion, getline, keep, load, save, show} +} -result {Usage: "history command ... ", where command is one of: add, completion, getline, hints, keep, load, save, show} test history-1.2 {history add} { history add line1 @@ -26,7 +26,7 @@ test history-1.3 {history load} { test history-1.4 {history completion usage} -body { history completion -} -returnCodes error -result {wrong # args: should be "history completion command"} +} -returnCodes error -match glob -result {wrong # args: should be "history completion *"} test history-1.5 {history completion} { history completion command @@ -36,6 +36,14 @@ test history-1.6 {history completion} { history completion {} } {} +test history-1.7 {history hints} { + history hints command +} {} + +test history-1.8 {history hints} { + history hints {} +} {} + catch { file delete $name } |