Lines Matching refs:ok
35 ok 1, my $db1 = tie %hash1, 'BerkeleyDB::Hash',
43 ok 2, $@ =~ /Usage: \$db->BerkeleyDB::db_join\Q([cursors], flags=0)/;
47 ok 3, $@ =~ /db_join: No cursors in parameter list/;
51 ok 4, $@ =~ /db_join: first parameter is not an array reference/;
54 ok 5, $@ =~ /db_join: first parameter is not an array reference/;
60 ok 6, $@ =~ /db_join: first parameter is not an array reference/;
76 ok 7, ! -d $home;
77 ok 8, my $lexD = new LexDir($home);
78 ok 9, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
82 ok 10, my $txn = $env->txn_begin() ;
83 ok 11, my $db1 = tie %hash1, 'BerkeleyDB::Hash',
92 ok 12, my $db2 = tie %hash2, 'BerkeleyDB::Hash',
100 ok 13, my $db3 = tie %hash3, 'BerkeleyDB::Btree',
109 ok 14, addData($db1, qw( apple Convenience
118 ok 15, addData($db2, qw( red apple
126 ok 16, addData($db3, qw( expensive apple
134 ok 17, my $cursor2 = $db2->db_cursor() ;
137 ok 18, $cursor2->c_get($k, $v, DB_SET) == 0 ;
140 ok 19, my $cursor1 = $db1->db_join([$cursor2]) ;
153 ok 20, keys %expected == 0 ;
154 ok 21, $cursor1->status() == DB_NOTFOUND ;
157 ok 22, $cursor2 = $db2->db_cursor() ;
160 ok 23, $cursor2->c_get($k, $v, DB_SET) == 0 ;
162 ok 24, my $cursor3 = $db3->db_cursor() ;
165 ok 25, $cursor3->c_get($k, $v, DB_SET) == 0 ;
166 ok 26, $cursor1 = $db1->db_join([$cursor2, $cursor3]) ;
178 ok 27, keys %expected == 0 ;
179 ok 28, $cursor1->status() == DB_NOTFOUND ;
183 ok 29, $cursor2 = $db2->db_cursor() ;
186 ok 30, $cursor2->c_get($k, $v, DB_SET) == 0 ;
188 ok 31, $cursor3 = $db3->db_cursor() ;
191 ok 32, $cursor3->c_get($k, $v, DB_SET) == 0 ;
192 ok 33, $cursor1 = $db1->db_join([$cursor2, $cursor3]) ;
206 ok 34, keys %expected == 0 ;
207 ok 35, $cursor1->status() == DB_NOTFOUND ;
209 ok 36, $cursor1->c_close() == 0 ;
210 ok 37, $cursor2->c_close() == 0 ;
211 ok 38, $cursor3->c_close() == 0 ;
213 ok 39, ($status = $txn->txn_commit()) == 0;
217 ok 40, my $cursor1a = $db1->db_cursor() ;
219 ok 41, $@ =~ /BerkeleyDB Aborting: attempted to do a self-join at/;
221 ok 42, $@ =~ /BerkeleyDB Aborting: attempted to do a self-join at/;