From 09151767fa905b5e9f483709354217de8c8bfc20 Mon Sep 17 00:00:00 2001
From: Francesco Paolo Lovergine <frankie@debian.org>
Date: Fri, 17 Nov 2023 21:48:57 +0100
Subject: [PATCH] Fixed OCTTransform4D() call in t/transform.t

---
 t/transform.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/transform.t b/t/transform.t
index 2b28024..3e726e5 100644
--- a/t/transform.t
+++ b/t/transform.t
@@ -38,8 +38,9 @@ if(1) {
     @y = ($ul[1], $lr[1], $ur[1], $ll[1]);
     $z = undef;
     my $t = undef;
-    ok(Geo::GDAL::FFI::OCTTransform4D($ct, 4, \@x, \@y, \@$z, \@$t), "Coordinate transformation 4D worked");
-    ok(qq/@x @y/ eq $result, "Resulting coordinates");
+    @ps = (0,0,0,0);
+    ok(Geo::GDAL::FFI::OCTTransform4D($ct, 4, \@x, \@y, \@$z, \@$t, \@ps), "Coordinate transformation 4D worked");
+    ok(qq/@x @y/ eq $result && qq/@ps/ eq qq/1 1 1 1/, "Resulting coordinates");
 
     @x = ($ul[0], $lr[0], $ur[0], $ll[0]);
     @y = ($ul[1], $lr[1], $ur[1], $ll[1]);