1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
<?php
require "tests.php";
// New functions
check::functions(array('doublevalue1','doublevalue2','seek','seek2','seek3','seek4','seek5','seek6','seek7','seek8','seek9','seeka','seekb','anonymous','booltest','casts1','casts2','chartest1','chartest2','chartest3','chartest4','chartest5','chartest6','dummy','afunction','reftest1','reftest2','chops','exceptionspec','constructorcall','cfunc1','cfunc2','cfunc3','slightly_off_square'));
// New classes
check::classes(array('TrickyInPython','default_args','EnumClass','DerivedEnumClass','Tree','Foo','MyClass1','MyClass2','Except','Statics','Tricky','Klass','ConstMethods','Pointf','CDA'));
// New vars
check::globals(array('CONST_NUM'));
$ec = new EnumClass();
check::equal($ec->blah(), true, "EnumClass::blah() default arguments don't work");
$de = new DerivedEnumClass();
$de->accelerate();
$de->accelerate(EnumClass::SLOW);
check::equal(Statics::staticMethod(), 60, "Statics::staticMethod()");
check::equal(cfunc1(1), 2.0, "cfunc1(1)");
check::equal(cfunc2(1), 3.0, "cfunc2(1)");
check::equal(cfunc3(1), 4.0, "cfunc3(1)");
$f = new Foo();
$f->newname();
$f->newname(1);
$f->defaulted1();
$f->defaulted2();
check::equal($f->double_if_void_ptr_is_null(2, Null), 4, "\$f->double_if_void_ptr_is_null(2, Null)");
check::equal($f->double_if_void_ptr_is_null(3), 6, "\$f->double_if_void_ptr_is_null(3)");
check::equal($f->double_if_void_ptr_is_null(4, Null), 8, "\$f->double_if_void_ptr_is_null(4, Null)");
check::equal($f->double_if_void_ptr_is_null(5, Null), 10, "\$f->double_if_void_ptr_is_null(5, Null)");
check::equal($f->double_if_void_ptr_is_null(6, Null), 12, "\$f->double_if_void_ptr_is_null(6, Null)");
check::equal($f->double_if_void_ptr_is_null(7), 14, "\$f->double_if_void_ptr_is_null(7)");
# For the testcases below, PHP 7 emits an error, while PHP 8 throws an
# exception. To simplify the testcases we install an error handler function
# for PHP7 which throws an ArgumentCountError exception (which we have to
# define ourselves for PHP 7.0).
if (PHP_MAJOR_VERSION == 7) {
if (PHP_MINOR_VERSION == 0) {
# ArgumentCountError was added in PHP 7.1.
class ArgumentCountError extends Error {}
}
$old_error_handler = set_error_handler(function($n,$s,$f,$l){throw preg_match('/^Wrong parameter count/', $s) ? new ArgumentCountError($s) : new Error($s);});
}
try {
$f = new Foo(1);
check::fail("Foo::Foo ignore is not working");
} catch (ArgumentCountError $e) {
}
try {
$f = new Foo(1, 2);
check::fail("Foo::Foo ignore is not working");
} catch (ArgumentCountError $e) {
}
try {
$f = new Foo(1, 2, 3);
check::fail("Foo::Foo ignore is not working");
} catch (ArgumentCountError $e) {
}
try {
$m = $f->meth(1);
check::fail("Foo::meth ignore is not working");
} catch (Error $e) {
}
try {
$m = $f->meth(1, 2);
check::fail("Foo::meth ignore is not working");
} catch (Error $e) {
}
try {
$m = $f->meth(1, 2, 3);
check::fail("Foo::meth ignore is not working");
} catch (Error $e) {
}
if (PHP_MAJOR_VERSION == 7) {
set_error_handler($old_error_handler);
}
check::equal(Klass::inc(100, new Klass(22))->val, 122, "Klass::inc failed");
check::equal(klass::inc(100)->val, 99, "klass::inc failed");
check::equal(klass::inc()->val, 0, "klass::inc failed");
$tricky = new TrickyInPython();
check::equal($tricky->value_m1(10), -1, "trickyvalue_m1 failed");
check::equal($tricky->value_m1(10, 10), 10, "trickyvalue_m1 failed");
check::equal($tricky->value_0xabcdef(10), 0xabcdef, "trickyvalue_0xabcdef failed");
check::equal($tricky->value_0644(10), 420, "trickyvalue_0644 failed");
check::equal($tricky->value_perm(10), 420, "trickyvalue_perm failed");
check::equal($tricky->value_m01(10), -1, "trickyvalue_m01 failed");
check::equal($tricky->booltest2(), True, "booltest2 failed");
check::equal($tricky->max_32bit_int1(), 0x7FFFFFFF, "max_32bit_int1 failed");
// On 32-bit platforms -2147483648 is a PHP float (rather than
// PHP int on 64-bit platforms) so only check equivalence rather
// than strict equality.
check::equivalent($tricky->min_32bit_int1(), -2147483648, "min_32bit_int1 failed");
check::equal($tricky->max_32bit_int2(), 0x7FFFFFFF, "max_32bit_int2 failed");
$tricky->too_big_32bit_int1();
$tricky->too_small_32bit_int1();
$tricky->too_big_32bit_int2();
$tricky->too_small_32bit_int2();
seek();
seek(10);
check::equal(booltest(), True, "booltest failed");
check::equal(slightly_off_square(10), 102, "slightly_off_square(10)");
check::equal(slightly_off_square(), 291, "slightly_off_square()");
check::equal(chartest1(), "x", "chartest1()");
check::equal(chartest2(), "\0", "chartest2()");
check::equal(chartest3(), "\1", "chartest3()");
check::equal(chartest4(), "\n", "chartest4()");
check::equal(chartest5(), "B", "chartest5()");
check::equal(chartest6(), "C", "chartest6()");
if (PHP_MAJOR_VERSION >= 8) {
// Regression test for bug in initial implementation of PHP type declarations.
$p = (new ReflectionMethod('TrickyInPython', 'value_m1'))->getParameters();
// empty array in buggy version
check::equal(count($p), 2, "Expected 2 parameters");
check::equal((string)$p[0]->getType(), 'int', "Expected int parameter");
check::equal((string)$p[1]->getType(), 'int', "Expected int parameter");
$p = (new ReflectionMethod('EnumClass', 'blah'))->getParameters();
// empty array in buggy version
check::equal(count($p), 2, "Expected 2 parameters");
check::equal((string)$p[0]->getType(), 'int', "Expected int parameter");
check::equal((string)$p[1]->getType(), 'int', "Expected int parameter");
}
check::done();
|
