working on testing cdb-wr

[chiark-tcl.git] / cdb / tests

diff --git a/cdb/tests b/cdb/tests
new file mode 100755 (executable)
index 0000000..45c9061
--- /dev/null
+++ b/cdb/tests
@@ -0,0 +1,23 @@
+#!/usr/bin/tclsh8.3
+
+proc addpath {p before after default} {
+    upvar #0 env($p) lc
+    if {[info exists lc]} {
+       set l [split $lc :]
+    } else {
+       set l $default
+    }
+    set l [append $before $l $after]
+    set lc [join $l :]
+}
+
+addpath LD_LIBRARY_PATH {../base ../hbytes} {} {}
+
+load ./chiark_tcl_cdb.so
+
+#
+# CURRENTLY TESTING WITH
+#  rm -f test-out.*
+#  LD_LIBRARY_PATH=../base:../hbytes:. ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log 
+#  LD_LIBRARY_PATH=../base:../hbytes:. strace ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log 
+#  LD_LIBRARY_PATH=../base:../hbytes:. valgrind --db-attach=yes tclsh8.3 ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log