"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/02dbidrv.t" between
DBI-1.642.tar.gz and DBI-1.643.tar.gz

About: DBI - The Perl Database Interface (requires one or more "driver" modules DBD::* to talk to databases).

02dbidrv.t  (DBI-1.642):02dbidrv.t  (DBI-1.643)
#!perl -w #!perl -w
# vim:sw=4:ts=8:et # vim:sw=4:ts=8:et
$|=1; $|=1;
use strict; use strict;
use Test::More tests => 53; use Test::More tests => 54;
## ---------------------------------------------------------------------------- ## ----------------------------------------------------------------------------
## 02dbidrv.t - ... ## 02dbidrv.t - ...
## ---------------------------------------------------------------------------- ## ----------------------------------------------------------------------------
# This test creates a Test Driver (DBD::Test) and then exercises it. # This test creates a Test Driver (DBD::Test) and then exercises it.
# NOTE: # NOTE:
# There are a number of tests as well that are embedded within the actual # There are a number of tests as well that are embedded within the actual
# driver code as well # driver code as well
## ---------------------------------------------------------------------------- ## ----------------------------------------------------------------------------
## load DBI ## load DBI
BEGIN { BEGIN {
use_ok('DBI'); use_ok('DBI');
} }
## DBI::_new_drh had an internal limit on a driver class name and crashed.
SKIP: {
Test::More::skip "running DBI::PurePerl", 1 if $DBI::PurePerl;
eval {
DBI::_new_drh('DBD::Test::OverLong' . 'x' x 300,
{ Name => 'Test', Version => 'Test', }, 42);
};
like($@, qr/unknown _mem package/, 'Overlong DBD class name is processed');
}
## ---------------------------------------------------------------------------- ## ----------------------------------------------------------------------------
## create a Test Driver (DBD::Test) ## create a Test Driver (DBD::Test)
## main Test Driver Package ## main Test Driver Package
{ {
package DBD::Test; package DBD::Test;
use strict; use strict;
use warnings; use warnings;
 End of changes. 2 change blocks. 
1 lines changed or deleted 11 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)