diff --git a/tests/all.tcl b/tests/all.tcl old mode 100755 new mode 100644 index 9340900..3a24117 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -1,7 +1,14 @@ -load ./memcache[info sharedlibextension] +package require Memcache +#load ./memcache[info sharedlibextension] memcache server add localhost 11211 memcache set moo "cows go moo" memcache get moo value -puts "value=$value!\n"; +if {$value != "cows go moo"} { + puts "Error. value=$value!\n"; + exit 1 +} + +puts "Success" +exit 0