Lines Matching refs:db1
126 my $db1 = new BerkeleyDB::Hash -Filename => $Dfile,
129 isa_ok $db1, 'BerkeleyDB::Hash', " create database ok";
145 ok addData($db1, %data), " added to db1 ok" ;
148 undef $db1 ;
167 my $db1 = new BerkeleyDB::Hash -Filename => $Dfile,
170 isa_ok $db1, 'BerkeleyDB::Hash', " create database ok";
186 ok addData($db1, %data), " add data to db1" ;
189 undef $db1 ;
210 my $db1 = new BerkeleyDB::Hash -Filename => $Dfile,
213 isa_ok $db1, 'BerkeleyDB::Hash', " create database ok";
224 ok addData($db1, %data), " added data ok" ;
226 undef $db1 ;