test native complex gives exactly 0 imaginary part - #302

PDLPorters · Apr 21, 2021 · 7f1f9da · 7f1f9da
1 parent 0fc7ba9
commit 7f1f9da
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/t/nat_complex.t b/t/nat_complex.t
@@ -38,6 +38,7 @@ is zeroes($_->[0], 2)->r2C->type, $_->[1], "r2C $_->[0] -> $_->[1]"
   for [byte, 'cfloat'], [long, 'cfloat'],
     [float, 'cfloat'], [cfloat, 'cfloat'],
     [double, 'cdouble'], [cdouble, 'cdouble'];
+is ${double(-1)->r2C->cimag->get_dataref}, ${double(0)->get_dataref}, 'r2C gives exactly zero imag part';
 
 # dataflow from complex to real
 $ar = $x->creal;