From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Sat, 1 Mar 2003 00:39:41 +0000 (+0000)
Subject: Wrote some tests.
X-Git-Tag: winsend-0-6~1
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=206a230d0a903a24615ca5c06b86535e10501015;p=winsend

Wrote some tests.
---

diff --git a/tests/winsend.test b/tests/winsend.test
new file mode 100644
index 0000000..92b4000
--- /dev/null
+++ b/tests/winsend.test
@@ -0,0 +1,71 @@
+# Commands covered:  winsend
+#
+# This file contains a collection of tests for the Winsend package commands.
+# Sourcing this file into Tcl runs the tests and generates output for errors.
+# No output means no errors were found.
+#
+# Copyright (c) 2003 by Pat Thoyts <patthoyts@users.sourceforge.net>
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+# RCS: @(#) $Id$
+
+if {[lsearch [namespace children] ::tcltest] == -1} {
+    package require tcltest
+    namespace import ::tcltest::*
+}
+
+package require winsend
+
+# -------------------------------------------------------------------------
+
+test winsend-1.0 {winsend no args} {
+    list [catch {winsend} msg] $msg
+} {1 {wrong # args: should be "winsend command ?args ...?"}}
+
+test winsend-1.1 {winsend appname: set name} {
+    list [catch {winsend appname test} msg] $msg
+} {0 test}
+
+test winsend-1.2 {winsend appname: retrieve name} {
+    list [catch {winsend appname} msg] $msg
+} {0 test}
+
+test winsend-1.3 {winsend interps: check name} {
+    list [catch {
+        set n [lsearch -exact [winsend interps] test]
+        expr {$n != -1}
+    } msg] $msg
+} {0 1}
+
+test winsend-1.4 {winsend: load into slave interp} {
+    list [catch {
+        interp create slave
+        slave eval {package require winsend; winsend appname testslave}
+    } msg] $msg
+} {0 testslave}
+
+test winsend-1.5 {winsend send: send to slave} {
+    list [catch {
+        set v [winsend send testslave {package provide winsend}]
+        expr {$v == [package provide winsend]}
+    } msg] $msg
+} {0 1}
+
+test winsend-1.6 {winsend send: send error} {
+    list [catch {
+        winsend send testslave {winsend}
+    } msg] $msg
+} {1 {wrong # args: should be "winsend command ?args ...?"}}
+
+# -------------------------------------------------------------------------
+# cleanup
+catch {interp delete slave}
+::tcltest::cleanupTests
+return
+
+# Local variables:
+# mode: tcl
+# indent-tabs-mode: nil
+# End: