/usr/share/perl5/DBI/Test/Case/DBD/CSV/t10_base.pm is in libdbd-csv-perl 0.4500-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package DBI::Test::Case::DBD::CSV::t10_base;
use strict;
use warnings;
use parent qw( DBI::Test::DBD::CSV::Case);
use Test::More;
use DBI::Test;
use DBI;
sub supported_variant
{
my ($self, $test_case, $cfg_pfx, $test_confs,
$dsn_pfx, $dsn_cred, $options) = @_;
$self->is_test_for_mocked ($test_confs) and return;
return $self->SUPER::supported_variant ($test_case, $cfg_pfx, $test_confs,
$dsn_pfx, $dsn_cred, $options);
} # supported_variant
sub run_test
{
my ($self, $dbc) = @_;
my @DB_CREDS = @$dbc;
$DB_CREDS[3]->{PrintError} = 0;
$DB_CREDS[3]->{RaiseError} = 0;
if ($ENV{DBI_PUREPERL}) {
eval "use Text::CSV;";
$@ or $DB_CREDS[3]->{csv_class} = "Text::CSV"
}
defined $ENV{DBI_SQL_NANO} or
eval "use SQL::Statement;";
ok (my $switch = DBI->internal, "DBI->internal");
is (ref $switch, "DBI::dr", "Driver class");
# This is a special case. install_driver should not normally be used.
ok (my $drh = DBI->install_driver ("CSV"), "Install driver");
is (ref $drh, "DBI::dr", "Driver class installed");
ok ($drh->{Version}, "Driver version $drh->{Version}");
my $dbh = connect_ok (@DB_CREDS, "Connect with dbi:CSV:");
my $csv_version_info = $dbh->csv_versions ();
ok ($csv_version_info, "csv_versions");
diag ($csv_version_info);
done_testing ();
}
1;
|