Skip INT128 test when FB < 4.0

Author: mlazdans

tests/datatype_int128.phpt

@@ -3,6 +3,7 @@ Check for data type INT128 (Firebird 4.0 or above)
 --SKIPIF--
 <?php
 include("skipif.inc");
+if(get_fb_version() < 4.0)print "skip FB < 4.0";
 ?>
 --FILE--
 <?php

tests/interbase.inc

@@ -30,5 +30,22 @@ function cleanup_db()
 	ibase_drop_db($r);
 }
 
+function get_fb_version(): float
+{
+	global $host, $user, $password, $fb_version;
+
+	if(isset($fb_version)) return $fb_version;
+
+	if($se = ibase_service_attach($host ? $host : "localhost", $user, $password)) {
+		$info = ibase_server_info($se, IBASE_SVC_SERVER_VERSION);
+		if($info === false)die("skip cannot ibase_server_info()");
+		$server_version  = explode(" ", $info);
+		$vers = (float)$server_version[count($server_version) - 1];
+		return $fb_version = $vers;
+	} else {
+		die("skip: cannot connect");
+	}
+}
+
 register_shutdown_function('cleanup_db');
 init_db();

tests/skipif.inc

@@ -3,6 +3,5 @@
 if (!extension_loaded("interbase")) print "skip interbase extension not available";
 require("interbase.inc");
 if(!@ibase_connect($test_base)){
-        die("skip cannot connect");
+        die("skip: cannot connect");
 }
-?>