X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDB.t;h=e6fef9b887ec8387c79b20b1e00abea3802bab3f;hb=0555b2b0658b3543d19d3fed65724628f43e0191;hp=d5237a94fea00acf2d6da558b68681ddc8bc50bc;hpb=acc79e62856b17bbeea411d3411bafa1633a073a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/DB.t b/lib/DB.t
index d5237a9..e6fef9b 100644
--- a/lib/DB.t
+++ b/lib/DB.t
@@ -1,4 +1,4 @@
-#!./perl -w
+#!./perl -Tw
 
 BEGIN {
         chdir 't' if -d 't';
@@ -79,8 +79,10 @@ BEGIN {
 }
 
 # test DB::_clientname()
-is( DB::_clientname('foo=A(1)'), 'foo','DB::_clientname should return refname');
-is( DB::_clientname('bar'), '','DB::_clientname should not return non refname');
+is( DB::_clientname('foo=A(1)'), 'foo',
+    'DB::_clientname should return refname');
+cmp_ok( DB::_clientname('bar'), 'eq', '',
+        'DB::_clientname should not return non refname');
 
 # test DB::next() and DB::step()
 {