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};