Verify support for initializing properties to closures

Author: thekid

src/test/php/lang/ast/unittest/emit/Handle.class.php

@@ -16,6 +16,7 @@ public function __construct($id) { $this->id= $id; }
 
   public function redirect($id) {
     $this->id= $id;
+    return $this;
   }
 
   public function read($bytes= 8192) {

src/test/php/lang/ast/unittest/emit/InitializeWithExpressionsTest.class.php

@@ -1,20 +1,23 @@
 <?php namespace lang\ast\unittest\emit;
 
 use lang\IllegalArgumentException;
-use unittest\{Assert, Expect, Test, Values};
+use unittest\{Assert, Test, Values};
 
 /**
  * Initialize parameters and properties with arbitrary expressions
  *
  * @see  https://github.com/xp-framework/compiler/pull/104
  * @see  https://wiki.php.net/rfc/new_in_initializers
+ * @see  https://wiki.php.net/rfc/calls_in_constant_expressions
  */
 class InitializeWithExpressionsTest extends EmittingTest {
 
   /** @return iterable */
   private function expressions() {
     yield ['"test"', 'test'];
     yield ['[1, 2, 3]', [1, 2, 3]];
+    yield ['1 << 2', 1 << 2];
+    yield ['strlen("Test")', strlen('Test')];
     yield ['MODIFIER_PUBLIC', MODIFIER_PUBLIC];
     yield ['self::INITIAL', 'initial'];
     yield ['Handle::$DEFAULT', Handle::$DEFAULT];
@@ -34,6 +37,18 @@ public function run() {
     }', $code)));
   }
 
+  #[Test]
+  public function using_functions() {
+    $r= $this->run('class <T> {
+      private $h= fn($arg) => $arg->redirect(1);
+
+      public function run() {
+        return $this->h;
+      }
+    }');
+    Assert::equals(new Handle(1), $r(new Handle(0)));
+  }
+
   #[Test]
   public function property_initialization_accessible_inside_constructor() {
     $r= $this->run('use lang\ast\unittest\emit\Handle; class <T> {