Author: timbo
Date: Mon Jun  2 00:51:15 2008
New Revision: 11369

Modified:
   dbi/trunk/t/18concathash.t

Log:
Update test


Modified: dbi/trunk/t/18concathash.t
==============================================================================
--- dbi/trunk/t/18concathash.t  (original)
+++ dbi/trunk/t/18concathash.t  Mon Jun  2 00:51:15 2008
@@ -10,12 +10,12 @@
 use Scalar::Util qw(looks_like_number);
 no warnings 'uninitialized';
 
-use Test::More tests => 40;
+use Test::More tests => 41;
 
 BEGIN { use_ok('DBI') };
 
 # null and undefs -- segfaults?;
-is (DBI::_concat_hash_sorted(undef, "=",   ":",   0, undef), "");
+is (DBI::_concat_hash_sorted(undef, "=",   ":",   0, undef), undef);
 is (DBI::_concat_hash_sorted({ },   "=",   ":",   0, undef), "");
 eval { DBI::_concat_hash_sorted([], "=",   ":",   0, undef) };
 like ($@ || "", qr/is not a hash reference/);

Reply via email to