testsuite: fix runtest (File::Copy used in another place)
[users/heiko/exim.git] / test / scripts / 2800-lmdb / 2800
1 # lmdb lookup
2 #
3 # prep a test database to work with
4 perl -e 'chdir "DIR/aux-var"; exec "mdb_load -n DIR/aux-var/TESTNUM.mdb";'
5 VERSION=3
6 format=print
7 type=btree
8 mapsize=10485760
9 maxreaders=126
10 HEADER=END
11  first
12  data for first
13  second
14  A=1 B=2
15  third
16  A1:B2:C3
17 DATA=END
18 ****
19 #
20 #
21 exim -be
22 ${lookup{first}lmdb{DIR/aux-var/TESTNUM.mdb}}
23 ${lookup{first}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}fail}
24 ${lookup{fail}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}{failure value}}
25 ${lookup{fail}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}fail}
26 ${lookup{second}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}fail}
27 ${extract{A}{${lookup{second}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}fail}}}
28 ${extract{B}{${lookup{second}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}fail}}}
29 ${extract{C}{${lookup{second}lmdb{DIR/aux-var/TESTNUM.mdb}{$value}fail}}{$value}fail}
30 ****