Lines Matching refs:dbh
25 our ($dbh, $Dfile, $bad_ones, $FA);
165 $dbh = new DB_File::RECNOINFO ;
166 ok(1, ! defined $dbh->{bval}) ;
167 ok(2, ! defined $dbh->{cachesize}) ;
168 ok(3, ! defined $dbh->{psize}) ;
169 ok(4, ! defined $dbh->{flags}) ;
170 ok(5, ! defined $dbh->{lorder}) ;
171 ok(6, ! defined $dbh->{reclen}) ;
172 ok(7, ! defined $dbh->{bfname}) ;
174 $dbh->{bval} = 3000 ;
175 ok(8, $dbh->{bval} == 3000 );
177 $dbh->{cachesize} = 9000 ;
178 ok(9, $dbh->{cachesize} == 9000 );
180 $dbh->{psize} = 400 ;
181 ok(10, $dbh->{psize} == 400 );
183 $dbh->{flags} = 65 ;
184 ok(11, $dbh->{flags} == 65 );
186 $dbh->{lorder} = 123 ;
187 ok(12, $dbh->{lorder} == 123 );
189 $dbh->{reclen} = 1234 ;
190 ok(13, $dbh->{reclen} == 1234 );
192 $dbh->{bfname} = 1234 ;
193 ok(14, $dbh->{bfname} == 1234 );
197 eval '$dbh->{fred} = 1234' ;
199 eval 'my $q = $dbh->{fred}' ;
334 my $dbh = new DB_File::RECNOINFO ;
335 ok(59, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
349 my $dbh = new DB_File::RECNOINFO ;
350 $dbh->{bval} = "-" ;
351 ok(62, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
367 my $dbh = new DB_File::RECNOINFO ;
368 $dbh->{flags} = R_FIXEDLEN ;
369 $dbh->{reclen} = 5 ;
370 ok(65, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;
386 my $dbh = new DB_File::RECNOINFO ;
387 $dbh->{flags} = R_FIXEDLEN ;
388 $dbh->{bval} = "-" ;
389 $dbh->{reclen} = 5 ;
390 ok(68, tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $dbh ) ;