Introduce few long name tests

Author: mlazdans

tests/functions.inc

@@ -98,3 +98,25 @@ function dump_rows($q) {
 function dump_table_rows($table) {
     dump_rows(ibase_query(sprintf('SELECT * FROM "%s"', $table)));
 }
+
+function insert_into($table, $data) {
+    [$fields_str, $q_str] = array2sql_parts($data);
+    return ibase_query(sprintf('INSERT INTO "%s" (%s) VALUES (%s)',
+        $table, $fields_str, $q_str
+    ), ...array_values($data));
+}
+
+/** @var float $v */
+function skip_if_fb_lt($v) {
+    if(($cv = get_fb_version()) < $v)die("skip: Firebird version $cv < $v");
+}
+
+/** @var float $v */
+function skip_if_fb_gt($v) {
+    if(($cv = get_fb_version()) > $v)die("skip: Firebird version $cv > $v");
+}
+
+/** @var float $v */
+function skip_if_fb_gte($v) {
+    if(($cv = get_fb_version()) >= $v)die("skip: Firebird version $cv >= $v");
+}

tests/long_names_001.phpt

@@ -0,0 +1,68 @@
+--TEST--
+Long names: Firebird 4.0 or newer
+--SKIPIF--
+<?php
+require_once("skipif.inc");
+skip_if_fb_lt(4.0);
+?>
+--FILE--
+<?php
+
+require_once("interbase.inc");
+
+// FB3: The maximum identifier length is 31 bytes
+// FB4: The maximum identifier length is 63 characters character set UTF8 (252 bytes)
+$MAX_LEN = 63;
+
+function test_table(string $table){
+	global $MAX_LEN;
+
+	$c = 0;
+
+	$fields = [
+		'"'.str_repeat("F", $MAX_LEN).'"',
+		'"'.str_repeat("🥰", $MAX_LEN).'"',
+	];
+	$fields_str = join(" INTEGER, ", $fields)." INTEGER";
+	$create_sql = sprintf('CREATE TABLE "%s" (%s)', $table, $fields_str);
+
+	if(ibase_query($create_sql)){
+		ibase_commit();
+	} else {
+		var_dump($create_sql);
+		die;
+	}
+
+	$data = []; foreach($fields as $f)$data[$f] = ++$c;
+	insert_into($table, $data);
+	print "Table:$table\n";
+	dump_table_rows($table);
+}
+
+(function(){
+	global $MAX_LEN, $test_base;
+
+	var_dump($MAX_LEN);
+
+	test_table(str_repeat('T', $MAX_LEN));
+	test_table(str_repeat('😂', $MAX_LEN));
+
+	print $test_base;
+})();
+
+?>
+--EXPECT--
+Table:TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
+array(2) {
+  ["FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"]=>
+  int(1)
+  ["🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰"]=>
+  int(2)
+}
+Table:😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂😂
+array(2) {
+  ["FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"]=>
+  int(1)
+  ["🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰🥰"]=>
+  int(2)
+}

tests/long_names_002.phpt

@@ -0,0 +1,55 @@
+--TEST--
+Long names: Firebird 3.0 or older
+--SKIPIF--
+<?php
+require_once("skipif.inc");
+skip_if_fb_gt(3.0);
+?>
+--FILE--
+<?php
+
+require_once("interbase.inc");
+
+// FB 2.5, 3.0 identifier len is by byte count not character count
+$MAX_LEN = 31;
+
+function test_table(string $table){
+	global $MAX_LEN;
+
+	$c = 0;
+
+	$fields = [
+		'"'.str_repeat("F", $MAX_LEN).'"',
+		'"'.str_repeat("🥰", intdiv($MAX_LEN, 4)).'ppp"', // 7*(utf 4 bytes)+3 padding
+	];
+	$fields_str = join(" INTEGER, ", $fields)." INTEGER";
+	$create_sql = sprintf('CREATE TABLE "%s" (%s)', $table, $fields_str);
+
+	if(ibase_query($create_sql)){
+		ibase_commit();
+	} else {
+		var_dump($create_sql);
+		die;
+	}
+
+	$data = []; foreach($fields as $f)$data[$f] = ++$c;
+	insert_into($table, $data);
+	print "Table:$table\n";
+	dump_table_rows($table);
+}
+
+(function(){
+	global $MAX_LEN;
+
+	test_table(str_repeat('T', $MAX_LEN));
+})();
+
+?>
+--EXPECT--
+Table:TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
+array(2) {
+  ["FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"]=>
+  int(1)
+  ["🥰🥰🥰🥰🥰🥰🥰ppp"]=>
+  int(2)
+}