D820.diff
No OneTemporary
Actions

Size

849 B

Referenced Files

None

Subscribers

None

D820.diff
View Options

	diff --git a/Makefile b/Makefile
	new file mode 100644
	--- /dev/null
	+++ b/Makefile
	@@ -0,0 +1,7 @@
	+TCLSH=tclsh
	+
	+all:
	+ @echo "Nothing to build."
	+
	+test:
	+ cd tests && ${TCLSH} all.tcl
	diff --git a/tests/all.tcl b/tests/all.tcl
	new file mode 100755
	--- /dev/null
	+++ b/tests/all.tcl
	@@ -0,0 +1,6 @@
	+#!/usr/bin/env tclsh
	+
	+package require tcltest
	+namespace import ::tcltest::*
	+
	+runAllTests
	diff --git a/tests/init.tcl b/tests/init.tcl
	new file mode 100644
	--- /dev/null
	+++ b/tests/init.tcl
	@@ -0,0 +1,15 @@
	+# Procs to mock
	+proc bind {type flags cmdOrMask {procName ""}} {}
	+proc unbind {type flags cmdOrMask procname} {}
	+
	+# Tests config
	+set dir [info script]
	+if {$dir == ""} {
	+ set dir [pwd]
	+ append dir "/scripts"
	+} {
	+ set dir [file dirname [file dirname [file normalize $dir]]]
	+}
	+
	+# Standard procedures
	+source $dir/Core.tcl