initial harness code and read channel

[scpubgit/TenDotTcl.git] / t / tcl / harness.tcl

diff --git a/t/tcl/harness.tcl b/t/tcl/harness.tcl
new file mode 100644 (file)
index 0000000..2856a1c
--- /dev/null
+++ b/t/tcl/harness.tcl
@@ -0,0 +1,5 @@
+lappend ::auto_path snit ten
+package require ten::test
+namespace import ten::test::*
+proc BEGIN {meh} {}
+source [lindex $argv 0]