Pipe operator

Zend/tests/pipe_operator/ast.phpt

@@ -0,0 +1,109 @@
+--TEST--
+A pipe operator displays as a pipe operator when outputting syntax, with correct parens.
+--FILE--
+<?php
+
+print "Concat, which binds higher\n";
+
+try {
+    assert(false && foo() . bar() |> baz() . quux());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && (foo() . bar()) |> baz() . quux());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && foo() . (bar() |> baz()) . quux());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && foo() . bar() |> (baz() . quux()));
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && (foo() . bar() |> baz()) . quux());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && foo() . (bar() |> baz() . quux()));
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+print "<, which binds lower\n";
+
+try {
+    assert(false && foo() < bar() |> baz());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && (foo() < bar()) |> baz());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && foo() < (bar() |> baz()));
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && foo() |> bar() < baz());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && (foo() |> bar()) < baz());
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+try {
+    assert(false && foo() |> (bar() < baz()));
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+
+
+print "misc examples\n";
+
+try {
+    assert(false && foo() |> (bar() |> baz(...)));
+} catch (AssertionError $e) {
+    echo $e->getMessage(), PHP_EOL;
+}
+
+?>
+--EXPECT--
+Concat, which binds higher
+assert(false && foo() . bar() |> baz() . quux())
+assert(false && foo() . bar() |> baz() . quux())
+assert(false && foo() . (bar() |> baz()) . quux())
+assert(false && foo() . bar() |> baz() . quux())
+assert(false && (foo() . bar() |> baz()) . quux())
+assert(false && foo() . (bar() |> baz() . quux()))
+<, which binds lower
+assert(false && foo() < bar() |> baz())
+assert(false && (foo() < bar()) |> baz())
+assert(false && foo() < bar() |> baz())
+assert(false && foo() |> bar() < baz())
+assert(false && foo() |> bar() < baz())
+assert(false && foo() |> (bar() < baz()))
+misc examples
+assert(false && foo() |> (bar() |> baz(...)))

Zend/tests/pipe_operator/call_by_ref.phpt

@@ -0,0 +1,37 @@
+--TEST--
+Pipe operator rejects by-reference functions.
+--FILE--
+<?php
+
+function _modify(int &$a): string {
+    $a += 1;
+    return "foo";
+}
+
+function _append(array &$a): string {
+    $a['bar'] = 'beep';
+}
+
+// Simple variables
+try {
+    $a = 5;
+    $res1 = $a |> _modify(...);
+    var_dump($res1);
+} catch (\Error $e) {
+  echo $e->getMessage(), PHP_EOL;
+}
+
+// Complex variables.
+try {
+    $a = ['foo' => 'beep'];
+    $res2 = $a |> _append(...);
+    var_dump($res2);
+} catch (\Error $e) {
+  echo $e->getMessage(), PHP_EOL;
+}
+
+
+?>
+--EXPECTF--
+_modify(): Argument #1 ($a) could not be passed by reference
+_append(): Argument #1 ($a) could not be passed by reference

Zend/tests/pipe_operator/call_prefer_by_ref.phpt

@@ -0,0 +1,17 @@
+--TEST--
+Pipe operator accepts prefer-by-reference functions.
+--FILE--
+<?php
+
+$a = ['hello', 'world'];
+
+try {
+    $r = $a |> array_multisort(...);
+    var_dump($r);
+} catch (\Error $e) {
+  echo $e->getMessage(), PHP_EOL;
+}
+
+?>
+--EXPECT--
+bool(true)

Zend/tests/pipe_operator/complex_ordering.phpt

@@ -0,0 +1,20 @@
+--TEST--
+Functions are executed in the expected order
+--FILE--
+<?php
+
+function foo()     { echo __FUNCTION__, PHP_EOL; return 1; }
+function bar()     { echo __FUNCTION__, PHP_EOL; return false; }
+function baz($in)  { echo __FUNCTION__, PHP_EOL; return $in; }
+function quux($in) { echo __FUNCTION__, PHP_EOL; return $in; }
+
+$result = foo()
+  |> (bar() ? baz(...) : quux(...))
+  |> var_dump(...);
+
+?>
+--EXPECT--
+foo
+bar
+quux
+int(1)

Zend/tests/pipe_operator/compound_userland_calls.phpt

@@ -0,0 +1,19 @@
+--TEST--
+Pipe operator chains
+--FILE--
+<?php
+
+function _test1(int $a): int {
+    return $a + 1;
+}
+
+function _test2(int $a): int {
+    return $a * 2;
+}
+
+$res1 = 5 |> '_test1' |> '_test2';
+
+var_dump($res1);
+?>
+--EXPECT--
+int(12)

Zend/tests/pipe_operator/exception_interruption.phpt

@@ -0,0 +1,37 @@
+--TEST--
+A pipe interrupted by an exception, to demonstrate correct order of execution.
+--FILE--
+<?php
+
+function foo()     { echo __FUNCTION__, PHP_EOL; return 1; }
+function bar()     { echo __FUNCTION__, PHP_EOL; return false; }
+function baz($in)  { echo __FUNCTION__, PHP_EOL; return $in; }
+function quux($in) { echo __FUNCTION__, PHP_EOL; throw new \Exception('Oops'); }
+
+try {
+    $result = foo()
+        |> (bar() ? baz(...) : quux(...))
+        |> var_dump(...);
+}
+catch (Throwable $e) {
+    echo $e::class, ": ", $e->getMessage(), PHP_EOL;
+}
+
+try {
+    $result = foo()
+      |> (throw new Exception('Break'))
+      |> (bar() ? baz(...) : quux(...))
+      |> var_dump(...);
+}
+catch (Throwable $e) {
+    echo $e::class, ": ", $e->getMessage(), PHP_EOL;
+}
+
+?>
+--EXPECTF--
+foo
+bar
+quux
+Exception: Oops
+foo
+Exception: Break

Zend/tests/pipe_operator/function_not_found.phpt

@@ -0,0 +1,15 @@
+--TEST--
+Pipe operator throws normally on missing function
+--FILE--
+<?php
+
+try {
+    $res1 = 5 |> '_test';
+}
+catch (Throwable $e) {
+    echo $e::class, ": ", $e->getMessage(), PHP_EOL;
+}
+
+?>
+--EXPECT--
+Error: Call to undefined function _test()

Zend/tests/pipe_operator/generators.phpt

@@ -0,0 +1,30 @@
+--TEST--
+Generators
+--FILE--
+<?php
+
+function producer(): \Generator {
+  yield 1;
+  yield 2;
+  yield 3;
+}
+
+function map_incr(iterable $it): \Generator {
+  foreach ($it as $val) {
+    yield $val +1;
+  }
+}
+
+$result = producer() |> map_incr(...) |> iterator_to_array(...);
+
+var_dump($result);
+?>
+--EXPECT--
+array(3) {
+  [0]=>
+  int(2)
+  [1]=>
+  int(3)
+  [2]=>
+  int(4)
+}

Zend/tests/pipe_operator/mixed_callable_call.phpt

@@ -0,0 +1,62 @@
+--TEST--
+Pipe operator handles all callable styles
+--FILE--
+<?php
+
+function _add(int $x, int $y): int {
+    return $x + $y;
+}
+
+function _area(int $x, int $y): int {
+    return $x * $y;
+}
+
+class _Test
+{
+    public function message(string $which): string
+    {
+        if ($which == 1) {
+            return "Hello";
+        }
+        else if ($which == 2) {
+            return "Goodbye";
+        }
+        else {
+            return "World";
+        }
+    }
+}
+
+class StaticTest {
+    public static function oneMore(int $x): int {
+        return $x + 1;
+    }
+}
+
+function _double(int $x): int {
+    return $x * 2;
+}
+
+function multiplier(int $x): \Closure
+{
+    return fn($y) => $x * $y;
+}
+
+$test = new _Test();
+
+$add3 = fn($x) => _add($x, 3);
+
+$res1 = 2
+    |> [$test, 'message']
+    |> 'strlen'
+    |> $add3
+    |> fn($x) => _area($x, 2)
+    |> _double(...)
+    |> multiplier(3)
+    |> StaticTest::oneMore(...)
+;
+
+var_dump($res1);
+?>
+--EXPECT--
+int(121)

Zend/tests/pipe_operator/namespaced_functions.phpt

@@ -0,0 +1,22 @@
+--TEST--
+Pipe operator handles all callable styles
+--FILE--
+<?php
+
+namespace Beep {
+  function test(int $x) {
+    echo $x, PHP_EOL;
+  }
+}
+
+namespace Bar {
+    use function \Beep\test;
+
+    5 |> test(...);
+
+    5 |> \Beep\test(...);
+}
+?>
+--EXPECT--
+5
+5