Author: REHSACK
Date: Thu Jun 10 04:19:56 2010
New Revision: 14130
Modified:
dbi/trunk/t/49dbd_file.t
Log:
add test to test f_versions
Modified: dbi/trunk/t/49dbd_file.t
==============================================================================
--- dbi/trunk/t/49dbd_file.t (original)
+++ dbi/trunk/t/49dbd_file.t Thu Jun 10 04:19:56 2010
@@ -33,6 +33,10 @@
ok ($dbh = DBI->connect ("dbi:File:"), "Connect clean");
is (ref $dbh, "DBI::db", "Can connect to DBD::File driver");
+my $f_versions = $dbh->func('f_versions');
+note $f_versions;
+ok($f_versions, 'f_versions');
+
# Check if all the basic DBI attributes are accepted
ok ($dbh = DBI->connect ("dbi:File:", undef, undef, {
RaiseError => 1,
