view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 * Cleanup temp files at the end of tests.
 * Client only testing using the interactive test setup. Add host parameter to dns.
 * Simplified condition to test the DB path.

0.70 [2011-09-26]
 [Details: https://github.com/mariuz/perl-dbd-firebird/commits/release0.70]
 * docs cleanup
  + use standard ROWS alternative to Mysql LIMIT
  + In firebird 2.5.x standard way is to use sequences
  + dialects cleanup
 * tests-setup: avoid passing credentials on the command line
 * link with libfbembed if given a special environment variable
 * fix missing database check during tests
 * t/81-event-fork.t when linked with libfbembed
 * implement add ib_enable_utf8 dynamic attribute
 * remove $Id$ markers from CVS/Subversion
 * add test for RT#55244
 * 47-nulls.t: ensure inserting undef in a non-null field fails
 * fix $dbh->do() and $sth->execute() to properly return the number of affected
   records

t/TestFirebird.pm  view on Meta::CPAN

use constant test_conf => 't/tests-setup.tmp.conf';
use constant test_mark => 't/tests-setup.tmp.OK';
use constant dbd => 'DBD::Firebird';

sub new {
    my $class = shift;
    my $self = bless {@_}, $class;

    $self->read_cached_configs;

    $self->check_credentials;

    return $self;
}

sub check_credentials {
    my $self = shift;

    unless ( defined $self->{pass}
        or defined $ENV{DBI_PASS}
        or defined $ENV{ISC_PASSWORD} )
    {
        plan skip_all =>
            "Neither DBI_PASS nor ISC_PASSWORD present in the environment";
        exit 0;    # do not fail with CPAN testers
    }

t/TestFirebirdEmbedded.pm  view on Meta::CPAN

    my $me = shift;
    TestFirebird->import;
    $me->export_to_level(1,undef, qw(find_new_table));
}

use constant is_embedded => 1;
use constant dbd => 'DBD::FirebirdEmbedded';

use DBD::FirebirdEmbedded;

sub check_credentials {
    # this is embedded, nothing to check, we don't need credentials
}

sub read_cached_configs {
    my $self = shift;
    $self->SUPER::read_cached_configs;

    unless ($self->{firebird_lock_dir}) {
        my $dir = tempdir( 'dbd-fb.XXXXXXXX', CLEANUP => 0, TMPDIR => 1 );
        note "created $dir\n";
        open( my $fh, '>>', $self->test_conf )