From 881e6572cd213db7895c7d5e1dee36e48f67be6a Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 21 Oct 2008 20:00:16 +0000 Subject: [PATCH] Jerry spotted that as a result of change 34483 which upgrades blead to Test::Simple 0.82, lib/DB.t is now issuing a warning. His original suggestion was ok(!defined ...) - he, Merijn and I independently refined this to isnt(..., undef) p4raw-id: //depot/perl@34554 --- lib/DB.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/DB.t b/lib/DB.t index f665291..a1fadf3 100644 --- a/lib/DB.t +++ b/lib/DB.t @@ -86,7 +86,7 @@ BEGIN { # test DB::_clientname() is( DB::_clientname('foo=A(1)'), 'foo', 'DB::_clientname should return refname'); -cmp_ok( DB::_clientname('bar'), 'eq', '', +is( DB::_clientname('bar'), undef, 'DB::_clientname should not return non refname'); # test DB::next() and DB::step() -- 1.8.3.1