File: 01base.t

package info (click to toggle)
libdbd-odbc-perl 1.13-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 544 kB
  • ctags: 287
  • sloc: perl: 3,395; ansic: 3,236; makefile: 55
file content (20 lines) | stat: -rwxr-xr-x 377 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!perl -w
# $Id: 01base.t 544 2004-10-29 13:43:22Z jurl $

use Test::More tests => 5;

require DBI;
require_ok('DBI');

import DBI;
pass("import DBI");

$switch = DBI->internal;
is(ref $switch, 'DBI::dr', "DBI->internal is DBI::dr");

$drh = DBI->install_driver('ODBC');
is(ref $drh, 'DBI::dr', "Install ODBC driver OK");

ok($drh->{Version}, "Version is not empty");

exit 0;