initial harness code and read channel

[scpubgit/TenDotTcl.git] / t / tcl / perlharness.pl

diff --git a/t/tcl/perlharness.pl b/t/tcl/perlharness.pl
new file mode 100644 (file)
index 0000000..5a9bedf
--- /dev/null
+++ b/t/tcl/perlharness.pl
@@ -0,0 +1 @@
+exec('tclsh','t/tcl/harness.tcl',$0);