chiark / gitweb /
658233eac1857b745c6ccf5aa9e63442df547ef0
[chiark-tcl.git] / 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