tests/history.test

   1 source [file dirname [info script]]/testing.tcl
   2
   3 needs cmd history
   4
   5 test history-1.1 {history usage} -body {
   6         history
   7 } -returnCodes error -result {wrong # args: should be "history command ..."
   8 Use "history -help ?command?" for help}
   9
  10 test history-1.2 {history -help} -body {
  11         history -help
  12 } -result {Usage: "history command ... ", where command is one of: getline, completion, load, save, add, show}
  13
  14 test history-1.2 {history add} {
  15         history add line1
  16         history add "line2 next"
  17         set name tmp.[pid]
  18         history save $name
  19         set f [open $name]
  20         set lines [split [string trimright [read $f]] \n]
  21 } {line1 {line2 next}}
  22
  23 test history-1.3 {history load} {
  24         history load $name
  25 } {}
  26
  27 test history-1.4 {history completion usage} -body {
  28         history completion
  29 } -returnCodes error -result {wrong # args: should be "history completion command"}
  30
  31 test history-1.5 {history completion} {
  32         history completion command
  33 } {}
  34
  35 test history-1.6 {history completion} {
  36         history completion {}
  37 } {}
  38
  39 file delete $name
  40
  41 # Can't really tests history add, show, setcompletion
  42
  43 testreport