On Sun, Aug 26, 2001 at 12:06:16PM +0100, Nicholas Clark wrote:
> With Test::More should I be able to do this:
> is (scalar <TEST>, undef, "should read undef as we are at eof");
This was fixed in a recent version
> sub is ($$;$) {
> my($this, $that, $name) = @_;
>
> my $ok = @_ == 3 ? ok($this eq $that, $name)
> : ok($this eq $that);
Now:
sub is ($$;$) {
my($this, $that, $name) = @_;
my $test;
{
local $^W = 0; # so is(undef, undef) works quietly.
$test = $this eq $that;
}
my $ok = @_ == 3 ? ok($test, $name)
: ok($test);
Tony
--
--------------------------------------------------------------------------
Tony Bowden | [EMAIL PROTECTED] | http://www.tmtm.com/
may my mind stroll about hungry and fearless and thirsty and supple
--------------------------------------------------------------------------
