summaryrefslogtreecommitdiff
path: root/lib/DB.t
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2002-01-10 22:35:51 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2002-01-11 13:24:13 +0000
commit4940c44306f1533e993cbca6152c66067eca02ca (patch)
tree324ee5229a166c2e8a26100566c6e0c03d6b56a9 /lib/DB.t
parenta9153838573937ae6673c59472b70743ddaf741a (diff)
downloadperl-4940c44306f1533e993cbca6152c66067eca02ca.tar.gz
[PATCH] is() undef/'' behavior change
Date: Fri, 11 Jan 2002 03:35:51 -0500 Message-ID: <20020111083551.GC30666@blackrider> Subject: [PATCH] Pod::InputObjects warnings & is() undef/'' fix From: Michael G Schwern <schwern@pobox.com> Date: Fri, 11 Jan 2002 03:37:44 -0500 Message-ID: <20020111083744.GD30666@blackrider> p4raw-id: //depot/perl@14179
Diffstat (limited to 'lib/DB.t')
-rw-r--r--lib/DB.t8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/DB.t b/lib/DB.t
index d5237a94fe..e6fef9b887 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()
{