Change tests for sqrt_upper of double and ldouble

PDLPorters · Jan 14, 2025 · 7e718fc · 7e718fc
1 parent ed188e0
commit 7e718fc
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/t/ops.t b/t/ops.t
@@ -128,9 +128,12 @@ is $pa->at(0), '16', 'sqrt orig value ok';
     my $fnegsqrt=$lneg->float->sqrt_upper;
     is_pdl($fnegsqrt**2,cfloat($lneg), "Square of sqrt_upper of float");
     ok(($fnegsqrt->im >= 0)->all, "Im sqrt_upper of float");
-    my $fnegsqrt=$lneg->float->sqrt_upper;
-    is_pdl($fnegsqrt**2,cfloat($lneg), "Square of sqrt_upper of float");
-    ok(($fnegsqrt->im >= 0)->all, "Im sqrt_upper of float");
+    my $dnegsqrt=$lneg->double->sqrt_upper;
+    is_pdl($dnegsqrt**2,cfloat($lneg), "Square of sqrt_upper of double"); # **??** cdouble?
+    ok(($dnegsqrt->im >= 0)->all, "Im sqrt_upper of double");
+    my $ldnegsqrt=$lneg->ldouble->sqrt_upper;
+    is_pdl($ldnegsqrt**2,cfloat($lneg), "Square of sqrt_upper of ldouble"); # **??** cldouble?
+    ok(($dnegsqrt->im >= 0)->all, "Im sqrt_upper of double");
     my $cfnegsqrt=$lneg->cfloat->sqrt_upper;
     is_pdl($cfnegsqrt**2,cfloat($lneg), "Square of sqrt_upper of cfloat");
     ok(($cfnegsqrt->im >= 0)->all, "Im sqrt_upper of cfloat");