代码搜索结果
找到约 10,000 项符合
T 的代码
subdb.t
#!./perl -w
use strict ;
use lib 't' ;
use BerkeleyDB;
use Test::More ;
use util qw(1);
plan(skip_all => "this needs Berkeley DB 3.x or better\n" )
if $BerkeleyDB::db_version < 3;
plan tests
unknown.t
#!./perl -w
# ID: %I%, %G%
use strict ;
use lib 't' ;
use BerkeleyDB;
use util ;
print "1..41\n";
my $Dfile = "dbhash.tmp";
unlink $Dfile;
umask(0) ;
# Check for invalid parameters
{
#
env.t
#!./perl -w
use strict ;
use lib 't' ;
BEGIN {
$ENV{LC_ALL} = 'de_DE@euro';
}
use BerkeleyDB;
use util ;
print "1..53\n";
my $Dfile = "dbhash.tmp";
umask(0);
my $version_major = 0;
{
recno.t
#!./perl -w
# ID: %I%, %G%
use strict ;
use lib 't' ;
use BerkeleyDB;
use util ;
print "1..226\n";
my $Dfile = "dbhash.tmp";
my $Dfile2 = "dbhash2.tmp";
my $Dfile3 = "dbhash3.tmp";
unlink $Df
mldbm.t
#!/usr/bin/perl -w
use strict ;
BEGIN
{
if ($] < 5.005) {
print "1..0 # Skip: this is Perl $], skipping test\n" ;
exit 0 ;
}
eval { require Data::Dumper ; };
if ($@) {
print "1.
queue.t
#!./perl -w
# ID: %I%, %G%
use strict ;
use lib 't' ;
use BerkeleyDB;
use Test::More;
use util(1) ;
plan(skip_all => "Queue needs Berkeley DB 3.3.x or better\n" )
if $BerkeleyDB::db_versio
join.t
#!./perl -w
# ID: %I%, %G%
use strict ;
use lib 't';
use BerkeleyDB;
use util ;
if ($BerkeleyDB::db_ver < 2.005002)
{
print "1..0 # Skip: join needs Berkeley DB 2.5.2 or later\n" ;
exi
examples.t
#!./perl -w
use strict ;
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib' if -d '../lib';
}
}
use lib 't';
use BerkeleyDB;
use Test::More;
use util
strict.t
#!./perl -w
use strict ;
use lib 't' ;
use BerkeleyDB;
use util ;
print "1..44\n";
my $Dfile = "dbhash.tmp";
my $home = "./fred" ;
umask(0);
{
# closing a database & an environment in the c
pod.t
eval " use Test::More " ;
if ($@)
{
print "1..0 # Skip: Test::More required for testing POD\n" ;
exit 0;
}
eval "use Test::Pod 1.00";
if ($@)
{
print "1..0 # Skip: Test::Pod 1.00 requir