use package require instead

flightaware · Oct 29, 2010 · d9ec439 · d9ec439
1 parent 6f6ef3d
commit d9ec439
Showing 1 changed file with 9 additions and 2 deletions.
diff --git 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