cdb/tests

   1 #!/usr/bin/tclsh8.3
   2
   3 proc addpath {p before after default} {
   4     upvar #0 env($p) lc
   5     if {[info exists lc]} {
   6         set l [split $lc :]
   7     } else {
   8         set l $default
   9     }
  10     set l [append $before $l $after]
  11     set lc [join $l :]
  12 }
  13
  14 addpath LD_LIBRARY_PATH {../base ../hbytes} {} {}
  15
  16 load ./chiark_tcl_cdb-1.so
  17
  18 #
  19 # CURRENTLY TESTING WITH
  20 #  rm -f test-out.*
  21 #  LD_LIBRARY_PATH=../base:../hbytes:. ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log
  22 #  LD_LIBRARY_PATH=../base:../hbytes:. strace ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log
  23 #  LD_LIBRARY_PATH=../base:../hbytes:. valgrind --db-attach=yes tclsh8.3 ../../sauce/convertdb test-out 0 db.addr-list.main db.addr-list.log