Mercurial > hg > monetdb-perl
diff 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 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/DBD/t/01base.t @@ -0,0 +1,21 @@ +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# Copyright 1997 - July 2008 CWI, August 2008 - 2016 MonetDB B.V. + +use Test::More tests => 5; + +require DBI; +pass 'DBI required'; + +import DBI; +pass 'DBI imported'; + +$switch = DBI->internal; +is ref $switch,'DBI::dr','switch'; + +$drh = DBI->install_driver('monetdb'); +is ref $drh,'DBI::dr','drh'; + +ok $drh->{Version},'Version: ' . $drh->{Version};