diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-01-10 22:35:51 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-11 13:24:13 +0000 |
| commit | 4940c44306f1533e993cbca6152c66067eca02ca (patch) | |
| tree | 324ee5229a166c2e8a26100566c6e0c03d6b56a9 /lib/DB.t | |
| parent | a9153838573937ae6673c59472b70743ddaf741a (diff) | |
| download | perl-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.t | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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() { |