Add test for #77

Author: mlazdans

tests/functions.inc

@@ -81,4 +81,20 @@ function rand_number($len , $prec = -1, $sign = 1)
         $n = "-" .$n;
     }
     return $n;
-}
+}
+
+function array2sql_parts($data) {
+    $fields_str = join(",", array_keys($data));
+    $q_str = join(",", array_fill(0, count($data), "?"));
+    return [$fields_str, $q_str, $data];
+}
+
+function dump_rows($q) {
+    while($row = ibase_fetch_row($q)){
+        var_dump($row);
+    }
+}
+
+function dump_table_rows($table) {
+    dump_rows(ibase_query(sprintf('SELECT * FROM "%s"', $table)));
+}

tests/issue77_001.phpt

@@ -0,0 +1,54 @@
+--TEST--
+Issue #77: Order of INSERT parameters cause "Incorrect values within SQLDA structure"
+--SKIPIF--
+<?php
+include("skipif.inc");
+?>
+--FILE--
+<?php
+
+require("interbase.inc");
+
+$db = ibase_connect($test_base);
+
+function test77() {
+	ibase_query('CREATE TABLE TTEST (TTYPE VARCHAR(1) NOT NULL, F8 NUMERIC(9,2))');
+	ibase_commit();
+
+	[$fields_str, $q_str, $data] = array2sql_parts([
+		'TTYPE'=>'1',
+		'F8'=>'',
+	]);
+	ibase_query("INSERT INTO TTEST($fields_str) VALUES ($q_str)", ...array_values($data));
+	dump_table_rows("TTEST");
+
+	[$fields_str, $q_str, $data] = array2sql_parts([
+		'F8'=>'',
+		'TTYPE'=>'2',
+	]);
+	ibase_query("INSERT INTO TTEST($fields_str) VALUES ($q_str)", ...array_values($data));
+	dump_table_rows("TTEST");
+}
+
+test77();
+
+?>
+--EXPECT--
+array(2) {
+  [0]=>
+  string(1) "1"
+  [1]=>
+  NULL
+}
+array(2) {
+  [0]=>
+  string(1) "1"
+  [1]=>
+  NULL
+}
+array(2) {
+  [0]=>
+  string(1) "2"
+  [1]=>
+  NULL
+}