From da82368c816c8d06f425aa3f25a2a918fdba1df1 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sat, 18 Apr 2020 09:34:25 +1000 Subject: tests: Add many new additional tests for code coverage readdir, tty, utf8, signal, alarm, kill, file, jimsh, posix, aio, history, interp, pack, unpack, eventloop, exec, load, package, regexp, regsub Signed-off-by: Steve Bennett --- tests/history.test | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 tests/history.test (limited to 'tests/history.test') diff --git a/tests/history.test b/tests/history.test new file mode 100644 index 0000000..178a107 --- /dev/null +++ b/tests/history.test @@ -0,0 +1,43 @@ +source [file dirname [info script]]/testing.tcl + +needs cmd history + +test history-1.1 {history usage} -body { + history +} -returnCodes error -result {wrong # args: should be "history command ..." +Use "history -help ?command?" for help} + +test history-1.2 {history -help} -body { + history -help +} -result {Usage: "history command ... ", where command is one of: getline, completion, load, save, add, show} + +test history-1.2 {history add} { + history add line1 + history add "line2 next" + set name tmp.[pid] + history save $name + set f [open $name] + set lines [split [string trimright [read $f]] \n] +} {line1 {line2 next}} + +test history-1.3 {history load} { + history load $name +} {} + +test history-1.4 {history completion usage} -body { + history completion +} -returnCodes error -result {wrong # args: should be "history completion command"} + +test history-1.5 {history completion} { + history completion command +} {} + +test history-1.6 {history completion} { + history completion {} +} {} + +file delete $name + +# Can't really tests history add, show, setcompletion + +testreport -- cgit v1.1