D1226.diff
No OneTemporary
Actions

Size

943 B

Referenced Files

None

Subscribers

None

D1226.diff
View Options

	diff --git a/Core.tcl b/Core.tcl
	--- a/Core.tcl
	+++ b/Core.tcl
	@@ -124,6 +124,10 @@
	# Strings
	#

	+proc strlen {str} {
	+ string length $str
	+}
	+
	#Completes $text by spaces or $char so the returned text length is $len
	proc completestring {text len {char " "}} {
	set curlen [string length $text]
	diff --git a/tests/Core.test b/tests/Core.test
	new file mode 100644
	--- /dev/null
	+++ b/tests/Core.test
	@@ -0,0 +1,26 @@
	+package require tcltest
	+namespace import ::tcltest::*
	+
	+###
	+### Init
	+###
	+
	+source init.tcl
	+
	+###
	+### Tests
	+###
	+
	+test strlen_regular_string {} -body {
	+ strlen "quux"
	+} -result 4
	+
	+test strlen_empty_string {} -body {
	+ strlen ""
	+} -result 0
	+
	+###
	+### Cleanup
	+###
	+
	+cleanupTests
	diff --git a/tests/init.tcl b/tests/init.tcl
	--- a/tests/init.tcl
	+++ b/tests/init.tcl
	@@ -13,8 +13,3 @@

	# Standard procedures
	source $dir/Core.tcl
	-
	-# Eggdrop procedures
	-proc strlen {text} {
	- string length $text
	-}