diff options
| author | Daniel S. Lewart <lewart@uiuc.edu> | 1998-11-01 13:21:48 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-11-02 08:24:12 +0000 |
| commit | 2820d885477866096912ca609ab15de0f36ced5b (patch) | |
| tree | ac483fb48a27da9a0f9dcd5d630ef0ad3270647f /t | |
| parent | 234c4717b982dba6fdbb10c724401a1c234b10fc (diff) | |
| download | perl-2820d885477866096912ca609ab15de0f36ced5b.tar.gz | |
0**0 = 1, from
Subject: Math::Complex 0**0 patches
Message-Id: <199811020121.TAA28310@staff2.cso.uiuc.edu>
To: jhi@iki.fi (Jarkko Hietaniemi),
Raphael_Manfredi@grenoble.hp.com (Raphael Manfredi)
p4raw-id: //depot/cfgperl@2177
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/complex.t | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/t/lib/complex.t b/t/lib/complex.t index 2bb14f0866..c073f506e3 100755 --- a/t/lib/complex.t +++ b/t/lib/complex.t @@ -14,7 +14,7 @@ BEGIN { use Math::Complex; -$VERSION = sprintf("%s", q$Id: complex.t,v 1.8 1998/02/05 16:03:39 jhi Exp $ =~ /(\d+\.d+)/); +my $VERSION = sprintf("%s", q$Id: complex.t,v 1.9 1998/11/01 00:00:00 dsl Exp $ =~ /(\d+\.d+)/); my ($args, $op, $target, $test, $test_set, $try, $val, $zvalue, @set, @val); @@ -173,20 +173,6 @@ test_loz( 'acoth(-1)', ); -# test the 0**0 - -sub test_ztz { - $test++; - - push(@script, <<'EOT'); -eval 'cplx(0)**cplx(0)'; -print 'not ' unless ($@ =~ /zero raised to the zeroth/); -EOT - push(@script, qq(print "ok $test\\n";\n)); -} - -test_ztz; - # test the bad roots sub test_broot { @@ -387,6 +373,7 @@ __END__ (1,0):(2,3):(1,0) (2,3):(0,0):(1,0) (2,3):(1,0):(2,3) +(0,0):(0,0):(1,0) &Re (3,4):3 @@ -876,4 +863,3 @@ __END__ ( 2,-3):( 0.14694666622553, 0.23182380450040) # eof - |