Apache-DBI-Cache

 view release on metacpan or  search on metacpan

t/001cache.t  view on Meta::CPAN

use strict;
use Test::More tests => 16;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN{$ENV{APACHE_DBI_CACHE_ENVPATH}="t/dbenv";}

BEGIN { use_ok('Apache::DBI::Cache') };

$Apache::DBI::Cache::DELIMITER='^';

my ($dsn1, $dsn2, $statkey1, $statkey2);
if( eval {require DBD::SQLite;} ) {
  print "# using DBD::SQLite\n";

t/002noshm.t  view on Meta::CPAN

use strict;
use Test::More tests => 8;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

use Apache::DBI::Cache use_bdb=>0, delimiter=>'^';

Apache::DBI::Cache::connect_on_init('dbi:DBM:f_dir=tmp1');
Apache::DBI::Cache->connect_on_init('dbi:DBM:f_dir=tmp2');

Apache::DBI::Cache::init;

my $stat=Apache::DBI::Cache::statistics;

t/003plugin.t  view on Meta::CPAN

use strict;
use Test::More tests => 10;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

my @called=(0,0);
my ($before_sub, $after_sub);
my $nocache;
BEGIN {
  $before_sub=sub {
    $called[0]++;
    return @_, {incr=>2}, $nocache;
  };
  $after_sub=sub {

t/004rootclass.t  view on Meta::CPAN

use strict;
use Test::More tests => 9;
#use Test::More 'no_plan';
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  package X;
  use base 'DBI';
  $INC{'X.pm'}=1;

  package X::db;
  use base 'DBI::db';

  package X::st;

t/005rootclass.t  view on Meta::CPAN

use strict;
use Test::More tests => 9;
#use Test::More 'no_plan';
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  package X;
  use base 'DBI';
  $INC{'X.pm'}=1;

  package X::db;
  use base 'DBI::db';

  package X::st;

t/100mysql.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

# APACHE_DBI_CACHE_MYSQL1 and APACHE_DBI_CACHE_MYSQL2 should point to
# 2 different databases on the same host and port.

BEGIN {
  if( exists $ENV{MYSQL1} and length $ENV{MYSQL1} and
      exists $ENV{MYSQL2} and length $ENV{MYSQL2} ) {
    $ENV{MYSQL_HOST}='localhost' unless exists $ENV{MYSQL_HOST};
    $ENV{MYSQL_USER}='' unless exists $ENV{MYSQL_USER};
    $ENV{MYSQL_PASSWD}='' unless exists $ENV{MYSQL_PASSWD};

t/200imadbi.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  if( eval{require Ima::DBI} ) {
    plan tests=>10;
#    plan 'no_plan';
  } else {
    plan skip_all => 'Ima::DBI not found';
  }
}

t/201imadbi.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  if( eval{require Ima::DBI} ) {
    plan tests=>10;
#    plan 'no_plan';
  } else {
    plan skip_all => 'Ima::DBI not found';
  }
}

t/202imadbi.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  if( eval{require Ima::DBI} ) {
    plan tests=>10;
#    plan 'no_plan';
  } else {
    plan skip_all => 'Ima::DBI not found';
  }
}

t/203classdbi.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  if( eval{require Class::DBI} ) {
    plan tests=>10;
#    plan 'no_plan';
  } else {
    plan skip_all => 'Class::DBI not found';
  }
}

t/204classdbi.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  if( eval{require Class::DBI} ) {
    plan tests=>10;
#    plan 'no_plan';
  } else {
    plan skip_all => 'Class::DBI not found';
  }
}

t/205classdbi.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Deep;

sub n($) {my @c=caller; $c[1].'('.$c[2].'): '.$_[0];}

BEGIN {
  if( eval{require Class::DBI} ) {
    plan tests=>10;
#    plan 'no_plan';
  } else {
    plan skip_all => 'Class::DBI not found';
  }
}