[svn:dbi] r14327 - dbi/trunk/t

Author: REHSACK
Date: Sat Aug 14 07:56:10 2010
New Revision: 14327

Modified:
   dbi/trunk/t/51dbm_file.t

Log:
add test for absolute pathname as table

Modified: dbi/trunk/t/51dbm_file.t
==============================================================================
--- dbi/trunk/t/51dbm_file.t	(original)
+++ dbi/trunk/t/51dbm_file.t	Sat Aug 14 07:56:10 2010
@@ -55,6 +55,9 @@
 my $r = $dbh->selectall_arrayref(q/select * from Fred/);
 ok(@$r == 2);
 
+   $r = $dbh->selectall_arrayref(sprintf(q|select * from "%s"|, File::Spec->catfile($dir, 'fred')));
+ok(@$r == 2);
+
 ok($dbh->do(q/drop table if exists FRED/));
 
 done_testing();