Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

HMBRAND / DBI-1.647 / t / 07kids.t 

            

              
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

              
#!perl -w
$|=1;
use strict;
use Test::More;
use DBI 1.50; # also tests Exporter::require_version
BEGIN {
        plan skip_all => '$h->{Kids} attribute not supported for DBI::PurePerl'
                if $DBI::PurePerl && $DBI::PurePerl; # doubled to avoid typo warning
        plan tests => 20;
}
## ----------------------------------------------------------------------------
## 07kids.t
## ----------------------------------------------------------------------------
# This test check the Kids and the ActiveKids attributes and how they act
# in various situations.
#
# Check the database handle's kids:
#   - upon creation of handle
#   - upon creation of statement handle
#   - after execute of statement handle
#   - after finish of statement handle
#   - after destruction of statement handle
# Check the driver handle's kids:
#   - after creation of database handle
#   - after disconnection of database handle
#   - after destruction of database handle
## ----------------------------------------------------------------------------
# Connect to the example driver and create a database handle
my $dbh = DBI->connect('dbi:ExampleP:dummy', '', '',
                                                   { 
                                                         PrintError => 1,
                                                         RaiseError => 0
                                                   });
# check our database handle to make sure its good
isa_ok($dbh, 'DBI::db');
# check that it has no Kids or ActiveKids yet
cmp_ok($dbh->{Kids}, '==', 0, '... database handle has 0 Kid(s) at start');
cmp_ok($dbh->{ActiveKids}, '==', 0, '... database handle has 0 ActiveKid(s) at start');
# create a scope for our $sth to live and die in
do { 
        # create a statement handle
        my $sth = $dbh->prepare('select uid from ./');
        # verify that it is a correct statement handle
        isa_ok($sth, "DBI::st");
        # check our Kids and ActiveKids after prepare
        cmp_ok($dbh->{Kids}, '==', 1, '... database handle has 1 Kid(s) after $dbh->prepare');
        cmp_ok($dbh->{ActiveKids}, '==', 0, '... database handle has 0 ActiveKid(s) after $dbh->prepare');
        $sth->execute();
        # check our Kids and ActiveKids after execute
        cmp_ok($dbh->{Kids}, '==', 1, '... database handle has 1 Kid(s) after $sth->execute');
        cmp_ok($dbh->{ActiveKids}, '==', 1, '... database handle has 1 ActiveKid(s) after $sth->execute');
        $sth->finish();
        # check our Kids and Activekids after finish
        cmp_ok($dbh->{Kids}, '==', 1, '... database handle has 1 Kid(s) after $sth->finish');
        cmp_ok($dbh->{ActiveKids}, '==', 0, '... database handle has 0 ActiveKid(s) after $sth->finish');
};
# now check it after the statement handle has been destroyed
cmp_ok($dbh->{Kids}, '==', 0, '... database handle has 0 Kid(s) after $sth is destroyed');
cmp_ok($dbh->{ActiveKids}, '==', 0, '... database handle has 0 ActiveKid(s) after $sth is destroyed');
# get the database handles driver Driver
my $drh = $dbh->{Driver};
# check that is it a correct driver handle
isa_ok($drh, "DBI::dr");
# check the driver's Kids and ActiveKids 
cmp_ok( $drh->{Kids}, '==', 1, '... driver handle has 1 Kid(s)');
cmp_ok( $drh->{ActiveKids}, '==', 1, '... driver handle has 1 ActiveKid(s)');
$dbh->disconnect;
# check the driver's Kids and ActiveKids after $dbh->disconnect
cmp_ok( $drh->{Kids}, '==', 1, '... driver handle has 1 Kid(s) after $dbh->disconnect');
cmp_ok( $drh->{ActiveKids}, '==', 0, '... driver handle has 0 ActiveKid(s) after $dbh->disconnect');
undef $dbh;
ok(!defined($dbh), '... lets be sure that $dbh is not undefined');
# check the driver's Kids and ActiveKids after undef $dbh
cmp_ok( $drh->{Kids}, '==', 0, '... driver handle has 0 Kid(s) after undef $dbh');
cmp_ok( $drh->{ActiveKids}, '==', 0, '... driver handle has 0 ActiveKid(s) after undef $dbh');