1 source [file dirname [info script]]/testing.tcl
5 test history-1.1 {history usage} -body {
7 } -returnCodes error -result {wrong # args: should be "history command ..."
8 Use "history -help ?command?" for help}
10 test history-1.2 {history -help} -body {
12 } -result {Usage: "history command ... ", where command is one of: getline, completion, load, save, add, show}
14 test history-1.2 {history add} {
16 history add "line2 next"
20 set lines [split [string trimright [read $f]] \n]
21 } {line1 {line2 next}}
23 test history-1.3 {history load} {
27 test history-1.4 {history completion usage} -body {
29 } -returnCodes error -result {wrong # args: should be "history completion command"}
31 test history-1.5 {history completion} {
32 history completion command
35 test history-1.6 {history completion} {
43 # Can't really test history add, show, setcompletion