Mercurial > hg > monetdb-perl
comparison DBD/t/01base.t @ 0:cedccb7e0143
Copy of clients/perl directory without Tests from MonetDB changeset 4d2d4532228a.
author | Sjoerd Mullender <sjoerd@acm.org> |
---|---|
date | Mon, 19 Sep 2016 15:15:52 +0200 (2016-09-19) |
parents | |
children | a0ec9e080a5b |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:cedccb7e0143 |
---|---|
1 # This Source Code Form is subject to the terms of the Mozilla Public | |
2 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
3 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
4 # | |
5 # Copyright 1997 - July 2008 CWI, August 2008 - 2016 MonetDB B.V. | |
6 | |
7 use Test::More tests => 5; | |
8 | |
9 require DBI; | |
10 pass 'DBI required'; | |
11 | |
12 import DBI; | |
13 pass 'DBI imported'; | |
14 | |
15 $switch = DBI->internal; | |
16 is ref $switch,'DBI::dr','switch'; | |
17 | |
18 $drh = DBI->install_driver('monetdb'); | |
19 is ref $drh,'DBI::dr','drh'; | |
20 | |
21 ok $drh->{Version},'Version: ' . $drh->{Version}; |