1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
package TestFirebirdEmbedded;
#
# Helper file for the DBD::FirebirdEmbedded tests
#
use strict;
use warnings;
use Carp;
use DBI 1.43; # minimum version for 'parse_dsn'
use File::Spec;
use File::Basename;
use File::Temp;
use Test::More;
use base qw(Exporter TestFirebird);
our @EXPORT = qw(find_new_table);
sub import {
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';
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;
# this is embedded, no server involved
$ENV{FIREBIRD} = $ENV{FIREBIRD_LOCK} = '.';
# no authentication either
delete $ENV{ISC_USER};
delete $ENV{ISC_PASSWORD};
delete $ENV{DBI_USER};
delete $ENV{DBI_PASS};
delete $self->{user};
delete $self->{pass};
delete $self->{host};
$self->{tdsn} = $self->get_dsn;
$self->{path} = $self->get_path;
}
sub save_configs {
# do nothing as we don't want embedded testing to fiddle with the
# carefuly created configs
# embedded overrides are implanted already
}
sub get_dsn {
my $self = shift;
return "dbi:FirebirdEmbedded:db=dbd-firebird-test.fdb;ib_dialect=3;ib_charset=ISO8859_1";
}
sub check_dsn {
return shift->get_dsn;
}
sub get_path { 'dbd-firebird-test.fdb' }
# no authentication for embedded
sub get_user { undef }
sub get_pass { undef }
sub get_host { undef }
sub check_mark {
my $self = shift;
# mimic first run if the test database is not present
-f $self->get_path;
}
1;
|
