1 files changed, 43 insertions, 0 deletions
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