Lines Matching refs:ok
30 ok 1, my $lexD = new LexDir($home) ;
32 ok 2, my $env = new BerkeleyDB::Env -Flags => DB_CREATE, @StdErrFile ;
33 ok 3, $env->set_mutexlocks(0) == 0 ;
45 ok 4, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
62 ok 5, $ret == 0 ;
65 ok 6, my $cursor = $db->db_cursor() ;
69 ok 7, $cursor->c_get($k, $v, DB_SET) == 0 ;
70 ok 8, $v eq "house" ;
74 ok 9, $dup_cursor ;
78 ok 10, $k ne "green" ;
79 ok 11, $v ne "house" ;
82 ok 12, $dup_cursor->c_get($k, $v, DB_CURRENT) == 0;
83 ok 13, $k eq "green" ;
84 ok 14, $v eq "house" ;