Add tests for partial function application.

Author: Crell

Zend/tests/partial_function/inline.phpt

@@ -0,0 +1,26 @@
+--TEST--
+Inlined partials.
+--FILE--
+<?php
+
+function volume(int $x, int $y, int $z): int {
+    return $x * $y * $z;
+}
+
+$arr = [1, 2, 3];
+
+function mul(float $x, float $y) {
+    return $x * $y;
+}
+
+$result = array_map(mul(2, ?), $arr);
+
+print_r($result);
+
+--EXPECTF--
+Array
+(
+    [0] => 2
+    [1] => 4
+    [2] => 6
+)

Zend/tests/partial_function/methods.phpt

@@ -0,0 +1,25 @@
+--TEST--
+Methods.
+--FILE--
+<?php
+
+class Action {
+    function volume(int $x, int $y, int $z): int {
+        return $x * $y * $z;
+    }
+}
+
+$a = new Action();
+
+$p1 = $a->volume(3, 5, ?);
+$p2 = $a->volume(3, ?, 9);
+$p3 = $a->volume(?, 5, 9);
+
+print $p1(9);
+print $p2(5);
+print $p3(3);
+
+--EXPECTF--
+135
+135
+135

Zend/tests/partial_function/multi-parameter-full.phpt

@@ -0,0 +1,21 @@
+--TEST--
+Multi-parameter function to single-parameter function.
+--FILE--
+<?php
+
+function volume(int $x, int $y, int $z): int {
+    return $x * $y * $z;
+}
+
+$p1 = volume(3, 5, ?);
+$p2 = volume(3, ?, 9);
+$p3 = volume(?, 5, 9);
+
+print $p1(9);
+print $p2(5);
+print $p3(3);
+
+--EXPECTF--
+135
+135
+135

Zend/tests/partial_function/multi-parameter.phpt

@@ -0,0 +1,21 @@
+--TEST--
+Multi-parameter function to multi-parameter function.
+--FILE--
+<?php
+
+function volume(int $x, int $y, int $z): int {
+    return $x * $y * $z;
+}
+
+$p1 = volume(3, ?, ?);
+$p2 = volume(?, ?, 9);
+$p3 = volume(?, 5, ?);
+
+print $p1(5, 9);
+print $p2(3, 5);
+print $p3(3, 9);
+
+--EXPECTF--
+135
+135
+135

Zend/tests/partial_function/nested.phpt

@@ -0,0 +1,16 @@
+--TEST--
+Nested partials.
+--FILE--
+<?php
+
+function volume(int $x, int $y, int $z): int {
+    return $x * $y * $z;
+}
+
+$p1 = volume(3, ?, ?);
+$p2 = $p1(?, 9);
+
+print $p1(5);
+
+--EXPECTF--
+135

Zend/tests/partial_function/single-paramater.phpt

@@ -0,0 +1,15 @@
+--TEST--
+Single parameter function.
+--FILE--
+<?php
+
+function test1(int $a) {
+    return $a + 1;
+}
+
+$p = test1(?);
+
+print p(3);
+
+--EXPECTF--
+4

Zend/tests/partial_function/type-check.phpt

@@ -0,0 +1,24 @@
+--TEST--
+Ensure reflected types inherit.
+--FILE--
+<?php
+
+function volume(int $x, int $y, int $z): int {
+    return $x * $y * $z;
+}
+
+$p1 = volume(3, 5, ?);
+
+$r = new ReflectionFunction($p1);
+
+print $r->getNumberOfParameters();
+
+$params = $r->getParameters();
+print $params[0]->getType();
+
+print $r->getReturnType();
+
+--EXPECTF--
+1
+int
+int