Improve tests

Author: Crell

Zend/tests/enum/013.phpt

@@ -0,0 +1,26 @@
+--TEST--
+Enum constants can alias cases
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Foo {
+    case Bar;
+    const Other = self::Bar;
+    const Again = static::Bar;
+}
+
+function test(Foo $var) {
+    print "works";
+}
+
+test(Foo:Other);
+test(Foo:Again);
+
+?>
+--EXPECTF--
+works
+works

Zend/tests/enum/021.phpt

@@ -0,0 +1,18 @@
+--TEST--
+Enum allows constants
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Foo {
+    const BAR = 'Bar';
+}
+
+print Foo::BAR;
+
+?>
+--EXPECTF--
+Bar

Zend/tests/enum/034.phpt renamed to Zend/tests/enum/__call.phpt

@@ -0,0 +1,22 @@
+--TEST--
+Enum cases can be referenced by constants
+--FILE--
+<?php
+
+enum Foo {
+    case Bar;
+}
+
+const Beep = Foo::Bar;
+
+class Test {
+    const Beep = Foo::Bar;
+}
+
+var_dump(Beep);
+var_dump(Test::Beep);
+
+?>
+--EXPECTF--
+enum(Foo::Bar)
+enum(Foo::Bar)

Zend/tests/enum/033.phpt renamed to Zend/tests/enum/__get.phpt

@@ -1,5 +1,5 @@
 --TEST--
-Enum type hints
+Enum types as parameters
 --FILE--
 <?php
 

Zend/tests/enum/035.phpt renamed to Zend/tests/enum/__invoke.phpt

@@ -0,0 +1,36 @@
+--TEST--
+is_enum
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Foo {
+    case Bar;
+}
+
+class Baz {}
+
+$enum_var = Foo::Bar;
+$not_enum_var = 'narf';
+
+// I'm not sure this one is correct?
+var_dump(is_enum(Foo::class));
+
+var_dump(is_enum(Foo::Bar::class));
+var_dump(is_enum(Baz::class));
+
+var_dump(is_enum('beep'));
+var_dump(is_enum($enum_var));
+var_dump(is_enum($not_enum_var));
+
+?>
+--EXPECT--
+bool(true)
+bool(true)
+bool(false)
+bool(false)
+bool(true)
+bool(false)

Zend/tests/enum/002.phpt renamed to Zend/tests/enum/basic-methods.phpt

@@ -0,0 +1,30 @@
+--TEST--
+Scalar enums can list cases
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Suit: string {
+    case Hearts = 'H';
+    case Diamonds = 'D';
+    case Clubs = 'C';
+    case Spades = 'S';
+}
+
+var_dump(Suit::cases());
+
+?>
+--EXPECTF--
+array(4) {
+  ["H"]=>
+  enum(Suit::Hearts)
+  ["D"]=>
+  enum(Suit::Diamonds)
+  ["C"]=>
+  enum(Suit::Clubs)
+  ["S"]=>
+  enum(Suit::Spades)
+}

Zend/tests/enum/001.phpt renamed to Zend/tests/enum/comparison.phpt

@@ -0,0 +1,21 @@
+--TEST--
+Scalar enums reject upcasting from invalid input
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Suit: string {
+    case Hearts = 'H';
+    case Diamonds = 'D';
+    case Clubs = 'C';
+    case Spades = 'S';
+}
+
+var_dump(Suit::from('A'));
+
+?>
+--EXPECTF--
+Fatal Error: 'A' is not a valid scalar value for 'Suit' enumeration in %s on line %d

Zend/tests/enum/constant-aliases.phpt

@@ -0,0 +1,40 @@
+--TEST--
+Scalar enums can be upcast from a scalar
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Suit: string {
+    case Hearts = 'H';
+    case Diamonds = 'D';
+    case Clubs = 'C';
+    case Spades = 'S';
+}
+
+var_dump(Suit::from('H'));
+var_dump(Suit::from('D'));
+var_dump(Suit::from('C'));
+var_dump(Suit::from('S'));
+
+enum Foo: int {
+    case Bar = 1;
+    case Baz = 2;
+    case Beep = 3;
+}
+
+var_dump(Foo::from(1));
+var_dump(Foo::from(2));
+var_dump(Foo::from(3));
+
+?>
+--EXPECTF--
+enum(Suit::Hearts)
+enum(Suit::Diamonds)
+enum(Suit::Clubs)
+enum(Suit::Spades)
+enum(Foo::Bar)
+enum(Foo::Baz)
+enum(Foo::Beep)

Zend/tests/enum/constants.phpt

@@ -0,0 +1,28 @@
+--TEST--
+Enum supports static methods
+--FILE--
+<?php
+
+enum Size {
+    case Small;
+    case Medium;
+    case Large;
+
+    public static function fromLength(int $cm) {
+        return match(true) {
+            $cm < 50 => static::Small,
+            $cm < 100 => static::Medium,
+            default => static::Large,
+        };
+    }
+}
+
+var_dump(Size::fromLength(23));
+var_dump(Size::fromLength(63));
+var_dump(Size::fromLength(123));
+
+?>
+--EXPECTF--
+enum(Size::Small)
+enum(Size::Medium)
+enum(Size::Large)

Zend/tests/enum/022.phpt renamed to Zend/tests/enum/default-parameter.phpt

@@ -0,0 +1,29 @@
+--TEST--
+Enum cannot have properties, even via traits
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+trait Rectangle {
+    protected string $shape = "Rectangle";
+
+    public function shape(): string {
+        return $this->shape;
+    }
+}
+
+enum Suit {
+    use Rectangle;
+
+    case Hearts;
+    case Diamonds;
+    case Clubs;
+    case Spades;
+}
+
+?>
+--EXPECTF--
+Fatal error: Traits used in enumerations may not contain properties.

Zend/tests/enum/enum-as-constant.phpt

@@ -0,0 +1,31 @@
+--TEST--
+Enum can use traits
+--FILE--
+<?php
+
+trait Rectangle {
+    public function shape(): string {
+        return "Rectangle";
+    }
+}
+
+enum Suit {
+    use Rectangle;
+
+    case Hearts;
+    case Diamonds;
+    case Clubs;
+    case Spades;
+}
+
+print Suit::Hearts->shape() . PHP_EOL;
+print Suit::Diamonds->shape() . PHP_EOL;
+print Suit::Clubs->shape() . PHP_EOL;
+print Suit::Spades->shape() . PHP_EOL;
+
+?>
+--EXPECTF--
+Rectangle
+Rectangle
+Rectangle
+Rectangle

Zend/tests/enum/003.phpt renamed to Zend/tests/enum/enum-as-params.phpt

@@ -0,0 +1,30 @@
+--TEST--
+Unit enums can list cases
+--SKIPIF--
+<?php
+die("skip, not yet implemented");
+?>
+--FILE--
+<?php
+
+enum Suit {
+    case Hearts;
+    case Diamonds;
+    case Clubs;
+    case Spades;
+}
+
+var_dump(Suit::cases());
+
+?>
+--EXPECTF--
+array(4) {
+  [0]=>
+  enum(Suit::Hearts)
+  [1]=>
+  enum(Suit::Diamonds)
+  [2]=>
+  enum(Suit::Clubs)
+  [3]=>
+  enum(Suit::Spades)
+}