wellton/hhvm
1
0
Fork 0
Código Issues Pull Requests Ações Pacotes Projetos Versões Wiki Atividade
Arquivos
7fd841e6c1e9b37a72040fb7b3d3a80b9d94975d
hhvm/hphp/test/test_code_run.cpp
T
bsimmers 7fd841e6c1 Limit number of test jobs to 20 max
2013-02-13 06:42:43 -08:00

34207 linhas
976 KiB
C++
Original Anotar Histórico

/*
+----------------------------------------------------------------------+
| HipHop for PHP |
+----------------------------------------------------------------------+
| Copyright (c) 2010- Facebook, Inc. (http://www.facebook.com) |
+----------------------------------------------------------------------+
| This source file is subject to version 3.01 of the PHP license, |
| that is bundled with this package in the file LICENSE, and is |
| available through the world-wide-web at the following url: |
| http://www.php.net/license/3_01.txt |
| If you did not receive a copy of the PHP license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@php.net so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
*/
#include <test/test_code_run.h>
#include <compiler/parser/parser.h>
#include <compiler/builtin_symbols.h>
#include <compiler/code_generator.h>
#include <compiler/analysis/analysis_result.h>
#include <compiler/analysis/type.h>
#include <util/util.h>
#include <util/process.h>
#include <compiler/option.h>
#include <runtime/base/runtime_option.h>
#include <pcre.h>
#include <hphp/test/test_mysql_info.h>
#include <runtime/ext/ext_file.h>
using std::istringstream;
using std::ostringstream;
///////////////////////////////////////////////////////////////////////////////
const char *TestCodeRun::Filter = 0;
// By default, use shared linking for faster testing.
bool TestCodeRun::FastMode = true;
TestCodeRun::TestCodeRun() : m_perfMode(false), m_test(0) {
Option::GenerateCPPMain = true;
Option::GenerateCPPMetaInfo = true;
Option::GenerateCPPMacros = true;
Option::GenerateCPPComments = true;
Option::GenerateCPPNameSpace = true;
Option::KeepStatementsWithNoEffect = false;
Option::ParserThreadCount = 4;
}
bool TestCodeRun::preTest() {
if (!CleanUp()) return false;
m_infos.clear();
return true;
}
bool TestCodeRun::postTest() {
if (!MultiVerifyCodeRun()) return false;
return true;
}
bool TestCodeRun::CleanUp() {
string out, err;
const char *argv[] = {"", NULL};
Process::Exec("runtime/tmp/cleanup.sh", argv, NULL, out, &err);
if (!err.empty()) {
printf("Failed to clean up runtime/tmp: %s\n", err.c_str());
return false;
}
return true;
}
static bool GenerateMainPHP(const std::string &fullPath,
const char *file, int line,
const char *input) {
Util::mkdir(fullPath.c_str());
std::ofstream f(fullPath.c_str());
if (!f) {
printf("Unable to open %s for write. Run this test from hphp/.\n",
fullPath.c_str());
return false;
}
if (file && !strncmp(input, "<?php", 5)) {
f << "<?php\n# " << file << ":" << line << "\n";
f << (input + 5);
} else {
f << input;
}
f.close();
return true;
}
bool TestCodeRun::GenerateFiles(const char *input,
const char *subdir) {
assert(subdir && subdir[0]);
// generate main.php early, so if we fail, we have a PHP file to debug with
string fullPath = "runtime/tmp";
if (subdir && subdir[0]) fullPath = fullPath + "/" + subdir;
fullPath += "/main.php";
if (!GenerateMainPHP(fullPath, 0, 0, input)) return false;
// load the type hints
Type::ResetTypeHintTypes();
Type::InitTypeHintMap();
BuiltinSymbols::LoadSuperGlobals();
AnalysisResultPtr ar(new AnalysisResult());
string path = string("runtime/tmp/") + subdir;
ar->setOutputPath(path.c_str());
Compiler::Parser::ParseString(input, ar);
BuiltinSymbols::Load(ar);
ar->loadBuiltins();
ar->analyzeProgram();
ar->preOptimize();
ar->analyzeIncludes();
ar->inferTypes();
ar->postOptimize();
ar->analyzeProgramFinal();
ar->outputAllCPP(CodeGenerator::ClusterCPP, 0, NULL);
string target = path + "/Makefile";
const char *argv1[] = {"", "runtime/tmp/single.mk", target.c_str(), NULL};
string out, err;
Process::Exec("cp", argv1, NULL, out, &err);
if (!err.empty()) {
printf("Failed to copy runtime/tmp/single.mk: %s\n", err.c_str());
return false;
}
if (FastMode) {
string sys = string(subdir) + "/sys";
const char *argv2[] = {"", sys.c_str(), NULL};
Process::Exec("runtime/tmp/mergecpp.sh", argv2, NULL, out, &err);
if (!err.empty()) {
printf("Failed to merge runtime/tmp/%s/*.cpp: %s\n",
sys.c_str(), err.c_str());
return false;
}
}
return true;
}
static string filter_distcc(string &msg) {
istringstream is(msg);
ostringstream os;
string line;
while (getline(is, line)) {
if (line.compare(0, 6, "distcc")) {
os << line << '\n';
}
}
return os.str();
}
bool TestCodeRun::CompileFiles() {
string out, err;
const char *argv[] = {"", FastMode ? "SHARED" : "LINK", NULL};
Process::Exec("runtime/makeall.sh", argv, NULL, out, &err);
err = filter_distcc(err);
if (!err.empty()) {
printf("Failed to compile files:\n");
istringstream is(err);
string line;
string buffer;
while (getline(is, line)) {
buffer += line + "\n";
if (!line.compare(0, 4, "make")) {
unsigned int start = 0;
while (start < line.length() && line.compare(start, 4, "Test")) {
start++;
}
if (start < line.length()) {
istringstream isl(line.substr(start + 4));
int seqno;
if (isl >> seqno) {
printf("======================================\n"
"runtime/tmp/Test%d/main.php:\n"
"======================================\n",
seqno);
printf("\n%s:%d\nParsing: [%s]\n%s\n", m_infos[seqno].file,
m_infos[seqno].line, m_infos[seqno].input, buffer.c_str());
buffer = "";
}
}
}
}
if (!buffer.empty()) {
// leftover error messages, if any
printf("\n%s\n", buffer.c_str());
}
return false;
}
return true;
}
static string escape(const std::string &s) {
string ret;
ret.reserve(s.size() + 20);
for (unsigned int i = 0; i < s.length(); i++) {
char ch = s[i];
if (isprint(ch) || ch == '\n') {
ret += ch;
} else {
char buf[10];
snprintf(buf, sizeof(buf), "{\\x%02X}", (unsigned char)ch);
ret += buf;
}
}
return ret;
}
static bool verify_result(const char *input, const char *output, bool perfMode,
const char *file = "", int line = 0,
bool nowarnings = false,
bool fileoutput = false,
const char *subdir = "",
bool fastMode = false) {
// generate main.php
string fullPath = "runtime/tmp";
if (subdir && subdir[0]) fullPath = fullPath + "/" + subdir;
fullPath += "/main.php";
if (!GenerateMainPHP(fullPath, 0, 0, input)) return false;
// get PHP's output if "output" is NULL
string expected;
if (output) {
if (fileoutput) {
String s = f_file_get_contents(output);
expected = string(s.data(), s.size());
} else {
expected = output;
}
} else {
const char *argv1[] = {"", "-ddisplay_errors=stderr",
"-dapc.enable_cli=1",
fullPath.c_str(), NULL};
const char *argv2[] = {"", "-ddisplay_errors=On",
"-dapc.enable_cli=1",
fullPath.c_str(), NULL};
string err;
Process::Exec(php_path, nowarnings ? argv2 : argv1, NULL, expected, &err);
if (!err.empty() && nowarnings) {
printf("%s:%d\nParsing: [%s]\nFailed to run %s: %s\n",
file, line, input, fullPath.c_str(), err.c_str());
return false;
}
}
// run and verify output
{
string actual, err;
string dir = "runtime/tmp/";
if (subdir) dir = dir + subdir + "/";
string repoarg = "-vRepo.Central.Path=" + dir + "hhvm.hhbc";
if (Option::EnableEval < Option::FullEval) {
if (fastMode) {
string path = dir + "libtest.so";
const char *argv[] = {"", "--file=string", "--config=test/config.hdf",
repoarg.c_str(), path.c_str(), NULL};
Process::Exec("runtime/tmp/run.sh", argv, NULL, actual, &err);
} else {
const char *argv[] = {"", "--file=string", "--config=test/config.hdf",
repoarg.c_str(), NULL};
string path = dir + "test";
Process::Exec(path.c_str(), argv, NULL, actual, &err);
}
} else {
string filearg = "--file=" + dir + "main.php";
string jitarg = string("-vEval.Jit=") +
(RuntimeOption::EvalJit ? "true" : "false");
string jit_use_ir = string("-vEval.JitUseIR=") +
(RuntimeOption::EvalJitUseIR ? "true" : "false");
string jit_rename = string("-vEval.JitEnableRenameFunction=") +
(RuntimeOption::EvalJit ? "true" : "false");
const char *argv[] = {"", filearg.c_str(),
"--config=test/config.hdf",
repoarg.c_str(),
jitarg.c_str(),
jit_use_ir.c_str(),
jit_rename.c_str(),
NULL};
Process::Exec(HHVM_PATH, argv, NULL, actual, &err);
}
if (perfMode) {
string sinput = input;
const char *marker = "/* INPUT */";
int pos1 = sinput.find(marker);
int pos2 = sinput.find(marker, pos1+1);
pos1 += strlen(marker);
sinput = sinput.substr(pos1, pos2 - pos1);
if (sinput.size() > 1000) sinput = "(long program)";
// we have to adjust timing by removing loop cost, which is the 1st test
static int adj1 = -1;
static int adj2 = -1;
int ms1 = atoi(expected.c_str());
int ms2 = atoi(actual.c_str());
if (adj1 == -1) adj1 = ms1;
if (adj2 == -1) adj2 = ms2;
int msAdj1 = ms1 - adj1;
int msAdj2 = ms2 - adj2;
double x = 0.0; // how many times faster
double p = 0.0; // percentage
if (msAdj2 != 0) {
x = ((double)(int)(msAdj1 * 100 / msAdj2)) / 100;
}
if (msAdj1 != 0) {
p = ((double)(int)(msAdj2 * 10000 / msAdj1)) / 100;
}
printf("----------------------------------------------------------\n"
"%s\n\n"
" PHP C++\n"
"===========================================\n"
" %6d ms %6d ms\n"
" -%6d ms %6d ms\n"
"===========================================\n"
" %6d ms %6d ms = %2.4gx or %2.4g%%\n\n",
sinput.c_str(), ms1, ms2, adj1, adj2, msAdj1, msAdj2, x, p);
return true;
}
bool out_ok = actual == expected;
if (!out_ok || (!nowarnings && !err.empty())) {
if (out_ok &&
err.find("symbol lookup error:") != string::npos &&
err.find("undefined symbol: ") != string::npos) {
printf("%s: Ignoring loader error: %s\n",
fullPath.c_str(), err.c_str());
} else {
printf("======================================\n"
"%s:\n"
"======================================\n"
"%s:%d\nParsing: [%s]\nBet %d:\n"
"--------------------------------------\n"
"%s"
"--------------------------------------\n"
"Got %d:\n"
"--------------------------------------\n"
"%s"
"--------------------------------------\n"
"Err: [%s]\n", fullPath.c_str(), file, line, input,
(int)expected.length(), escape(expected).c_str(),
(int)actual.length(), escape(actual).c_str(),
err.c_str());
return false;
}
}
}
return true;
}
bool TestCodeRun::RecordMulti(const char *input, const char *output,
const char *file, int line, bool nowarnings,
bool fileoutput) {
if (Filter) {
const char *errptr;
int erroffset;
pcre *re = pcre_compile(Filter, PCRE_CASELESS, &errptr, &erroffset, 0);
if (re && pcre_exec(re, 0, input, strlen(input), 0, 0, 0, 0) >= 0) {
return true;
}
}
string fullPath = "runtime/tmp/" + Test::s_suite + "/" + test_name + "/tcr-" +
boost::lexical_cast<string>(m_test++);
if (!GenerateMainPHP(fullPath + "/main.php", file, line, input)) return false;
if (nowarnings) {
std::ofstream((fullPath + "/nowarnings").c_str());
}
if (!m_compileOptions.empty()) {
std::ofstream s((fullPath + "/build.opts").c_str());
s << m_compileOptions;
}
if (!m_runtimeOptions.empty()) {
std::ofstream s((fullPath + "/test.opts").c_str());
s << m_runtimeOptions;
}
if (!m_envVars.empty()) {
std::ofstream s((fullPath + "/test.env").c_str());
s << m_envVars;
}
if (output) {
std::ofstream s((fullPath + "/test.result").c_str());
if (fileoutput) {
String expected = f_file_get_contents(output);
s << string(expected.data(), expected.size());
} else {
s << output;
}
}
return true;
}
bool TestCodeRun::MultiVerifyCodeRun() {
return true;
if (Option::EnableEval < Option::FullEval) {
CompileFiles();
}
bool ret = true;
for (unsigned i = 0; i < m_infos.size(); i++) {
assert(m_infos[i].input);
ostringstream os;
os << "Test" << i;
if (!Count(verify_result(m_infos[i].input, m_infos[i].output, m_perfMode,
m_infos[i].file, m_infos[i].line,
m_infos[i].nowarnings,
m_infos[i].fileoutput, os.str().c_str(),
FastMode))) {
ret = false;
}
}
return ret;
}
bool TestCodeRun::VerifyCodeRun(const char *input, const char *output,
const char *file /* = "" */,
int line /* = 0 */,
bool nowarnings /* = false */,
bool fileoutput /* = false */) {
assert(input);
if (!CleanUp()) return false;
if (Option::EnableEval < Option::FullEval) {
if (!GenerateFiles(input, "Test0") || !CompileFiles()) {
return false;
}
}
return verify_result(input, output, m_perfMode,
file, line, nowarnings, fileoutput, "Test0", FastMode);
}
///////////////////////////////////////////////////////////////////////////////
#define GEN_TEST(test) \
if (!which.empty() && which != #test) { \
} else { \
test_name = #test; \
test(); \
}
bool TestCodeRun::RunTests(const std::string &which) {
CleanUp();
bool ret = true;
GEN_TEST(TestSanity);
GEN_TEST(TestInnerFunction);
GEN_TEST(TestInnerClass);
GEN_TEST(TestVariableArgument);
GEN_TEST(TestArgumentHandling);
GEN_TEST(TestListAssignment);
GEN_TEST(TestExceptions);
GEN_TEST(TestPredefined);
GEN_TEST(TestLabels);
GEN_TEST(TestPerfectVirtual);
GEN_TEST(TestBoolean);
GEN_TEST(TestInteger);
GEN_TEST(TestDouble);
GEN_TEST(TestString);
GEN_TEST(TestLocale);
GEN_TEST(TestArray);
GEN_TEST(TestArrayInit);
GEN_TEST(TestArrayCopy);
GEN_TEST(TestArrayEscalation);
GEN_TEST(TestArrayOffset);
GEN_TEST(TestArrayAccess);
GEN_TEST(TestArrayIterator);
GEN_TEST(TestArrayForEach);
GEN_TEST(TestArrayAssignment);
GEN_TEST(TestArrayFunctions);
GEN_TEST(TestArrayCSE);
GEN_TEST(TestScalarArray);
GEN_TEST(TestRange);
GEN_TEST(TestVariant);
GEN_TEST(TestObject);
GEN_TEST(TestObjectProperty);
GEN_TEST(TestObjectMethod);
GEN_TEST(TestClassMethod);
GEN_TEST(TestObjectMagicMethod);
GEN_TEST(TestObjectInvokeMethod);
GEN_TEST(TestObjectAssignment);
GEN_TEST(TestNewObjectExpression);
GEN_TEST(TestObjectPropertyExpression);
GEN_TEST(TestCollectionClasses);
GEN_TEST(TestComparisons);
GEN_TEST(TestReference);
GEN_TEST(TestUnset);
GEN_TEST(TestDynamicConstants);
GEN_TEST(TestDynamicVariables);
GEN_TEST(TestDynamicProperties);
GEN_TEST(TestDynamicFunctions);
GEN_TEST(TestRenameFunction);
GEN_TEST(TestIntercept);
GEN_TEST(TestMaxInt);
GEN_TEST(TestDynamicMethods);
GEN_TEST(TestVolatile);
GEN_TEST(TestHereDoc);
GEN_TEST(TestProgramFunctions);
GEN_TEST(TestCompilation);
GEN_TEST(TestReflection);
GEN_TEST(TestReflectionClasses);
GEN_TEST(TestErrorHandler);
GEN_TEST(TestAssertOptions);
GEN_TEST(TestExtMisc);
GEN_TEST(TestInvalidArgument);
GEN_TEST(TestSuperGlobals);
GEN_TEST(TestGlobalStatement);
GEN_TEST(TestStaticStatement);
GEN_TEST(TestIfStatement);
GEN_TEST(TestBreakStatement);
GEN_TEST(TestContinueStatement);
GEN_TEST(TestReturnStatement);
GEN_TEST(TestAdd);
GEN_TEST(TestMinus);
GEN_TEST(TestMultiply);
GEN_TEST(TestDivide);
GEN_TEST(TestModulus);
GEN_TEST(TestOperationTypes);
GEN_TEST(TestUnaryOperators);
GEN_TEST(TestSilenceOperator);
GEN_TEST(TestPrint);
GEN_TEST(TestVarExport);
GEN_TEST(TestLogicalOperators);
GEN_TEST(TestGetClass);
GEN_TEST(TestGetParentClass);
GEN_TEST(TestRedeclaredFunctions);
GEN_TEST(TestRedeclaredClasses);
GEN_TEST(TestReassignThis);
GEN_TEST(TestClone);
GEN_TEST(TestEvalOrder);
GEN_TEST(TestGetObjectVars);
GEN_TEST(TestSerialization);
GEN_TEST(TestJson);
GEN_TEST(TestThrift);
GEN_TEST(TestExit);
GEN_TEST(TestCreateFunction);
GEN_TEST(TestConstructorDestructor);
GEN_TEST(TestConcat);
GEN_TEST(TestConstant);
GEN_TEST(TestClassConstant);
GEN_TEST(TestConstantFunction);
GEN_TEST(TestDefined);
GEN_TEST(TestSimpleXML);
GEN_TEST(TestXML);
GEN_TEST(TestDOMDocument);
GEN_TEST(TestFile);
GEN_TEST(TestDirectory);
GEN_TEST(TestAssignment);
GEN_TEST(TestBadFunctionCalls);
GEN_TEST(TestConstructor);
GEN_TEST(TestIntIsset);
GEN_TEST(TestTernary);
GEN_TEST(TestUselessAssignment);
GEN_TEST(TestTypes);
GEN_TEST(TestSwitchStatement);
GEN_TEST(TestExtString);
GEN_TEST(TestExtArray);
GEN_TEST(TestExtFile);
GEN_TEST(TestExtDate);
GEN_TEST(TestExtImage);
GEN_TEST(TestExtSplFile);
GEN_TEST(TestExtIterator);
GEN_TEST(TestExtSoap);
GEN_TEST(TestExtCollator);
GEN_TEST(TestExtSocket);
GEN_TEST(TestAPC);
GEN_TEST(TestInlining);
GEN_TEST(TestCopyProp);
GEN_TEST(TestParser);
GEN_TEST(TestTypeAssertions);
GEN_TEST(TestSerialize);
if (Option::EnableEval == Option::FullEval) {
// hphpc is intentionally more liberal with its hoisting rules
GEN_TEST(TestHoisting);
}
// PHP 5.3 features
GEN_TEST(TestVariableClassName);
GEN_TEST(TestLateStaticBinding);
GEN_TEST(TestCallStatic);
GEN_TEST(TestNowDoc);
GEN_TEST(TestTernaryShortcut);
GEN_TEST(TestGoto);
GEN_TEST(TestClosure);
if (!hhvm) {
GEN_TEST(TestNamespace);
}
// PHP 5.4 features
GEN_TEST(TestTraits);
// PHP 5.5 features
GEN_TEST(TestUConverter);
// HipHop features
GEN_TEST(TestYield);
GEN_TEST(TestHint);
GEN_TEST(TestUserAttributes);
#ifdef TAINTED
GEN_TEST(TestTaint);
GEN_TEST(TestTaintExt);
#endif
GEN_TEST(TestStrictMode);
GEN_TEST(TestAdHoc);
{
// We have a still unresolved repo contention issues with more
// than 20 jobs. t1394416
int cpus = std::min(20, Process::GetCPUCount());
int jobs = cpus;
char* hphp_slow_tests_jobs = getenv("HPHP_SLOW_TESTS_JOBS");
if (hphp_slow_tests_jobs) {
int n = atoi(hphp_slow_tests_jobs);
if (n > 0) jobs = n;
}
string cmd =
"env -u MFLAGS -u MAKEFLAGS "
"make -f runtime/tmp/test.mk --no-print-directory "
"SUITE="+Test::s_suite +
" -j" + boost::lexical_cast<string>(jobs);
if (::system(cmd.c_str())) {
printf("Failed to run testsuite: %s\n", Test::s_suite.c_str());
return false;
}
std::ifstream in(("runtime/tmp/"+Test::s_suite+"/results").c_str());
if (in.fail()) return false;
in >> fail_count;
in >> pass_count;
int total;
in >> total;
Test::s_passed = pass_count;
Test::s_total = total;
return total == pass_count && !fail_count;
}
return ret;
}
///////////////////////////////////////////////////////////////////////////////
// code generation
bool TestCodeRun::TestSanity() {
MVCR("<?php print 'Hello, World!';");
MVCR("Hello, World!");
MVCR("#!/usr/bin/php\n"
"<?php\n");
MVCR("#!/usr/bin/php\n"
"\n"
"<?php\n");
MVCR("#!/usr/bin/env <?php\n"
"#!/usr/bin/env php\n"
"a /* show or not */ b\n"
"Hello, World! # comments\n"
"<?php\n"
"print 'hello'; # comments");
MVCR("<?php if (true) { ?>#<?php } ?>");
return true;
}
bool TestCodeRun::TestInnerFunction() {
MVCR("<?php function test() { print 'test';} test();");
MVCR("<?php function test() { function inner() { print 'test';} inner();} "
"test();");
return true;
}
bool TestCodeRun::TestInnerClass() {
MVCR("<?php class test { function p() { print 'test';} } "
"$obj = new Test(); $obj->p();");
MVCR("<?php class test { function p() { function inner() { print 'test';} "
"inner();} } $obj = new Test(); $obj->p();");
MVCR("<?php function test() { class test { function p() { print 'test';} }} "
"test(); $obj = new Test(); $obj->p();");
return true;
}
bool TestCodeRun::TestVariableArgument() {
MVCR("<?php function test() { "
" $n = func_num_args(); "
" var_dump($n);"
" $args = func_get_args();"
" var_dump($args);"
"} "
"test(); test(1); test(1, 2);");
MVCR("<?php function test() { "
" var_dump(func_get_arg(0));"
" var_dump(func_get_arg(1));"
"} "
"test(2, 'ok');");
MVCR("<?php function test($a) { "
" $n = func_num_args(); "
" var_dump($n);"
" $args = func_get_args();"
" var_dump($args);"
"} "
"test(1); test(1, 2); test(1, 2, 3);");
MVCR("<?php function test($a) { "
" var_dump(func_get_arg(0));"
" var_dump(func_get_arg(1));"
" var_dump(func_get_arg(2));"
"} "
"test(2, 'ok', array(1));");
MVCR("<?php function test($a, $b) { "
" $n = func_num_args(); "
" var_dump($n);"
" $args = func_get_args();"
" var_dump($args);"
"} "
"test(1, 2); test(1, 2, 3); test(1, 2, 3, 4);");
MVCR("<?php function test() { "
" var_dump(func_get_arg(0));"
" var_dump(func_get_arg(1));"
" var_dump(func_get_arg(2));"
" var_dump(func_get_arg(3));"
"} "
"test(2, 'ok', 0, 'test');");
MVCR("<?php function test($a) { "
" $n = func_num_args(); "
" var_dump($n);"
" $args = func_get_args();"
" var_dump($args);"
"} "
"test('test'); test(1, 2); test(1, 2, 3);");
MVCR("<?php class A { public function test($a) {"
" var_dump(func_num_args());"
" var_dump(func_get_args());"
"}} $obj = new A(); $obj->test('test'); $obj->test(1, 2, 3);");
MVCR("<?php class A { public function __construct($a) {"
" var_dump(func_num_args());"
" var_dump(func_get_args());"
"}} $obj = new A(1, 2, 3); $obj = new A('test');");
MVCR("<?php function test($a = 10) { "
" var_dump($a);"
" var_dump(func_get_args());"
"} "
"test(); test(1); test(1, 2);");
MVCR("<?php function test($a, $b = 10) { "
" var_dump($a);"
" var_dump($b);"
" var_dump(func_get_args());"
"} "
"test(1); test(1, 2); test(1, 2, 3);");
// testing variable argument + reference parameter
MVCR("<?php $ar1 = array(10, 100, 100, 0); $ar2 = array(1, 3, 2, 4);"
"array_multisort($ar1, $ar2); var_dump($ar1, $ar2);");
MVCR("<?php "
"class Foo {"
" public static function Add($x, $y) {}"
"}"
"$x = 0;"
"if (!call_user_func(array('Foo', 'add'), $x, 0)) {"
" echo 'foo';"
"}");
MVCR("<?php "
"function f1($a, $b) {"
" $c = func_num_args();"
" $args = func_get_args();"
" $args[0] = 5;"
" $args[1] = 6;"
" $args[2] = 7;"
" var_dump($c);"
" var_dump($args);"
"}"
"function f2($a, &$b) {"
" $c = func_num_args();"
" $args = func_get_args();"
" $args[0] = 5;"
" $args[1] = 6;"
" $args[2] = 7;"
" var_dump($c);"
" var_dump($args);"
"}"
"function f3(&$a, $b) {"
" $c = func_num_args();"
" $args = func_get_args();"
" $args[0] = 5;"
" $args[1] = 6;"
" $args[2] = 7;"
" var_dump($c);"
" var_dump($args);"
"}"
"function f4(&$a, &$b) {"
" $c = func_num_args();"
" $args = func_get_args();"
" var_dump($args);"
" $args[0] = 5;"
" $args[1] = 6;"
" $args[2] = 7;"
" var_dump($c);"
" var_dump($args);"
"}"
"function f5($a, $b) {"
" $arg0 = func_get_arg(0);"
" $arg1 = func_get_arg(1);"
" $arg2 = func_get_arg(2);"
" $arg0 = 5;"
" $arg1 = 6;"
" $arg2 = 7;"
" var_dump($arg0, $arg1, $arg2);"
"}"
"function f6($a, &$b) {"
" $arg0 = func_get_arg(0);"
" $arg1 = func_get_arg(1);"
" $arg2 = func_get_arg(2);"
" $arg0 = 5;"
" $arg1 = 6;"
" $arg2 = 7;"
" var_dump($arg0, $arg1, $arg2);"
"}"
"function f7(&$a, $b) {"
" $arg0 = func_get_arg(0);"
" $arg1 = func_get_arg(1);"
" $arg2 = func_get_arg(2);"
" $arg0 = 5;"
" $arg1 = 6;"
" $arg2 = 7;"
" var_dump($arg0, $arg1, $arg2);"
"}"
"function f8(&$a, &$b) {"
" $arg0 = func_get_arg(0);"
" $arg1 = func_get_arg(1);"
" $arg2 = func_get_arg(2);"
" $arg0 = 5;"
" $arg1 = 6;"
" $arg2 = 7;"
" var_dump($arg0, $arg1, $arg2);"
"}"
"function bar() {"
" $a = 1;"
" f1($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f2($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f3($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f4($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f5($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f6($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f7($a, $a, $a);"
" var_dump($a);"
" $a = 1;"
" f8($a, $a, $a);"
" var_dump($a);"
"}"
"bar();");
MVCR("<?php "
"class Y { function __destruct() { } };"
"class X extends Y {"
" function __get($a) {"
" var_dump(func_get_args());"
" var_dump(func_get_arg(0));"
" var_dump(func_num_args());"
" return 42;"
" }"
" function __destruct() {"
" var_dump(func_get_args());"
" var_dump(func_get_arg(0));"
" var_dump(func_num_args());"
" return 2442;"
" }"
"}"
"$x = new X;"
"var_dump($x->buz);"
"unset($x);");
if (!hhvm) {
MVCR("<?php "
"function foo($a, $b, $c = 5) {"
" if ($a) $b++;"
" var_dump(func_get_args());"
"}"
"foo(1,2,3,4,5);"
"function bar($a, &$b, $c = 5) {"
" if ($a) $b++;"
" var_dump(func_get_args());"
"}"
"$b = 2;"
"bar(1,$b,3,4,5);"
"function baz($a, &$b, $c = 5) {"
" if ($a) unset($b);"
" var_dump(func_get_args());"
"}"
"$b = 2;"
"baz(1,$b,3,4,5);");
}
MVCR("<?php\n"
"function f() {\n"
" var_dump(func_get_args());\n"
"}\n"
"function g($x) {\n"
" if ($x) $f = 'f';\n"
" else $f = '__nocall__';\n"
" call_user_func_array($f, "
" array('x' => 10, 'y' => 20, 'z' => 30, 'j' => 40));\n"
" call_user_func_array($f, "
" array(3 => 10, 80 => 20, 10 => 30, 30 => 40));\n"
"}\n"
"g(10);\n");
MVCR("<?php\n"
"function f() {\n"
" var_dump(func_get_arg(-1));\n"
" var_dump(func_get_arg(0));\n"
" var_dump(func_get_arg(1));\n"
" if (func_get_arg(2)) {\n"
" $x = 0;\n"
" } else {\n"
" $x = 1;\n"
" }\n"
" var_dump(func_get_arg($x++));\n"
"}\n"
"function g($x, &$y) {\n"
" var_dump(func_get_arg(-1));\n"
" var_dump(func_get_arg(0));\n"
" var_dump(func_get_arg(1));\n"
" var_dump(func_get_arg(2));\n"
" var_dump(func_get_arg(3));\n"
"}\n"
"function h($x, &$y, array $z) {\n"
" var_dump(func_get_arg(-1));\n"
" var_dump(func_get_arg(0));\n"
" var_dump(func_get_arg(1));\n"
" var_dump(func_get_arg(2));\n"
" var_dump(func_get_arg(3));\n"
" var_dump(func_get_arg(4));\n"
"}\n"
"function i(&$x) {\n"
" $x = 30;\n"
" var_dump(func_get_args());\n"
" var_dump(func_get_arg(0));\n"
" $y =& func_get_arg(0);\n"
" $y = 40;\n"
" var_dump(func_get_arg(0));\n"
"}\n"
"f(10);\n"
"$x = 1;\n"
"g(0, $x, 2);\n"
"h(0, $x, array(1, 2), 3);\n"
"$x = 10;\n"
"i($x);\n"
"i();\n");
return true;
}
bool TestCodeRun::TestArgumentHandling() {
MVCR("<?php\n"
"function test($str) {\n"
" return strlen($str);\n"
"}\n"
"var_dump(strlen());\n"
"var_dump(test());\n"
"\n"
"var_dump(strlen('test'));\n"
"var_dump(test('test'));\n"
"\n"
"var_dump(strlen('test', 123));\n"
"var_dump(test('test', 123));\n"
);
MVCR("<?php "
"function f($x) { $b = $x; $b++; }"
"$a = 1;"
"f(&$a);"
"var_dump($a);");
return true;
}
bool TestCodeRun::TestListAssignment() {
MVCR("<?php $a = 'old'; var_dump(list($a) = false); var_dump($a);");
MVCR("<?php $a = 'old'; var_dump(list($a) = 'test'); var_dump($a);");
MVCR("<?php $a = 'old'; var_dump(list($a) = 123); var_dump($a);");
MVCR("<?php list() = array(1,2,3);");
MVCR("<?php list(,) = array(1,2,3);");
MVCR("<?php var_dump(list($a,) = array(1,2,3)); var_dump($a);");
MVCR("<?php var_dump(list(,$b) = array(1,2,3)); var_dump($b);");
MVCR("<?php var_dump(list($b) = array(1,2,3)); var_dump($b);");
MVCR("<?php var_dump(list($a,$b) = array(1,2,3)); "
"var_dump($a); var_dump($b);");
MVCR("<?php var_dump(list($a,list($c),$b) = array(1,array(2),3));"
"var_dump($a); var_dump($b); var_dump($c);");
MVCR("<?php $c = 'old'; var_dump(list($a,list($c),$b) = array(1,'test',3));"
"var_dump($a); var_dump($b); var_dump($c);");
MVCR("<?php var_dump(list($a,list(),$b) = array(1,array(2),3));"
"var_dump($a); var_dump($b);");
MVCR("<?php $info = array('coffee', 'brown', 'caffeine');"
"list($a[0], $a[1], $a[2]) = $info;"
"var_dump($a);");
MVCR("<?php "
"class obj implements arrayaccess {"
" private $container = array();"
" public function __construct() {"
" $this->container = array("
" 'one' => 1,"
" 'two' => 2,"
" 'three' => 3,"
" );"
" }"
" public function offsetSet($offset, $value) {"
" $this->container[$offset] = $value;"
" }"
" public function offsetExists($offset) {"
" return isset($this->container[$offset]);"
" }"
" public function offsetUnset($offset) {"
" unset($this->container[$offset]);"
" }"
" public function offsetGet($offset) {"
" return isset($this->container[$offset]) ? $this->container[$offset] : null;"
" }"
"}"
"class SetTest {"
" private $_vals = array("
" 'one' => 1,"
" 'two' => 2,"
" 'three' => 3,"
" );"
" public function __set($name, $value) {"
" $this->_vals[$name] = $value;"
" }"
"}"
"$o = new obj;"
"$q = list($o['one'], $o['two'], list($o['three'])) ="
" array('eins', 'zwei', array('drei'));"
"var_dump($o);"
"var_dump($q);"
"$x = new SetTest;"
"$qq = list($x->one, $x->two, list($x->three)) = 1;"
"var_dump($x);"
"$qq = list($x->one, $x->two, list($x->three)) = $q;"
"var_dump($x);"
"var_dump($qq);");
MVCR("<?php "
"function test($a) {"
" list($a[0], $a[1], $a) = $a;"
" var_dump($a);"
"}"
"test(array('abc', 'cde', 'fgh'));");
MVCR("<?php "
"function test() {"
" $a = array('abc', 'cde', 'fgh');"
" list($a[0], $a[1], $a) = $a;"
" var_dump($a);"
"}"
"test();");
MVCR("<?php "
"function test($a, $b, $i) {"
" list($a[$i++], $a[$i++], $a[$i++]) = $b;"
" var_dump($a);"
" }"
"test(array(), array('x', 'y', 'z'), 0);");
MVCR("<?php "
"$i = 0; "
"list($a[$i++], list($a[$i++], $a[$i++]), $a[$i++]) = "
" array('x', array('y1', 'y2'), 'z'); "
"var_dump($a);");
MVCR("<?php "
"function foo($a) {"
" list($x, $y) = 'x'.$a;"
" return $x + $y;"
"}");
MVCR("<?php "
"class X implements ArrayAccess {"
" function offsetget($n) { return $n; }"
" function offsetset($n,$v) { }"
" function offsetexists($n) { return true; }"
" function offsetunset($n) {}"
"}"
"list($a,$b) = new X;"
"var_dump($a, $b);"
"$x = 'foo';"
"$y = 'bar';"
"list($a, $b) = $x.$y;"
"var_dump($a,$b);"
"$z = $x.$y;"
"list($a, $b) = $z;"
"var_dump($a, $b);");
MVCR("<?php "
"class X {"
" static public $val = array(1,2,3);"
" function foo() {"
" list($a, $b) = self::$val;"
" var_dump($a, $b);"
" }"
"}"
"$x = new X;"
"$x->foo();"
"X::$val = null;");
return true;
}
bool TestCodeRun::TestExceptions() {
MVCR("<?php\n"
"class MyException extends Exception {\n"
" public function __construct() {\n"
" }\n"
"}\n"
"function thrower() {\n"
" throw new MyException();\n"
"}\n"
"try {\n"
" thrower();\n"
"} catch (Exception $exn) {\n"
" $a = $exn->getTrace(); foreach ($a as &$b) $b['file'] = 'string';\n"
" var_dump($a);\n"
" var_dump($exn->getLine());\n"
"}\n"
);
MVCR("<?php\n"
"\n"
"class Exception1 extends Exception {\n"
" public function __Construct() {\n"
" parent::__construct();\n"
" }\n"
"}\n"
"\n"
"class Exception2 extends Exception1 {\n"
" public function exception2() {\n"
" parent::__construct();\n"
" }\n"
"}\n"
"\n"
"function foo() {\n"
" throw new Exception2();\n"
"}\n"
"\n"
"function bar() {\n"
" try {\n"
" foo();\n"
" } catch (Exception $exn) {\n"
" $a = $exn->getTrace(); foreach ($a as &$b) $b['file'] = 'string';\n"
" var_dump($a);\n"
" var_dump($exn->getLine());\n"
" }\n"
"}\n"
"\n"
"bar();\n");
MVCR("<?php try { throw new Exception('test');} "
"catch (Exception $e) {}");
MVCR("<?php try { try { throw new Exception('test');} "
"catch (InvalidArgumentException $e) {} } "
"catch (Exception $e) { print 'ok';}");
MVCR("<?php class E extends Exception {} "
"try { throw new E(); } catch (E $e) { print 'ok';}");
MVCR("<?php class E extends Exception {} class F extends E {}"
"try { throw new F(); } catch (E $e) { print 'ok';}");
MVCR("<?php class E extends Exception { function __toString(){ return 'E';}} "
"class F extends E { function __toString() { return 'F';}}"
"try { throw new F(); } catch (E $e) { print $e;}");
MVCR("<?php "
"class a extends Exception {"
" function __destruct() {"
" var_dump('__destruct');"
" }"
"};"
"function foo() {"
" $ex = null;"
" try {"
" throw new A;"
" } catch (Exception $ex) {"
" var_dump(1);"
" }"
" var_dump(2);"
"}"
"foo();");
MVCR("<?php "
"function foo($a, $b) { return $a + $b; }"
"function myErrorHandler($errno, $errstr, $errfile, $errline) {"
" var_dump($errstr, $errline);"
"}"
"$old_error_handler = set_error_handler('myErrorHandler');"
""
"function bar($a, $b) {"
" if ($a) {"
" $value = $a * foo(1, 2);"
" }"
" return 1 / $b;"
"}"
"set_error_handler('myErrorHandler');"
"$r = bar(1, 0);");
MVCR("<?php "
"class a extends Exception {};"
"class b extends a {"
" function dump() {"
" echo 'c:', $this->code, '\nm:', $this->message, '\n';"
" echo 'x:', $this->x, '\ny:', $this->y, '\n';"
" }"
"}"
"if (0) { class a extends Exception {} }"
"try {"
" throw(new b(1, 2));"
"} catch (b $e) {"
" $e->dump();"
"}");
MVCR("<?php "
"class X {"
" static function eh($errno, $errstr) {"
" echo \"eh: $errno\\n\";"
" die;"
" }};"
"set_error_handler(array('X', 'eh'));"
"$g = array();"
"echo $g['foobar'];");
MVCR("<?php\n"
"function f() { throw new Exception('foo'); }\n"
"class X {\n"
" function foo() {\n"
" try {\n"
" f();\n"
" } catch (Exception $this) {\n"
" return $this;\n"
" }\n"
" }\n"
"}\n"
"$x = new X;\n"
"$ex = $x->foo();\n"
"var_dump($ex->getMessage());\n");
MVCR("<?php"
"ini_set('memory_limit','4M');"
"function test() {"
" for ($i = 0; $i < 4000; $i++) {"
" try {"
" call_user_func('bar');"
" } catch (Exception $e) {"
" }"
" }"
" var_dump('ok');"
"}"
"function bar() {"
" throw new Exception;"
"}"
"test();");
MVCR("<?php "
"function foo($a) {"
" $flag = true;"
" try {"
" f($a);"
" $flag = false;"
" } catch (Exception $e) {"
" }"
" var_dump($flag);"
"}"
"function f($a) { if ($a) throw new Exception('What?'); }"
"foo(1);");
if (Option::EnableEval >= Option::FullEval) {
MVCRNW("<?php "
"error_reporting(-1);"
"set_error_handler('handle');"
"function handle() { throw new exception; }"
"function foo($a,$b=null) { return $a; }"
"function test1() {"
" if (foo(0)) $a=1;"
" $x = new StdClass;"
" return $a;"
"}"
"function test2() {"
" if (foo(0)) $a=1;"
" return $a | new StdClass;"
"}"
"function test3() {"
" if (foo(0)) $a=1;"
" $x = new StdClass;"
" return $a::foo;"
"}"
"function test($f) {"
" try {"
" $f();"
" } catch (Exception $e) {"
" var_dump($f.':Caught');"
" }"
"}"
"test('test1');"
"test('test2');"
"test('test3');"
"var_dump('not reached');");
}
MVCRO("<?php\n"
"class C {\n"
" function g() {\n"
" $ex = new Exception();\n"
" $bt = $ex->getTrace();\n"
" foreach ($bt as $k => $_) {\n"
" $frame = $bt[$k];\n"
" unset($frame['file']);\n"
" unset($frame['line']);\n"
" unset($frame['args']);\n"
" ksort($frame);\n"
" $bt[$k] = $frame;\n"
" }\n"
" var_dump($bt);\n"
" }\n"
" function f() {\n"
" $this->g();\n"
" }\n"
"}\n"
"$obj = new C;\n"
"$obj->f();\n"
"echo \"==========\\n\";\n"
"Exception::setTraceOptions(true);\n"
"$obj->f();\n"
,
"array(2) {\n"
" [0]=>\n"
" array(3) {\n"
" [\"class\"]=>\n"
" string(1) \"C\"\n"
" [\"function\"]=>\n"
" string(1) \"g\"\n"
" [\"type\"]=>\n"
" string(2) \"->\"\n"
" }\n"
" [1]=>\n"
" array(3) {\n"
" [\"class\"]=>\n"
" string(1) \"C\"\n"
" [\"function\"]=>\n"
" string(1) \"f\"\n"
" [\"type\"]=>\n"
" string(2) \"->\"\n"
" }\n"
"}\n"
"==========\n"
"array(2) {\n"
" [0]=>\n"
" array(4) {\n"
" [\"class\"]=>\n"
" string(1) \"C\"\n"
" [\"function\"]=>\n"
" string(1) \"g\"\n"
" [\"object\"]=>\n"
" object(C)#1 (0) {\n"
" }\n"
" [\"type\"]=>\n"
" string(2) \"->\"\n"
" }\n"
" [1]=>\n"
" array(4) {\n"
" [\"class\"]=>\n"
" string(1) \"C\"\n"
" [\"function\"]=>\n"
" string(1) \"f\"\n"
" [\"object\"]=>\n"
" object(C)#1 (0) {\n"
" }\n"
" [\"type\"]=>\n"
" string(2) \"->\"\n"
" }\n"
"}\n"
);
if (!hhvm) {
FinallyStatement w(this);
MVCRO("<?php\n"
"$var = 1;\n"
"try {\n"
" $var += 2;\n"
"} catch (Exception $e) {\n"
" $var += 4;\n"
"} finally {\n"
" $var += 8;\n"
"}\n"
"print $var;",
"11");
MVCRO("<?php\n"
"$var = 1;\n"
"try {\n"
" try {\n"
" $var += 2;\n"
" throw new Exception();\n"
" $var += 4;\n"
" } finally {\n"
" $var += 8;\n"
" }\n"
"} catch (Exception $e) {\n"
" $var += 16;\n"
"}\n"
"print $var;",
"27");
MVCRO("<?php\n"
"function throwemup() {\n"
" try {\n"
" throw new Exception('Exception 1', 9);\n"
" } catch (Exception $e) {\n"
" throw new Exception('Exception 2', 8, $e);\n"
" } finally {\n"
" $tmp = new Exception('Exception 3', 7);\n"
" throw new Exception('Exception 4', 6, $tmp);\n"
" }\n"
"}\n"
"try {\n"
" throwemup();\n"
"} catch (Exception $e) {\n"
" for ($i = 4; $i--;) {\n"
" print $e->getMessage();\n"
" $e = $e->getPrevious();\n"
" }\n"
"}\n",
"Exception 4"
"Exception 3"
"Exception 2"
"Exception 1");
MVCRO("<?php\n"
"try {\n"
"} finally {\n"
" $a = 1;\n"
"}\n"
"print $a;\n",
"1");
MVCRO("<?php\n"
"function func() {\n"
" try {} finally {}\n"
" try {\n"
" $a = 1;\n"
" throw new Exception();\n"
" $a += 2;\n"
" } catch (Exception $e) {\n"
" } finally {\n"
" $a += 4;\n"
" }\n"
" print $a;\n"
"}\n"
"func();",
"5");
}
MVCR("<?php "
"function runstuff() {"
" throw new Exception;"
"}"
"function main() {"
" try {"
" $start_time = 1;"
" runstuff();"
" return;"
" } catch (Exception $se) {"
" $elapsed = 2 - $start_time;"
" var_dump($elapsed);"
" }"
"}"
"main();");
return true;
}
bool TestCodeRun::TestPredefined() {
MVCR("<?php \n\n\nvar_dump(/*__FILE__, */__LINE__);");
MVCR("<?php function Test() { var_dump(__FUNCTION__);} "
"var_dump(__FUNCTION__); test();");
MVCR("<?php class A { "
"function TestR() { var_dump(__CLASS__, __METHOD__);} "
"static function Testm() { var_dump(__CLASS__, __METHOD__);}} "
"function Testf() { var_dump(__CLASS__, __METHOD__);} "
"testf(); A::testm(); $obj = new A(); $obj->testr();");
MVCR("<?php class A { const Foo = __METHOD__;} var_dump(A::Foo);");
return true;
}
bool TestCodeRun::TestLabels() {
MVCR("<?php\n"
"$modalit\xe9 = 'extended ASCII'; var_dump($modalit\xe9);\n"
"${\"a-b\"} = 'dash'; var_dump(${\"a-b\"});\n"
"${'a\"b'} = 'quote'; var_dump(${'a\"b'});\n"
"${'a$b'} = 'dollar'; var_dump(${'a$b'});\n");
MVCR("<?php\n"
"define('modalit\xe9', 123); var_dump(modalit\xe9);");
MVCR("<?php\n"
"function modalit\xe9($a) { var_dump($a);} modalit\xe9(123);");
MVCR("<?php\n"
"class modalit\xe9 { static function odalit\xe9() { var_dump(123);} } "
"modalit\xe9::odalit\xe9();");
return true;
}
bool TestCodeRun::TestPerfectVirtual() {
MVCR("<?php "
"class A { function foo() { var_dump(__CLASS__);}} "
"class B extends A { function foo() { var_dump(__CLASS__);}} "
"function bar() { "
" $obj = new A; $obj->foo();"
" $obj = new B; $obj->foo();"
"} bar();"
);
MVCR("<?php "
"class A { function foo($a = 123) { var_dump(__CLASS__);}} "
"class B extends A { function foo($b = 123) { var_dump(__CLASS__);}} "
"function bar() { "
" $obj = new A; $obj->foo();"
" $obj = new B; $obj->foo();"
"} bar();"
);
MVCR("<?php "
"class A { function foo() { "
"$args = func_get_args(); var_dump(__CLASS__, $args);}} "
"class B extends A { function foo() { "
"$args = func_get_args(); var_dump(__CLASS__, $args);}} "
"function bar() { "
" $obj = new A; $obj->foo(123);"
" $obj = new B; $obj->foo(123, 456);"
"} bar();"
);
MVCR("<?php "
"class A { const X=1; function foo($a = self::X) { var_dump($a);}} "
"class B extends A { const X=2; function foo($b = self::X) {"
" var_dump($b);}} "
"function bar() { "
" $obj = new A; $obj->foo();"
" $obj = new B; $obj->foo();"
"} bar();"
);
MVCR("<?php "
"class X {"
" function foo($a) { return $a; }"
"}"
"class Y extends X {"
" function &foo($a) { return $a; }"
"}"
"function test(X $x) {"
" $y = $x->foo(5);"
" return ++$y;"
"}"
"test(new Y);");
return true;
}
///////////////////////////////////////////////////////////////////////////////
// type system
bool TestCodeRun::TestBoolean() {
MVCR("<?php var_dump(true);");
MVCR("<?php var_dump(false);");
MVCR("<?php $a = 1; $b = ($a == 1); var_dump($b);");
return true;
}
///////////////////////////////////////////////////////////////////////////////
bool TestCodeRun::TestInteger() {
MVCR("<?php var_dump(1);");
MVCR("<?php var_dump(0);");
MVCR("<?php var_dump(-1);");
MVCR("<?php var_dump(8589934592);");
MVCR("<?php var_dump(-8589934592);");
MVCR("<?php $a = 1; var_dump($a);");
MVCR("<?php $a = 0; var_dump($a);");
MVCR("<?php $a = -1; var_dump($a);");
MVCR("<?php $a = 8589934592; var_dump($a);");
MVCR("<?php $a = -8589934592; var_dump($a);");
MVCR("<?php $a = 10; var_dump(~$a);");
MVCR("<?php $a = 10; $b = 9; var_dump($a & $b);");
MVCR("<?php $a = 10; $b = 9; var_dump($a | $b);");
MVCR("<?php $a = 10; $b = 9; var_dump($a ^ $b);");
MVCR("<?php $a = 10; var_dump($a << 2);");
MVCR("<?php $a = 10; var_dump($a >> 2);");
MVCR("<?php $a = 10; $b = 9; $a &= $b; var_dump($a);");
MVCR("<?php $a = 10; $b = 9; $a |= $b; var_dump($a);");
MVCR("<?php $a = 10; $b = 9; $a ^= $b; var_dump($a);");
MVCR("<?php $a = 10; $b = 9; $a <<= 2; var_dump($a);");
MVCR("<?php $a = 10; $b = 9; $a >>= 2; var_dump($a);");
MVCR("<?php "
"var_dump((integer)'10');"
"var_dump((integer)'0x10');"
"var_dump((integer)'010');"
"var_dump(10 + 0x10);"
"var_dump(10 + 010);");
return true;
}
///////////////////////////////////////////////////////////////////////////////
bool TestCodeRun::TestDouble() {
MVCR("<?php var_dump(1.0);");
MVCR("<?php var_dump(0.0);");
MVCR("<?php var_dump(-1.0);");
MVCR("<?php var_dump(1/3);");
MVCR("<?php $a = 1/3; var_dump($a);");
MVCR("<?php $a = 1/3; $b = $a; var_dump($b);");
MVCR("<?php "
"$a = 1.234;"
"echo $a;"
"$b = 1.2e3;"
"echo $b;"
"$c = 7E-10;"
"echo $c;"
"echo floor((0.1+0.7)*10);"
"echo round((69.1-floor(69.1)));"
"echo round(69.1-floor(69.1));"
"echo (63.1-floor(63.1));"
"echo (64.0-floor(64.0));"
"echo round(64.1-floor(64.1));"
"echo round(3.1415927,2);"
"echo round(1092,-2);");
MVCR("<?php "
"$foo = 1 + \"10.5\";"
"print(\"$foo \");"
"$foo = 1 + \"-1.3e3\";"
"print(\"$foo \");"
"$foo = 1 + \"bob-1.3e3\";"
"print(\"$foo \");"
"$foo = 1 + \"bob3\";"
"print(\"$foo \");"
"$foo = 1 + \"10 Small Pigs\";"
"print(\"$foo \");"
"$foo = 4 + \"10.2 Little Piggies\";"
"print(\"$foo \");"
"$foo = \"10.0 pigs \" + 1;"
"print(\"$foo \");"
"$foo = \"10.0 pigs \" + 1.0;"
"print(\"$foo \");");
MVCR("<?php "
"var_dump(1E1);"
"var_dump(1E2);"
"var_dump(1E3);"
"var_dump(1E4);"
"var_dump(1E5);"
"var_dump(1E6);"
"var_dump(1E7);"
"var_dump(1E8);"
"var_dump(1E9);"
"var_dump(1E10);"
"var_dump(1E11);"
"var_dump(1E12);"
"var_dump(1E13);"
"var_dump(1E14);"
"var_dump(1E15);"
"var_dump(1E16);"
"var_dump(1E17);"
"var_dump(1E18);"
"var_dump(1E19);"
"var_dump(1E20);");
MVCR("<?php "
"var_dump((double)'10');"
"var_dump((double)'0x10');"
"var_dump((double)'010');"
"var_dump(10.0 + 0x10);"
"var_dump(10.0 + 010.0);");
MVCR("<?php "
"$t=floor(1316700000/300)*300;"
"var_dump($t);");
return true;
}
///////////////////////////////////////////////////////////////////////////////
bool TestCodeRun::TestString() {
MVCR("<?php print '\\'\\\\\"';");
MVCR("<?php print 'test\nok';");
MVCR("<?php print \"test\nok\";");
MVCR("<?php print \"test\\n\\r\\t\\v\\f\\\\\\$\\\"\";");
MVCR("<?php print \"\\1\\12\\123\\1234\\xA\\xAB\";");
MVCR("<?php print 'test\\n';");
MVCR("<?php $a = 'test'; $b = $a; print $b;");
MVCR("<?php $a = 'test'; $b = $a; $a = 'changed'; print $b;");
MVCR("<?php $a = 'test'; $b = $a; $a = 'changed'; print $a;");
MVCR("<?php $a = 'test'; $b = $a; $b = 'changed'; print $a;");
MVCR("<?php $a = 'a'; $b = 'b'; $c = 'a' . 'b'; print $c;");
MVCR("<?php $a = 'a'; $b = 'b'; $c = $a . 'b'; print $c;");
MVCR("<?php $a = 'a'; $b = 'b'; $c = 'a' . $b ; print $c;");
MVCR("<?php $a = 'a'; $b = 'b'; $b .= $a; print $b;");
MVCR("<?php $a = 'test'; print $a{0};");
MVCR("<?php $a = 'test'; print '['.$a{-1}.']';");
MVCR("<?php $a = 'test'; print '['.$a{100}.']';");
MVCR("<?php $a = 'test'; print $a[0];");
MVCR("<?php $a = 'test'; print $a['junk'];");
MVCR("<?php $a = 'test'; print '['.$a[-1].']';");
MVCR("<?php $a = 'test'; print '['.$a[100].']';");
MVCR("<?php $a = 'test'; $a[0] = 'ABC'; var_dump($a);")
MVCR("<?php $a = 'test'; $a[10] = 'ABC'; var_dump($a);")
MVCR("<?php $a = 'test'; $b = $a; $a[0] = 'ABC'; var_dump($a); var_dump($b);")
MVCR("<?php $a = 'test'; $b = $a; $a[10] = 'ABC'; var_dump($a);var_dump($b);")
MVCR("<?php $a = 'test'; $b = $a; $b[0] = 'ABC'; var_dump($a); var_dump($b);")
MVCR("<?php $a = 'test'; $b = $a; $b[10] = 'ABC'; var_dump($a);var_dump($b);")
MVCR("<?php $a = 'test'; var_dump(~$a);");
MVCR("<?php $a = 'test'; $b = 'zzz'; var_dump($a & $b);");
MVCR("<?php $a = 'test'; $b = 'zzz'; var_dump($a | $b);");
MVCR("<?php $a = 'test'; $b = 'zzz'; var_dump($a ^ $b);");
MVCR("<?php $a = 'test'; $b = 'zzz'; $a &= $b; var_dump($a);");
MVCR("<?php $a = 'test'; $b = 'zzz'; $a |= $b; var_dump($a);");
MVCR("<?php $a = 'test'; $b = 'zzz'; $a ^= $b; var_dump($a);");
MVCR("<?php $a = 'zzz'; $b = 'test'; var_dump($a & $b);");
MVCR("<?php $a = 'zzz'; $b = 'test'; var_dump($a | $b);");
MVCR("<?php $a = 'zzz'; $b = 'test'; var_dump($a ^ $b);");
MVCR("<?php $a = 'zzz'; $b = 'test'; $a &= $b; var_dump($a);");
MVCR("<?php $a = 'zzz'; $b = 'test'; $a |= $b; var_dump($a);");
MVCR("<?php $a = 'zzz'; $b = 'test'; $a ^= $b; var_dump($a);");
MVCR("<?php $a = 'zzz'; $a++; var_dump($a);");
MVCR("<?php $a = 'zzz'; ++$a; var_dump($a);");
MVCR("<?php $a = 'zzz'; $a--; var_dump($a);");
MVCR("<?php $a = 'zzz'; --$a; var_dump($a);");
MVCR("<?php $a = 'abc'; var_dump(isset($a[1], $a[2], $a[3]));");
// serialization of binary string
MVCR("<?php var_dump(bin2hex(serialize(\"a\\x00b\")));");
MVCR("<?php var_dump(json_encode(\"\\0001\"));");
MVCR("<?php "
"$a = array('x'=>'foo');"
"$b = 'qqq';"
"class c {}"
"$c = new c;"
"$c->p = 'zzz';"
"var_dump(\"AAA ${a['x']} $a[x] $b $c->p\");");
MVCR("<?php "
"function test($a, $b) {"
" $buf = 'hello';"
" foreach ($a as $v) {"
" $buf .= $v . ';';"
" foreach ($b as $w) {"
" $buf .= $w;"
" }"
" }"
" var_dump($buf);"
"}"
"test(array('a', 'b', 'c'), array('u', 'v'));"
"function test2($a, $b) {"
" $buf = 'hello';"
" foreach ($a as $v) {"
" $buf .= $v . ';';"
" foreach ($b as $w) {"
" $buf .= $w;"
" }"
" echo $buf;"
" }"
" var_dump($buf);"
"}"
"test2(array('a', 'b', 'c'), array('u', 'v'));"
"function test3($a, $b) {"
" $buf = 'hello';"
" foreach ($a as $v) {"
" $buf .= $v . ';';"
" foreach ($b as $w) {"
" echo ($buf .= $w);"
" }"
" }"
" var_dump($buf);"
"}"
"test3(array('a', 'b', 'c'), array('u', 'v'));");
MVCR("<?php "
"function f() { return 'x'; }"
"function g() {}"
"function test1($a) {"
" $buf = '';"
" foreach ($a as $s) {"
" $buf .= f() . g() . 'h' . f() . 'h' . g();"
" }"
" foreach ($a as $s) {"
" $buf .= ($s . 'h' . $s);"
" }"
" return $buf;"
"}"
"var_dump(test1(array(1)));"
"function test2() {"
" return f() . g() . f() . g();"
"}"
"var_dump(test2());"
"function test3() {"
" return f() . g() . f() . g() . f() . g() . f() . g() . f();"
"}"
"var_dump(test3());"
"function test4() {"
" $s = f();"
" $s .="
" ('foo'."
" 'bar'."
" f()."
" 'foo'."
" 'baz'."
" f()."
" 'fuz'."
" 'boo'."
" f()."
" 'fiz'."
" 'faz');"
""
" $s .= f();"
" return $s;"
"}"
"var_dump(test4());"
"function test5() {"
" return g().g().g().g();"
"}"
"var_dump(test5());"
"function test6() {"
" return g().f().g();"
"}"
"var_dump(test6());");
MVCR("<?php "
"class X {"
" static function g() {}"
"};"
"echo 'abc' . X::g() . 'efg';");
MVCR("<?php "
"$s = 'x';"
"var_dump(strrpos($s.'0', $s));"
"for ($i = -7; $i < 7; $i++) {"
" echo $i,':';var_dump(strrpos('xabcay', 'a',$i));"
"}");
MVCR("<?php\n"
"$a = 'zz';\n"
"$a++;\n"
"$b = 'zz';\n" // $b should remain 'zz'
"var_dump($a, $b);\n");
MVCR("<?php\n"
"function test($s) {\n"
" $a = array('abc' => 1, 'abcd' => 2);\n"
" $s .= 'c'; var_dump($a[$s]);\n"
" $s .= 'd'; var_dump($a[$s]);\n" // should find 'abcd' in $a
"}\n"
"test('ab');\n");
MVCR("<?php\n"
"function foo() {"
" $a = '';"
" $a++;"
" var_dump($a);"
" $a = '';"
" ++$a;"
" var_dump($a);"
" $a = '';"
" $a--;"
" var_dump($a);"
" $a = '';"
" --$a;"
" var_dump($a);"
" $a = '@';"
" $a++;"
" var_dump($a);"
" $a = '@';"
" ++$a;"
" var_dump($a);"
" $a = '@';"
" $a--;"
" var_dump($a);"
" $a = '@';"
" --$a;"
" var_dump($a);"
"}"
"foo();");
MVCRO("<?php "
"var_dump(strncmp('foo', 'foo', -100));"
"var_dump(strncasecmp('foo', 'foo', -100));"
"var_dump(substr_compare('foo', 'foo', 0, -100, true));"
"var_dump(substr_compare('foo', 'bar', -3));",
"int(0)\n" // zend returns false
"int(0)\n" // zend returns false
"bool(false)\n"
"int(1)\n");
return true;
}
///////////////////////////////////////////////////////////////////////////////
bool TestCodeRun::TestArray() {
HipHopSyntax w(this);
MVCR("<?php var_dump(array('b' => '2', 'a' => '1'));");
MVCR("<?php var_dump(array(1 => 'a', 0 => 'b'));");
MVCR("<?php $a = array(); var_dump($a);");
MVCR("<?php $a = array(1); var_dump($a);");
MVCR("<?php $a = array(2, 1); var_dump($a);");
MVCR("<?php $a = array('1'); var_dump($a);");
MVCR("<?php $a = array('2', '1'); var_dump($a);");
MVCR("<?php $a = array('a' => 1); var_dump($a);");
MVCR("<?php $a = array('b' => 2, 'a' => 1); var_dump($a);");
MVCR("<?php $a = array('a' => '1'); var_dump($a);");
MVCR("<?php $a = array('b' => '2', 'a' => '1'); var_dump($a);");
MVCR("<?php $a = array('a' => 1, 'a' => 2); var_dump($a);");
MVCR("<?php $a = array('a' => 1, 'b' => 2, 'a' => 3); var_dump($a);");
MVCR("<?php $a = array(1); $b = $a; var_dump($b);");
MVCR("<?php $a = array(1); $b = $a; $a = array(2); var_dump($b);");
MVCR("<?php $a = array(1); $b = $a; $a = array(2); var_dump($a);");
MVCR("<?php $a = array(1); $b = $a; $b = array(2); var_dump($a);");
MVCR("<?php $a = array(); foreach ($a as $item) print '['.$item.']';");
MVCR("<?php $a = array(1); foreach ($a as $item) print '['.$item.']';");
MVCR("<?php $a = array(2,1); foreach ($a as $item) print '['.$item.']';");
MVCR("<?php $a = array('b' => 2, 'a' => 1); "
"foreach ($a as $item) print '['.$item.']';");
MVCR("<?php $a = array('b' => 2, 'a' => 1); "
"foreach ($a as $name => $item) print '['.$name.'=>'.$item.']';");
MVCR("<?php $a = array(2,1); var_dump($a[0]);");
MVCR("<?php $a = array(2,1); var_dump($a[-1]);");
MVCR("<?php $a = array(2,1); var_dump($a[3]);");
MVCR("<?php $a = array('b' => 2, 'a' => 1); var_dump($a['b']);");
MVCR("<?php $a = array('b' => 2, 'a' => 1); var_dump($a['bogus']);");
MVCR("<?php $a = array(2, 'test' => 1); var_dump($a);");
MVCR("<?php $a = array(1.2 => 'test'); var_dump($a[1]);");
MVCR("<?php $a = array(1, 'test'); var_dump($a);");
MVCR("<?php $a = array(); $a[] = 3; $a[] = 'test'; var_dump($a);");
MVCR("<?php $a = array(); $a['test'] = 3; var_dump($a);");
MVCR("<?php $a = array(1); $a['test'] = 3; var_dump($a);");
MVCR("<?php $a = array(1, 2); $a[10] = 3; var_dump($a);");
MVCR("<?php $a = array(1, 2); $a['10'] = 3; var_dump($a);");
MVCR("<?php $a = array(1, 2); $b = $a; $a['10'] = 3; var_dump($b);");
MVCR("<?php $a = array(1, 2); $b = $a; $a['10'] = 3; var_dump($a);");
MVCR("<?php $a[] = 3; var_dump($a);");
MVCR("<?php $a = array(); $a[] = 3; var_dump($a);");
MVCR("<?php $a = array(1); $a[] = 3; var_dump($a);");
MVCR("<?php $a = array(1,2); $a[] = 3; var_dump($a);");
MVCR("<?php $a = ''; $a[] = 'test'; var_dump($a);");
MVCR("<?php $a = array(1, 2); "
"foreach ($a as $item) { "
" print 'A['.$item.']'; "
" if ($item == 1) $a[] = 'new item'; "
"} "
"foreach ($a as $item) { "
" print 'B['.$item.']'; "
"}"
"var_dump($a);");
MVCR("<?php $a = array(1); $b = array(2); $c = $a + $b; var_dump($c);");
MVCR("<?php $a = array(1,2); $b = array(2,3); $c = $a + $b; var_dump($c);");
MVCR("<?php $a = array(1,2); $b = array(2); $c = $a + $b; var_dump($c);");
MVCR("<?php $a = array(1); $b = array(2,3); $c = $a + $b; var_dump($c);");
MVCR("<?php "
"$array_variables = array("
" array(),"
" array(NULL),"
" array("")"
");"
"foreach ($array_variables as $array_var) {"
" $keys = array_keys($array_var);"
" foreach ($keys as $key_value) {"
" echo $key_value;"
" }"
"}");
MVCR("<?php $a = array('a' => 1, 'b' => 2);"
"foreach ($a as $b => $c) {"
" var_dump($b);"
" unset($a['b']);"
"}");
MVCR("<?php $a = array('a' => 1, 'b' => 2);"
"foreach ($a as $b => &$c) {"
" var_dump($b);"
" unset($a['b']);"
"}");
MVCRO("<?php "
"function gen() {"
" $a = array('a' => 1, 'b' => 2);"
" foreach ($a as $b => &$c) {"
" yield null;"
" var_dump($b);"
" unset($a['b']);"
" }"
"}"
"foreach (gen() as $_) {}"
,
"string(1) \"a\"\n"
);
MVCR("<?php "
"$foo = array(1,2,3,4);"
"foreach ($foo as $key => $val) {"
" if($val == 2) {"
" $foo[$key] = 0;"
" } else if($val == 3) {"
" unset($foo[$key]);"
" } else {"
" $foo[$key] = $val + 1;"
" }"
"}"
"var_dump($foo);");
MVCR("<?php "
"$foo = array(1,2,3,4);"
"foreach ($foo as $key => &$val) {"
" if($val == 2) {"
" $foo[$key] = 0;"
" } else if($val == 3) {"
" unset($foo[$key]);"
" } else {"
" $val++;"
" }"
"}"
"var_dump($foo);");
MVCRO("<?php "
"function gen() {"
" $foo = array(1,2,3,4);"
" foreach ($foo as $key => &$val) {"
" if($val == 2) {"
" $foo[$key] = 0;"
" } else if($val == 3) {"
" unset($foo[$key]);"
" } else {"
" $val++;"
" }"
" }"
" var_dump($foo);"
" yield null;"
"}"
"foreach (gen() as $_) {}"
,
"array(3) {\n"
" [0]=>\n"
" int(2)\n"
" [1]=>\n"
" int(0)\n"
" [3]=>\n"
" &int(5)\n"
"}\n"
);
MVCR("<?php "
"$a = array('a' => 'apple', 'b' => 'banana', 'c' => 'citrus');"
"foreach ($a as $k1 => &$v1) {"
" foreach ($a as $k2 => &$v2) {"
" if ($k2 == 'a') {"
" unset($a[$k2]);"
" }"
" var_dump($v1, $v2);"
" }"
"}");
MVCRO("<?php "
"function gen() {"
" $a = array('a' => 'apple', 'b' => 'banana', 'c' => 'citrus');"
" foreach ($a as $k1 => &$v1) {"
" foreach ($a as $k2 => &$v2) {"
" if ($k2 == 'a') {"
" unset($a[$k2]);"
" }"
" var_dump($v1, $v2);"
" }"
" }"
" yield null;"
"}"
"foreach (gen() as $_) {}"
,
"string(5) \"apple\"\n"
"string(5) \"apple\"\n"
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
"string(5) \"apple\"\n"
"string(6) \"citrus\"\n"
"string(6) \"banana\"\n"
"string(6) \"banana\"\n"
"string(6) \"banana\"\n"
"string(6) \"citrus\"\n"
"string(6) \"citrus\"\n"
"string(6) \"banana\"\n"
"string(6) \"citrus\"\n"
"string(6) \"citrus\"\n"
);
MVCR("<?php "
"$stack = array();"
"function push_stack()"
"{"
" global $stack;"
" static $index = 0;"
" $val = $index++;"
" array_push($stack, $val);"
"}"
"function pop_stack()"
"{"
" global $stack;"
" if ($stack) {"
" array_pop($stack);"
" }"
"}"
"push_stack();"
"pop_stack();"
"pop_stack();"
"pop_stack();"
"push_stack();"
"pop_stack();"
"push_stack();"
"$info = array(count($stack), $stack[count($stack)-1], $stack);"
"var_dump($info);");
MVCR("<?php "
"class A { function f($a) { var_dump($a === null); } }"
"$a = true; $a = new A();"
"$a->f(array());");
MVCR("<?php "
"function test($a) {"
" var_dump(current($a));"
" while (next($a)) echo '.';"
" $a[] = 2;"
" $a[] = 3;"
" var_dump(current($a));"
" var_dump(next($a));"
" var_dump(next($a));"
" var_dump(current($a));"
" $a[17] = 4;"
" var_dump(current($a));"
" $a[18] = 5;"
" var_dump(current($a));"
" while(next($a)) echo '.';"
" var_dump(current($a));"
" $a[1] = 5;"
" var_dump(current($a));"
"}"
"test(array(1));"
"test(array(1,2,3,4,5,6,7,8,9));");
MVCR("<?php "
"function foo() {"
" $a = array();"
" $a[] = '1.1';"
" $a[] = '2.2';"
" $a[] = '3.3';"
" var_dump(array_sum($a));"
" var_dump(array_product($a));"
"}"
"foo();");
MVCR("<?php "
"$array = array('1' => array(2 => 'test'));"
"unset($array['1'][2]);"
"var_dump($array['1']);");
MVCR("<?php "
"$x['1'] += 1;"
"var_dump($x);");
MVCR("<?php "
"function foo($x) { var_dump($x); }"
"function test() {"
" $data = null;"
" $data['bar']['baz'] = 1;"
" foo($data);"
"}"
"test();");
MVCR("<?php "
"class A {"
" public function __call($method, $args) {"
" foreach ($args as $a) { var_dump($a); }"
" var_dump(array_pop($args));"
" if (isset($args[1])) { var_dump($args[1]); }"
" reset($args);"
" if (key($args) === 0) {"
" $args = array(5);"
" }"
" if (current($args) === 0) {"
" $args = array(5);"
" }"
" if (next($args) === 0) {"
" $args = array(5);"
" }"
" var_dump($args['1']);"
" var_dump($args['hi']);"
" $args = $args + array(2 => 0, 3 => true, 4 => true); "
" var_dump($args);"
" }"
"}"
"$obj = new A;"
"$obj->foo(1, 2, 3);");
MVCRO("<?php "
"class A {"
" public function __call($method, $args) {"
" for ($o = new MutableArrayIterator($args);"
" $o->valid(); $o->next()) {"
" $v = &$o->currentRef();"
" var_dump($v);"
" var_dump($v);"
" }"
" var_dump(array_key_exists('foo', $args));"
" var_dump(array_unshift($args, 4));"
" var_dump(array_pop($args));"
" if (isset($args['foo'])) {}"
" var_dump(each($args));"
" var_dump(array_shift($args));"
" }"
"}"
"$obj = new A;"
"$obj->foo(1, 2, 3);",
"int(1)\n"
"int(1)\n"
"int(2)\n"
"int(2)\n"
"int(3)\n"
"int(3)\n"
"bool(false)\n"
"int(4)\n"
"int(3)\n"
"array(4) {\n"
" [1]=>\n"
" int(4)\n"
" [\"value\"]=>\n"
" int(4)\n"
" [0]=>\n"
" int(0)\n"
" [\"key\"]=>\n"
" int(0)\n"
"}\n"
"int(4)\n");
MVCR("<?php "
"function test($q, $a, $b, $c) {"
" $x = array($a, 'foo'=> $a);"
" if ($x) {"
" var_dump(isset($x[0][1]), isset($x['foo'][1]));"
" var_dump(isset($x[$b][1]), isset($x[$c][1]));"
" var_dump(end($x[0]));"
" }"
"}"
"test(5, array(0,1), 0, 'foo');");
MVCR("<?php "
"class X { function __destruct() { var_dump('two'); } }"
"function test($a) {"
" $x = array(new X);"
" $a['foo'] = $x;"
" var_dump('one');"
" var_dump($x);"
"}"
"test(1);"
"var_dump('three');");
return true;
}
bool TestCodeRun::TestArrayInit() {
MVCR("<?php\n"
"class MyClass { function __toString() { return 'foo'; } }\n"
"$obj = new MyClass();\n"
"$arr = array($obj => 1, new MyClass() => 2, "
"false => 3, true => 4, count(array(1,2,3)) => 5);\n"
"var_dump($arr);\n");
MVCR("<?php\n"
"function f() { throw new Exception(); }\n"
"function test() {\n"
" $a = array(1, f(), 2, f(), 3);\n"
" var_dump($a);\n"
"}\n"
"try { test(); } catch (Exception $e) { }\n");
MVCR("<?php\n"
"function test($x, $y) {"
"$a = array($x, $y);"
"$a[] = 3;"
"return $a;"
"}"
"var_dump(test(1,2));");
MVCR("<?php\n"
"function foo($p) {"
" $a = array('a', 'b', $p);"
" $a[] = 'd';"
" var_dump($a);"
" $a = array(0 => 'a', 1 => 'b', 2 => $p);"
" $a[] = 'd';"
" var_dump($a);"
" $a = array(2 => 'a', 4 => 'b', 6 => $p);"
" $a[] = 'd';"
" var_dump($a);"
" $a = array(-2 => 'a', -4 => 'b', -6 => $p);"
" $a[] = 'd';"
" var_dump($a);"
" $a = array(0 => 'a');"
" $a[] = 'b';"
" var_dump($a);"
"}"
"foo('c');");
MVCR("<?php\n"
"$v = 1;"
"function foo($a) {"
" $arr = array($a, $a++, $a);"
" var_dump($arr);"
"}"
"foo($v);");
return true;
}
bool TestCodeRun::TestArrayCopy() {
MVCR("<?php function h1() {\n"
" $x = array(1,2,3,4);\n"
" next($x);\n"
" $y = $x;\n"
" unset($y[2]);\n"
" var_dump(current($x));\n"
" var_dump(current($y));\n"
"}\n"
"h1();\n");
MVCR("<?php function h2() {\n"
" $x = array(1,2,3,4);\n"
" next($x);\n"
" $y = $x;\n"
" $y[] = 4;\n"
" var_dump(current($x));\n"
" var_dump(current($y));\n"
"}\n"
"h2();\n");
MVCR("<?php function h3() {\n"
" $x = array(1,2,3,4);\n"
" next($x);\n"
" $y = $x;\n"
" array_pop($y);\n"
" var_dump(current($x));\n"
" var_dump(current($y));\n"
"}\n"
"h3();\n");
/**
* Zend PHP 5.2 outputs:
* bool(false)
* int(1)
*
* The difference in behavior is intentional. Under Zend PHP, the first call
* to current triggers an array copy, and because the original array's
* internal iterator points past the end, the copy's internal iterator is
* reset. This behavior exposes information to user code about when array
* copies are triggered.
*
* Under HPHP, we always leave the internal iterator intact when making an
* array copy. The advantage here is that we do not expose information about
* when array copies are triggered to user code.
*/
MVCRO("<?php function h4() {\n"
" $x = array(1,2,3,4);\n"
" end($x);\n"
" next($x);\n"
" $y = $x;\n"
" unset($y[2]);\n"
" var_dump(current($x));\n"
" var_dump(current($y));\n"
"}\n"
"h4();\n"
,
"bool(false)\n"
"bool(false)\n"
);
/**
* Zend PHP 5.2 outputs:
* bool(false)
* int(1)
*
* The difference in behavior is intentional. Under Zend PHP, when 4 is
* appended to $y, it triggers an array copy which resets $y's internal
* iterator. This is why current($y) returns 1.
*
* Under HPHP, when 4 is appended to $y, it triggers an array copy. However,
* $y's internal iterator is not reset; it continues to point past the last
* element. Then when the append operation actually executes, it updates the
* internal iterator to point to the newly appended element. For more info
* see the h4 testcase.
*/
MVCRO("<?php function h5() {\n"
" $x = array(1,2,3,4);\n"
" end($x);\n"
" next($x);\n"
" $y = $x;\n"
" $y[] = 4;\n"
" var_dump(current($x));\n"
" var_dump(current($y));\n"
"}\n"
"h5();\n"
,
"bool(false)\n"
"int(4)\n"
);
MVCR("<?php function h6() {\n"
" $x = array(1,2,3,4);\n"
" end($x);\n"
" next($x);\n"
" $y = $x;\n"
" array_pop($y);\n"
" var_dump(current($x));\n"
" var_dump(current($y));\n"
"}\n"
"h6();\n");
/**
* Zend PHP 5.2 outputs:
* int(0)
* bool(false)
*
* The difference in behavior is intentional. For more info see testcase h4.
*/
MVCRO("<?php function h7() {\n"
" $arr = array(0,1,2,3,4);\n"
" end($arr);\n"
" next($arr);\n"
" $arr2 = $arr;\n"
" var_dump(current($arr));\n"
" var_dump(current($arr2));\n"
"}\n"
"h7();\n"
,
"bool(false)\n"
"bool(false)\n"
);
/**
* Zend PHP 5.2 outputs:
* int(0)
* bool(false)
*
* The difference in behavior is intentional. For more info see testcase h4.
*/
MVCRO("<?php function h8() {\n"
" $arr = array(0,1,2,3,4);\n"
" end($arr);\n"
" next($arr);\n"
" $arr2 = $arr;\n"
" var_dump(current($arr2));\n"
" var_dump(current($arr));\n"
"}\n"
"h8();\n"
,
"bool(false)\n"
"bool(false)\n"
);
MVCR("<?php\n"
"function f($a) { $a[0] = $a; var_dump($a); }\n"
"f(false);\n");
MVCR("<?php\n"
"function f($b) {\n"
" $a = $b ? 0 : array('x' => $b);\n"
" $a[0] = $a; var_dump($a);\n"
"}\n"
"f(false);\n");
MVCR("<?php\n"
"function f($a) { $a[] = $a; var_dump($a); }\n"
"f(false);\n");
/**
* Even Zend PHP 5.3 does not get this right. It generates a recursive array.
*/
MVCRO("<?php\n"
"function f($b) {\n"
" $a = $b ? 0 : array('x' => $b);\n"
" $a2 = &$a; $a[] = $a2; var_dump($a);\n"
"}\n"
"f(false);\n"
,
"array(2) {\n"
" [\"x\"]=>\n"
" bool(false)\n"
" [0]=>\n"
" array(1) {\n"
" [\"x\"]=>\n"
" bool(false)\n"
" }\n"
"}\n");
MVCR("<?php\n"
"function f($b) {\n"
" $a = $b ? 0 : array($b);\n"
" $a[1][0] = $a; var_dump($a);\n"
"}\n"
"f(false);\n");
return true;
}
bool TestCodeRun::TestScalarArray() {
MVCR("<?php "
"$a1 = array();"
"$a2 = array(null);"
"$a3 = array(true);"
"$a4 = array(false);"
"$a5 = array(0);"
"$a6 = array(1);"
"$a7 = array(1.0);"
"$a8 = array('1.0');"
"$a9 = array(1.23456789e+34);"
"$a13 = array(1.7976931348623157e+308);"
"$a10 = array(1E666);"
"$a11 = array(1E666/1E666);"
"$a12 = array(\"a bc\");"
"$a13 = array(\"\\xc1 bc\");"
"$a14 = array(null, true, false, 0, 1, 1.0,"
" '1.0', 1.23456789e+34,"
" 1.7976931348623157e+308, 1E666,"
" 1E666/1E666, \"a bc\","
" \"\\xc1 bc\");"
"$a15 = array(null => true, false => 0, 1 => 1.0,"
" '1.0' => 1.23456789e+34,"
" 1.7976931348623157e+308 => 1E666,"
" 1E666/1E666 => \"a bc\","
" \"\\xc1 bc\");"
"$a16 = array(null => true, false => 0, 1 => 1.0,"
" '1.0' => 1.23456789e+34,"
" 1.7976931348623157e+308 => 1E666,"
" 1E666/1E666 => \"a bc\","
" \"\\xc1 bc\","
" array(null => true, array(),"
" false => 0, 1 => 1.0,"
" '1.0' => 1.23456789e+34,"
" 1.7976931348623157e+308 => 1E666,"
" 1E666/1E666 => \"a bc\","
" \"\\xc1 bc\"));"
"var_dump($a1);"
"var_dump($a2);"
"var_dump($a3);"
"var_dump($a4);"
"var_dump($a5);"
"var_dump($a6);"
"var_dump($a7);"
"var_dump($a8);"
"var_dump($a9);"
"var_dump($a10);"
"var_dump($a11);"
"var_dump($a12);"
"var_dump($a13);"
"var_dump($a14);"
"var_dump($a15);"
"var_dump($a16);");
MVCR("<?php\n"
"function test1() { $a = array(__FUNCTION__, __LINE__); return $a; }\n"
"function test2() { $a = array(__FUNCTION__, __LINE__); return $a; }\n"
"var_dump(test1()); var_dump(test2());");
MVCR("<?php "
"define('VALUE', 1);"
"function func($params) {"
" var_dump($params);"
"}"
"func(array('key' => @VALUE));");
return true;
}
bool TestCodeRun::TestRange() {
MVCR("<?php "
"foreach (range(\"0 xxx\", \"12 yyy\") as $number) {"
" echo $number . \"\n\";"
"}"
"foreach (range(\"0\", \"12\") as $number) {"
" echo $number . \"\n\";"
"}"
"foreach (range('a', 'i') as $letter) {"
" echo $letter;"
"}"
"foreach (range('c', 'a') as $letter) {"
" echo $letter;"
"}"
"foreach (range('a xxx', 'i yyy') as $letter) {"
" echo $letter;"
"}"
"foreach (range('c xxx', 'a yyy') as $letter) {"
" echo $letter;"
"}");
return true;
}
#define TEST_ARRAY_CONVERT(exp) \
MVCR("<?php $a = " exp "; $a[] = 1; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[] = 'test'; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[] = array(0); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[0] = 1; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[0] = 'test'; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[0] = array(0); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[1] = 1; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[1] = 'test'; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[1] = array(0); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[2] = 1; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[2] = 'test'; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a[2] = array(0); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a['test'] = 1; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a['test'] = 'test'; var_dump($a);"); \
MVCR("<?php $a = " exp "; $a['test'] = array(0); var_dump($a);"); \
#define TEST_ARRAY_PLUS(exp) \
MVCR("<?php $a = " exp "; $a += array(); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a += array(20); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a += array('b'); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a += array(array(3)); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a += array('c' => 20); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a += array('c' => 'b'); var_dump($a);"); \
MVCR("<?php $a = " exp "; $a += array('c' => array(3)); var_dump($a);"); \
bool TestCodeRun::TestArrayEscalation() {
TEST_ARRAY_CONVERT("array()");
TEST_ARRAY_CONVERT("array(10)");
TEST_ARRAY_CONVERT("array('test')");
TEST_ARRAY_CONVERT("array(array(0))");
TEST_ARRAY_CONVERT("array('a' => 10)");
TEST_ARRAY_CONVERT("array('a' => 'va')");
TEST_ARRAY_CONVERT("array('a' => array(1))");
TEST_ARRAY_PLUS("array()");
TEST_ARRAY_PLUS("array(10)");
TEST_ARRAY_PLUS("array('test')");
TEST_ARRAY_PLUS("array(array(0))");
TEST_ARRAY_PLUS("array('a' => 10)");
TEST_ARRAY_PLUS("array('a' => 'va')");
TEST_ARRAY_PLUS("array('a' => array(1))");
MVCR("<?php "
"function test() {"
" $a = array();"
" for ($i = 0; $i < 17; $i++) {"
" $a[] = $i;"
" }"
" unset($a[16]);"
" $b = $a;"
" array_unshift($a, 'foo');"
" var_dump(count($a), count($b));"
"}"
"test();");
return true;
}
bool TestCodeRun::TestArrayOffset() {
MVCR("<?php $a['test_cache_2'] = 10; print $a['test_cache_26'];");
MVCR("<?php $a = array(10); $b = $a[0]; var_dump($b);");
MVCR("<?php $a = array(10); $b = $a[0] + 15; var_dump($b);");
MVCR("<?php $a = 1; $a = array($a); $a = array($a); var_dump($a);");
MVCR("<?php $a['A'] = array(1, 2); foreach ($a['A'] as $item) print $item;");
MVCR("<?php $a['A']['B'] = 1; var_dump($a);");
MVCR("<?php $a['A'] = 10; $a['A']++; var_dump($a);");
MVCR("<?php $a['A'] = 10; ++$a['A']; var_dump($a);");
MVCR("<?php $a['A'] = 10; $a['A'] .= 'test'; var_dump($a);");
MVCR("<?php $a['A'] = 10; $a['A'] += 25; var_dump($a);");
MVCR("<?php $a[null] = 10;"
"var_dump($a[null]);"
"var_dump($a[\"\"]);"
"var_dump($a['']);");
MVCR("<?php "
"$a = array();"
"$a[0] = 1;"
"$a[01] = 2;"
"$a[007] = 3;"
"$a[08] = 4;"
"$a[0xa] = 5;"
"var_dump($a);"
"var_dump(\"$a[0]\");"
"var_dump(\"$a[1]\");"
"var_dump(\"$a[7]\");"
"var_dump(\"$a[10]\");"
"var_dump(\"$a[01]\");"
"var_dump(\"$a[007]\");"
"var_dump(\"$a[08]\");"
"var_dump(\"$a[0xa]\");");
MVCR("<?php "
"class A {"
" const i1= -1;"
" const i2= -2;"
" static $s = -4;"
"};"
"class B {"
" static $s = -5;"
"};"
"$attr=array();"
"$attr[a::i1]='abc';"
"$attr[a::i2]='def';"
"$attr[-3]='ghi';"
"$attr[a::$s]='jkl';"
"$attr[b::$s]='mno';"
"var_dump($attr);");
MVCR("<?php "
"function foo(&$a) {}"
"foo($a[array()]);"
"foo($a[new StdClass]);"
"var_dump($a);");
MVCR("<?php\n"
"function f(&$elem) {\n"
"$elem = 44;\n"
"}\n"
"$arr = array();\n"
"$arr[PHP_INT_MAX-1] = 1;\n"
"$arr[PHP_INT_MAX] = 2;\n"
"var_dump($arr);\n"
"f($arr[]);\n"
"var_dump($arr);\n"
"unset($arr[PHP_INT_MAX]);\n"
"unset($arr[PHP_INT_MAX-1]);\n"
"f($arr[]);\n"
"var_dump($arr);\n");
MVCR("<?php "
"function foo($p) {"
" return $p;"
"}"
"$a = array(1, 2, 3, 4);"
"$a[123] = 5;"
"$a[\"0000\"] = 6;"
"var_dump(foo(__LINE__));"
"var_dump(foo(array()));"
"var_dump(foo(array(1, 2, 3)));"
"var_dump(foo($a[123]));"
"var_dump(foo($a[0000]));"
"var_dump(foo(\"$a[123]\"));"
"var_dump(foo(\"$a[0000]\"));");
return true;
}
bool TestCodeRun::TestArrayAccess() {
MVCR("<?php\n"
"class A implements ArrayAccess {"
" public $a;"
" public function offsetExists($offset) {"
" echo \"offsetExist\";"
" return false;"
" }"
" public function offsetGet($offset) {"
" echo \"offsetGet\";"
" return $this->$offset.'get';"
" }"
" public function offsetSet($offset, $value) {"
" $this->$offset = $value.'set';"
" }"
" public function offsetUnset($offset) {"
" $this->$offset = 'unset';"
" }"
"}"
"function f() { var_dump('f()'); return 1; }\n"
"function test($a) {\n"
"$a['foo'] .= f();\n"
"$a['bar'] += f();\n"
"$a['bar'] -= f();\n"
"$a['bar'] *= f();\n"
"$a['bar'] /= f();\n"
"$a['bar'] %= f();\n"
"$a['bar'] &= f();\n"
"$a['bar'] |= f();\n"
"$a['bar'] ^= f();\n"
"$a['bar'] <<= f();\n"
"$a['bar'] >>= f();\n"
"}\n"
"test(new A);\n"
);
MVCR("<?php "
"class A implements ArrayAccess {"
" public $a;"
" public function offsetExists($offset) {"
" echo \"offsetExist\";"
" return false;"
" }"
" public function offsetGet($offset) {"
" echo \"offsetGet\";"
" return $this->$offset.'get';"
" }"
" public function offsetSet($offset, $value) {"
" $this->$offset = $value.'set';"
" }"
" public function offsetUnset($offset) {"
" $this->$offset = 'unset';"
" }"
"}"
"$obj = new A();"
"if (!isset($obj['a'])) {"
" $obj['a'] = 'test';"
"}"
"if (!empty($obj['a'])) {"
" $obj['a'] = 'test2';"
"}"
"var_dump($obj['a']);"
"unset($obj['a']);"
"var_dump($obj['a']);"
);
MVCR("<?php "
"function offsetGet($index) {"
" echo (\"GET0: $index\\n\");"
"}"
"class ArrayAccessImpl implements ArrayAccess {"
" public $data = array();"
" public function offsetUnset($index) { echo \"UNSET: $index\\n\"; }"
" public function offsetSet($index, $value) {"
" echo (\"SET: $index\\n\");"
" if(isset($data[$index])) {"
" unset($data[$index]);"
" }"
" $u = &$this->data[$index];"
" if(is_array($value)) {"
" $u = new ArrayAccessImpl();"
" foreach($value as $idx=>$e)"
" $u[$idx]=$e;"
" } else"
" $u=$value;"
" }"
" public function offsetGet($index) {"
" echo (\"GET: $index\\n\");"
" if(!isset($this->data[$index]))"
" $this->data[$index]=new ArrayAccessImpl();"
" return $this->data[$index];"
" }"
" public function offsetExists($index) {"
" echo (\"EXISTS: $index\\n\");"
" if(isset($this->data[$index])) {"
" if($this->data[$index] instanceof ArrayAccessImpl) {"
" if(count($this->data[$index]->data)>0)"
" return true;"
" else"
" return false;"
" } else"
" return true;"
" } else"
" return false;"
" }"
"}"
""
"class ArrayAccessImpl2 extends ArrayAccessImpl {"
" public function offsetUnset($index) { echo \"UNSET2: $index\\n\"; }"
" public function offsetSet($index, $value) {"
" echo (\"SET2: $index\\n\");"
" if(isset($data[$index])) {"
" unset($data[$index]);"
" }"
" $u = &$this->data[$index];"
" if(is_array($value)) {"
" $u = new ArrayAccessImpl();"
" foreach($value as $idx=>$e)"
" $u[$idx]=$e;"
" } else"
" $u=$value;"
" }"
" public function offsetGet($index) {"
" echo (\"GET2: $index\\n\");"
" if(!isset($this->data[$index]))"
" $this->data[$index]=new ArrayAccessImpl();"
" return $this->data[$index];"
" }"
" public function offsetExists($index) {"
" echo (\"EXISTS2: $index\\n\");"
" if(isset($this->data[$index])) {"
" if($this->data[$index] instanceof ArrayAccessImpl) {"
" if(count($this->data[$index]->data)>0)"
" return true;"
" else"
" return false;"
" } else"
" return true;"
" } else"
" return false;"
" }"
"}"
"offsetGet('foo');"
"$data = new ArrayAccessImpl();"
"$data['string']=\"Just a simple string\";"
"$data['number']=33;"
"$data['array']['another_string']=\"Alpha\";"
"$data['array']['some_object']=new stdClass();"
"$data['array']['another_array']['x']['y']=\"Beta\";"
"$data['blank_array']=array();"
"print_r(isset($data['array']));"
"print_r($data['array']['non_existent']);"
"print_r(isset($data['array']['non_existent']));"
"print_r($data['blank_array']);"
"print_r(isset($data['blank_array']));"
"unset($data['blank_array']);"
"print_r($data);"
"$data2 = new ArrayAccessImpl2();"
"$data2['string']=\"Just a simple string\";"
"$data2['number']=33;"
"$data2['array']['another_string']=\"Alpha\";"
"$data2['array']['some_object']=new stdClass();"
"$data2['array']['another_array']['x']['y']=\"Beta\";"
"$data2['blank_array']=array();"
"print_r(isset($data2['array']));"
"print_r($data2['array']['non_existent']);"
"print_r(isset($data2['array']['non_existent']));"
"print_r($data2['blank_array']);"
"print_r(isset($data2['blank_array']));"
"unset($data2['blank_array']);"
"print_r($data2);");
MVCR("<?php "
"class X implements ArrayAccess {"
" function offsetGet($f) { return $f; }"
" function offsetSet($f, $v) {}"
" function offsetUnset($f) {}"
" function offsetExists($f) { return false; }"
" }"
"function test() {"
" $x = new X;"
" unset($x['a']);"
" return isset($x['b']);"
"}"
"var_dump(test());");
MVCR("<?php "
"function test($x) {"
" $a = $x;"
" $b = $a;"
" $a[0]->foo = 1;"
" var_dump($a, $b);"
" $a = $x;"
" $b = $a;"
" $a[0][1] = 1;"
" var_dump($a, $b);"
" $a = $x;"
" $c = &$a[0];"
" $b = $a;"
" $a[0][1] = 1;"
" var_dump($a, $b);"
" }"
"test(array(false));"
"var_dump(array(false));");
return true;
}
bool TestCodeRun::TestArrayIterator() {
HipHopSyntax w(this);
MVCR("<?php "
"class MyIterator implements Iterator"
"{"
" private $var = array();"
" public function __construct($array)"
" {"
" echo \"constructing\n\";"
" if (is_array($array)) {"
" $this->var = $array;"
" }"
" }"
" public function rewind() {"
" echo \"rewinding\n\";"
" reset($this->var);"
" }"
" public function current() {"
" $var = current($this->var);"
" echo \"current: $var\n\";"
" return $var;"
" }"
" public function key() {"
" $var = key($this->var);"
" echo \"key: $var\n\";"
" return $var;"
" }"
" public function next() {"
" $var = next($this->var);"
" echo \"next: $var\n\";"
" return $var;"
" }"
" public function valid() {"
" $var = $this->current() !== false;"
" echo \"valid: {$var}\n\";"
" return $var;"
" }"
"}"
"$values = array(1,2,3);"
"$it = new MyIterator($values);"
"foreach ($it as $a => $b) {"
" print \"$a: $b\n\";"
"}"
"$itp = \"it\";"
"foreach ($$itp as $a => $b) {"
" print \"$a: $b\n\";"
"}"
"function getIter() {"
" $values = array(1,2,3);"
" $it = new MyIterator($values);"
" return $it;"
"}"
"foreach (getIter() as $a => $b) {"
" print \"$a: $b\n\";"
"}"
"class MyIteratorAggregate implements IteratorAggregate {"
" public function getIterator() {"
" return getIter();"
" }"
"}"
"$obj = new MyIteratorAggregate();"
"foreach ($obj as $a => $b) {"
" print \"$a: $b\n\";"
"}"
);
MVCR("<?php\n"
"$a = array(1, 2, 3, 4, 5, 6);\n"
"while ($v = each($a)) { if ($v[1] < 4) $a[] = $v[1] + $v[1]; }\n"
"var_dump($a);\n"
"$a = array(1, 2, 3, 4, 5, 6);\n"
"foreach ($a as $k => $v) { if ($v >= 4) $a = $v + $v; }\n"
"var_dump($a);\n");
MVCR("<?php\n"
"$arr = array('bar', 'bar', 'bar', 'bar', 'bar', 'bar', 'foo');\n"
"function foo() {\n"
" var_dump(__FUNCTION__); global $arr; $arr[] = 'bar';\n"
"}\n"
"function bar() { var_dump(__FUNCTION__); }\n"
"reset($arr);\n"
"while ($func = each($arr)) { $f = $func[1]; $f(); }\n");
MVCR("<?php "
"function test($a) {"
" $it = new ArrayIterator($a);"
" while ($it->valid()) {"
" var_dump($it->key());"
" var_dump($it->current());"
" $it->next();"
" }"
"}"
"test(array('a' => 'x',"
" false => 'y',"
" '1' => false,"
" null => 'z',"
" 'c' => 'w'));");
MVCR("<?php\n"
"$a = array(1, 2, 3);\n"
"$o = new ArrayIterator($a);\n"
"var_dump($o->next());\n"
"var_dump($o->rewind());\n"
"var_dump($o->seek());\n"
"var_dump($o->asort());\n"
"var_dump($o->ksort());\n"
"var_dump($o->natsort());\n"
"var_dump($o->natcasesort());\n");
// MutableArrayIterator
MVCRO("<?php\n"
"$a = array(1, 2, 3);\n"
"foreach ($a as $k1 => &$v1) { $v1 += $k1; }\n"
"var_dump($a);\n"
"$a = array(1, 2, 3);\n"
"for ($o = new MutableArrayIterator($a); $o->valid(); $o->next()) {\n"
" $k2 = $o->key();\n"
" $v2 = &$o->currentRef();\n"
" $v2 += $k2;\n"
"}\n"
"var_dump($a);\n"
,
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(3)\n"
" [2]=>\n"
" &int(5)\n"
"}\n"
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(3)\n"
" [2]=>\n"
" &int(5)\n"
"}\n");
MVCRO("<?php\n"
"function gen() {\n"
" $a = array(1, 2, 3);\n"
" foreach ($a as $k1 => &$v1) { $v1 += $k1; }\n"
" var_dump($a);\n"
" $a = array(1, 2, 3);\n"
" for ($o = new MutableArrayIterator($a); $o->valid(); $o->next()) {\n"
" $k2 = $o->key();\n"
" $v2 = &$o->currentRef();\n"
" $v2 += $k2;\n"
" }\n"
" var_dump($a);\n"
" yield null;\n"
"}\n"
"foreach (gen() as $_) {}\n"
,
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(3)\n"
" [2]=>\n"
" &int(5)\n"
"}\n"
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(3)\n"
" [2]=>\n"
" &int(5)\n"
"}\n");
MVCR("<?php"
"function ex($m) {"
" var_dump('Throwing: '.$m);"
" throw new Exception($m);"
"}"
"class A {"
" public function __construct() {"
" var_dump(__METHOD__);"
" }"
" public function __destruct() {"
" var_dump(__METHOD__);"
" }"
"}"
"class B {"
" public $a;"
" public function gen() {"
" ex('die!');"
" yield(2);"
" }"
" function __destruct() {"
" var_dump(__METHOD__);"
" }"
"}"
"class II {"
" private $tn, $tv;"
" function __construct($tn, $tv) { $this->tn = $tn; $this->tv = $tv; }"
" function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function gen() { return new I($this->tn, $this->tv); }"
"}"
"class JJ {"
" private $tn, $tv;"
" function __construct($tn, $tv) { $this->tn = $tn; $this->tv = $tv; }"
" function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function gen() { return new J($this->tn, $this->tv); }"
"}"
"class KK {"
" private $tn, $tv;"
" function __construct($tn, $tv) { $this->tn = $tn; $this->tv = $tv; }"
" function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function gen() { return new K($this->tn, $this->tv); }"
"}"
"class LL {"
" private $tn, $tv;"
" function __construct($tn, $tv) { $this->tn = $tn; $this->tv = $tv; }"
" function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function gen() { return new L($this->tn, $this->tv); }"
"}"
"class I implements Iterator"
"{"
" private $tn, $tv, $i = 0;"
" public function gen() { return $this; }"
" public function __construct($tn, $tv) {"
" $this->tn = $tn;"
" $this->tv = $tv;"
" }"
" public function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function rewind() {"
" var_dump(__METHOD__);"
" if ($this->tn == 0) ex(__METHOD__);"
" $this->i = 1;"
" }"
" public function current() {"
" var_dump(__METHOD__);"
" return $this->i;"
" }"
" public function key() {"
" var_dump(__METHOD__);"
" return $this->i;"
" }"
" public function next() {"
" var_dump(__METHOD__);"
" if ($this->tn == $this->i) ex(__METHOD__);"
" return ++$this->i;"
" }"
" public function valid() {"
" var_dump(__METHOD__);"
" if ($this->tv == $this->i) ex(__METHOD__);"
" return $this->i < 10;"
" }"
"}"
"class J implements IteratorAggregate {"
" private $i;"
" public function __construct($tn, $tv) {"
" $this->i = new I($tn, $tv);"
" }"
" public function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function getIterator() { return $this->i; }"
" public function gen() { return $this; }"
"}"
"class K implements IteratorAggregate {"
" private $tn, $tv;"
" public function __construct($tn, $tv) {"
" $this->tn = $tn;"
" $this->tv = $tv;"
" }"
" public function __destruct() {"
" var_dump(__METHOD__);"
" }"
" public function getIterator() { return new I($this->tn, $this->tv); }"
" public function gen() { return $this; }"
"}"
"class L implements IteratorAggregate {"
" public function getIterator() { ex(__METHOD__); }"
" public function gen() { return $this; }"
"}"
"function run($n, $tn, $tv) {"
" var_dump('>>>main');"
" $a = new A();"
" $b = new $n($tn, $tv);"
" $b->a = $a;"
" try {"
" foreach ($b->gen() as $k) {"
" var_dump('got '.$k);"
" }"
" } catch(Exception $e) {"
" var_dump('Exception: ' . $e->getMessage());"
" unset($e);"
" }"
" unset($b);"
" var_dump('<<<main');"
"}"
"function test($n, $tn, $tv) {"
" run($n, $tn, $tv);"
" var_dump('Done: '.$n);"
"}"
"function triple($n) {"
" test($n, 0, 0);"
" test($n, -1, 1);"
" test($n, 2,-1);"
"}"
"function main() {"
" triple('I');"
" triple('J');"
" triple('K');"
" triple('L');"
" triple('II');"
" triple('JJ');"
" triple('KK');"
" triple('LL');"
" test('B', 0, 0);"
"}"
"main();");
return true;
}
bool TestCodeRun::TestArrayForEach() {
HipHopSyntax w(this);
MVCR("<?php\n"
"function f1() {\n"
" $i = 0;\n"
" $foo = array(1,2,3,4);\n"
" foreach ($foo as $key => &$val) {\n"
" echo \"key=$key val=$val\\n\";\n"
" if($val == 2) {\n"
" $foo[$key] = 0;\n"
" } else if($val == 3) {\n"
" unset($foo[$key]);\n"
" } else {\n"
" $val++;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"f1();\n");
MVCRO("<?php\n"
"function f1() {\n"
" $i = 0;\n"
" $foo = array(1,2,3,4);\n"
" foreach ($foo as $key => &$val) {\n"
" yield null;\n"
" echo \"key=$key val=$val\\n\";\n"
" if($val == 2) {\n"
" $foo[$key] = 0;\n"
" } else if($val == 3) {\n"
" unset($foo[$key]);\n"
" } else {\n"
" $val++;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"foreach (f1() as $_) {}\n"
,
"key=0 val=1\n"
"key=1 val=2\n"
"key=2 val=3\n"
"key=3 val=4\n"
"array(3) {\n"
" [0]=>\n"
" int(2)\n"
" [1]=>\n"
" int(0)\n"
" [3]=>\n"
" &int(5)\n"
"}\n"
);
MVCR("<?php\n"
"function f2() {\n"
" $i = 0;\n"
" $foo = array(1,2,3,4);\n"
" foreach ($foo as $key => &$val) {\n"
" echo \"key=$key val=$val\\n\";\n"
" if($val == 2) {\n"
" $foo[$key] = 0;\n"
" } else if($val == 3) {\n"
" $foo['a'] = 7;\n"
" } else {\n"
" $val++;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"f2();\n");
MVCRO("<?php\n"
"function f2() {\n"
" $i = 0;\n"
" $foo = array(1,2,3,4);\n"
" foreach ($foo as $key => &$val) {\n"
" yield null;\n"
" echo \"key=$key val=$val\\n\";\n"
" if($val == 2) {\n"
" $foo[$key] = 0;\n"
" } else if($val == 3) {\n"
" $foo['a'] = 7;\n"
" } else {\n"
" $val++;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"foreach (f2() as $_) {}\n"
,
"key=0 val=1\n"
"key=1 val=2\n"
"key=2 val=3\n"
"key=3 val=4\n"
"key=a val=7\n"
"array(5) {\n"
" [0]=>\n"
" int(2)\n"
" [1]=>\n"
" int(0)\n"
" [2]=>\n"
" int(3)\n"
" [3]=>\n"
" int(5)\n"
" [\"a\"]=>\n"
" &int(8)\n"
"}\n"
);
/**
* Zend PHP 5.2 outputs:
* key=a val=1
* key=b val=2
* key=c val=333
* array(6) {
* ["a"]=>
* int(1)
* ["b"]=>
* int(2)
* ["d"]=>
* int(4)
* ["e"]=>
* int(5)
* ["f"]=>
* int(6)
* ["c"]=>
* &int(333)
* }
*
* The difference in behavior is intentional. Under Zend, when the next
* element is unset inside a foreach by reference loop, a heuristic is used
* to figure out which element should be visited next. In this specific
* example, the loop resumes at key 'c', skipping over keys 'd', 'e', and
* 'f'.
*
* Under HPHP, when the next element is unset inside a foreach by loop, the
* loop's iterator is appropriately updated. HPHP successfully upholds the
* invariant that a foreach by refererence loop that exhausts the array will
* visit every element that has not been deleted exactly once.
*/
MVCRO("<?php\n"
"function f3() {\n"
" $i = 0;\n"
" $foo = array('a'=>1, 'b'=>2, 'c'=>3, 'd'=>4, 'e'=>5, 'f'=>6);\n"
" $bar = array();\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'b' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['c']);\n"
" $foo['c'] = 333;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"f3();\n"
,
"key=a val=1\n"
"key=b val=2\n"
"key=d val=4\n"
"key=e val=5\n"
"key=f val=6\n"
"key=c val=333\n"
"array(6) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" int(2)\n"
" [\"d\"]=>\n"
" int(4)\n"
" [\"e\"]=>\n"
" int(5)\n"
" [\"f\"]=>\n"
" int(6)\n"
" [\"c\"]=>\n"
" &int(333)\n"
"}\n"
);
MVCRO("<?php\n"
"function f3() {\n"
" $i = 0;\n"
" $foo = array('a'=>1, 'b'=>2, 'c'=>3, 'd'=>4, 'e'=>5, 'f'=>6);\n"
" $bar = array();\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" yield null;\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'b' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['c']);\n"
" $foo['c'] = 333;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"foreach (f3() as $_) {}\n"
,
"key=a val=1\n"
"key=b val=2\n"
"key=d val=4\n"
"key=e val=5\n"
"key=f val=6\n"
"key=c val=333\n"
"array(6) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" int(2)\n"
" [\"d\"]=>\n"
" int(4)\n"
" [\"e\"]=>\n"
" int(5)\n"
" [\"f\"]=>\n"
" int(6)\n"
" [\"c\"]=>\n"
" &int(333)\n"
"}\n"
);
MVCR("<?php\n"
"function f4() {\n"
" $i = 0;\n"
" $foo = array('a'=>1, 'b'=>2, 'c'=>3, 'd'=>4, 'e'=>5, 'f'=>6);\n"
" $bar = array();\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'b' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['c']);\n"
" $bar['b'] = 888;\n"
" $foo['c'] = 333;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"f4();\n");
MVCRO("<?php\n"
"function f4() {\n"
" $i = 0;\n"
" $foo = array('a'=>1, 'b'=>2, 'c'=>3, 'd'=>4, 'e'=>5, 'f'=>6);\n"
" $bar = array();\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" yield null;\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'b' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['c']);\n"
" $bar['b'] = 888;\n"
" $foo['c'] = 333;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
" var_dump($foo);\n"
"}\n"
"foreach (f4() as $_) {}\n"
,
"key=a val=1\n"
"key=b val=2\n"
"key=d val=4\n"
"key=e val=5\n"
"key=f val=6\n"
"key=c val=333\n"
"array(6) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" int(2)\n"
" [\"d\"]=>\n"
" int(4)\n"
" [\"e\"]=>\n"
" int(5)\n"
" [\"f\"]=>\n"
" int(6)\n"
" [\"c\"]=>\n"
" &int(333)\n"
"}\n"
);
/**
* Zend PHP 5.2 outputs:
* key=f val=3
* key()=e current()=1
* key=e val=1
* key()=d current()=5
* key=d val=9
* key()=0s0 current()=0
* key=0s0 val=0
* key()=1s1 current()=1
* key=1s1 val=1
* key()=2s2 current()=2
* key=2s2 val=2
* key()=3s3 current()=3
* key=3s3 val=3
* key()=4s4 current()=4
* ...
*
* The difference in behavior is intentional. For more info, see testcase h3.
*/
MVCRO("<?php\n"
"function f5() {\n"
" $i = 0;\n"
" $foo = array('f'=>3, 'e'=>1, 'd'=>5, 'a'=>6, 'b'=>2, 'c'=>4);\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'e' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['e']);\n"
" unset($foo['d']);\n"
" $foo['d'] = 9;\n"
" for ($j = 0; $j < 10000; ++$j)\n"
" $foo[$j . 's' . $j] = $j;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"f5();\n"
,
"key=f val=3\n"
"key=e val=1\n"
"key=a val=6\n"
"key=b val=2\n"
"key=c val=4\n"
"key=d val=9\n"
"key=0s0 val=0\n"
"key=1s1 val=1\n"
"key=2s2 val=2\n"
"key=3s3 val=3\n"
"key=4s4 val=4\n"
"key=5s5 val=5\n"
"key=6s6 val=6\n"
"key=7s7 val=7\n"
"key=8s8 val=8\n"
"key=9s9 val=9\n"
"key=10s10 val=10\n"
"key=11s11 val=11\n"
"key=12s12 val=12\n"
"key=13s13 val=13\n"
);
MVCRO("<?php\n"
"function f5() {\n"
" $i = 0;\n"
" $foo = array('f'=>3, 'e'=>1, 'd'=>5, 'a'=>6, 'b'=>2, 'c'=>4);\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" yield null;\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'e' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['e']);\n"
" unset($foo['d']);\n"
" $foo['d'] = 9;\n"
" for ($j = 0; $j < 10000; ++$j)\n"
" $foo[$j . 's' . $j] = $j;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"foreach (f5() as $_) {}\n"
,
"key=f val=3\n"
"key=e val=1\n"
"key=a val=6\n"
"key=b val=2\n"
"key=c val=4\n"
"key=d val=9\n"
"key=0s0 val=0\n"
"key=1s1 val=1\n"
"key=2s2 val=2\n"
"key=3s3 val=3\n"
"key=4s4 val=4\n"
"key=5s5 val=5\n"
"key=6s6 val=6\n"
"key=7s7 val=7\n"
"key=8s8 val=8\n"
"key=9s9 val=9\n"
"key=10s10 val=10\n"
"key=11s11 val=11\n"
"key=12s12 val=12\n"
"key=13s13 val=13\n"
);
MVCR("<?php\n"
"function f6() {\n"
" $i = 0;\n"
" $foo = array('f'=>3, 'e'=>1, 'd'=>5, 'a'=>6, 'b'=>2, 'c'=>4);\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'e' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['e']);\n"
" unset($foo['d']);\n"
" $bar['e'] = 8;\n"
" $foo['d'] = 9;\n"
" for ($j = 0; $j < 10000; ++$j)\n"
" $foo[$j . 's' . $j] = $j;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"f6();\n");
MVCRO("<?php\n"
"function f6() {\n"
" $i = 0;\n"
" $foo = array('f'=>3, 'e'=>1, 'd'=>5, 'a'=>6, 'b'=>2, 'c'=>4);\n"
" $a = 0;\n"
" foreach ($foo as $key => &$val) {\n"
" yield null;\n"
" echo \"key=$key val=$val\\n\";\n"
" if ($key == 'e' && $a == 0) {\n"
" $a = 1;\n"
" unset($foo['e']);\n"
" unset($foo['d']);\n"
" $bar['e'] = 8;\n"
" $foo['d'] = 9;\n"
" for ($j = 0; $j < 10000; ++$j)\n"
" $foo[$j . 's' . $j] = $j;\n"
" }\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"foreach (f6() as $_) {}\n"
,
"key=f val=3\n"
"key=e val=1\n"
"key=a val=6\n"
"key=b val=2\n"
"key=c val=4\n"
"key=d val=9\n"
"key=0s0 val=0\n"
"key=1s1 val=1\n"
"key=2s2 val=2\n"
"key=3s3 val=3\n"
"key=4s4 val=4\n"
"key=5s5 val=5\n"
"key=6s6 val=6\n"
"key=7s7 val=7\n"
"key=8s8 val=8\n"
"key=9s9 val=9\n"
"key=10s10 val=10\n"
"key=11s11 val=11\n"
"key=12s12 val=12\n"
"key=13s13 val=13\n"
);
/**
* Zend PHP 5.2 outputs:
* key=0 value=0
* key=1 value=1
* key=2 value=0
* key=3 value=1
*
* The difference in behavior is intentional. Under PHP, a foreach by
* reference loop will not visit an element that is appended to the array
* during the iteration for the last element in the array.
*
* Under HPHP, a foreach by reference loop will always visit an element that
* is appended to the array during any iteration, provided that the element
* is not deleted and the loop does not exit early.
*/
MVCRO("<?php\n"
"function f7() {\n"
" $i = 0;\n"
" $bar = array();\n"
" $arr = array(0,1,0,1);\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"key=$k value=$v\\n\";\n"
" if ($k == 0)\n"
" $val = 1;\n"
" else\n"
" $val = $arr[$k-1];\n"
" $arr[$k+1] = $val;\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"f7();\n"
,
"key=0 value=0\n"
"key=1 value=1\n"
"key=2 value=0\n"
"key=3 value=1\n"
"key=4 value=0\n"
"key=5 value=1\n"
"key=6 value=0\n"
"key=7 value=1\n"
"key=8 value=0\n"
"key=9 value=1\n"
"key=10 value=0\n"
"key=11 value=1\n"
"key=12 value=0\n"
"key=13 value=1\n"
"key=14 value=0\n"
"key=15 value=1\n"
"key=16 value=0\n"
"key=17 value=1\n"
"key=18 value=0\n"
"key=19 value=1\n"
);
MVCRO("<?php\n"
"function f7() {\n"
" $i = 0;\n"
" $bar = array();\n"
" $arr = array(0,1,0,1);\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"key=$k value=$v\\n\";\n"
" if ($k == 0)\n"
" $val = 1;\n"
" else\n"
" $val = $arr[$k-1];\n"
" $arr[$k+1] = $val;\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"foreach (f7() as $_) {}\n"
,
"key=0 value=0\n"
"key=1 value=1\n"
"key=2 value=0\n"
"key=3 value=1\n"
"key=4 value=0\n"
"key=5 value=1\n"
"key=6 value=0\n"
"key=7 value=1\n"
"key=8 value=0\n"
"key=9 value=1\n"
"key=10 value=0\n"
"key=11 value=1\n"
"key=12 value=0\n"
"key=13 value=1\n"
"key=14 value=0\n"
"key=15 value=1\n"
"key=16 value=0\n"
"key=17 value=1\n"
"key=18 value=0\n"
"key=19 value=1\n"
);
MVCR("<?php\n"
"function f8() {\n"
" $i = 0;\n"
" $bar = array();\n"
" $arr = array(0,1,0,1);\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"key=$k value=$v\\n\";\n"
" if ($k == 0)\n"
" $val = 1;\n"
" else\n"
" $val = $arr[$k-1];\n"
" unset($arr[$k+1]);\n"
" $bar[] = 0;\n"
" $arr[$k+1] = $val;\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"f8();\n");
MVCRO("<?php\n"
"function f8() {\n"
" $i = 0;\n"
" $bar = array();\n"
" $arr = array(0,1,0,1);\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"key=$k value=$v\\n\";\n"
" if ($k == 0)\n"
" $val = 1;\n"
" else\n"
" $val = $arr[$k-1];\n"
" unset($arr[$k+1]);\n"
" $bar[] = 0;\n"
" $arr[$k+1] = $val;\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"foreach (f8() as $_) {}\n"
,
"key=0 value=0\n"
"key=2 value=0\n"
"key=1 value=1\n"
"key=3 value=1\n"
"key=2 value=0\n"
"key=4 value=0\n"
"key=3 value=1\n"
"key=5 value=1\n"
"key=4 value=0\n"
"key=6 value=0\n"
"key=5 value=1\n"
"key=7 value=1\n"
"key=6 value=0\n"
"key=8 value=0\n"
"key=7 value=1\n"
"key=9 value=1\n"
"key=8 value=0\n"
"key=10 value=0\n"
"key=9 value=1\n"
"key=11 value=1\n"
);
MVCR("<?php\n"
"function f9() {\n"
" $i = 0;\n"
" $arr = array(1,1,1);\n"
" $bar = array();\n"
" $first = true;\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"k=$k v=$v\\n\";\n"
" if (!$first) {\n"
" $prev_k = ($k+2)%3;\n"
" unset($arr[$prev_k]);\n"
" if (count($bar) > 100)\n"
" $bar = array();\n"
" $bar[] = 1;\n"
" $arr[$prev_k] = 1;\n"
" }\n"
" $first = false;\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"f9();\n");
MVCRO("<?php\n"
"function f9() {\n"
" $i = 0;\n"
" $arr = array(1,1,1);\n"
" $bar = array();\n"
" $first = true;\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"k=$k v=$v\\n\";\n"
" if (!$first) {\n"
" $prev_k = ($k+2)%3;\n"
" unset($arr[$prev_k]);\n"
" if (count($bar) > 100)\n"
" $bar = array();\n"
" $bar[] = 1;\n"
" $arr[$prev_k] = 1;\n"
" }\n"
" $first = false;\n"
" ++$i;\n"
" if ($i >= 20)\n"
" break;\n"
" }\n"
"}\n"
"foreach (f9() as $_) {}\n"
,
"k=0 v=1\n"
"k=1 v=1\n"
"k=2 v=1\n"
"k=0 v=1\n"
"k=1 v=1\n"
"k=2 v=1\n"
"k=0 v=1\n"
"k=1 v=1\n"
"k=2 v=1\n"
"k=0 v=1\n"
"k=1 v=1\n"
"k=2 v=1\n"
"k=0 v=1\n"
"k=1 v=1\n"
"k=2 v=1\n"
"k=0 v=1\n"
"k=1 v=1\n"
"k=2 v=1\n"
"k=0 v=1\n"
"k=1 v=1\n"
);
MVCR("<?php function g1() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" $arr = array(4,5,6,7);\n"
" }\n"
" }\n"
"}\n"
"g1();\n");
MVCRO("<?php function g1() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" $arr = array(4,5,6,7);\n"
" }\n"
" }\n"
"}\n"
"foreach (g1() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=4\n"
"val=5\n"
"val=6\n"
"val=7\n"
);
MVCR("<?php function g2() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" $old = $arr;\n"
" $arr = array(4,5,6,7);\n"
" } else if ($v == 6) {\n"
" $arr = $old;\n"
" unset($old);\n"
" }\n"
" }\n"
"}\n"
"g2();\n");
MVCRO("<?php function g2() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" $old = $arr;\n"
" $arr = array(4,5,6,7);\n"
" } else if ($v == 6) {\n"
" $arr = $old;\n"
" unset($old);\n"
" }\n"
" }\n"
"}\n"
"foreach (g2() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=4\n"
"val=5\n"
"val=6\n"
"val=2\n"
"val=3\n"
);
MVCR("<?php function g3() {\n"
" $arr2 = array(0,1,2,3);\n"
" $arr = $arr2;\n"
" $b = true;\n"
" $b2 = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" $arr = array(4,5,6,7);\n"
" } else if ($b2 && $v == 6) {\n"
" $b2 = false;\n"
" $arr = $arr2;\n"
" }\n"
" }\n"
"}\n"
"g3();\n");
MVCRO("<?php function g3() {\n"
" $arr2 = array(0,1,2,3);\n"
" $arr = $arr2;\n"
" $b = true;\n"
" $b2 = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" $arr = array(4,5,6,7);\n"
" } else if ($b2 && $v == 6) {\n"
" $b2 = false;\n"
" $arr = $arr2;\n"
" }\n"
" }\n"
"}\n"
"foreach (g3() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=4\n"
"val=5\n"
"val=6\n"
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
);
MVCR("<?php function g4() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_push($arr, 4);\n"
" }\n"
" }\n"
"}\n"
"g4();\n");
MVCRO("<?php function g4() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_push($arr, 4);\n"
" }\n"
" }\n"
"}\n"
"foreach (g4() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
"val=4\n"
);
MVCR("<?php function g5() {\n"
" $arr = array(0,1,2,3);\n"
" $arr2 = $arr;\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_push($arr, 4);\n"
" }\n"
" }\n"
"}\n"
"g5();\n");
MVCRO("<?php function g5() {\n"
" $arr = array(0,1,2,3);\n"
" $arr2 = $arr;\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_push($arr, 4);\n"
" }\n"
" }\n"
"}\n"
"foreach (g5() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
"val=4\n"
);
MVCR("<?php function g6() {\n"
" $arr = array(0,'a'=>1,2,'b'=>3,4);\n"
" $b = true;\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"key=$k val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_pop($arr);\n"
" }\n"
" }\n"
"}\n"
"g6();\n");
MVCRO("<?php function g6() {\n"
" $arr = array(0,'a'=>1,2,'b'=>3,4);\n"
" $b = true;\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"key=$k val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_pop($arr);\n"
" }\n"
" }\n"
"}\n"
"foreach (g6() as $_) {}\n"
,
"key=0 val=0\n"
"key=a val=1\n"
"key=1 val=2\n"
"key=b val=3\n"
);
MVCR("<?php function g7() {\n"
" $arr = array(0,'a'=>1,2,'b'=>3,4);\n"
" $b = true;\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"key=$k val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" unset($arr[1]); \n"
" }\n"
" }\n"
"}\n"
"g7();\n");
MVCRO("<?php function g7() {\n"
" $arr = array(0,'a'=>1,2,'b'=>3,4);\n"
" $b = true;\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"key=$k val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" unset($arr[1]); \n"
" }\n"
" }\n"
"}\n"
"foreach (g7() as $_) {}\n"
,
"key=0 val=0\n"
"key=a val=1\n"
"key=b val=3\n"
"key=2 val=4\n"
);
/**
* Zend PHP 5.2 outputs:
* key=0 val=0
* key=a val=1
* key=0 val=0
* key=a val=1
* key=b val=3
*
* The difference in behavior is intentional. Under PHP, after the next
* element is unset inside the foreach by reference loop and the array_pop
* operation is performed, a heuristic is used to determine which element
* should be visited next. If this specific example, the loop chooses to
* resume at key '0'.
*
* Under HPHP, when the next element is unset inside a foreach by loop, the
* loop's iterator is appropriately updated. Likewise, the loop's iterator
* remains intact after the array_pop operation. Thus, after the unset and
* the pop operation, HPHP resumes the loop at key 'b'.
*/
MVCRO("<?php function g8() {\n"
" $arr = array(0,'a'=>1,2,'b'=>3,4);\n"
" $b = true;\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"key=$k val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" unset($arr[1]); \n"
" array_pop($arr);\n"
" }\n"
" }\n"
"}\n"
"g8();\n"
,
"key=0 val=0\n"
"key=a val=1\n"
"key=b val=3\n"
);
MVCRO("<?php function g8() {\n"
" $arr = array(0,'a'=>1,2,'b'=>3,4);\n"
" $b = true;\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"key=$k val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" unset($arr[1]); \n"
" array_pop($arr);\n"
" }\n"
" }\n"
"}\n"
"foreach (g8() as $_) {}\n"
,
"key=0 val=0\n"
"key=a val=1\n"
"key=b val=3\n"
);
MVCR("<?php function g9() {\n"
" $arr = array(0,1,2,3,4);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_shift($arr);\n"
" }\n"
" }\n"
"}\n"
"g9();\n");
MVCRO("<?php function g9() {\n"
" $arr = array(0,1,2,3,4);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_shift($arr);\n"
" }\n"
" }\n"
"}\n"
"foreach (g9() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=1\n"
"val=2\n"
"val=3\n"
"val=4\n"
);
MVCR("<?php function g10() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_unshift($arr, 4);\n"
" }\n"
" }\n"
"}\n"
"g10();\n");
MVCRO("<?php function g10() {\n"
" $arr = array(0,1,2,3);\n"
" $b = true;\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" echo \"val=$v\\n\";\n"
" if ($b && $v == 1) {\n"
" $b = false;\n"
" array_unshift($arr, 4);\n"
" }\n"
" }\n"
"}\n"
"foreach (g10() as $_) {}\n"
,
"val=0\n"
"val=1\n"
"val=4\n"
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
);
MVCR("<?php function g11() {\n"
" $arr = array(0,1,2,3);\n"
" reset($arr);\n"
" var_dump(current($arr));\n"
" foreach ($arr as &$v) {\n"
" var_dump(current($arr));\n"
" }\n"
" var_dump(current($arr));\n"
"}\n"
"g11();\n");
MVCRO("<?php function g11() {\n"
" $arr = array(0,1,2,3);\n"
" reset($arr);\n"
" var_dump(current($arr));\n"
" foreach ($arr as &$v) {\n"
" yield null;\n"
" var_dump(current($arr));\n"
" }\n"
" var_dump(current($arr));\n"
"}\n"
"foreach (g11() as $_) {}\n"
,
"int(0)\n"
"int(1)\n"
"int(2)\n"
"int(3)\n"
"bool(false)\n"
"bool(false)\n"
);
MVCR("<?php "
"function g12($a) {"
" var_dump($a);"
" $arr = array(0,1,2,3);"
" $b = true;"
" foreach ($arr as &$v) {"
" if ($b && $v == 1) {"
" $b = false;"
" $arr = $a;"
" } else {"
" $v = 5;"
" }"
" }"
" var_dump($a);"
"}"
"g12(array(0, 0, 0, 0));");
MVCRO("<?php "
"function g12($a) {"
" var_dump($a);"
" $arr = array(0,1,2,3);"
" $b = true;"
" foreach ($arr as &$v) {"
" yield null;"
" if ($b && $v == 1) {"
" $b = false;"
" $arr = $a;"
" } else {"
" $v = 5;"
" }"
" }"
" var_dump($a);"
"}"
"foreach (g12(array(0, 0, 0, 0)) as $_) {}"
,
"array(4) {\n"
" [0]=>\n"
" int(0)\n"
" [1]=>\n"
" int(0)\n"
" [2]=>\n"
" int(0)\n"
" [3]=>\n"
" int(0)\n"
"}\n"
"array(4) {\n"
" [0]=>\n"
" int(0)\n"
" [1]=>\n"
" int(0)\n"
" [2]=>\n"
" int(0)\n"
" [3]=>\n"
" int(0)\n"
"}\n"
);
MVCR("<?php\n"
"function h1(&$arr, $i) {\n"
" foreach ($arr as $k => &$v) {\n"
" echo \"i=$i key=$k\\n\";\n"
" if ($k == 0) {\n"
" if ($i > 0) {\n"
" h1($arr, $i-1);\n"
" } else if ($i == 0) {\n"
" echo \"Unsetting key 1\\n\";\n"
" unset($arr[1]);\n"
" }\n"
" }\n"
" }\n"
" end($arr);\n"
"}\n"
"$arr = array('a','b','c');\n"
"h1($arr, 10);\n"
"var_dump($arr);\n");
MVCRO("<?php\n"
"function h1(&$arr, $i) {\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo \"i=$i key=$k\\n\";\n"
" if ($k == 0) {\n"
" if ($i > 0) {\n"
" foreach (h1($arr, $i-1) as $_) {}\n"
" } else if ($i == 0) {\n"
" echo \"Unsetting key 1\\n\";\n"
" unset($arr[1]);\n"
" }\n"
" }\n"
" }\n"
" end($arr);\n"
"}\n"
"$arr = array('a','b','c');\n"
"foreach (h1($arr, 10) as $_) {}\n"
"var_dump($arr);\n"
,
"i=10 key=0\n"
"i=9 key=0\n"
"i=8 key=0\n"
"i=7 key=0\n"
"i=6 key=0\n"
"i=5 key=0\n"
"i=4 key=0\n"
"i=3 key=0\n"
"i=2 key=0\n"
"i=1 key=0\n"
"i=0 key=0\n"
"Unsetting key 1\n"
"i=0 key=2\n"
"i=1 key=2\n"
"i=2 key=2\n"
"i=3 key=2\n"
"i=4 key=2\n"
"i=5 key=2\n"
"i=6 key=2\n"
"i=7 key=2\n"
"i=8 key=2\n"
"i=9 key=2\n"
"i=10 key=2\n"
"array(2) {\n"
" [0]=>\n"
" string(1) \"a\"\n"
" [2]=>\n"
" string(1) \"c\"\n"
"}\n"
);
MVCR("<?php\n"
"function foo() {\n"
" $arr = array(10,20,30,40,50);\n"
" foreach ($arr as $k => &$v) {\n"
" echo $k . \"\\n\";\n"
" if ($k == 2 && !isset($arr2)) {\n"
" $arr2 = $arr;\n"
" }\n"
" $v += 100;\n"
" }\n"
" var_dump($arr);\n"
" var_dump($arr2);\n"
"}\n"
"foo();\n");
MVCRO("<?php\n"
"function foo() {\n"
" $arr = array(10,20,30,40,50);\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo $k . \"\\n\";\n"
" if ($k == 2 && !isset($arr2)) {\n"
" $arr2 = $arr;\n"
" }\n"
" $v += 100;\n"
" }\n"
" var_dump($arr);\n"
" var_dump($arr2);\n"
"}\n"
"foreach (foo() as $_) {}\n"
,
"0\n"
"1\n"
"2\n"
"3\n"
"4\n"
"array(5) {\n"
" [0]=>\n"
" int(110)\n"
" [1]=>\n"
" int(120)\n"
" [2]=>\n"
" &int(130)\n"
" [3]=>\n"
" int(140)\n"
" [4]=>\n"
" &int(150)\n"
"}\n"
"array(5) {\n"
" [0]=>\n"
" int(110)\n"
" [1]=>\n"
" int(120)\n"
" [2]=>\n"
" &int(130)\n"
" [3]=>\n"
" int(40)\n"
" [4]=>\n"
" int(50)\n"
"}\n"
);
MVCR("<?php\n"
"function foo() {\n"
" $arr = array(10,20,30,40,50);\n"
" foreach ($arr as $k => &$v) {\n"
" echo $k . \"\\n\";\n"
" if ($k == 2 && !isset($arr2)) {\n"
" $arr2 = $arr;\n"
" $arr[] = 60;\n"
" }\n"
" $v += 100;\n"
" }\n"
" var_dump($arr);\n"
" var_dump($arr2);\n"
"}\n"
"foo();\n");
MVCRO("<?php\n"
"function foo() {\n"
" $arr = array(10,20,30,40,50);\n"
" foreach ($arr as $k => &$v) {\n"
" yield null;\n"
" echo $k . \"\\n\";\n"
" if ($k == 2 && !isset($arr2)) {\n"
" $arr2 = $arr;\n"
" $arr[] = 60;\n"
" }\n"
" $v += 100;\n"
" }\n"
" var_dump($arr);\n"
" var_dump($arr2);\n"
"}\n"
"foreach (foo() as $_) {}\n"
,
"0\n"
"1\n"
"2\n"
"3\n"
"4\n"
"5\n"
"array(6) {\n"
" [0]=>\n"
" int(110)\n"
" [1]=>\n"
" int(120)\n"
" [2]=>\n"
" &int(130)\n"
" [3]=>\n"
" int(140)\n"
" [4]=>\n"
" int(150)\n"
" [5]=>\n"
" &int(160)\n"
"}\n"
"array(5) {\n"
" [0]=>\n"
" int(110)\n"
" [1]=>\n"
" int(120)\n"
" [2]=>\n"
" &int(130)\n"
" [3]=>\n"
" int(40)\n"
" [4]=>\n"
" int(50)\n"
"}\n"
);
/**
* Zend PHP 5.2 outputs:
* val=0
* val=1
* val=2
* val=3
* val=4
* bool(false)
*
* The difference in behavior is intentional. Under PHP, foreach by value can
* in some cases modify the array's internal iterator without triggering an
* array copy. This can potentially expose information to user code about
* when array copies are triggered.
*
* Under HPHP, foreach by value will never modify the array's internal
* iterator. The advantage here is that we do not expose information about
* when array copies are triggered to user code.
*
* The PHP manual states the following:
* foreach has some side effects on the array pointer. Don't rely on the
* array pointer during or after the foreach without resetting it.
*/
MVCRO("<?php function k1() {\n"
" $arr = array(0,1,2,3,4);\n"
" reset($arr);\n"
" foreach ($arr as $v) {\n"
" echo \"val=$v\\n\";\n"
" }\n"
" var_dump(current($arr));\n"
"}\n"
"k1();\n"
,
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
"val=4\n"
"int(0)\n"
);
MVCR("<?php function k2() {\n"
" $arr = array(0,1,2,3,4);\n"
" reset($arr);\n"
" $arr2 = $arr;\n"
" foreach ($arr as $v) {\n"
" echo \"val=$v\\n\";\n"
" }\n"
" var_dump(current($arr));\n"
" var_dump(current($arr2));\n"
"}\n"
"k2();\n");
/**
* Zend PHP 5.2 outputs:
* val=0
* val=1
* val=2
* val=3
* val=4
* int(0)
* bool(false)
*
* The difference in behavior is intentional. For more info see testcase k1.
*/
MVCRO("<?php function k3() {\n"
" $arr = array(0,1,2,3,4);\n"
" reset($arr);\n"
" $b = true;\n"
" foreach ($arr as $v) {\n"
" if ($b) {\n"
" $b = false;\n"
" $arr2 = $arr;\n"
" }\n"
" echo \"val=$v\\n\";\n"
" }\n"
" var_dump(current($arr));\n"
" var_dump(current($arr2));\n"
"}\n"
"k3();\n"
,
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
"val=4\n"
"int(0)\n"
"int(0)\n"
);
/**
* Zend PHP 5.2 outputs:
* val=0
* val=1
* val=2
* val=3
* val=4
* int(0)
* bool(false)
*
* This behavior is intentional. For more info see testcase k1.
*/
MVCRO("<?php function k4() {\n"
" $arr = array(0,1,2,3,4);\n"
" reset($arr);\n"
" $b = true;\n"
" foreach ($arr as $v) {\n"
" if ($b) {\n"
" $b = false;\n"
" $arr2 = $arr;\n"
" }\n"
" echo \"val=$v\\n\";\n"
" }\n"
" var_dump(current($arr2));\n"
" var_dump(current($arr));\n"
"}\n"
"k4();\n"
,
"val=0\n"
"val=1\n"
"val=2\n"
"val=3\n"
"val=4\n"
"int(0)\n"
"int(0)\n"
);
MVCR("<?php "
"$a = array(1,2,3,4,5);"
"function foo($a, $b, $c) {"
" var_dump('foo');"
" return 1;"
"}"
"function bar($a, $b, $c) {"
" var_dump('bar');"
" return 2;"
"}"
"function buz($x,$y) { if ($y) return $x; return 1; }"
"$s = buz('hello',1);"
"foreach ($a as $s[3]) {"
" var_dump($s);"
"}"
"$i = 0;"
"foreach ($a as "
" $a[bar($i++, $i++, $i++)] => &$a[foo($i++, $i++, $i++)]) {"
" var_dump($a[1],$a[2]);"
"}"
"foreach ($a as "
" $a[bar($i++, $i++, $i++)] => $a[foo($i++, $i++, $i++)]) {"
" var_dump($a[1],$a[2]);"
"}");
MVCR("<?php "
"class X {"
" function __destruct() { var_dump(__METHOD__); }"
"}"
"function test() {"
" $a = array(new X, 0);"
" foreach ($a as $v) {"
" var_dump($v);"
" }"
" $a = null;"
" var_dump('done');"
"}"
"test();"
"var_dump('exit');");
MVCR("<?php\n"
"function main() {\n"
" echo \"Entering main\\n\";\n"
" foreach (array(1 => 1) as $k => $v) {\n"
" break;\n"
" }\n"
" echo \"Leaving main\\n\";\n"
"}\n"
"main();\n");
return true;
}
bool TestCodeRun::TestArrayAssignment() {
MVCR("<?php "
"$a = array(1, 2, 3);"
"$b = $a;"
"$b[4] = 4;"
"var_dump($a);"
"var_dump($b);"
"$b = 3;"
"var_dump($a);"
"var_dump($b);");
MVCR("<?php "
"$a = array('1', '2', '3');"
"$b = $a;"
"$b[4] = '4';"
"var_dump($a);"
"var_dump($b);"
"$b = '3';"
"var_dump($a);"
"var_dump($b);");
MVCR("<?php "
"$a = array(1.5, 2.5, 3.5);"
"$b = $a;"
"$b[4] = 4.5;"
"var_dump($a);"
"var_dump($b);"
"$b = 3.5;"
"var_dump($a);"
"var_dump($b);");
MVCR("<?php "
"$a = array(1, 'hello', 3.5);"
"$b = $a;"
"$b[4] = 'world';"
"var_dump($a);"
"var_dump($b);");
MVCR("<?php "
"$a = array(1, 'hello', 3.5);"
"$b = $a;"
"$b[4] = 'world';"
"var_dump($a);"
"var_dump($b);"
"$b = 3;"
"var_dump($a);"
"var_dump($b);");
MVCR("<?php "
"$a = array('a' => '1', 2 => 2, 'c' => '3');"
"var_dump($a);"
"$a = array('a' => '1', 2 => 2, 'c' => '3',"
" 'd' => array('a' => '1', 2 => 2, 'c' => '3'));"
"var_dump($a);");
MVCR("<?php "
"$a = array(1=>'main', 2=>'sub');"
"$b = $a;"
"var_dump(array_pop($b));"
"print_r($a);"
"var_dump(array_shift($b));"
"print_r($a);");
MVCR("<?php "
"$a = array(1, 2, 3);"
"var_dump($a);"
"array_pop($a);"
"var_dump($a);"
"array_shift($a);"
"var_dump($a);");
MVCR("<?php "
"function foo() {"
" $p = 1;"
" $q = 2;"
" $r = 3;"
" $s = 4;"
" $a = array('1'=>$p, '2'=>&$q);"
" $b = array('3'=>$r, '4'=>&$s);"
" var_dump($a);"
" $a += $b;"
" var_dump($a);"
" var_dump($b);"
"}"
"foo();");
MVCR("<?php $a = false; $a['a'] = 10;");
MVCR("<?php $a = false; $a['a']['b'] = 10;");
// invalid offset type
MVCR("<?php\n"
"class c { function f(&$a, $b) { $a = $b; } }\n"
"function setNullVariantHelper($f, $value) {\n"
" $a = array();\n"
" $obj = new c;\n"
" $obj->$f($a[$obj] = 1, $value);\n"
" var_dump($a[$obj] = 1);\n"
"}\n"
"function setNullVariant($value) {\n"
" setNullVariantHelper('f', $value);\n"
"}\n"
"setNullVariant('Surprise!');\n"
"$b = null;\n"
"var_dump($b[1]);\n");
// empty string to array conversion
MVCR("<?php\n"
"$s = '';\n"
"$s[0] += 10;\n"
"var_dump($s);\n");
return true;
}
bool TestCodeRun::TestArrayFunctions() {
MVCR("<?php "
"class A implements Countable { public function count() { return 1;}} "
"$obj = new A(); var_dump(count($obj));");
MVCR("<?php\n"
"$a = array(\n"
" array('a' => 'a'),\n"
" array('b' => 'bb'),\n"
" array('c' => 'cc'),\n"
");\n"
"\n"
"$refs = array();\n"
"foreach ($a as &$arr) {\n"
" $refs[] = &$arr;\n"
"}\n"
"array_splice($a, 1, 1);\n"
"var_dump($a);\n"
);
MVCR("<?php\n"
"$x = array('x' => 'y');\n"
"$a = array('a1' => $x, 'a2' => $x);\n"
"$b = array('a1' => array(1,2,3), 'a2' => array(1,2,3));\n"
"var_dump(array_merge_recursive($a, $b));");
MVCR("<?php\n"
"$x = array('x' => 'y');\n"
"$a = array('a1' => &$x, 'a2' => &$x);\n"
"$b = array('a1' => array(), 'a2' => array(1,2));\n"
"var_dump(array_merge_recursive($a, $b));");
MVCR("<?php\n"
"$x = array('x' => 'y');\n"
"$a = array('a1' => &$x, 'a2' => &$x);\n"
"$b = array('a1' => array(1,2), 'a2' => array(3,4));\n"
"var_dump(array_merge_recursive($a, $b));");
MVCR("<?php $a = array(1 => 1, 3 => 3); "
"var_dump(array_merge($a, array(2)));");
MVCR("<?php $a = array(1 => 1, 3 => 3); "
"var_dump(array_merge($a, array()));");
MVCR("<?php $a = array('a' => 1, 3 => 3); "
"var_dump(array_merge($a, array(2)));");
MVCR("<?php $a = array('a' => 1, 'b' => 3); "
"var_dump(array_merge($a, array(2)));");
MVCR("<?php $a = array('a' => 1, 3 => 3); "
"var_dump(array_merge($a, array('a' => 2)));");
MVCR("<?php $a = array('a' => 1, 3 => 3); "
"var_dump(array_merge($a, array('b' => 2)));");
MVCR("<?php $a = array('a' => 1, 'b' => 3); "
"var_dump(array_merge($a, array('c' => 2)));");
MVCR("<?php "
"var_dump(array_unique(array(array(1,2), array(1,2), array(3,4),)));");
MVCR("<?php "
"$input = array(\"a\" => \"green\","
" \"red\", \"b\" => \"green\", \"blue\", \"red\");"
"$result = array_unique($input);"
"print_r($result);");
MVCR("<?php "
"$input = array(4, \"4\", \"3\", 4, 3, \"3\");"
"$result = array_unique($input);"
"var_dump($result);");
// Preservation of keys and references in original arrays.
MVCR("<?php\n"
"class A { }\n"
"$o = new A;\n"
"$f = '10';\n"
"$o->$f = 100;\n"
"$a = (array)$o;\n"
"$v = 1;\n"
"$a[10] = &$v;\n"
"$a[11] = array(&$v);\n"
"var_dump($a);\n"
// array_diff
"$b = array(10 => 10);\n"
"var_dump(array_diff_key($a, $b));\n"
// array_merge and array_merge_recursive
"var_dump(array_merge($a, $b));\n"
"var_dump(array_merge_recursive($a, $b));\n"
// array_reverse
"var_dump(array_reverse($a));\n"
// array_chunk
"var_dump(array_chunk($a, 2));\n"
);
// Test array_reduce
MVCR("<?php\n"
"function f($x, $y) {\n"
" var_dump($x, $y);\n"
" return $x + $x + $y + 1;\n"
"}\n"
"var_dump(array_reduce(array(), 'f'));\n"
"var_dump(array_reduce(array(), 'f', null));\n"
"var_dump(array_reduce(array(), 'f', 0));\n"
"var_dump(array_reduce(array(), 'f', 23));\n"
"var_dump(array_reduce(array(4), 'f'));\n"
"var_dump(array_reduce(array(4), 'f', null));\n"
"var_dump(array_reduce(array(4), 'f', 0));\n"
"var_dump(array_reduce(array(4), 'f', 23));\n"
"var_dump(array_reduce(array(1,2,3,4), 'f'));\n"
"var_dump(array_reduce(array(1,2,3,4), 'f', null));\n"
"var_dump(array_reduce(array(1,2,3,4), 'f', 0));\n"
"var_dump(array_reduce(array(1,2,3,4), 'f', 23)); \n");
MVCR("<?php "
"var_dump(array_filter(array(4294967295 => 22)));");
return true;
}
bool TestCodeRun::TestArrayCSE() {
HipHopSyntax w0(this);
OptionSetter w1(this, OptionSetter::CompileTime, "-vArrayAccessIdempotent=1");
MVCR("<?php\n"
"function f($x, $y) {\n"
" var_dump($x[$y]);\n"
" if ($x[$y]) print 'HI';\n"
"}\n"
"function g(&$x, $y) {\n"
" var_dump($x[$y]);\n"
" if ($x[$y]) print 'HI';\n"
"}\n"
"f(null, 0);\n"
"f(array(0), 0);\n"
"f(array(0), 'noidx');\n"
"f('abc', 0);\n"
"f('abc', 'noidx');\n"
"g($x = null, 0);\n"
"g($x = array(0), 0);\n"
"g($x = array(0), 'noidx');\n"
"g($x = 'abc', 0);\n"
"g($x = 'abc', 'noidx');\n");
MVCR("<?php\n"
"function f(array $a = null, $e) {\n"
" $a[$e]['foo'] = 30;\n"
" $x = $a[$e]['baz'];\n"
" $a[$e]['bar'] = 50;\n"
" var_dump($a, $x);\n"
"}\n"
"function g($x, $y) {\n"
" $x[$y]['foo'] = 30;\n"
" $x[$y]['bar'] = 30;\n"
" $z = $x[$y]['bar'];\n"
" $x[$y]['baz'] = 30;\n"
" if ($z) {\n"
" $x[$y]['baz'] = 30;\n"
" }\n"
" return $x;\n"
"}\n"
"function h($x, $y) {\n"
" if ($x) {\n"
" $x[$y]['foo'] = 30;\n"
" $x[$y]['bar'] = 30;\n"
" }\n"
" var_dump($x[$y]['foo']);\n"
"}\n"
"f(null, 'e');\n"
"f(array(), 'e');\n"
"f(array('e' => array('baz' => 40)), 'e');\n"
"var_dump(f(array('y' => array()), 'y'));\n"
"var_dump(f(array(), 'y'));\n"
"var_dump(f(array(), array()));\n"
"h(array(), 0);\n"
"h(array(array()), 0);\n");
MVCRO("<?php\n"
"function f(array $a, $e) {\n"
" $a[$e][$e] = 30;\n"
" $x = new stdClass();\n"
" $x = $a[$e];\n"
" var_dump($a, $x);\n"
"}\n"
"function g(string $x) {\n"
" var_dump($x[0]);\n"
" var_dump($x[1]);\n"
" var_dump($x[0]);\n"
"}\n"
"f(array(), 0);\n"
"g('bar');\n"
"g('');\n"
"g('b');\n",
"array(1) {\n"
" [0]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(30)\n"
" }\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" int(30)\n"
"}\n"
"string(1) \"b\"\n"
"string(1) \"a\"\n"
"string(1) \"b\"\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"string(1) \"b\"\n"
"string(0) \"\"\n"
"string(1) \"b\"\n");
MVCR("<?php\n"
"function f($x) {\n"
" var_dump($x[0]);\n"
" $x =& $x[0];\n"
" $x[0] = 30;\n"
" var_dump($x[0]);\n"
"}\n"
"function g($x) {\n"
" $x[0][1] = 10;\n"
" var_dump($x[0][2]);\n"
"}\n"
"f(array(0));\n"
"g(array());\n"
"g(array(0));\n");
MVCR("class ArrayWrap implements arrayaccess {\n"
" private $x;\n"
" public function __construct($x) {\n"
" $this->x = $x;\n"
" }\n"
" public function offsetSet($offset, $value) {\n"
" $this->x[$offset] = $value;\n"
" }\n"
" public function offsetExists($offset) {\n"
" return isset($this->x[$offset]);\n"
" }\n"
" public function offsetUnset($offset) {\n"
" unset($this->x[$offset]);\n"
" }\n"
" public function offsetGet($offset) {\n"
" return $this->x[$offset];\n"
" }\n"
"}\n"
"$o = new ArrayWrap(array(0, 1, 2));\n"
"\n"
"function f1($x) {\n"
" return isset($x[0]) && $x[0];\n"
"}\n"
"var_dump(f1(null));\n"
"var_dump(f1(array()));\n"
"var_dump(f1(array(0)));\n"
"var_dump(f1(''));\n"
"var_dump(f1('a'));\n"
"var_dump(f1($o));\n"
"\n"
"function f2($x) {\n"
" if (!is_null($x[0])) var_dump($x[0]);\n"
" var_dump($x[0]);\n"
"}\n"
"f2(array(0 => array()));\n"
"f2(array());\n"
"f2('');\n"
"f2($o);\n"
"f2(null);\n"
"\n"
"function f3($x) {\n"
" foreach ($x['foo'] as $k => $v) {\n"
" if ($v) unset($x['foo'][$k]);\n"
" }\n"
" var_dump($x);\n"
"}\n"
"f3(array('foo' => array(0,1,2,3)));\n"
"\n"
"function f4($x) {\n"
" var_dump($x[0][1]);\n"
" unset($x[0][1]);\n"
" var_dump($x[0][1]);\n"
"}\n"
"f4(array(array(1 => new stdClass())));\n"
"\n"
"function f5($x) {\n"
" var_dump(md5($x[0]), $x[0]);\n"
"}\n"
"f5('foobar');\n");
MVCR("function f1($x) {\n"
" if (count($x) > 0) { \n"
" var_dump($x); \n"
" } else if (count($x[0]) > 0) {\n"
" var_dump($x[0]);\n"
" }\n"
"}\n"
"f1(array(array(0, 1, 2)));\n"
"f1('abc');\n"
"\n"
"function id($x) { return $x; }\n"
"function f2($x) {\n"
" if ($x[0]) var_dump(id($x), $x[0]);\n"
"}\n"
"f2(null);\n"
"f2(array());\n"
"f2(array(10));\n"
"\n"
"function f3($x) {\n"
" var_dump($x[0].'/'. $x[1]);\n"
" var_dump($x[0].'/'. $x[1]);\n"
"}\n"
"f3(array('first', 'second'));\n"
"f3('AB');\n"
"\n"
"function f4($x) {\n"
" $z = @id($x[0]);\n"
" var_dump($z);\n"
" var_dump($x[0]);\n"
"}\n"
"f4(array('e1', 'e2'));\n"
"\n"
"function f5($x) {\n"
" if ($x[0][id($x[0])-1]) var_dump($x);\n"
"}\n"
"f5(array(0, 1, 2));\n");
MVCR("function id($x) { return $x; }\n"
"function f1($x) {\n"
" $z = id($x[0]);\n"
" foreach ($x[0] as $a) {\n"
" $z[] = array(id($z), count($x[0]));\n"
" }\n"
"}\n"
"f1(array(array(0, 1, 2, 3)));\n"
"\n"
"function f2($x) {\n"
" var_dump($x[0]);\n"
" $y = 'foo' . $x[0] . 'bar';\n"
"}\n"
"f2('foobar');\n"
"\n"
"function f3($x) {\n"
" $x = is_string($x[0]) ? $x[0] : get_class($x[0]);\n"
" return $x;\n"
"}\n"
"var_dump(f3('abc'));\n"
"var_dump(f3(array(new stdClass)));\n");
MVCR("<?php\n"
"function foo($a, $b, $c, $d) {\n"
" var_dump($a, $b, $c, $d);\n"
"}\n"
"function bar(&$a, $b, $c, $d) {\n"
" var_dump($a, $b, $c, $d);\n"
"}\n"
"function f($a) {\n"
" foo($a[0], $a[0], $a[0], $a[0]++);\n"
" foo($a[0], $a[0], $a[0], $a[0]);\n"
"}\n"
"function g($a) {\n"
" bar($a[0], $a[0], $a[0], $a[0]++);\n"
" bar($a[0], $a[0], $a[0], $a[0]);\n"
"}\n"
"f(array(0));\n"
"g(array(0));\n");
MVCR("<?php\n"
"$GLOBALS['foo'] = 10;\n"
"$GLOBALS['bar'] = \n"
" array(\n"
" 10 => array($GLOBALS['foo']),\n"
" 20 => array($GLOBALS['foo']));\n"
"var_dump($GLOBALS['bar']);\n");
MVCR("<?php\n"
"function blocker() { print 'block'; }\n"
"function f($x) {\n"
" $x = (string) $x;\n"
" blocker();\n"
" var_dump($x[0]);\n"
" var_dump($x[0]);\n"
"}\n"
"var_dump('foo');\n");
MVCR("<?php\n"
"function f1($x) {\n"
" if ($x[1]) goto x_t;\n"
" var_dump($x[0]);\n"
" var_dump($x[0]);\n"
" x_t:\n"
" var_dump($x[0]);\n"
"}\n"
"function f2($x) {\n"
" $i = 3;\n"
" while ($x[0] && $i--) {\n"
" var_dump($x[0]);\n"
" }\n"
"}\n"
"function f3($x, $y) {\n"
" do {\n"
" var_dump($x[0]);\n"
" } while ($x[0] && $y);\n"
" var_dump($x[0]);\n"
"}\n"
"function f4($x) {\n"
" foreach ($x[0] as $k => $v) {\n"
" var_dump($x[0]);\n"
" var_dump($k, $v);\n"
" }\n"
"}\n"
"function f5($x) {\n"
" switch ($x[0]) {\n"
" case 0:\n"
" var_dump($x[0]);\n"
" }\n"
"}\n"
"function f6($x, $y, $z) {\n"
" if ($z) goto my_clause;\n"
" if ($y) { var_dump($y); }\n"
" else if ($x[0]) {\n"
" var_dump($x[0]);\n"
" my_clause:\n"
" var_dump($x);\n"
" }\n"
"}\n"
"f1(array(0, 0));\n"
"f2(array(10));\n"
"f3(array(10), false);\n"
"f4(array(array(1, 2, 3)));\n"
"f5(array(false, false));\n"
"f6(array(true), false, false);\n");
MVCR("<?php\n"
"function blocker() { print 'block'; }\n"
"function id($x) { return $x; }\n"
"function f($x, $y) {\n"
" $y = $x[$y[0]] ? $x[$y[0]] : id($x[$y[0]]);\n"
" blocker();\n"
" var_dump($y);\n"
"}\n");
return true;
}
///////////////////////////////////////////////////////////////////////////////
bool TestCodeRun::TestVariant() {
MVCR("<?php $a = 1; $a = 'test'; print $a;");
MVCR("<?php $a = 1; $a = 'test'; $a .= 'b'; print $a;");
MVCR("<?php $a = array(); $a[] = 3; $a = 'test'; var_dump($a);");
MVCR("<?php $a = array(); $a['test'] = 3; var_dump($a);");
MVCR("<?php $a['test'] = 3; var_dump($a);");
MVCR("<?php $a = 1; $a = 'test'; print $a{0};");
MVCR("<?php $a=1;$a='t'; $a[0] = 'AB'; var_dump($a);");
MVCR("<?php $a=1;$a=''; $a[0] = 'AB'; var_dump($a);");
MVCR("<?php $a=1;$a='t'; $a[10] = 'AB'; var_dump($a);");
MVCR("<?php $a=1;$a='t'; $b = $a; $a[0] = 'AB'; var_dump($a); var_dump($b);");
MVCR("<?php $a=1;$a='t'; $b = $a; $a[10]= 'AB'; var_dump($a); var_dump($b);");
MVCR("<?php $a=1;$a='t'; $b = $a; $b[0] = 'AB'; var_dump($a); var_dump($b);");
MVCR("<?php $a=1;$a='t'; $b = $a; $b[10]= 'AB'; var_dump($a); var_dump($b);");
MVCR("<?php $a = 't'; $a = 1; print $a + 2;");
MVCR("<?php $a = 't'; $a = 1; print 2 + $a;");
MVCR("<?php $a = 't'; $a = 1; $b = 'a'; $b = 2; print $a + $b;");
MVCR("<?php $a = 't'; $a = 1; $a += 2; print $a;");
MVCR("<?php $a = 't'; $a = 1; $a += 'n'; print $a;");
MVCR("<?php $a = 't'; $a = 1; $a += '5'; print $a;");
MVCR("<?php $b = 'test'; $b = 1; $a += $b; print $a;");
MVCR("<?php $a = 't'; $a = 1; print -$a;");
MVCR("<?php $a = 't'; $a = -$a; print $a;");
MVCR("<?php $a = 't'; $a = 1; print $a - 2;");
MVCR("<?php $a = 't'; $a = 1; print 2 - $a;");
MVCR("<?php $a = 't'; $a = 1; $b = 'a'; $b = 2; print $a - $b;");
MVCR("<?php $a = 't'; $a = 1; $a -= 2; print $a;");
MVCR("<?php $a = 't'; $a = 1; $a -= 'n'; print $a;");
MVCR("<?php $a = 't'; $a = 1; $a -= '5'; print $a;");
MVCR("<?php $a = 't'; $a = 10; print $a * 2;");
MVCR("<?php $a = 't'; $a = 10; print 2 * $a;");
MVCR("<?php $a = 't'; $a = 10; $b = 'a'; $b = 2; print $a * $b;");
MVCR("<?php $a = 't'; $a = 10; $a *= 2; print $a;");
MVCR("<?php $a = 't'; $a = 10; $a *= 'n'; print $a;");
MVCR("<?php $a = 't'; $a = 10; $a *= '5'; print $a;");
MVCR("<?php $a = 't'; $a = 10; print $a / 2;");
MVCR("<?php $a = 't'; $a = 10; print 2 / $a;");
MVCR("<?php $a = 't'; $a = 10; $b = 'a'; $b = 2; print $a / $b;");
MVCR("<?php $a = 't'; $a = 10; $a /= 2; print $a;");
MVCR("<?php $a = 't'; $a = 10; $a /= '5'; print $a;");
MVCR("<?php $a = 't'; $a = 10; print $a % 2;");
MVCR("<?php $a = 't'; $a = 10; print 2 % $a;");
MVCR("<?php $a = 't'; $a = 10; $b = 'a'; $b = 2; print $a % $b;");
MVCR("<?php $a = 't'; $a = 10; $a %= 2; print $a;");
MVCR("<?php $a = 't'; $a = 10; $a %= '5'; print $a;");
MVCR("<?php $a = 't'; $a = 10; var_dump(~$a);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; var_dump($a & $b);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; var_dump($a | $b);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; var_dump($a ^ $b);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; var_dump($a << 2);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; var_dump($a >> 2);");
MVCR("<?php $b = 't'; $a = 10; $b = 9; var_dump($a & $b);");
MVCR("<?php $b = 't'; $a = 10; $b = 9; var_dump($a | $b);");
MVCR("<?php $b = 't'; $a = 10; $b = 9; var_dump($a ^ $b);");
MVCR("<?php $b = 't'; $a = 10; $b = 2; var_dump($a << $b);");
MVCR("<?php $b = 't'; $a = 10; $b = 2; var_dump($a >> $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a & $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a | $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a ^ $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 2; var_dump($a << $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 2; var_dump($a >> $b);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; $a &= $b; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; $a |= $b; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; $a ^= $b; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; $a <<= 2; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; $b = 9; $a >>= 2; var_dump($a);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a and $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a or $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a xor $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump(!$a);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a && $b);");
MVCR("<?php $a = 't'; $b = 't'; $a = 10; $b = 9; var_dump($a || $b);");
MVCR("<?php $a = 10; ++$a; var_dump($a);");
MVCR("<?php $a = 10; $a++; var_dump($a);");
MVCR("<?php $a = 10; --$a; var_dump($a);");
MVCR("<?php $a = 10; $a--; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; ++$a; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; $a++; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; --$a; var_dump($a);");
MVCR("<?php $a = 't'; $a = 10; $a--; var_dump($a);");
MVCR("<?php $a = 'test'; ++$a; var_dump($a);");
MVCR("<?php $a = 'test'; $a++; var_dump($a);");
MVCR("<?php $a = 'test'; --$a; var_dump($a);");
MVCR("<?php $a = 'test'; $a--; var_dump($a);");
MVCR("<?php $a = 1; $a = 'test'; var_dump(~$a);");
MVCR("<?php $a = 1; $a = 'test'; $b = 'zzz'; var_dump($a & $b);");
MVCR("<?php $a = 1; $a = 'test'; $b = 'zzz'; var_dump($a | $b);");
MVCR("<?php $a = 1; $a = 'test'; $b = 'zzz'; var_dump($a ^ $b);");
MVCR("<?php $a = 1; $a = 'test'; $b = 'zzz'; $a &= $b; var_dump($a);");
MVCR("<?php $a = 1; $a = 'test'; $b = 'zzz'; $a |= $b; var_dump($a);");
MVCR("<?php $a = 1; $a = 'test'; $b = 'zzz'; $a ^= $b; var_dump($a);");
MVCR("<?php class a { public $var2 = 1; public $var1; }"
"class b extends a { public $var2; }"
"function f() { $obj1 = new b(); var_dump($obj1); $obj1->var1 = 1; }"
"f();"); //#147156
return true;
}
bool TestCodeRun::TestObject() {
HipHopSyntax w(this);
MVCR("<?php "
"var_dump((object)NULL);"
"var_dump((object)true);"
"var_dump((object)10);"
"var_dump((object)'test');"
"var_dump((object)array(10, 20));"
);
MVCR("<?php class A {} $obj = new A(); "
"var_dump($obj);"
"var_dump((bool)$obj);"
"var_dump((int)$obj);"
"var_dump((array)$obj);"
"var_dump((object)$obj);"
);
MVCR("<?php class A { public $test = 'ok';} $obj = new A(); "
"var_dump($obj);"
"var_dump((bool)$obj);"
"var_dump((int)$obj);"
"var_dump((array)$obj);"
"var_dump((object)$obj);"
);
MVCR("<?php "
"var_dump((object)NULL);"
"var_dump((object)true);"
"var_dump((object)10);"
"var_dump((object)'test');"
"var_dump((object)array(10, 20));"
);
MVCR("<?php class A { public $a = 0;} class B extends A {}"
"$obj1 = new A(); $obj2 = new A(); $obj2->a++; "
"$obj3 = new B(); $obj3->a = 10;"
"var_dump($obj1->a);"
"var_dump($obj1);"
"var_dump($obj2->a);"
"var_dump($obj2);"
"var_dump($obj3);"
"var_dump($obj1 instanceof A);"
"var_dump($obj3 instanceof A);"
"var_dump($obj1 instanceof B);"
"var_dump($obj3 instanceof B);"
);
MVCR("<?php "
"class A {"
" public $a = 3;"
" public function __construct($a) {"
" $this->a = $a + 1;"
" }"
" public function __destruct() {"
" $this->a += 2;"
" var_dump($this->a);"
" }"
"}"
"class B extends A {"
" public function __construct($a) {"
" }"
"}"
"class C extends A {"
" public function __construct($a) {"
" parent::__construct($a);"
" }"
"}"
"$obj = new A(1); var_dump($obj->a);"
"$obj = new B(1); var_dump($obj->a);"
"$obj = new C(1); var_dump($obj->a);"
"unset($obj);"
);
MVCR("<?php "
"class A {"
" public $b = 3;"
" public $a = 2;"
"}"
"$obj = new A(); var_dump($obj); var_dump($obj->c);"
);
MVCR("<?php "
"class A {"
" public $a = 2;"
"}"
"class B {"
" public $b = 3;"
"}"
"$obj = new A(); var_dump($obj); /*var_dump($obj->b);*/" // undeclared
"$obj = new B(); var_dump($obj); var_dump($obj->b);"
);
MVCR("<?php "
"class A {"
" public $a = 2;"
"}"
"class B {"
" public $b = 3;"
"}"
"$obj = new A(); var_dump($obj); var_dump($obj->a);"
"$obj = new B(); var_dump($obj); var_dump($obj->b);"
);
MVCR("<?php "
"class A {"
" public $a = 2;"
"}"
"class B extends A {"
" public $b = 3;"
"}"
"$obj = new A(); var_dump($obj); var_dump($obj->b);"
"$obj = new B(); var_dump($obj); var_dump($obj->b);"
);
MVCR("<?php "
"class A {"
" public $a = 2;"
" public $b = 1;"
"}"
"class B extends A {"
" public $b = 3;"
"}"
"$obj = new A(); var_dump($obj); var_dump($obj->b);"
"$obj = new B(); var_dump($obj); var_dump($obj->b);"
);
MVCR("<?php "
"interface I { public function test($a);}"
"class A implements I { public function test($a) { print $a;}}"
"$obj = new A(); var_dump($obj instanceof I); $obj->test('cool');"
);
MVCR("<?php "
"interface I { public function test($a);} "
"class A { public function test($a) { print 'A';}} "
"class B extends A implements I { "
" public function test($a) { print 'B';} "
"}"
"$obj = new A(); $obj->test(1);"
"$obj = new B(); $obj->test(1);"
);
// circular references
MVCR("<?php class A { public $a;} "
"$obj1 = new A(); $obj2 = new A(); $obj1->a = $obj2; $obj2->a = $obj1;"
"var_dump($obj1);");
MVCR("<?php $a = 1; class A { public function t() { global $a; $b = 'a'; var_dump($$b);}} $obj = new A(); $obj->t();");
MVCR("<?php "
"class g {"
" public $v;"
" function set($v) {"
" $this->v = $v;"
" return $this;"
" }"
"}"
"function foo() {"
" $z = 1;"
" $qd = array('x' => $z);"
" $a = G()->set($qd);"
" var_dump($a);"
" $qd['e'] = true;"
" $b = G()->set($qd);"
" var_dump($a);"
""
"}"
"function G() {"
" return new g;"
"}"
"foo();");
MVCR("<?php "
"class EE extends Exception {"
"}"
"class E extends EE {"
" function foo() {}"
" function __construct() {"
" echo 'MAKING E';"
" parent::__construct();"
" }"
"}"
"new E;");
MVCR("<?php "
"class A {"
" var $a;"
" var $b;"
"};"
"$obj = new A();"
"var_dump($obj);"
"foreach ($obj as &$value) {"
" $value = 1;"
"}"
"var_dump($obj);"
"$obj->c = 3;"
"var_dump($obj);"
"foreach ($obj as &$value) {"
" $value = 2;"
"}"
"var_dump($obj);");
MVCRO("<?php "
"class A {"
" var $a;"
" var $b;"
"};"
"function gen() {"
" $obj = new A();"
" var_dump($obj);"
" foreach ($obj as &$value) {"
" yield null;"
" $value = 1;"
" }"
" var_dump($obj);"
" $obj->c = 3;"
" var_dump($obj);"
" foreach ($obj as &$value) {"
" yield null;"
" $value = 2;"
" }"
" var_dump($obj);"
"}"
"foreach (gen() as $_) {}"
,
"object(A)#2 (2) {\n"
" [\"a\"]=>\n"
" NULL\n"
" [\"b\"]=>\n"
" NULL\n"
"}\n"
"object(A)#2 (2) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" &int(1)\n"
"}\n"
"object(A)#2 (3) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" &int(1)\n"
" [\"c\"]=>\n"
" int(3)\n"
"}\n"
"object(A)#2 (3) {\n"
" [\"a\"]=>\n"
" int(2)\n"
" [\"b\"]=>\n"
" int(2)\n"
" [\"c\"]=>\n"
" &int(2)\n"
"}\n"
);
MVCR("<?php "
"class A {"
" var $a;"
" var $b;"
"};"
"$obj = new A();"
"$obj2 = $obj;"
"foreach ($obj2 as $k => &$value) {"
" $value = 'ok';"
"}"
"var_dump($obj);"
"var_dump($obj2);");
MVCRO("<?php "
"class A {"
" var $a;"
" var $b;"
"};"
"function gen() {"
" $obj = new A();"
" $obj2 = $obj;"
" foreach ($obj2 as $k => &$value) {"
" yield null;"
" $value = 'ok';"
" }"
" var_dump($obj);"
" var_dump($obj2);"
"}"
"foreach (gen() as $_) {}"
,
"object(A)#2 (2) {\n"
" [\"a\"]=>\n"
" string(2) \"ok\"\n"
" [\"b\"]=>\n"
" &string(2) \"ok\"\n"
"}\n"
"object(A)#2 (2) {\n"
" [\"a\"]=>\n"
" string(2) \"ok\"\n"
" [\"b\"]=>\n"
" &string(2) \"ok\"\n"
"}\n"
);
MVCR("<?php "
"class A {"
" var $a;"
" var $b;"
" var $c;"
" var $d;"
" public function __construct($p1, $p2, $p3, $p4) {"
" $this->a = $p1;"
" $this->b = $p2;"
" $this->c = $p3;"
" $this->d = $p4;"
" }"
"};"
"$obj = new A(1, 2, 3, 4);"
"foreach ($obj as $key => &$val) {"
" if($val == 2) {"
" $obj->$key = 0;"
" } else if($val == 3) {"
" var_dump($key);"
" unset($obj->$key);"
" } else {"
" $val++;"
" }"
"}"
"var_dump($obj);");
MVCRO("<?php "
"class A {"
" var $a;"
" var $b;"
" var $c;"
" var $d;"
" public function __construct($p1, $p2, $p3, $p4) {"
" $this->a = $p1;"
" $this->b = $p2;"
" $this->c = $p3;"
" $this->d = $p4;"
" }"
"};"
"function gen() {"
" $obj = new A(1, 2, 3, 4);"
" foreach ($obj as $key => &$val) {"
" yield null;"
" if($val == 2) {"
" $obj->$key = 0;"
" } else if($val == 3) {"
" var_dump($key);"
" unset($obj->$key);"
" } else {"
" $val++;"
" }"
" }"
" var_dump($obj);"
"}"
"foreach (gen() as $_) {}"
,
"string(1) \"c\"\n"
"object(A)#2 (3) {\n"
" [\"a\"]=>\n"
" int(2)\n"
" [\"b\"]=>\n"
" int(0)\n"
" [\"d\"]=>\n"
" &int(5)\n"
"}\n"
);
MVCR("<?php "
"class A {"
" var $a = 1;"
" var $b = 2;"
" var $c = 3;"
" var $d = 4;"
" public function __construct() {"
" $this->a = 1;"
" $this->b = 2;"
" $this->c = 3;"
" $this->d = 4;"
" }"
"};"
"function f() {"
" $obj = new A();"
" foreach ($obj as $key => &$val) {"
" $val = 5;"
" }"
" var_dump($obj);"
"}"
"f();");
MVCRO("<?php "
"class A {"
" var $a = 1;"
" var $b = 2;"
" var $c = 3;"
" var $d = 4;"
" public function __construct() {"
" $this->a = 1;"
" $this->b = 2;"
" $this->c = 3;"
" $this->d = 4;"
" }"
"};"
"function f() {"
" $obj = new A();"
" foreach ($obj as $key => &$val) {"
" yield null;"
" $val = 5;"
" }"
" var_dump($obj);"
"}"
"foreach (f() as $_) {}"
,
"object(A)#2 (4) {\n"
" [\"a\"]=>\n"
" int(5)\n"
" [\"b\"]=>\n"
" int(5)\n"
" [\"c\"]=>\n"
" int(5)\n"
" [\"d\"]=>\n"
" &int(5)\n"
"}\n"
);
MVCR("<?php function test() {"
"$abc = 'abc'; var_dump($abc instanceof Nothing); }"
"test();");
MVCR("<?php "
"class X {"
" public $x = 1;"
" }"
"class Y {"
" public $x = array();"
"}"
"function test() {"
" $x = (object)new Y;"
" var_dump($x->x);"
" $x = new X;"
" var_dump($x->x);"
"}"
"test();");
MVCR("<?php\n"
"class A { }\n"
"class B extends A {\n"
" static function check1($a) { return $a instanceof self; }\n"
" static function check2($a) { return $a instanceof parent; }\n"
"}\n"
"$a = new B;\n"
"var_dump(B::check1($a), B::check2($a));\n"
"$b = (object)array(1, 2, 3);\n"
"var_dump(B::check1($b), B::check2($b));\n");
MVCR("<php\n"
"class X { static function f($o, $s) { return $o instanceof $s; } }\n"
"$x = new X;\n"
"var_dump(X::f($x, 'self'));\n"
"var_dump(X::f($x, 'X'));\n");
MVCR("<php\n"
"class X {\n"
" static function f($o) {\n"
" $s = 'self'; return $o instanceof $s;\n"
" }\n"
"}\n"
"X::f(new X);\n");
MVCR("<?php\n"
"$x = null;\n"
"$y = 0;\n"
"class C {\n"
" public $p = \"C::\\$p\";\n"
" function __destruct() {\n"
" global $x, $y;\n"
" print \"In C::__destruct(): $y\n\";\n"
" $this->p = \"changed\";\n"
" $x = $this;\n"
" }\n"
"}\n"
"$c = new C();\n"
"var_dump($c);\n"
"$c = null;\n"
"$y = 140;\n"
"var_dump($x);\n"
"$x = null;\n");
MVCR("<?php "
"class X {"
" function foo() { var_dump(__METHOD__); }"
" }"
"function foo($a) {"
" $x = null;"
" if ($a) $x = new X;"
" return $x;"
"}"
"function test($x, $a) {"
" $x = foo($a);"
" if ($x) {"
" $x->foo();"
" }"
"}"
"test(45, 0);"
"test(77, 1);");
MVCR("<?php\n"
"class FOo {\n"
" public function exclAIM() { echo \"FOo::exclAIM\\n\"; }\n"
" public function teST() { echo \"FOo::teST\\n\"; }\n"
" public function __CaLL($name, $args) {\n"
" echo \"FOo::\" . $name . \"\\n\";\n"
" }\n"
"}\n"
"class TesT {\n"
" public static function ExclAim() {\n"
" $obj = new fOO();\n"
" $obj->{__fUNCTION__} = 1;\n"
" $obj->{__cLASS__} = 2;\n"
" $obj->__FuNCTION__ = 3;\n"
" $obj->__ClASS__ = 4;\n"
" $obj->{__FUnCTION__}();\n"
" $obj->{__CLaSS__}();\n"
" $obj->__FUNcTION__();\n"
" $obj->__CLAsS__();\n"
" $arr = array();\n"
" foreach ($obj as $k => $v) {\n"
" $arr[$k] = $v;\n"
" }\n"
" ksort($arr);\n"
" var_dump($arr);\n"
" }\n"
"}\n"
"tEst::eXclaiM();\n");
return true;
}
bool TestCodeRun::TestObjectProperty() {
MVCR("<?php "
"class A { static protected $foo = 11; "
" function foo() { var_dump(A::$foo);}} "
"class B extends A { static public $foo;} "
"var_dump(B::$foo); B::$foo = 123; A::foo();");
MVCR("<?php "
"class A { static protected $foo = 11; } "
"class B extends A {} "
"class C extends B { static public $foo;} "
"var_dump(C::$foo); ");
MVCR("<?php "
"class A { static private $foo = 11; } "
"class B extends A {} "
"class C extends B { static public $foo;} "
"var_dump(C::$foo); ");
MVCR("<?php\n"
"class A {\n"
" public $a = 'apple';\n"
" public $b = 'banana';\n"
"}\n"
"\n"
"$old = new A;\n"
"unset($old->a);\n"
"var_dump($old);\n"
"\n"
"$new = new A;\n"
"unset($new->b);\n"
"var_dump($new);\n"
"\n"
"foreach ($new as $property => $value) {\n"
" $old->$property = $value;\n"
"}\n"
"var_dump($old->a);\n"
"var_dump($old->b);\n"
// We can't really maintain the same order as PHP does, even though we
// can move unset and reset properties to the back of the list, but
// then we can't really tell who's added back first if there are two :-(
//"var_dump($old);\n"
);
MVCR("<?php\n"
"class A {\n"
" public $a = 'apple';\n"
"}\n"
"$obj = new A;\n"
"var_dump(isset($obj->a), property_exists($obj, 'a'));\n"
"$obj->a = null;\n"
"var_dump(isset($obj->a), property_exists($obj, 'a'));\n"
"unset($obj->a);\n"
"var_dump(isset($obj->a), property_exists($obj, 'a'));\n"
"$obj->a = 123;\n"
"var_dump(isset($obj->a), property_exists($obj, 'a'));\n"
"$obj->a = null;\n"
"var_dump(isset($obj->a), property_exists($obj, 'a'));\n"
);
MVCR("<?php\n"
"class A {\n"
" private $prop = 'test';\n"
"\n"
" function __get($name) {\n"
" return $this->$name;\n"
" }}\n"
"\n"
"$obj = new A();\n"
"var_dump($obj->prop);\n"
);
MVCR("<?php "
"class A { public $a = 10; public function foo() { $this->a = 20;} } "
"class B extends A { public $a = 'test';} "
"$obj = new B(); $obj->foo(); var_dump($obj->a);");
MVCR("<?php "
"class A { public $a = null; }"
"class B extends A { public function foo() { var_dump($this->a);} } "
"class C extends B { public $a = 'test';} "
"$obj = new C(); $obj->foo();");
MVCR("<?php "
"$y = true;"
"define('foo', $y ? 1 : 0);"
"if (false) {"
" class redecClass {"
" }"
"} else {"
" final class redecClass {"
" const redecConst = foo;"
" const redecConst2 = 456;"
" public static $fx = foo;"
" }"
"}"
"class T {"
" const c = foo;"
" const c2 = redecClass::redecConst;"
" const c3 = redecClass::redecConst2;"
" public static $q = foo;"
" public static $n = 123;"
"}"
"class T2 {"
" const c = foo;"
" public static $q = foo;"
"}"
"class T3 {"
" const c = foo;"
"}"
"class normal {"
" const C = 1;"
" public static $xx = 123;"
"}"
"function test() {"
" var_dump(T::c);"
" var_dump(T::c2);"
" var_dump(T::c3);"
" var_dump(T::$q);"
" var_dump(T::$n);"
" var_dump(T2::c);"
" var_dump(T2::$q);"
" var_dump(T3::c);"
" var_dump(normal::C);"
" var_dump(normal::$xx);"
"}"
"test();");
MVCR("<?php "
"class c {"
" public $d = 'd';"
" private $e = 'e';"
" protected $f = 'f';"
" function t1($y) {"
" foreach ($y as $k => $v) {"
" var_dump($v);"
" }"
" }"
"}"
"class d extends c {"
" public $a = 'a';"
" private $b = 'b';"
" protected $c = 'c';"
" function t2($y) {"
" foreach ($this as $k => $v) {"
" var_dump($v);"
" }"
" foreach ($y as $k => $v) {"
" var_dump($v);"
" }"
" foreach ($y as $k => $v) {"
" var_dump($v);"
" }"
" }"
"}"
"$x = new d;"
"$x->surprise = 1;"
"$y = new d;"
"$y->shock = 2;"
"echo \"t2\n\";"
"$x->t2($y);"
"echo \"t1\n\";"
"$x->t1($y);"
"$z = new c;"
"echo \"t12\n\";"
"$z->t1($x);"
"foreach ($x as $k => $v) {"
" var_dump($v);"
"}");
MVCR("<?php "
"$one = array('cluster'=> 1, 'version'=>2);"
"var_dump(isset($one->cluster));"
"var_dump(empty($one->cluster));"
"$two = 'hello';"
"var_dump(isset($two->scalar));");
MVCR("<?php "
"function f() { return false; }"
"if (f()) { class A { } }"
"else { class A { static $a = 100; var $b = 1000; } }"
"class B { var $a = 1; static $b = array(1, 2, 3); }"
"$vars = get_class_vars('A'); asort($vars); var_dump($vars);"
"A::$a = 1;"
"$vars = get_class_vars('A'); asort($vars); var_dump($vars);"
"$vars = get_class_vars('B'); asort($vars); var_dump($vars);");
MVCR("<?php "
"if (true) {"
" class A {"
" var $a0;"
" static $a1 = 1;"
" static $a2 = 2;"
" }"
" class X {"
" var $x0;"
" static $x1 = 1;"
" static $x2 = 2;"
" }"
"} else {"
" class A {"
" var $a3;"
" static $a4 = 4;"
" static $a5 = 5;"
" }"
" class X {"
" var $y3;"
" static $y4 = 4;"
" static $y5 = 5;"
" }"
"}"
"class B extends A {"
" var $b0 = 3;"
" static $b1 = 4;"
" static $b2 = 5;"
"}"
"class Y extends X {"
" var $y0 = 3;"
" static $y1 = 4;"
" static $y2 = 5;"
"}"
"class C {"
" var $c0;"
" static $c1 = 1;"
" static $c2 = 2;"
"}"
"class Z {"
" var $z0;"
" static $z1 = 1;"
" static $z2 = 2;"
"}"
"$vars = get_class_vars('A'); asort($vars); var_dump($vars);"
"$vars = get_class_vars('B'); asort($vars); var_dump($vars);"
"$vars = get_class_vars('C'); asort($vars); var_dump($vars);"
"$vars = get_class_vars('X'); asort($vars); var_dump($vars);"
"$vars = get_class_vars('Y'); asort($vars); var_dump($vars);"
"$vars = get_class_vars('Z'); asort($vars); var_dump($vars);");
MVCR("<?php "
"class A {"
" private $pri = 'a-pri';"
" protected $pro = 'a-pro';"
" function bar() {"
" var_dump($this->pri);"
" $pri = $q ? 'zz' : 'p'.'ri';"
" var_dump($this->$pri);"
" }"
" function bar2() {"
" var_dump($this->pro);"
" }"
"}"
"class B extends A {"
" private $pri = 'b-pri';"
" function bar() {"
" parent::bar();"
" var_dump($this->pri);"
" }"
"}"
"$obj = new B(); $obj->bar();"
"class C extends B {"
" public $pri = 'c-pri';"
" public $pro = 'c-pro';"
" function bar2() {"
" parent::bar2();"
" var_dump($this->pro);"
" }"
"}"
"$obj = new C; $obj->bar(); $obj->bar2();"
"var_dump(serialize($obj));"
"class Base {"
" protected $pro = 1;"
" private $pri = 'base-pri';"
" function q0() {"
" var_dump($this->pri);"
" }"
"}"
""
"class R extends Base {"
" public $rpub = 1;"
" protected $pro = 2;"
" private $pri = 'r-pri';"
" function q() {"
" var_dump($this->pri);"
" }"
"}"
""
"class D extends R {"
" public $dpub = 'd';"
" protected $pro = 'pro';"
" private $pri = 'd-pri';"
" function qq() {"
" var_dump($this->pri);"
" }"
"}"
""
"class DD extends D {"
" private $pri = 'dd-pri';"
" function qqq() {"
" var_dump($this->pri);"
" }"
"}"
""
"if (false) {"
" class R{}"
"}"
"$d = new D;"
"$d->qq();"
"$d->q();"
"$d->q0();"
"$d = new DD;"
"$d->qqq();"
"$d->qq();"
"$d->q();"
"$d->q0();"
);
MVCR("<?php\n"
"class A { }\n"
"$a = new A();\n"
"$f = 20;\n"
"$a->$f = 100;\n"
"var_dump($a);\n"
"unset($a->$f);\n"
"var_dump($a);\n");
MVCR("<?php "
"class X {"
" public $x = 0;"
" function y($u,&$a) {"
" $a++;"
" }"
"};"
"if (0) { class X{} }"
"function f() {}"
"function test() {"
" $x = new X;"
" $x->y(f(),$x->x);"
" var_dump($x);"
" $x->y(0,$x->x);"
" var_dump($x);"
"}"
"test();");
MVCR("<?php "
"class A {"
" private $a = array('apple');"
" private $b = 'banana';"
" function foo() {"
" $b = new A();"
" unset($b->b);"
" var_dump($b);"
" foreach ($b as $prop => $value) {"
" var_dump($prop);"
" }"
" }"
"}"
"A::foo();");
MVCR("<?php "
"class X {"
" public $pub_var = null;"
" public $pub_set = array();"
" private $priv_var = 2;"
" function __get($name) {"
" echo 'get: '; var_dump($name); return $name == 'buz' ? 1 : array();"
" }"
" function __isset($name) {"
" echo 'isset: '; var_dump($name);"
" return $name == 'baz' || $name == 'buz';"
" }"
"}"
"$x = new X;"
"var_dump(isset($x->foo));"
"var_dump(isset($x->baz));"
"var_dump(isset($x->buz));"
"var_dump(isset($x->pub_var));"
"var_dump(isset($x->pub_set));"
"var_dump(isset($x->priv_var));"
"var_dump(empty($x->foo));"
"var_dump(empty($x->baz));"
"var_dump(empty($x->buz));"
"var_dump(empty($x->pub_var));"
"var_dump(empty($x->pub_set));"
"var_dump(empty($x->priv_var));"
"unset($x->pub_var);"
"var_dump(isset($x->pub_var));"
"var_dump(empty($x->pub_var));");
MVCR("<?php "
"define('FOO', 'foo');"
"class X {"
" const UNKNOWN = 1;"
" public $foo = -1;"
" static public $bar = FOO;"
" public $baz = self::UNKNOWN;"
"}"
"$vars = get_class_vars('X'); asort($vars); var_dump($vars);");
// Mutable object foreach needs to respect the context.
MVCR("<?php\n"
"class A { public $a = 1; protected $b = 2; private $c = 3; }\n"
"class B extends A {\n"
" function f() {\n"
" foreach ($this as $k => &$v) { var_dump($k); $v = 100; }\n"
" var_dump($this);\n"
" }\n"
"}\n"
"$b = new B();\n"
"$b->f();\n"
"function f() {\n"
" $o = new B();\n"
" foreach ($o as $k => &$v) { var_dump($k); $v = 100; }\n"
" var_dump($o);\n"
"}\n"
"f();\n");
// empty property name shouldn't crash
MVCR("<?php\n"
"$a = array(); $a[""] = 1;\n"
"$o = (object)$a;\n"
"var_dump($o);\n"
"$s = serialize($o);\n"
"$o2 = unserialize($s);\n");
MVCR("<?php "
"class Test"
"{"
" protected static $color = array('gray' => 30);"
" public static function foo($type, $key) {"
" return isset( self::${$type}[$key] );"
" }"
"}"
"var_dump(Test::foo('color', 'gray'));");
MVCR("<?php "
"function foo() {"
" $x = new stdClass;"
" $x->v = array(1, 2);"
" return $x;"
"}"
"foo()->v[0] += 5;"
"var_dump(shuffle(foo()->v));");
MVCR("<?php "
"class A {}"
"class B {"
" public $data;"
" public function setData(A $result = null) {"
" $this->data = $result;"
" }"
"}"
"function foo($obj) {"
" $obj->data = new A;"
" $a = $obj->data;"
" var_dump($a);"
" $obj->setData(null);"
" $a = $obj->data;"
" var_dump($a);"
"}"
"foo(new B);");
MVCR("<?php "
"class X {"
" function __destruct() { var_dump(__METHOD__); }"
" protected $prot_over_prot = 1;"
" public $pub_over_pub = 2;"
" protected $pub_over_prot = 3;"
"}"
"class Y extends X {"
" function __destruct() { var_dump(__METHOD__,$this); }"
" protected $prot_over_prot = 4;"
" public $pub_over_pub = 5;"
" public $pub_over_prot = 6;"
" protected $prot_base = 7;"
" public $pub_base = 8;"
"}"
"class Z extends Y {"
" function __destruct() { var_dump(__METHOD__); }"
" public $prot_over_prot = 9;"
" public $pub_over_pub = 10;"
" public $pub_over_prot = 11;"
" public $prot_base = 12;"
" public $pub_base = 13;"
"}"
"function foo($x) {"
" $s = serialize($x);"
" var_dump($s);"
" $y = unserialize($s);"
" var_dump($y);"
" var_dump((array)$y);"
" if (function_exists('apc_store')) {"
" apc_store('foo', $y);"
" $z = apc_fetch('foo');"
" } else {"
" $z = clone $y;"
" }"
" var_dump($z);"
" unset($z, $y);"
" var_dump($x);"
"}"
"$y = new y;"
"foo($y);"
"$z = new z;"
"foo($z);"
"unset($z, $y);");
MVCR("<?php "
"class X {"
" private $b = false;"
" private $i = 0;"
" private $a = array();"
" private $s = 'hello';"
" function set() {"
" $this->b = true;"
" $this->i = 5;"
" $this->a = array(1,2,3);"
" $this->s = 'goodbye';"
" }"
" function foo() {"
" var_dump($this->b, $this->i, $this->a, $this->s);"
" }"
"}"
"function test() {"
" $x = new X;"
" $x->set();"
" $s = serialize($x);"
" $y = unserialize($s);"
" $y->foo();"
" var_dump($y);"
"}"
"test();");
MVCR("<?php "
"define('INIT1', 1000);"
"class d { static public $x = INIT1; }"
"class e extends d {}"
"var_dump(d::$x++);"
"var_dump(e::$x++);");
MVCR("<?php "
"function test($x, $v) { var_dump(isset($x->$v)); }"
"test(false, \"\");"
"test(false, \"\\0foo\");"
"test(true, \"\");"
"test(true, \"\\0foo\");"
"test(new stdclass, \"\");"
"test(new stdclass, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v); }"
"test(false, \"\");"
"test(false, \"\\0foo\");"
"test(true, \"\");"
"test(true, \"\\0foo\");"
"test(new stdclass, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v); }"
"test(new stdclass, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v = 1); }"
"test(true, \"\");"
"test(true, \"\\0foo\");"
"test(false, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v = 1); }"
"test(false, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v = 1); }"
"test(new stdclass, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v = 1); }"
"test(new stdclass, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v++); }"
"test(true, \"\");"
"test(true, \"\\0foo\");"
"test(false, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v++); }"
"test(false, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v++); }"
"test(new stdclass, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v++); }"
"test(new stdclass, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v += 1); }"
"test(true, \"\");"
"test(true, \"\\0foo\");"
"test(false, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v += 1); }"
"test(false, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v += 1); }"
"test(new stdclass, \"\");");
MVCRNW("<?php "
"function test($x, $v) { var_dump($x->$v += 1); }"
"test(new stdclass, \"\\0foo\");");
MVCRNW("<?php "
"function test($x, $v) { unset($x->$v); var_dump($x); }"
"test(false, \"\");"
"test(false, \"\\0foo\");"
"test(true, \"\");"
"test(true, \"\\0foo\");"
"test(new stdclass, \"\");");
MVCRNW("<?php "
"function test($x, $v) { unset($x->$v); var_dump($x); }"
"test(new stdclass, \"\\0foo\");");
MVCRNW("<?php "
"$x = new stdclass;"
"var_dump($z =& $x->$y);");
MVCRNW("<?php "
"$x = new stdclass;"
"var_dump($x->$y =& $z);");
MVCR("<?php "
"class X {"
" public $bar = 5;"
" function &foo() { static $v; if (!$v) $v = $this; return $v; }"
"}"
"function &foo() {"
" static $v;"
" if (!$v) $v = new X;"
" return $v;"
"}"
"function &bar() {"
" static $v;"
" return $v;"
"}"
"function test() {"
" $x = new X;"
" var_dump($x->foo()->bar);"
" var_dump($x->foo()->bar);"
" var_dump($x->foo()->bar);"
" var_dump(foo()->bar);"
" foo()->bar = 6;"
" var_dump(foo()->bar);"
" foo()->bar = 7;"
" var_dump(foo()->bar);"
" foo()->bar = 8;"
" var_dump(foo()->bar);"
" bar()->bar = 6;"
" var_dump(bar()->bar);"
" bar()->bar = 7;"
" var_dump(bar()->bar);"
" bar()->bar = 8;"
" var_dump(bar()->bar);"
"}"
"test();");
return true;
}
bool TestCodeRun::TestObjectMethod() {
MVCR("<?php class A { function test() {}} "
"$obj = new A(); $obj->test(); $obj = 1;");
// calling a function that's implemented in a derived class
MVCR("<?php abstract class T { function foo() { $this->test();} }"
"class R extends T { function test() { var_dump('test'); }} "
"$obj = new R(); $obj->test(); $obj->foo();");
MVCR("<?php class A { function test() { print 'A';} "
"function foo() { $this->test();}} "
"class B extends A { function test() { print 'B';}} "
"$obj = new A(); $obj = new B(); $obj->foo();");
MVCR("<?php "
"class A {} "
"class AA extends A { function test() { print 'AA ok';} }"
"class B { function foo(A $obj) { $obj->test();}}"
"$obj = new AA(); $b = new B(); $b->foo($obj);"
);
// calling a virtual function
MVCR("<?php abstract class T { abstract function test(); "
"function foo() { $this->test();} }"
"class R extends T { function test() { var_dump('test'); }} "
"$obj = new R(); $obj->test(); $obj->foo();");
// calling a virtual function
MVCR("<?php abstract class T { abstract function test(); } "
"class R extends T { function test() { var_dump('test'); }} "
"$obj = 1; $obj = new R(); $obj->test();");
MVCR("<?php "
"class foo {"
" public function test1() {"
" echo 'in test1';"
" }"
" public function test2() {"
" self::test1();"
" foo::test1();"
" echo 'in test2';"
" }"
" public function test3() {"
" echo 'in test3';"
" }"
" public static function test4() {"
" echo 'in test4';"
" }"
"}"
"$obj = new foo();"
"$obj->test2();"
"foo::test1();"
"foo::test2();"
"foo::test3();"
"$obj->test3();"
"$obj->test4();");
// calling instance method statically
MVCR("<?php "
"class A1 {"
" function a1f($a) {"
" var_dump('a1f:0');"
" }"
" static function a1b($a) {"
" var_dump('a1b:0');"
" }"
"}"
"class B1 extends A1 {"
" function b1f($a) {"
" var_dump('b1f:0');"
" }"
" static function b1b($a) {"
" var_dump('b1b:0');"
" }"
"}"
"$f = 'a1f';"
"$b = 'a1b';"
"A1::$f(1);"
"A1::$b(1);"
"B1::$f(1);"
"B1::$b(1);"
"$f = 'b1f';"
"$b = 'b1b';"
"B1::$f(1);"
"B1::$b(1);"
"$f = 'b2f';"
"$b = 'b2b';"
"call_user_func(array('B1', 'b1f'), 1);");
// calling instance method through self
MVCR("<?php "
"class A {"
" var $a;"
" function f() {"
" var_dump($this->a);"
" }"
" function g() {"
" $this->a = 100;"
" call_user_func(array('self', 'f'));"
" }"
"}");
MVCR("<?php "
"class c {"
"function foo() { echo \"called\n\"; }"
"}"
"function meh() {}"
"function z() {"
" $p = new c;"
" $p->foo(meh());"
" $p = null;"
"}"
"z();");
MVCR("<?php "
"interface intf {"
" function meth();"
"}"
"class m {"
" function meth() {"
" return 1;"
" }"
"}"
"class m2 extends m implements intf {"
"}"
"class m3 extends m2 {"
" function f() {"
" var_dump(parent::meth());"
" }"
"}"
"$y = new m3;"
"$y->f();"
"function g() {"
" $y = new m3;"
" var_dump($y->meth());"
"}"
"g();");
MVCR("<?php "
"class c {"
" function x() {"
" var_dump($this);"
" $t = 'this';"
" var_dump($$t);"
" }"
"}"
"$x = new c;"
"$x->x();");
MVCR("<?php "
"class RootBase {}"
"class Base extends RootBase {"
" private $privateData;"
"}"
"class Test extends Base {"
" protected function f1() {"
" $this->privateData = 1;"
" var_dump('ok');"
" }"
" public function f2() {"
" $this->f1();"
" }"
"}"
"function foo() {"
" $obj = new Test();"
" $obj->f2();"
" $obj->privateData = 2;"
" $obj = new Base();"
"}"
"foo();");
#define TEST_BODY_FOR_IS_CALLABLE \
"var_dump(is_callable('A::a_spub'));" \
"var_dump(is_callable('A::a_spro'));" \
"var_dump(is_callable('A::a_spri'));" \
"var_dump(is_callable('A::a_pro'));" \
"var_dump(is_callable('A::a_pri'));" \
"var_dump(is_callable('a_spub'));" \
"var_dump(is_callable('a_spro'));" \
"var_dump(is_callable('a_spri'));" \
"var_dump(is_callable('a_pub'));" \
"var_dump(is_callable('a_pro'));" \
"var_dump(is_callable('a_pri'));" \
"var_dump(is_callable('B::b_spub'));" \
"var_dump(is_callable('B::b_spro'));" \
"var_dump(is_callable('B::b_spri'));" \
"var_dump(is_callable('B::b_pro'));" \
"var_dump(is_callable('B::b_pri'));" \
"var_dump(is_callable('b_spub'));" \
"var_dump(is_callable('b_spro'));" \
"var_dump(is_callable('b_spri'));" \
"var_dump(is_callable('b_pub'));" \
"var_dump(is_callable('b_pro'));" \
"var_dump(is_callable('b_pri'));" \
"var_dump(is_callable(array('A', 'a_spub')));" \
"var_dump(is_callable(array('A', 'a_spro')));" \
"var_dump(is_callable(array('A', 'a_spri')));" \
"var_dump(is_callable(array('A', 'a_pub')));" \
"var_dump(is_callable(array('A', 'a_pro')));" \
"var_dump(is_callable(array('A', 'a_pri')));" \
"var_dump(is_callable(array('A', 'A::a_spub')));" \
"var_dump(is_callable(array('A', 'A::a_spro')));" \
"var_dump(is_callable(array('A', 'A::a_spri')));" \
"var_dump(is_callable(array('A', 'A::a_pro')));" \
"var_dump(is_callable(array('A', 'A::a_pri')));" \
"var_dump(is_callable(array('A', 'A::A::a_spub')));" \
"var_dump(is_callable(array('A', 'A::A::a_spro')));" \
"var_dump(is_callable(array('A', 'A::A::a_spri')));" \
"var_dump(is_callable(array('A', 'A::A::a_pro')));" \
"var_dump(is_callable(array('A', 'A::A::a_pri')));" \
"var_dump(is_callable(array('A', 'C::a_spub')));" \
"var_dump(is_callable(array('A', 'C::a_spro')));" \
"var_dump(is_callable(array('A', 'C::a_spri')));" \
"var_dump(is_callable(array('A', 'C::a_pub')));" \
"var_dump(is_callable(array('A', 'C::a_pro')));" \
"var_dump(is_callable(array('A', 'C::a_pri')));" \
"var_dump(is_callable(array('A', 'A::C::a_spub')));" \
"var_dump(is_callable(array('A', 'A::C::a_spro')));" \
"var_dump(is_callable(array('A', 'A::C::a_spri')));" \
"var_dump(is_callable(array('A', 'A::C::a_pub')));" \
"var_dump(is_callable(array('A', 'A::C::a_pro')));" \
"var_dump(is_callable(array('A', 'A::C::a_pri')));" \
"var_dump(is_callable(array('A', 'b_spub')));" \
"var_dump(is_callable(array('A', 'b_spro')));" \
"var_dump(is_callable(array('A', 'b_spri')));" \
"var_dump(is_callable(array('A', 'b_pub')));" \
"var_dump(is_callable(array('A', 'b_pro')));" \
"var_dump(is_callable(array('A', 'b_pri')));" \
"var_dump(is_callable(array('A', 'B::a_spub')));" \
"var_dump(is_callable(array('A', 'B::a_spro')));" \
"var_dump(is_callable(array('A', 'B::a_spri')));" \
"var_dump(is_callable(array('A', 'B::a_pub')));" \
"var_dump(is_callable(array('A', 'B::a_pro')));" \
"var_dump(is_callable(array('A', 'B::a_pri')));" \
"var_dump(is_callable(array('A', 'B::B::a_spub')));" \
"var_dump(is_callable(array('A', 'B::B::a_spro')));" \
"var_dump(is_callable(array('A', 'B::B::a_spri')));" \
"var_dump(is_callable(array('A', 'B::B::a_pub')));" \
"var_dump(is_callable(array('A', 'B::B::a_pro')));" \
"var_dump(is_callable(array('A', 'B::B::a_pri')));" \
"var_dump(is_callable(array('B', 'a_spub')));" \
"var_dump(is_callable(array('B', 'a_spro')));" \
"var_dump(is_callable(array('B', 'a_spri')));" \
"var_dump(is_callable(array('B', 'a_pub')));" \
"var_dump(is_callable(array('B', 'a_pro')));" \
"var_dump(is_callable(array('B', 'a_pri')));" \
"var_dump(is_callable(array('B', 'A::a_spub')));" \
"var_dump(is_callable(array('B', 'A::a_spro')));" \
"var_dump(is_callable(array('B', 'A::a_spri')));" \
"var_dump(is_callable(array('B', 'A::a_pro')));" \
"var_dump(is_callable(array('B', 'A::a_pri')));" \
"var_dump(is_callable(array('B', 'A::A::a_spub')));" \
"var_dump(is_callable(array('B', 'A::A::a_spro')));" \
"var_dump(is_callable(array('B', 'A::A::a_spri')));" \
"var_dump(is_callable(array('B', 'A::A::a_pro')));" \
"var_dump(is_callable(array('B', 'A::A::a_pri')));" \
"var_dump(is_callable(array('B', 'C::a_spub')));" \
"var_dump(is_callable(array('B', 'C::a_spro')));" \
"var_dump(is_callable(array('B', 'C::a_spri')));" \
"var_dump(is_callable(array('B', 'C::a_pub')));" \
"var_dump(is_callable(array('B', 'C::a_pro')));" \
"var_dump(is_callable(array('B', 'C::a_pri')));" \
"var_dump(is_callable(array('B', 'B::C::a_spub')));" \
"var_dump(is_callable(array('B', 'B::C::a_spro')));" \
"var_dump(is_callable(array('B', 'B::C::a_spri')));" \
"var_dump(is_callable(array('B', 'B::C::a_pub')));" \
"var_dump(is_callable(array('B', 'B::C::a_pro')));" \
"var_dump(is_callable(array('B', 'B::C::a_pri')));" \
"var_dump(is_callable(array('B', 'b_spub')));" \
"var_dump(is_callable(array('B', 'b_spro')));" \
"var_dump(is_callable(array('B', 'b_spri')));" \
"var_dump(is_callable(array('B', 'b_pub')));" \
"var_dump(is_callable(array('B', 'b_pro')));" \
"var_dump(is_callable(array('B', 'b_pri')));" \
"var_dump(is_callable(array('B', 'B::a_spub')));" \
"var_dump(is_callable(array('B', 'B::a_spro')));" \
"var_dump(is_callable(array('B', 'B::a_spri')));" \
"var_dump(is_callable(array('B', 'B::a_pub')));" \
"var_dump(is_callable(array('B', 'B::a_pro')));" \
"var_dump(is_callable(array('B', 'B::a_pri')));" \
"var_dump(is_callable(array('B', 'B::A::a_spub')));" \
"var_dump(is_callable(array('B', 'B::A::a_spro')));" \
"var_dump(is_callable(array('B', 'B::A::a_spri')));" \
"var_dump(is_callable(array('B', 'B::A::a_pro')));" \
"var_dump(is_callable(array('B', 'B::A::a_pri')));" \
"var_dump(is_callable(array('B', 'B::B::a_spub')));" \
"var_dump(is_callable(array('B', 'B::B::a_spro')));" \
"var_dump(is_callable(array('B', 'B::B::a_spri')));" \
"var_dump(is_callable(array('B', 'B::B::a_pub')));" \
"var_dump(is_callable(array('B', 'B::B::a_pro')));" \
"var_dump(is_callable(array('B', 'B::B::a_pri')));" \
"var_dump(is_callable(array(new A(), 'a_spub')));" \
"var_dump(is_callable(array(new A(), 'a_spro')));" \
"var_dump(is_callable(array(new A(), 'a_spri')));" \
"var_dump(is_callable(array(new A(), 'a_pub')));" \
"var_dump(is_callable(array(new A(), 'a_pro')));" \
"var_dump(is_callable(array(new A(), 'a_pri')));" \
"var_dump(is_callable(array(new A(), 'A::a_spub')));" \
"var_dump(is_callable(array(new A(), 'A::a_spro')));" \
"var_dump(is_callable(array(new A(), 'A::a_spri')));" \
"var_dump(is_callable(array(new A(), 'A::a_pro')));" \
"var_dump(is_callable(array(new A(), 'A::a_pri')));" \
"var_dump(is_callable(array(new A(), 'A::A::a_spub')));" \
"var_dump(is_callable(array(new A(), 'A::A::a_spro')));" \
"var_dump(is_callable(array(new A(), 'A::A::a_spri')));" \
"var_dump(is_callable(array(new A(), 'A::A::a_pro')));" \
"var_dump(is_callable(array(new A(), 'A::A::a_pri')));" \
"var_dump(is_callable(array(new A(), 'C::a_spub')));" \
"var_dump(is_callable(array(new A(), 'C::a_spro')));" \
"var_dump(is_callable(array(new A(), 'C::a_spri')));" \
"var_dump(is_callable(array(new A(), 'C::a_pub')));" \
"var_dump(is_callable(array(new A(), 'C::a_pro')));" \
"var_dump(is_callable(array(new A(), 'C::a_pri')));" \
"var_dump(is_callable(array(new A(), 'A::C::a_spub')));" \
"var_dump(is_callable(array(new A(), 'A::C::a_spro')));" \
"var_dump(is_callable(array(new A(), 'A::C::a_spri')));" \
"var_dump(is_callable(array(new A(), 'A::C::a_pub')));" \
"var_dump(is_callable(array(new A(), 'A::C::a_pro')));" \
"var_dump(is_callable(array(new A(), 'A::C::a_pri')));" \
"var_dump(is_callable(array(new A(), 'b_spub')));" \
"var_dump(is_callable(array(new A(), 'b_spro')));" \
"var_dump(is_callable(array(new A(), 'b_spri')));" \
"var_dump(is_callable(array(new A(), 'b_pub')));" \
"var_dump(is_callable(array(new A(), 'b_pro')));" \
"var_dump(is_callable(array(new A(), 'b_pri')));" \
"var_dump(is_callable(array(new A(), 'B::a_spub')));" \
"var_dump(is_callable(array(new A(), 'B::a_spro')));" \
"var_dump(is_callable(array(new A(), 'B::a_spri')));" \
"var_dump(is_callable(array(new A(), 'B::a_pub')));" \
"var_dump(is_callable(array(new A(), 'B::a_pro')));" \
"var_dump(is_callable(array(new A(), 'B::a_pri')));" \
"var_dump(is_callable(array(new A(), 'B::A::a_spub')));" \
"var_dump(is_callable(array(new A(), 'B::A::a_spro')));" \
"var_dump(is_callable(array(new A(), 'B::A::a_spri')));" \
"var_dump(is_callable(array(new A(), 'B::A::a_pro')));" \
"var_dump(is_callable(array(new A(), 'B::A::a_pri')));" \
"var_dump(is_callable(array(new B(), 'b_spub')));" \
"var_dump(is_callable(array(new B(), 'b_spro')));" \
"var_dump(is_callable(array(new B(), 'b_spri')));" \
"var_dump(is_callable(array(new B(), 'b_pub')));" \
"var_dump(is_callable(array(new B(), 'b_pro')));" \
"var_dump(is_callable(array(new B(), 'b_pri')));" \
"var_dump(is_callable(array(new B(), 'B::b_spub')));" \
"var_dump(is_callable(array(new B(), 'B::b_spro')));" \
"var_dump(is_callable(array(new B(), 'B::b_spri')));" \
"var_dump(is_callable(array(new B(), 'B::b_pro')));" \
"var_dump(is_callable(array(new B(), 'B::b_pri')));" \
"var_dump(is_callable(array(new B(), 'B::B::b_spub')));" \
"var_dump(is_callable(array(new B(), 'B::B::b_spro')));" \
"var_dump(is_callable(array(new B(), 'B::B::b_spri')));" \
"var_dump(is_callable(array(new B(), 'B::B::b_pro')));" \
"var_dump(is_callable(array(new B(), 'B::B::b_pri')));" \
"var_dump(is_callable(array(new B(), 'C::b_spub')));" \
"var_dump(is_callable(array(new B(), 'C::b_spro')));" \
"var_dump(is_callable(array(new B(), 'C::b_spri')));" \
"var_dump(is_callable(array(new B(), 'C::b_pub')));" \
"var_dump(is_callable(array(new B(), 'C::b_pro')));" \
"var_dump(is_callable(array(new B(), 'C::b_pri')));" \
"var_dump(is_callable(array(new B(), 'B::C::b_spub')));" \
"var_dump(is_callable(array(new B(), 'B::C::b_spro')));" \
"var_dump(is_callable(array(new B(), 'B::C::b_spri')));" \
"var_dump(is_callable(array(new B(), 'B::C::b_pub')));" \
"var_dump(is_callable(array(new B(), 'B::C::b_pro')));" \
"var_dump(is_callable(array(new B(), 'B::C::b_pri')));" \
"var_dump(is_callable(array(new B(), 'a_spub')));" \
"var_dump(is_callable(array(new B(), 'a_spro')));" \
"var_dump(is_callable(array(new B(), 'a_spri')));" \
"var_dump(is_callable(array(new B(), 'a_pub')));" \
"var_dump(is_callable(array(new B(), 'a_pro')));" \
"var_dump(is_callable(array(new B(), 'a_pri')));" \
"var_dump(is_callable(array(new B(), 'A::B::b_spub')));" \
"var_dump(is_callable(array(new B(), 'A::B::b_spro')));" \
"var_dump(is_callable(array(new B(), 'A::B::b_spri')));" \
"var_dump(is_callable(array(new B(), 'A::B::b_pro')));" \
"var_dump(is_callable(array(new B(), 'A::B::b_pri')));" \
MVCRNW("<?php "
"function test() {"
TEST_BODY_FOR_IS_CALLABLE
"}"
"class EXT {"
" static public function ext_spub() {"
" test();"
TEST_BODY_FOR_IS_CALLABLE
" }"
"}"
"class A {"
" static public function a_spub() {"
" test();"
" }"
" static protected function a_spro() {"
" test();"
" }"
" static private function a_spri() {"
" test();"
" }"
" public function a_pub() {"
" test();"
" }"
" protected function a_pro() {"
" test();"
" }"
" private function a_pri() {"
" test();"
" }"
" public static function a_sf() {"
" test();"
" self::a_spub();"
" self::a_spro();"
" self::a_spri();"
" self::a_pub();"
" self::a_pro();"
" self::a_pri();"
" }"
" public function a_f() {"
" test();"
" self::a_spub();"
" self::a_spro();"
" self::a_spri();"
" self::a_pub();"
" self::a_pro();"
" self::a_pri();"
" }"
"};"
"class B extends A {"
" static public function b_spub() {"
" test();"
" }"
" static protected function b_spro() {"
" test();"
" }"
" static private function b_spri() {"
" test();"
" }"
" public function b_pub() {"
" test();"
" }"
" protected function b_pro() {"
" test();"
" }"
" private function b_pri() {"
" test();"
" }"
" public static function b_sf() {"
" test();"
" self::b_spub();"
" self::b_spro();"
" self::b_spri();"
" self::b_pub();"
" self::b_pro();"
" self::b_pri();"
" }"
" public function b_f() {"
" test();"
" self::b_spub();"
" self::b_spro();"
" self::b_spri();"
" self::b_pub();"
" self::b_pro();"
" self::b_pri();"
" }"
"}"
"EXT::ext_spub();"
"test();"
TEST_BODY_FOR_IS_CALLABLE
"var_dump(is_callable('A::b_spub'));"
"var_dump(is_callable('A::b_spro'));"
"var_dump(is_callable('A::b_spri'));"
"var_dump(is_callable('A::b_pub'));"
"var_dump(is_callable('A::b_pro'));"
"var_dump(is_callable('A::b_pri'));"
"B::a_sf();"
"B::b_sf();"
"$obj = new B;"
"$obj->a_sf();"
"$obj->b_sf();"
"$obj->a_f();"
"$obj->b_f();");
MVCR("<?php "
"function foo() { echo 'Caught'; exit; }"
"set_error_handler('foo', E_ALL);"
"class X { function foo() { var_dump($this); } }"
"class Y {"
" function bar(X $a) { $a->foo(); }"
"}"
"function test($y,$z) {"
" $y->$z($y);"
"}"
"test(new Y, 'bar');");
MVCR("<?php\n"
"/*\n"
" some random tests used for debugging fast method call and various "
" invoke paths\n"
" // php53 means this feature cannot be tested under php 5.2\n"
"*/\n"
"\n"
"$fix249639=0; // when this task is fixed or o_id on static calls\n"
"\n"
"global $trace;\n"
"function f2 ($a) { return $a+200; }\n"
"function f4 ($a) { return $a+400; }\n"
"class B {\n"
" public $id;\n"
" public $x;\n"
" function __call($name, $arguments) {\n"
" // keep f4bogus from fatalling\n"
" echo \"Calling B object method '$name' \" . implode(', ', "
"$arguments). \"\\n\";\n"
" }\n"
"\n"
" function f1($a) { return $x=$a+11; }\n"
" function f2($a) { return $x=$a+12; }\n"
" function f4($a) { return $x=$a+12; }\n"
" function trace($s) { global $trace; $trace = \"<$s(\"."
"$this->id.\")>\"; }\n"
" private function f4helper($a) { return $x=$a+12; }\n"
"}\n"
"class G extends B {\n"
" public $pointless;\n"
" function __call($name, $arguments) {\n"
" // keep f4bogus from fatalling\n"
" echo \"Calling G object method '$name' \" . "
"implode(', ', $arguments). \"\\n\";\n"
" }\n"
" function __construct($i) { $this->id=$i; }\n"
" function f($a) { $this->trace(\"G::f\"); return $a; }\n"
" function f1($a) { return $a; } // override\n"
" function flongerthan8($a,$b,$c) { return $a+$b+$c+1; }\n"
" function f4($a) { return B::f4($a); } \n"
" // check SimpleFunctionCall::outputCPPParamOrderControlled\n"
" /// !m_valid, !m_className.empty() case\n"
" // called method must not exist anywhere even though it\n"
" // looks like it might\n"
" function f4missing($a) { \n"
" // check SimpleFunctionCall::outputCPPParamOrderControlled\n"
" // !m_valid, !m_className.empty() cases\n"
"\n"
" // m_validClass \n"
" echo \"Calling G object 'f4missing' 3 == \"; \n"
" //php53 echo parent::f4missing(3),\"\\n\"; // fatals in PHP\n"
"\n"
" // !m_validClass, m_class\n"
" $b=\"B\"; // $b::f4(4); // task 217171\n"
" echo \"static parent method B::f4, 16 == \", B::f4(4),\"\\n\"; "
" // should work\n"
" \n"
" // call an non-existant method on the one object via dynamic "
"class name\n"
" //php53 if($fix249639) echo \"Calling G object method 'f4bogus' "
"5 == \", $b::f4bogus(5); __call, \n"
" // call existing method on the one object via dynamic class name\n"
" //php53 if($fix249639) echo \"Calling G object method 'f4missing' "
"5 == \", $b::f4missing(5); \n"
" // $b=\"Bbogus\"; $b::f4bogus(6); // report error\n"
" // !m_validClass, !m_class // DDD need this test yet \n"
" //echo \"missing 3 \", Bbogus::f4bogus(6),\"\\n\"; "
"// fatals in PHP\n"
"\n"
" } \n"
" function f5($a) { return H::f4($a); } // static call\n"
"}\n"
"class H {\n"
" function f($a) { global $trace; $trace=\"H::f,\"; return \"\"; }\n"
" function f3($a) { return \"\"; }\n"
" function f4($a) { return $a+12; }\n"
" function f7($a) { return \"\"; }\n"
"}\n"
"\n"
"class J {\n"
" function __call($name, $arguments) {\n"
" echo \"Calling object method '$name' \" . implode(', ', "
"$arguments). \"\\n\";\n"
" }\n"
" function f6($a) { return \"\"; }\n"
"}\n"
"\n"
"function error_handler ($errnor, $errstr, $errfile, $errline) {\n"
" // Should catch these undefined methods here, but task 333319\n"
" // is blocking their being caught. For now, suppress the PHP error\n"
" // so as to match the missing HPHP one.\n"
" //echo \"error handler<<<\\n\";\n"
" //var_dump($errnor, $errstr, $errfile, $errline) ;\n"
" //echo \">>>\\n\";\n"
" return true;\n"
"}\n"
"// test invoke_builtin_static_method\n"
"//echo \"bar == \", \n"
" // call_user_func_array(array('Normalizer','normalize'),"
"array(\"bar\")), \"\\n\";\n"
"\n"
"$g = new G(5);\n"
"// test simple function case\n"
"echo \"600 == \",\n"
" call_user_func_array('f2',array(call_user_func_array('f4',array(0))))"
", "
"\"\\n\";\n"
"\n"
"// test C::o_invoke, C::o_invoke_few_args, lookup in call_user_func\n"
"// static method call (in G::f4).\n"
"echo \"1 1 13 34 12 == \",$g->f(1),\" \", $g->f1(1),\" \", \n"
" $g->f2(1),\" \",$g->flongerthan8(10,11,12,13,14,15,16),\n"
" \" \",$g->f4(0),\"\\n\";\n"
"// check case insensitive\n"
"echo \"1 1 13 34 12 == \",$g->F(1),\" \", $g->F1(1),\" \", \n"
" $g->F2(1),\" \",$g->Flongerthan8(10,11,12,13,14,15,16),\n"
" \" \",$g->F4(0),\"\\n\";\n"
"\n"
"// check SimpleFunctionCall::outputCPPParamOrderControlled\n"
"$prev_handler=set_error_handler(\"error_handler\");\n"
"$g->f4missing(3);\n"
"// $b=\"G\"; $b::f4(4); \n"
"\n"
"// For those dynamic cases, check:\n"
"// 1) A call to an existing method\n"
"// 2) A call to a method which exists, but not in this class (exists "
"in methodMap)\n"
"// 3) A call to a method which does not exist anywhere\n"
"\n"
"// $func=\"f3\"; echo \"{G::f3}(3) = \",$g->$func(3),\"\\n\";\n"
"// $func=\"missing\"; echo \"{G::missing}(3) = \",$g->$func(3),\"\\n\";"
"\n"
"// tests direct dynamic call \n"
"$f='f'; $f1='f1';\n"
"echo \"1 1 == \",$g->{$f}(1),\" \", $g->{$f1}(1),\"\\n\"; \n"
"echo \"1 1 == \",$g->{'F'}(1),\" \", $g->{$f1}(1),\"\\n\"; \n"
"\n"
"$res = call_user_func_array(\"H::f\",array(2)); // ok\n"
"\n"
"// tests methodIndexLookup and this variety of dynamic calls\n"
"// trying to exhause f_call_user_func_array cases\n"
"$res = call_user_func_array(array($g,'f'),array(20)); // ok\n"
"echo \"dynamic call \\$g->'f' $trace, 20 == $res\\n\"; \n"
"$res= call_user_func_array(array($g,'G::f'),array(21)); // G::G::f a "
"bit wierd\n"
"echo \"dynamic call \\$g->'G::f' $trace, 21 == $res\\n\";\n"
"//echo \"dynamic call \\$g->'H::f' $trace, FAIL = \",\n"
"// call_user_func_array(array($g,'H::f'),array(22)),\"\\n\"; "
"// G::H::f better break\n"
"\n"
"// Test on static class, dynamic method name, static call\n"
"$f = 'f1';\n"
"echo \"31 == \",G::$f(31),\"\\n\"; // G::f exists\n"
"$f = 'f3';\n"
"if ($fix249639) echo \"<method not found>(32) == \",G::$f(32),\"\\n\"; "
"// H::f3 exists, but not G::f3\n"
"$f = 'missing';\n"
"if ($fix249639) echo \"<method not found>(33) == \",G::$f(33),\"\\n\"; "
"// missing does not exist \n"
"\n"
"// Test dynamic class, dynamic method name, static call\n"
"$cls='G';\n"
"$f = 'f1';\n"
"\n"
"//php53 echo \"31 == \",$cls::$f(31),\"\\n\"; // G::f1 exists\n"
"$f = 'f3';\n"
"//php53 if ($fix249639) echo \"<method not found>(32) == \","
"$cls::$f(32),\"\\n\"; // H::f3 exists, but not G::f3\n"
"$f = 'missing';\n"
"//php53 if ($fix249639) echo \"<method not found>(33) == \","
"$cls::$f(33),\"\\n\"; // missing does not exist \n"
"\n"
"\n"
"// test methodIndexLookupReverse\n"
"echo \"dynamic call \\$g->'missing' $trace, Calling G object method "
"'missing' 2 = \", call_user_func_array(array($g,'missing'),"
"array(2)),\"\\n\";\n"
"echo \"dynamic call 'missing(2)' $trace, FAIL =\", "
"call_user_func_array('missing',array(2)),\"\\n\";\n"
"\n"
"// more __call testing\n"
"$j = new J();\n"
"echo \"Calling object method 'missing' 3 = \";\n"
"call_user_func_array(array($j,'missing'),array(3)); \n"
"\n"
"// test mapping for system function names\n"
"$ourFileName = \"testFile.txt\";\n"
"$ourFileHandle = fopen($ourFileName, 'w') or die(\"can't open file\");\n"
"fclose($ourFileHandle);\n"
"unlink($ourFileName);\n"
"\n"
"echo \"done\\n\";");
MVCR("<?php "
"class B {"
" public function foo() {"
" $this->bar();"
" }"
" private function bar() {"
" var_dump('in B::bar...');"
" }"
"}"
"class C extends B {"
" private function bar() {"
" var_dump('in C::bar!');"
" }"
"}"
"$obj = new C;"
"$obj->foo();");
return true;
}
bool TestCodeRun::TestClassMethod() {
MVCR(
"<?php\n"
"class Foo {\n"
" static function Bar() {\n"
" if (isset($this) && isset($this->bar)) {\n"
" echo \"isset\\n\";\n"
" }\n"
" var_dump($this);\n"
" }\n"
"} Foo::Bar(); $obj = new Foo(); $obj->Bar();\n"
);
MVCR(
"<?php\n"
"class Example {\n"
" function whatever() {\n"
" if (isset($this)) {\n"
" var_dump('static method call');\n"
" } else {\n"
" var_dump('non-static method call');\n"
" }\n"
" }\n"
"}\n"
"Example::whatever();\n"
"$inst = new Example();\n"
"$inst->whatever();\n"
);
MVCR("<?php\n"
"if (true) {\n"
" class c extends AppendIterator {}\n"
"} else {\n"
" class c {}\n"
"}\n"
"class d extends c {\n"
" public function rewind() {\n"
" var_dump('rewinding');\n"
" }\n"
"}\n"
"$obj = new d;\n"
"foreach ($obj as $k => $v) {}\n");
MVCR("<?php "
"$error = 'fatal error';"
"echo AdsConsoleRenderer::getInstance()->writeMsg('error', $error);"
"class AdsConsoleRenderer {"
" public static function getInstance() {"
" return new AdsConsoleRenderer();"
" }"
""
" function writeMsg($classname = '', $s = '') {"
" echo $classname . \"::\" . $s;"
" }"
"}");
MVCR("<?php class A { "
" function f() { return \"hello\" ;}"
"}; "
"$g = new A(); echo $g->{'f'}();");
MVCR("<?php "
"$a = 'self';"
"class A {"
" public static function f($value) {"
" $filter = 'g';"
" return call_user_func(array($GLOBALS['a'], $filter), $value);"
" }"
" public static function g($value) {"
" return $value;"
" }"
"}"
"var_dump(A::f('test'));");
MVCRO("<?php "
"interface I {"
" public function foo($x);"
"}"
"abstract class B implements I {"
" abstract public function foo($x);"
"}"
"class C extends B {"
" public function foo($x){ echo \"$x \\n\";}"
"}"
"$obj = new C;"
"$obj->foo(1);",
"1 \n");
MVCR("<?php"
"class AB {"
" static function foo() {"
" var_dump('foo');"
" }"
"}"
"function f($x) {"
" $a = $x.'B';"
" $a::foo();"
"}"
"f('A');");
return true;
}
bool TestCodeRun::TestObjectMagicMethod() {
MVCR("<?php\n"
"class Test {\n"
" public function __call($name, $args) {\n"
" var_dump($args);\n"
" }\n"
"}\n"
"$test = new Test();\n"
"$test->test();\n"
);
MVCR("<?php class A {"
" private $foo, $bar; "
" function __construct() { $this->foo = 1; $this->bar = 2;} "
" public function __sleep() { $this->foo = 3; return array('foo');} "
"}"
" $a = new A(); var_dump(serialize($a));");
MVCR("<?php class A { "
" public $a = array(); "
" function __set($name, $value) { $this->a[$name] = $value.'set';} "
" function __get($name) { return $this->a[$name].'get';} "
"} "
"$obj = new A(); $obj->test = 'test'; var_dump($obj->test);");
MVCR("<?php "
"class A {"
" public $a = 'aaa';"
" public function __get($name) { return 'getA';}"
"}"
"class B extends A {"
" public function __get($name) { return 'getB';}"
"}"
"$obj = new A();"
"var_dump($obj->a);"
"var_dump($obj->b);"
"$obj = new B();"
"var_dump($obj->a);"
"var_dump($obj->b);");
MVCR("<?php class A { "
" public $a = array(); "
" function __set($name, $value) { $this->a[$name] = $value;} "
" function __get($name) { return $this->a[$name];} "
"} "
"$obj = new A(); $obj->test = 'test'; var_dump($obj->test);");
MVCR("<?php class A {} "
"$obj = new A(); $obj->test = 'test'; var_dump($obj->test);");
MVCR("<?php class A { "
"function __call($a, $b) { var_dump($a, $b[0], $b[1]);}} "
"$obj = new A(); $a = 1; $obj->test($a, 'ss');");
/*
MVCR("<?php class A { "
" function __set($name, $value) { $this->a[$name] = $value;} "
" function __get($name) { return $this->a[$name];} "
"} "
"$obj = new A(); $obj->test = 'test'; var_dump($obj->test);");
*/
MVCR("<?php "
"class foo"
"{"
" public $public = 'public';"
" public function __sleep()"
" { return array('public'); }"
"}"
"$foo = new foo();"
"$data = serialize($foo);"
"var_dump($data);");
MVCR("<?php "
"class MemberTest {"
" private $data = array();"
" public function __set($name, $value) {"
" echo \"Setting '$name' to '$value'\n\";"
" $this->data[$name] = $value;"
" }"
" public function __get($name) {"
" echo \"Getting '$name'\n\";"
" if (array_key_exists($name, $this->data)) {"
" return $this->data[$name];"
" }"
" return null;"
" }"
" public function __unset($name) {"
" echo \"Unsetting '$name'\n\";"
" unset($this->data[$name]);"
" return 1;"
" }"
"}"
"$obj = new MemberTest;"
"$obj->a = 1;"
"var_dump($obj->a);"
"var_dump(isset($obj->a));"
"unset($obj->a);");
MVCR("<?php\n"
"class C {\n"
" public $foo = 123;\n"
" public function __unset($k) { echo \"__unset $k\\n\"; }\n"
"}\n"
"$obj = new C;\n"
"unset($obj->foo);\n");
MVCR("<?php "
"class foo"
"{"
" public $public = 'public';"
" public function __wakeup()"
" { echo \"__wakeup called\\n\"; return 1; }"
"}"
"$foo = unserialize(\"O:3:\\\"foo\\\":1:{s:6:\\\"public\\\";s:6:\\\"public\\\";}\");"
"var_dump($foo);");
MVCR("<?php "
"class b {"
" private $f2 = 10;"
" function t2() {"
" var_dump($this->f2);"
" }"
"}"
"class c extends b{"
" private $f = 10;"
" private static $sf = 10;"
" function __get($n) {"
" echo 'got';"
" return 1;"
" }"
" function t() {"
" var_dump($this->f2);"
" }"
"}"
"$x = new c;"
"var_dump($x->f);"
"$x->t();"
"$x->t2();");
MVCR("<?php "
"class X implements arrayaccess {"
"function offsetGet($n) { return $n; }"
"function offsetSet($n, $v) { var_dump($n); }"
"function offsetExists($n) { var_dump($n); return true; }"
"function offsetUnset($n) { var_dump($n); }"
"function __toString() { return 'baz'; }"
"}"
""
"$a = new X;"
"echo \"sets\\n\";"
"$a[true] = 5;"
"$a[NULL] = 57;"
"$a[3.2] = 25;"
"$a[array(3)] = 30;"
"$a[$a] = 32;"
"$a['57'] = 5;"
"$a['6.5'] = 7;"
""
"echo \"gets\\n\";"
"var_dump($a[true]);"
"var_dump($a[NULL]);"
"var_dump($a[3.2]);"
"var_dump($a[array(3)]);"
"var_dump($a[$a]);"
"var_dump($a['57']);"
"var_dump($a['6.5']);"
""
"echo \"unsets\\n\";"
"unset($a[true]);"
"unset($a[NULL]);"
"unset($a[3.2]);"
"unset($a[array(3)]);"
"unset($a[$a]);"
"unset($a['57']);"
"unset($a['6.5']);"
""
"echo \"issets\\n\";"
"isset($a[true]);"
"isset($a[NULL]);"
"isset($a[3.2]);"
"isset($a[array(3)]);"
"isset($a[$a]);"
"isset($a['57']);"
"isset($a['6.5']);");
MVCR("<?php "
"class foo"
"{"
" public function __get($n) { return 'foo'; }"
" public function __set($n,$v) { }"
"}"
"$foo = new foo; $a = $foo->x = 'baz'; $b = $foo->x .= 'bar';"
"var_dump($a,$b);");
MVCR("<?php\n"
"class A {\n"
" var $a;\n"
" function __set($n, $v) { $this->a[$n] = $v; }\n"
" function __get($n) { return $this->a[$n]; }\n"
" function f() { $this->f = 100; $this->f += 100; }\n"
"}\n"
"function test() {\n"
" $a = new A();\n"
" $a->f();\n"
" var_dump($a);\n"
"}\n"
"test();\n");
MVCR("<?php "
"class X {"
" public $real = 1;"
" function __get($name) { echo 'get:'; var_dump($name); return 'abc'; }"
" function __set($name, $val) { echo 'set:'; var_dump($name,$val); }"
"}"
"function test($x) {"
" ++$x->foo;"
" var_dump($x->bar++);"
" $x->real++;"
" var_dump($x);"
"}"
"test(new X);");
MVCR("<?php "
"class Foo {"
" public static $bar;"
" public function __call($fun, $args) {"
" self::$bar = array($fun);"
" }"
"}"
"function getName($part) {"
" return 'funny_'.$part;"
"}"
"function scoped($foo, $name) {"
" call_user_func(array($foo, getName($name)));"
"}"
"scoped(new Foo, 'a');"
"var_dump(Foo::$bar);");
MVCR("<?php "
"if (isset($g)) { class X {} }"
"else {"
" class X {"
" function __destruct() {"
" var_dump(__METHOD__);"
" }"
" }"
"}"
"class Y extends X {"
" function __destruct() {"
" var_dump(__METHOD__);"
" parent::__destruct();"
" }"
"}"
"class Z extends X {}"
"function test($t) {"
" var_dump('test:'.$t);"
" new $t(1,2);"
"}"
"test('X');"
"test('Y');"
"test('Z');");
return true;
}
bool TestCodeRun::TestObjectInvokeMethod() {
MVCR("<?php\n"
"// standard execution\n"
"class C1 {\n"
" public function __invoke($a0, $a1) {\n"
" var_dump('C1');\n"
" var_dump($a0, $a1);\n"
" }\n"
"}\n"
"class D1 extends C1 {}\n"
"class E1 extends D1 {\n"
" public function __invoke($a0, $a1) {\n"
" var_dump('D2');\n"
" var_dump($a0, $a1);\n"
" }\n"
"}\n"
"class F1 {\n"
" public function __invoke($a0) {\n"
" return $a0 > 10;\n"
" }\n"
"}\n"
"$c = new C1;\n"
"$d = new D1;\n"
"$e = new E1;\n"
"$c(0, 1);\n"
"$d(0, 1);\n"
"$e(0, 1);\n"
"call_user_func($c, 0, 1);\n"
"call_user_func($d, 0, 1);\n"
"call_user_func($e, 0, 1);\n"
"call_user_func_array($c, array(0, 1));\n"
"call_user_func_array($d, array(0, 1));\n"
"call_user_func_array($e, array(0, 1));\n"
"$c->__invoke(0, 1);\n"
"$d->__invoke(0, 1);\n"
"$e->__invoke(0, 1);\n"
"C1::__invoke(0, 1);\n"
"D1::__invoke(0, 1);\n"
"E1::__invoke(0, 1);\n"
"function mk($n) { return $n . '::__invoke'; }\n"
"call_user_func(mk('C1'), 0, 1);\n"
"call_user_func(mk('D1'), 0, 1);\n"
"call_user_func(mk('E1'), 0, 1);\n"
"var_dump(array_filter(array(0, 1, 11, 13), new F1));\n");
// this differs from regular PHP behavior
MVCR("<?php\n"
"// taking references\n"
"class C2 {\n"
" public function __invoke(&$a0) {\n"
" var_dump($a0);\n"
" return $a0++;\n"
" }\n"
"}\n"
"$x = 0;\n"
"$c = new C2;\n"
"$c($x);\n"
"var_dump($x); // $x = 1\n"
"call_user_func_array($c, array(&$x));\n"
"var_dump($x); // $x = 2\n");
MVCR("<?php\n"
"// taking default args\n"
"class C3 {\n"
" public function __invoke($a0, $a1 = array(), $a2 = false) {\n"
" var_dump($a0, $a1, $a2);\n"
" }\n"
"}\n"
"$c = new C3;\n"
"$c(0);\n"
"$c(0, array(1));\n"
"$c(0, array(1), true);\n"
"call_user_func($c, 0);\n"
"call_user_func($c, 0, array(1));\n"
"call_user_func($c, 0, array(1), true);\n");
MVCR("<?php\n"
"// as a static method\n"
"class C4 {\n"
" public static function __invoke($a0, $a1) {\n"
" var_dump('C4');\n"
" var_dump($a0, $a1);\n"
" }\n"
"}\n"
"class D4 extends C4 {}\n"
"class E4 extends D4 {\n"
" public static function __invoke($a0, $a1) {\n"
" static $x = 0;\n"
" var_dump('E4');\n"
" var_dump($a0, $a1);\n"
" var_dump($x ++);\n"
" }\n"
"}\n"
"class C5 {\n"
" public static function __invoke() {\n"
" static $x = 0;\n"
" var_dump($x ++);\n"
" }\n"
"}\n"
"class D5 extends C5 {}\n"
"$c = new C4;\n"
"$d = new D4;\n"
"$c(0, 1);\n"
"$d(0, 1);\n"
"call_user_func($c, 0, 1);\n"
"call_user_func($d, 0, 1);\n"
"C4::__invoke(0, 1);\n"
"D4::__invoke(0, 1);\n"
"$e = new E4;\n"
"$e(0, 1);\n"
"$e(0, 1);\n"
"call_user_func($e, 0, 1);\n"
"E4::__invoke(0, 1);\n"
"$c = new C5;\n"
"$d = new D5;\n"
"$c(); $d();\n"
"$c(); $d();\n");
MVCR("<?php\n"
"// as a private/protected method\n"
"class C6 {\n"
" private function __invoke($a0) {\n"
" var_dump($a0);\n"
" }\n"
"}\n"
"class C7 {\n"
" protected function __invoke($a0) {\n"
" var_dump($a0);\n"
" }\n"
"}\n"
"$c = new C6;\n"
"$c(10); // still works...\n"
"$c = new C7;\n"
"$c(20); // still works...\n");
MVCR("<?php\n"
"// with type hints\n"
"class C8 {\n"
" public function __invoke(array $a0) {\n"
" var_dump($a0);\n"
" }\n"
"}\n"
"$c = new C8;\n"
"$c(array(1, 2, 3));\n");
MVCR("<?php\n"
"// with var args\n"
"class C9 {\n"
" public function __invoke() {\n"
" var_dump(func_num_args());\n"
" var_dump(func_get_args());\n"
" }\n"
"}\n"
"$c = new C9;\n"
"$c();\n"
"$c(0);\n"
"$c(0, 1);\n");
MVCR("<?php\n"
"class X { \n"
" public function __invoke($x) {\n"
" var_dump($x);\n"
" }\n"
" public function test() {\n"
" $this(10);\n"
" call_user_func($this, 300);\n"
" call_user_func_array($this, array(0, 1));\n"
" }\n"
"}\n"
"class Y { \n"
" public function test($x) {\n"
" $x(10);\n"
" call_user_func($x, 300);\n"
" call_user_func_array($x, array(0, 1));\n"
" }\n"
"}\n"
"$x = new X;\n"
"$x->test();\n"
"$y = new Y;\n"
"$y->test($x);\n");
MVCR("<?php\n"
"class X {}\n"
"class Y {\n"
" public function __invoke() {}\n"
"}\n"
"var_dump(is_callable(new X));\n"
"var_dump(is_callable(new Y));\n");
MVCR("<?php\n"
"abstract class A {\n"
" abstract public function __invoke($x);\n"
"}\n"
"interface IfaceInvoke {\n"
" public function __invoke($x);\n"
"}\n"
"class Test1 extends A {\n"
" public function __invoke($x) {\n"
" var_dump(__CLASS__);\n"
" var_dump($x);\n"
" }\n"
"}\n"
"class Test2 implements IfaceInvoke {\n"
" public function __invoke($x) {\n"
" var_dump(__CLASS__);\n"
" var_dump($x);\n"
" }\n"
"}\n"
"function f1($x, $y) { $x($y); $x->__invoke($y); }\n"
"function f2(A $x, $y) { $x($y); $x->__invoke($y); }\n"
"function f3(IfaceInvoke $x, $y) { $x($y); $x->__invoke($y); }\n"
"$t1 = new Test1;\n"
"$t2 = new Test2;\n"
"f1($t1, 1);\n"
"f1($t2, 2);\n"
"f2($t1, 1);\n"
"f3($t2, 2);\n");
return true;
}
bool TestCodeRun::TestObjectAssignment() {
MVCR("<?php "
"class foo {"
" public function __construct() {"
" $this->val = 1;"
" }"
" function bar() {"
" echo $this->val;"
" $ref = &$this;"
" $ref->val = 2;"
" echo $this->val;"
" $ref2 = $this;"
" $ref2->val = 3;"
" echo $this->val;"
" $x = new foo();"
" echo $x->val;"
" $ref3 = &$x;"
" $ref3->val = 4;"
" echo $x->val;"
" $ref4 = $x;"
" $ref4->val = 5;"
" echo $x->val;"
" }"
" var $val;"
"}"
"$x = new foo();"
"$x->bar();"
"$ref5 = $x;"
"$ref5->val = 6;"
"echo $x->val;"
"$ref6 = &$x;"
"$ref6->val = 7;"
"echo $x->val;");
return true;
}
bool TestCodeRun::TestNewObjectExpression() {
MVCR("<?php "
"class A { var $num; }"
"function foo() { return new A(); }"
"foreach(($a=(object)new A()) as $v);"
"foreach(($a=(object)foo()) as $v);"
"foreach(($a=new A()) as $v);"
"$a->num = 1;"
"print($a->num);");
MVCR("<?php class A {} class B extends A { "
"static function foo() { return new self();} } "
"var_dump(B::foo());");
MVCR("<?php class A {} class B extends A { "
"static function foo() { return new parent();} } "
"var_dump(B::foo());");
MVCR("<?php "
"function g() {}"
"function h() {}"
"class C {}"
"new C(g(), h());");
MVCR("<?php "
"class X {"
" function __construct($a, &$b) {"
" }"
"}"
"function test($a) {"
" $b = 1;"
" return new X($a, $b);"
"}"
"var_dump(test(3));");
MVCR("<?php "
"class A1 {"
" public function A1($id) {"
" $this->id = $id;"
" }"
"}"
"class B1 extends A1 {"
"}"
"class C1 extends B1 {"
" public function __construct($id) {"
" parent::__construct($id);"
" }"
" function zz($id) {"
" parent::__construct($id);"
" }"
"}"
""
"$x = new C1(100);"
"echo $x->id.\"\\n\";"
"$x->zz(1);"
"echo $x->id.\"\\n\";");
MVCRO("<?php\n"
"class A {\n"
" function __construct($a) { echo \"A\\n\"; }\n"
" function __destruct() { var_dump($this); }\n"
"}\n"
"function f() { echo \"f\\n\"; throw new Exception(); }\n"
"function test() { $a = new A(f()); }\n"
"try { test(); } catch (Exception $e) { }\n"
,
"f\n");
MVCR("<?php "
"class foo {"
" static function ioo($y, &$x) {"
" return new self(1);"
" }"
" function __construct($a, $b) {}"
"}"
"function t() {"
" $x = 1;"
" foo::ioo($x, $y);"
"}"
"t();");
MVCR("<?php "
"class X {"
" function __toString() { return 'hello'; }"
"}"
"function f() {"
" return 'bar';"
"}"
"function test($e) {"
" $a = 'foo';"
" for ($i = 0; $i < 10; $i++) {"
" $a .= new X($e['x']) . f();"
" }"
" return $a;"
"}"
"var_dump(test());");
MVCR("<?php "
"class X {}"
"class Y {}"
"function test($x) {"
" return new $x($x = 'y');"
"}"
"var_dump(test('x'));");
return true;
}
bool TestCodeRun::TestObjectPropertyExpression() {
MVCR("<?php "
"class test {"
" function foo() {"
" $var = $this->blah->prop->foo->bar = \"string\";"
" var_dump($this->blah);"
" }"
"}"
"$t = new test;"
"$t->foo();");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c = new C1();"
"$c->a = 1;"
"$c->a .= 1;"
"print $c->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C2 {"
" public $p2;"
"}"
"$c2 = new C2();"
"$c2->p = new C1();"
"$c2->p->a = 1;"
"$c2->p->a .= 1;"
"print $c2->p->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C2 {"
" public $p2;"
"}"
"class C3 {"
" public $p3;"
"}"
"$c3 = new C3();"
"$c3->p3 = new C2();"
"$c3->p3->p2 = new C1();"
"$c3->p3->p2->a = 1;"
"$c3->p3->p2->a .= 1;"
"print $c3->p3->p2->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get C1\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C1\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C2 {"
" public function __get( $what ) {"
" echo \"get C2\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C2\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C3 {"
" public function __get( $what) {"
" echo \"get C3\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C3\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c3 = new C3();"
"$c3->p3 = new C2();"
"$c3->p3->p2 = new C1();"
"$c3->p3->p2->a = 1;"
"$c3->p3->p2->a .= 1;"
"print $c3->p3->p2->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get C1\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C1\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C2 {"
" public function __get( $what ) {"
" echo \"get C2\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C2\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C3 {"
" public function __get( $what) {"
" echo \"get C3\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C3\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c3 = new C3();"
"$c3->p3 = new C2();"
"$c3->p3->p2 = new C1();"
"$c3->p3->p2->a = 1;"
"$c3->p3->p2->a .= 1;"
"print $c3->p3->p2->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get C1\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C1\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C2 {"
" public function __get( $what ) {"
" echo \"get C2\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C2\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C3 {"
" public function __get( $what) {"
" echo \"get C3\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C3\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c3 = new C3();"
"$c3->p3 = new C2();"
"$c3->p3->p2 = new C1();"
"$c3->p3->p2->a = 1;"
"$c3->p3->p2->a .= 1;"
"print $c3->p3->p2->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c = new C1();"
"$c->a += 1;"
"print $c->a;"
"$c->a += 10;"
"print $c->a;"
"$c->a -= 2;"
"print $c->a;"
"$c->a *= 3;"
"print $c->a;"
"$c->a /= 2;"
"print $c->a;"
"$c->a %= 8;"
"print $c->a;"
"$c->a <<= 3;"
"print $c->a;"
"$c->a >>= 2;"
"print $c->a;"
"$c->a ^= 18;"
"print $c->a;"
"$c->a &= 333;"
"print $c->a;"
"$c->a |= 7;"
"print $c->a;");
MVCR("<?php "
"class C1 {"
"}"
"class C2 {"
" public function __get( $what ) {"
" echo \"get C2\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C2\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C3 {"
" public function __get( $what ) {"
" echo \"get C3\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C3\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"function assign_ref(&$v) {"
" $v = 22;"
"}"
"$c3 = new C3();"
"$c3->p3 = new C2();"
"$c3->p3->p2 = new C1();"
"$c3->p3->p2->a = 1;"
"$c3->p3->p2->a .= 1;"
"print $c3->p3->p2->a;"
"assign_ref($c3->p3->p2->a);"
"print $c3->p3->p2->a;");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get C1\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C1\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C2 {"
" public function __get( $what ) {"
" echo \"get C2\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C2\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"class C3 {"
" public function __get( $what ) {"
" echo \"get C3\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C3\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"function assign_ref(&$v) {"
" $v = 22;"
"}"
"$c3 = new C3();"
"$c3->p3 = new C2();"
"$c3->p3->p2 = new C1();"
"$c3->p3->p2->a = 1;"
"$c3->p3->p2->a .= 1;"
"print $c3->p3->p2->a;"
"assign_ref($c3->p3->p2->a);"
"print $c3->p3->p2->a;");
MVCR("<?php "
"$b = 10;"
"class C1 {"
" public function __get( $what ) {"
" global $b;"
" return $b;"
" }"
"}"
"$c1 = new C1();"
"function assign_ref(&$lv) {"
" $lv = 8;"
"}"
"assign_ref($c1->a);"
"var_dump($b);");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get C1\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C1\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c1 = new C1();"
"$c1->a = new C1();"
"$c1->a->b = new C1();"
"$c1->a->b->c = 10;"
"var_dump($c1->a->b->c);"
"$c1->a->b->c .= 10;"
"var_dump($c1->a->b->c);");
MVCR("<?php "
"class C1 {"
" public function __get( $what ) {"
" echo \"get C1\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C1\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"$c1 = new C1();"
"$c1->a = new C1();"
"$c1->a->b = new C1();"
"for ($i = 0; $i < 2048; $i++) {"
" $c1->a->b->c = 10;"
"}"
"var_dump($c1->a->b->c);");
MVCR("<?php "
"class Y {}"
"class X {"
" public $a;"
" function __construct() {"
" $this->a = array('x' => new Y);"
" }"
" function bar() {"
" var_dump('bar');"
" $this->qq = new Y;"
" $this->qq->x = $this->qq->y = 1;"
" return $this->qq;"
" }"
"}"
"function foo() { var_dump('foo'); return 'foo'; }"
"function test($x, $a, $s) {"
" $t = &$s->t;"
" unset($x->bar()->x);"
" unset($x->q->r->s->${foo()});"
" unset($x->y->a->b->c);"
" unset($x->a['x']->y->a->b->c);"
" unset($a['a']['y'][foo()]);"
" unset($a['b']->y->z);"
" unset($a->c->d);"
" var_dump($x, $a, $s);"
"}"
"test(new X, array(), false);");
MVCR("<?php "
"class X {"
"public $a = 3;"
"function foo($t) {"
"$$t = 5;"
"var_dump($this->a);"
"var_dump($this);"
"}"
"}"
"$x = new X;"
"$x->foo('this');");
MVCR("<?php "
"class X {"
" public function foo($q) {"
" $s =& $this;"
" $s->q = $q;"
" }"
"}"
"function test() {"
" $x = new X;"
" $x->foo('hello');"
" var_dump($x);"
"}"
"test();");
if (Option::EnableEval >= Option::FullEval) {
MVCRONW("<?php "
"class X {"
" function ref(&$ref) { $ref = 1; }"
" function bar() {"
" $this->ref($this->priv);"
" }"
"};"
"class Y extends X { private $priv; }"
"class Z extends Y {}"
"$z = new Z;"
"$z->bar();"
"var_dump($z);"
"$y = new Y;"
"$y->bar();"
"var_dump($y);"
,
"object(Z)#1 (2) {\n"
" [\"priv\":\"Y\":private]=>\n"
" NULL\n"
" [\"priv\"]=>\n"
" int(1)\n"
"}\n");
}
return true;
}
bool TestCodeRun::TestCollectionClasses() {
MVCRO("<?php\n"
"$arr = array(null, false, true, 0, 1, 0.0, 1.0, '', '0', '1',\n"
" '0.0', '1.0', '0 ', 'foo');\n"
"$vec = Vector::fromArray($arr);\n"
"foreach ($vec as $k => $v) {\n"
" var_dump($v);\n"
" var_dump($vec[$k]);\n"
" var_dump(isset($v));\n"
" var_dump(isset($vec[$k]));\n"
" var_dump(empty($v));\n"
" var_dump(empty($vec[$k]));\n"
" echo \"\\n\";\n"
"}\n"
"echo \"=====================\\n\\n\";\n"
"$mp = Map::fromArray($arr);\n"
"foreach ($arr as $k => $v) {\n"
" var_dump($mp[$k]);\n"
" var_dump(isset($mp[$k]));\n"
" var_dump(empty($mp[$k])); \n"
" echo \"\\n\";\n"
"}\n"
"$new_arr = array();\n"
"foreach ($mp as $k => $v) {\n"
" $new_arr[$k] = $v;\n"
"}\n"
"ksort($new_arr);\n"
"var_dump($new_arr);\n"
"echo \"=====================\\n\\n\";\n"
"$smp = StableMap::fromArray($arr);\n"
"foreach ($smp as $k => $v) {\n"
" var_dump($v);\n"
" var_dump($smp[$k]);\n"
" var_dump(isset($v));\n"
" var_dump(isset($smp[$k]));\n"
" var_dump(empty($v));\n"
" var_dump(empty($smp[$k]));\n"
" echo \"\\n\";\n"
"}\n"
"echo \"Done\\n\";\n"
,
"NULL\n"
"NULL\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"int(0)\n"
"int(0)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"int(1)\n"
"int(1)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"float(0)\n"
"float(0)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"float(1)\n"
"float(1)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"string(1) \"0\"\n"
"string(1) \"0\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"string(1) \"1\"\n"
"string(1) \"1\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(3) \"0.0\"\n"
"string(3) \"0.0\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(3) \"1.0\"\n"
"string(3) \"1.0\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(2) \"0 \"\n"
"string(2) \"0 \"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"=====================\n"
"\n"
"NULL\n"
"bool(false)\n"
"bool(true)\n"
"\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"int(0)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"int(1)\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"float(0)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"float(1)\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"string(0) \"\"\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"string(1) \"0\"\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"string(1) \"1\"\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"string(3) \"0.0\"\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"string(3) \"1.0\"\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"string(2) \"0 \"\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"string(3) \"foo\"\n"
"bool(true)\n"
"bool(false)\n"
"\n"
"array(14) {\n"
" [0]=>\n"
" NULL\n"
" [1]=>\n"
" bool(false)\n"
" [2]=>\n"
" bool(true)\n"
" [3]=>\n"
" int(0)\n"
" [4]=>\n"
" int(1)\n"
" [5]=>\n"
" float(0)\n"
" [6]=>\n"
" float(1)\n"
" [7]=>\n"
" string(0) \"\"\n"
" [8]=>\n"
" string(1) \"0\"\n"
" [9]=>\n"
" string(1) \"1\"\n"
" [10]=>\n"
" string(3) \"0.0\"\n"
" [11]=>\n"
" string(3) \"1.0\"\n"
" [12]=>\n"
" string(2) \"0 \"\n"
" [13]=>\n"
" string(3) \"foo\"\n"
"}\n"
"=====================\n"
"\n"
"NULL\n"
"NULL\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"int(0)\n"
"int(0)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"int(1)\n"
"int(1)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"float(0)\n"
"float(0)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"float(1)\n"
"float(1)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"string(1) \"0\"\n"
"string(1) \"0\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"\n"
"string(1) \"1\"\n"
"string(1) \"1\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(3) \"0.0\"\n"
"string(3) \"0.0\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(3) \"1.0\"\n"
"string(3) \"1.0\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(2) \"0 \"\n"
"string(2) \"0 \"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"\n"
"Done\n"
);
MVCRO("<?php\n"
"$v = new Vector;\n"
"$v[] = 123;\n"
"var_dump($v->toArray());\n"
"var_dump($v->pop());\n"
"var_dump($v->toArray());\n"
,
"array(1) {\n"
" [0]=>\n"
" int(123)\n"
"}\n"
"int(123)\n"
"array(0) {\n"
"}\n"
);
MVCRO("<?php\n"
"try {\n"
" $v = new Vector();\n"
" $v->contains(1);\n"
" try {\n"
" $v->contains('foo');\n"
" } catch (Exception $e) {\n"
" echo 'A';\n"
" }\n"
" try {\n"
" $v->contains(1.0);\n"
" } catch (Exception $e) {\n"
" echo 'B';\n"
" }\n"
" $methods = Vector::fromArray(array('contains','remove',"
"'discard'));\n"
" foreach ($methods as $method) {\n"
" $m = new Map();\n"
" $m->$method(1);\n"
" $m->$method('foo');\n"
" try {\n"
" $m->$method(1.0);\n"
" } catch (Exception $e) {\n"
" echo 'C';\n"
" }\n"
" $s = new StableMap();\n"
" $s->$method(1);\n"
" $s->$method('foo');\n"
" try {\n"
" $s->$method(1.0);\n"
" } catch (Exception $e) {\n"
" echo 'D';\n"
" }\n"
" echo \"\\n\";\n"
" }\n"
"} catch (Exception $e) {\n"
" echo \"Test failed\\n\";\n"
"}\n"
,
"ABCD\n"
"CD\n"
"CD\n"
);
MVCRO("<?php\n"
"$classes = array('Vector','Map','StableMap');\n"
"$i = 0;\n"
"try {\n"
" foreach ($classes as $cls) {\n"
" $obj = new $cls;\n"
" try {\n"
" $x = $obj->foo;\n"
" } catch (RuntimeException $e) {\n"
" echo $i;\n"
" }\n"
" ++$i;\n"
" try {\n"
" $obj->foo = 123;\n"
" } catch (RuntimeException $e) {\n"
" echo $i;\n"
" }\n"
" ++$i;\n"
" }\n"
"} catch (Exception $e) {\n"
" echo \"Fail!\\n\";\n"
"}\n"
"echo \"Done\\n\";\n"
,
"012345Done\n"
);
MVCRO("<?php\n"
"$v = new Vector;\n"
"$v[] = 7;\n"
"$v[] = 'foo';\n"
"var_dump(serialize($v));\n"
"$v2 = unserialize(serialize($v));\n"
"echo \"=========================\\n\";\n"
"var_dump($v);\n"
"print_r($v);\n"
"echo json_encode($v) . \"\\n\";\n"
"var_export($v); echo \"\\n\";\n"
"var_dump($v2);\n"
"print_r($v2);\n"
"echo json_encode($v2) . \"\\n\";\n"
"var_export($v2); echo \"\\n\";\n"
,
"string(31) \"V:6:\"Vector\":2:{i:7;s:3:\"foo\";}\"\n"
"=========================\n"
"object(Vector)#1 (2) {\n"
" [0]=>\n"
" int(7)\n"
" [1]=>\n"
" string(3) \"foo\"\n"
"}\n"
"Vector Object\n"
"(\n"
" [0] => 7\n"
" [1] => foo\n"
")\n"
"[7,\"foo\"]\n"
"Vector::__set_state(array(\n"
" 0 => 7,\n"
" 1 => 'foo',\n"
"))\n"
"object(Vector)#2 (2) {\n"
" [0]=>\n"
" int(7)\n"
" [1]=>\n"
" string(3) \"foo\"\n"
"}\n"
"Vector Object\n"
"(\n"
" [0] => 7\n"
" [1] => foo\n"
")\n"
"[7,\"foo\"]\n"
"Vector::__set_state(array(\n"
" 0 => 7,\n"
" 1 => 'foo',\n"
"))\n"
);
MVCRO("<?php\n"
"$m = new Map;\n"
"$m[3] = 'foo';\n"
"var_dump(serialize($m));\n"
"$m2 = unserialize(serialize($m));\n"
"echo \"=========================\\n\";\n"
"var_dump($m);\n"
"print_r($m);\n"
"echo json_encode($m) . \"\\n\";\n"
"var_export($m); echo \"\\n\";\n"
"var_dump($m2);\n"
"print_r($m2);\n"
"echo json_encode($m2) . \"\\n\";\n"
"var_export($m2); echo \"\\n\";\n"
"echo \"=========================\\n\";\n"
"$m = new Map;\n"
"$m['bar'] = 7;\n"
"var_dump(serialize($m));\n"
"$m2 = unserialize(serialize($m));\n"
"echo \"=========================\\n\";\n"
"var_dump($m);\n"
"print_r($m);\n"
"echo json_encode($m) . \"\\n\";\n"
"var_export($m); echo \"\\n\";\n"
"var_dump($m2);\n"
"print_r($m2);\n"
"echo json_encode($m2) . \"\\n\";\n"
"var_export($m2); echo \"\\n\";\n"
,
"string(28) \"K:3:\"Map\":1:{i:3;s:3:\"foo\";}\"\n"
"=========================\n"
"object(Map)#1 (1) {\n"
" [3]=>\n"
" string(3) \"foo\"\n"
"}\n"
"Map Object\n"
"(\n"
" [3] => foo\n"
")\n"
"{\"3\":\"foo\"}\n"
"Map::__set_state(array(\n"
" 3 => 'foo',\n"
"))\n"
"object(Map)#2 (1) {\n"
" [3]=>\n"
" string(3) \"foo\"\n"
"}\n"
"Map Object\n"
"(\n"
" [3] => foo\n"
")\n"
"{\"3\":\"foo\"}\n"
"Map::__set_state(array(\n"
" 3 => 'foo',\n"
"))\n"
"=========================\n"
"string(28) \"K:3:\"Map\":1:{s:3:\"bar\";i:7;}\"\n"
"=========================\n"
"object(Map)#3 (1) {\n"
" [\"bar\"]=>\n"
" int(7)\n"
"}\n"
"Map Object\n"
"(\n"
" [bar] => 7\n"
")\n"
"{\"bar\":7}\n"
"Map::__set_state(array(\n"
" 'bar' => 7,\n"
"))\n"
"object(Map)#4 (1) {\n"
" [\"bar\"]=>\n"
" int(7)\n"
"}\n"
"Map Object\n"
"(\n"
" [bar] => 7\n"
")\n"
"{\"bar\":7}\n"
"Map::__set_state(array(\n"
" 'bar' => 7,\n"
"))\n"
);
MVCRO("<?php\n"
"$m = new StableMap;\n"
"$m[3] = 'foo';\n"
"$m['bar'] = 7;\n"
"var_dump(serialize($m));\n"
"$m2 = unserialize(serialize($m));\n"
"echo \"=========================\\n\";\n"
"var_dump($m);\n"
"print_r($m);\n"
"echo json_encode($m) . \"\\n\";\n"
"var_export($m); echo \"\\n\";\n"
"var_dump($m2);\n"
"print_r($m2);\n"
"echo json_encode($m2) . \"\\n\";\n"
"var_export($m2); echo \"\\n\";\n"
"echo \"=========================\\n\";\n"
"$m = new StableMap;\n"
"$m['bar'] = 7;\n"
"$m[3] = 'foo';\n"
"var_dump(serialize($m));\n"
"$m2 = unserialize(serialize($m));\n"
"echo \"=========================\\n\";\n"
"var_dump($m);\n"
"print_r($m);\n"
"echo json_encode($m) . \"\\n\";\n"
"var_export($m); echo \"\\n\";\n"
"var_dump($m2);\n"
"print_r($m2);\n"
"echo json_encode($m2) . \"\\n\";\n"
"var_export($m2); echo \"\\n\";\n"
,
"string(48) \"K:9:\"StableMap\":2:{i:3;s:3:\"foo\";s:3:\"bar\";"
"i:7;}\"\n"
"=========================\n"
"object(StableMap)#1 (2) {\n"
" [3]=>\n"
" string(3) \"foo\"\n"
" [\"bar\"]=>\n"
" int(7)\n"
"}\n"
"StableMap Object\n"
"(\n"
" [3] => foo\n"
" [bar] => 7\n"
")\n"
"{\"3\":\"foo\",\"bar\":7}\n"
"StableMap::__set_state(array(\n"
" 3 => 'foo',\n"
" 'bar' => 7,\n"
"))\n"
"object(StableMap)#2 (2) {\n"
" [3]=>\n"
" string(3) \"foo\"\n"
" [\"bar\"]=>\n"
" int(7)\n"
"}\n"
"StableMap Object\n"
"(\n"
" [3] => foo\n"
" [bar] => 7\n"
")\n"
"{\"3\":\"foo\",\"bar\":7}\n"
"StableMap::__set_state(array(\n"
" 3 => 'foo',\n"
" 'bar' => 7,\n"
"))\n"
"=========================\n"
"string(48) \"K:9:\"StableMap\":2:{s:3:\"bar\";i:7;i:3;"
"s:3:\"foo\";}\"\n"
"=========================\n"
"object(StableMap)#3 (2) {\n"
" [\"bar\"]=>\n"
" int(7)\n"
" [3]=>\n"
" string(3) \"foo\"\n"
"}\n"
"StableMap Object\n"
"(\n"
" [bar] => 7\n"
" [3] => foo\n"
")\n"
"{\"bar\":7,\"3\":\"foo\"}\n"
"StableMap::__set_state(array(\n"
" 'bar' => 7,\n"
" 3 => 'foo',\n"
"))\n"
"object(StableMap)#4 (2) {\n"
" [\"bar\"]=>\n"
" int(7)\n"
" [3]=>\n"
" string(3) \"foo\"\n"
"}\n"
"StableMap Object\n"
"(\n"
" [bar] => 7\n"
" [3] => foo\n"
")\n"
"{\"bar\":7,\"3\":\"foo\"}\n"
"StableMap::__set_state(array(\n"
" 'bar' => 7,\n"
" 3 => 'foo',\n"
"))\n"
);
MVCRO("<?php\n"
"var_dump(unserialize(\n"
" \"K:8:\\\"stdClass\\\":2:{i:0;i:0;i:1;i:1;}\"));\n"
"var_dump(unserialize(\n"
" \"O:6:\\\"Vector\\\":1:{s:3:\\\"foo\\\";i:7;}\"));\n"
,
"bool(false)\n"
"bool(false)\n"
);
MVCRO("<?php\n"
"$m = new Map();\n"
"$m['foo'] = new Map();\n"
"$m['foo'][123] = new Vector();\n"
"$m['foo'][123][] = 'bar';\n"
"var_dump($m['foo'][123][0]);\n"
,
"string(3) \"bar\"\n"
);
MVCRO("<?php\n"
"$v = Vector::fromArray(array('foo'));\n"
"var_dump($v[0]);\n"
"var_dump($v->at(0));\n"
"var_dump($v->get(0));\n"
"var_dump($v->get(1));\n"
"$m = Map::fromArray(array('foo'));\n"
"var_dump($m[0]);\n"
"var_dump($m->at(0));\n"
"var_dump($m->get(0));\n"
"var_dump($m->get(1));\n"
"$sm = StableMap::fromArray(array('foo'));\n"
"var_dump($sm[0]);\n"
"var_dump($sm->at(0));\n"
"var_dump($sm->get(0));\n"
"var_dump($sm->get(1));\n"
,
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"NULL\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"NULL\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"NULL\n"
);
MVCRO("<?php\n"
"$m = Map::fromArray(array('a' => 'foo'));\n"
"var_dump($m['a']);\n"
"var_dump($m->at('a'));\n"
"var_dump($m->get('a'));\n"
"var_dump($m->get('b'));\n"
"$sm = StableMap::fromArray(array('a' => 'foo'));\n"
"var_dump($sm['a']);\n"
"var_dump($sm->at('a'));\n"
"var_dump($sm->get('a'));\n"
"var_dump($sm->get('b'));\n"
,
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"NULL\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"string(3) \"foo\"\n"
"NULL\n"
);
MVCRO("<?php\n"
"$v = new Vector;\n"
"$v[] = 'c';\n"
"$v[] = 'a';\n"
"$v[] = 'b';\n"
"sort($v);\n"
"foreach ($v as $key => $val) {\n"
" echo $key . ' ' . $val . \"\\n\";\n"
"}\n"
"echo \"=======\\n\";\n"
"$s = new StableMap;\n"
"$s['w'] = 2;\n"
"$s['v'] = 4;\n"
"$s['y'] = 3;\n"
"$s['x'] = 5;\n"
"$s['z'] = 1;\n"
"ksort($s);\n"
"foreach ($s as $key => $val) {\n"
" echo $key . ' ' . $val . \"\\n\";\n"
"}\n"
"echo \"=======\\n\";\n"
"asort($s);\n"
"foreach ($s as $key => $val) {\n"
" echo $key . ' ' . $val . \"\\n\";\n"
"}\n"
,
"0 a\n"
"1 b\n"
"2 c\n"
"=======\n"
"v 4\n"
"w 2\n"
"x 5\n"
"y 3\n"
"z 1\n"
"=======\n"
"z 1\n"
"w 2\n"
"y 3\n"
"v 4\n"
"x 5\n"
);
MVCRO("<?php\n"
"function cmp($x, $y) {\n"
" if ($x < $y) return 1;\n"
" if ($x > $y) return -1;\n"
" return 0;\n"
"}\n"
"$v = new Vector;\n"
"$v[] = 'c';\n"
"$v[] = 'a';\n"
"$v[] = 'b';\n"
"usort($v, 'cmp');\n"
"foreach ($v as $key => $val) {\n"
" echo $key . ' ' . $val . \"\\n\";\n"
"}\n"
"echo \"=======\\n\";\n"
"$s = new StableMap;\n"
"$s['w'] = 2;\n"
"$s['v'] = 4;\n"
"$s['y'] = 3;\n"
"$s['x'] = 5;\n"
"$s['z'] = 1;\n"
"uksort($s, 'cmp');\n"
"foreach ($s as $key => $val) {\n"
" echo $key . ' ' . $val . \"\\n\";\n"
"}\n"
"echo \"=======\\n\";\n"
"uasort($s, 'cmp');\n"
"foreach ($s as $key => $val) {\n"
" echo $key . ' ' . $val . \"\\n\";\n"
"}\n"
,
"0 c\n"
"1 b\n"
"2 a\n"
"=======\n"
"z 1\n"
"y 3\n"
"x 5\n"
"w 2\n"
"v 4\n"
"=======\n"
"x 5\n"
"v 4\n"
"y 3\n"
"w 2\n"
"z 1\n"
);
MVCRO("<?hh\n"
"function f() {\n"
" var_dump(Vector {});\n"
" var_dump(Map {});\n"
" var_dump(Vector { 1, 2 });\n"
" var_dump(StableMap { 'a' => 1, 'b' => 2 });\n"
"\n"
" var_dump(Vector<int> {});\n"
" var_dump(Map<string,int> {});\n"
" var_dump(Vector<int> { 1, 2 });\n"
" var_dump(StableMap<string,int> { 'a' => 1, 'b' => 2 });\n"
"}\n"
"f();\n"
,
"object(Vector)#1 (0) {\n"
"}\n"
"object(Map)#1 (0) {\n"
"}\n"
"object(Vector)#1 (2) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
"}\n"
"object(StableMap)#1 (2) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" int(2)\n"
"}\n"
"object(Vector)#1 (0) {\n"
"}\n"
"object(Map)#1 (0) {\n"
"}\n"
"object(Vector)#1 (2) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
"}\n"
"object(StableMap)#1 (2) {\n"
" [\"a\"]=>\n"
" int(1)\n"
" [\"b\"]=>\n"
" int(2)\n"
"}\n"
);
MVCRO("<?php\n"
"function f($x1, $x2, $x3, $x4) {\n"
" return Vector { $x1, $x2, $x3, $x4 };\n"
"}\n"
"function g($k1, $v1, $k2, $v2) {\n"
" $m = Map { $k1 => $v1, $k2 => $v2 };\n"
" return $m;\n"
"}\n"
"var_dump(f(42, 123.456, 'blah', array(3, 5, 7)));\n"
"var_dump(g('foo', 1, 2, 'bar'));\n"
,
"object(Vector)#1 (4) {\n"
" [0]=>\n"
" int(42)\n"
" [1]=>\n"
" float(123.456)\n"
" [2]=>\n"
" string(4) \"blah\"\n"
" [3]=>\n"
" array(3) {\n"
" [0]=>\n"
" int(3)\n"
" [1]=>\n"
" int(5)\n"
" [2]=>\n"
" int(7)\n"
" }\n"
"}\n"
"object(Map)#1 (2) {\n"
" [\"foo\"]=>\n"
" int(1)\n"
" [2]=>\n"
" string(3) \"bar\"\n"
"}\n"
);
return true;
}
///////////////////////////////////////////////////////////////////////////////
// comparisons
#define COMPARE(a, op, b) \
"print ++$i; print \"\\t\"; " \
"print (" #a #op #b ") ? 'Y' : 'N'; " \
"$a = 1; $a = 't'; $a = " #a "; " \
"print ($a " #op #b ") ? 'Y' : 'N'; " \
"$b = 1; $b = 't'; $b = " #b "; " \
"print (" #a #op "$b) ? 'Y' : 'N'; " \
"print ($a " #op "$b) ? 'Y' : 'N'; " \
"print \"\\t\"; " \
"print \"" #a " " #op " " #b "\t\"; " \
"print \"\\n\"; " \
#define COMPARE_ALL(a, op) \
COMPARE(a, op, true) \
COMPARE(a, op, false) \
COMPARE(a, op, 1) \
COMPARE(a, op, 0) \
COMPARE(a, op, -1) \
COMPARE(a, op, '1') \
COMPARE(a, op, '0') \
COMPARE(a, op, '-1') \
COMPARE(a, op, NULL) \
COMPARE(a, op, array()) \
COMPARE(a, op, array(1)) \
COMPARE(a, op, array(2)) \
COMPARE(a, op, array('1')) \
COMPARE(a, op, array('0' => '1')) \
COMPARE(a, op, array('a')) \
COMPARE(a, op, array('a' => 1)) \
COMPARE(a, op, array('b' => 1)) \
COMPARE(a, op, array('a' => 1, 'b' => 2)) \
COMPARE(a, op, array(array('a' => 1))) \
COMPARE(a, op, array(array('b' => 1))) \
COMPARE(a, op, 'php') \
COMPARE(a, op, '') \
#define COMPARE_OP(op) \
MVCR("<?php $i = 0; " COMPARE_ALL('1.2', op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(true, op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(false, op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(1, op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(0, op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(-1, op)); \
MVCR("<?php $i = 0; " COMPARE_ALL('1', op)); \
MVCR("<?php $i = 0; " COMPARE_ALL('0', op)); \
MVCR("<?php $i = 0; " COMPARE_ALL('-1', op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(NULL, op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array(), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array(1), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array(2), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array('1'), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array('0' => '1'), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array('a'), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array('a' => 1), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array('b' => 1), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array('a' => 1, 'b' => 2), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array(array('a' => 1)), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL(array(array('b' => 1)), op)); \
MVCR("<?php $i = 0; " COMPARE_ALL('php', op)); \
MVCR("<?php $i = 0; " COMPARE_ALL('', op)); \
bool TestCodeRun::TestComparisons() {
MVCR("<?php var_dump(array(1 => 1, 2 => 1) == array(2 => 1, 1 => 1));");
MVCR("<?php var_dump(array(1 => 1, 2 => 1) === array(2 => 1, 1 => 1));");
MVCR("<?php var_dump(array('a'=>1,'b'=> 1) == array('b'=>1,'a'=> 1));");
MVCR("<?php var_dump(array('a'=>1,'b'=> 1) === array('b'=>1,'a'=> 1));");
MVCR("<?php $a = '05/17'; $b = '05/18'; var_dump($a == $b);");
MVCR("<?php var_dump('05/17' == '05/18');");
MVCR("<?php var_dump('1.0' == '1');"
"var_dump('1.0E2' == '10E1');"
"var_dump('1' === '1');"
"var_dump('1.0' === '1.0');"
"var_dump('1' === '1.0');"
"var_dump('1.0' === '1.00');"
"var_dump(1.0 === 1.00);"
"var_dump('1' == '1');"
"var_dump('1.0' == '1.0');"
"var_dump('1' == '1.0');"
"var_dump('1.0' == '1.00');"
"var_dump(1.0 == 1.00);"
"function foo($a, $b) {"
" $s = (string)$a;"
" $t = (string)$b;"
" var_dump($s === $t);"
"}"
"foo('1.00', '1.0');"
"foo('1.0', '1.0');"
"foo('1.', '1.0');"
"foo('1', '1.0');");
COMPARE_OP(==);
COMPARE_OP(===);
COMPARE_OP(!=);
COMPARE_OP(<>);
COMPARE_OP(!==);
COMPARE_OP(<);
COMPARE_OP(>);
COMPARE_OP(<=);
COMPARE_OP(>=);
MVCR("<?php "
"class c {"
" public $x = 0;"
"}"
"$x = new c;"
"$x->x = 1;"
"$y = new c;"
"var_dump($x > $y);"
"var_dump(array($x) == array($y));");
MVCR("<?php "
"function foo($p) {"
" if ($p) {"
" $a = 'foo';"
" }"
" if ('' < $a) {"
" echo 'yes';"
" } else {"
" echo 'no';"
" }"
" if ($a > '') {"
" echo 'yes';"
" } else {"
" echo 'no';"
" }"
"}"
"foo(false);");
MVCR("<?php "
"$part = ' 1';"
"var_dump(trim($part) !== $part);");
MVCR("<?php "
"class C { }"
"function foo($p) {"
" if ($p) {"
" $obj = new C;"
" } else {"
" $a = array(1);"
" }"
" var_dump($obj == $a);"
"}"
"foo(false);");
MVCR("<?php\n"
"$x = (object)null;\n"
"var_dump ($x == 1 && 1 == $x);\n"
"var_dump ($x == 1.0 && 1.0 == $x);\n"
"var_dump ($x > 0);\n"
"var_dump ($x >= 1);\n"
"var_dump ($x < 5);\n"
"var_dump ($x <= 1);\n");
return true;
}
///////////////////////////////////////////////////////////////////////////////
// semantics
bool TestCodeRun::TestUnset() {
MVCR("<?php class A { static $foo = array(123);} $a = 'A'; "
"unset($a::$foo[0]); unset(A::$foo[0]);");
MVCR("<?php $a = 10; unset($a); var_dump($a);");
MVCR("<?php $a = array(10); "
"function test() { global $a; unset($a[0]); var_dump($a);}"
"var_dump($a); test(); var_dump($a);");
MVCR("<?php $a = 10; unset($GLOBALS); var_dump($a);");
MVCR("<?php "
"function f1() {"
" $x = array(1,2,3);"
" unset($x[0]);"
" var_dump($x);"
"}"
"function f2() {"
" $x = array(1,2,3);"
" unset($x[0][0]);"
" var_dump($x);"
"}"
"function f3() {"
" $x = array(array(4,5,6),2,3);"
" unset($x[0][0]);"
" var_dump($x);"
"}"
"function f4() {"
" $x = array(array(4,5,6),2,3);"
" unset($x[0][0][0]);"
" var_dump($x);"
"}"
"f1();"
"f2();"
"f3();"
"f4();");
MVCR("<?php class A { public $arr;} $obj = new A; $obj->arr[] = 'test';"
"var_dump($obj->arr); unset($obj->arr); var_dump($obj->arr);");
MVCR("<?php function test() {$a=array(1,2,3); unset($a[0]);}");
MVCR("<?php "
"function foo() {"
" $a = 1;"
" $b = 2;"
" $c = 3;"
" unset($a, $b, $c);"
" var_dump($b);"
"}"
"foo();");
MVCR("<?php "
"$a = 1;"
"function foo() {"
" $GLOBALS['foo'] = 1;"
" unset($GLOBALS['foo']);"
" var_dump(array_key_exists('foo', $GLOBALS));"
" $g['foo'] = 1;"
" unset($g['foo']);"
" var_dump(array_key_exists('foo', $g));"
" var_dump(array_key_exists('a', $GLOBALS));"
" unset($GLOBALS['a']);"
" var_dump(array_key_exists('a', $GLOBALS));"
"}"
"foo();");
MVCR("<?php "
"class A {"
" var $a;"
" public function __construct($p) {"
" $this->a = $p;"
" }"
"};"
"$obj = new A(1);"
"var_dump($obj);"
"unset($obj->a);"
"var_dump($obj);"
"$obj->a = 2;"
"var_dump($obj);"
"$obj->b = 3;"
"var_dump($obj);"
"unset($obj->b);"
"var_dump($obj);"
"$obj->a = 2;"
"var_dump($obj);"
"$obj->b = 3;"
"var_dump($obj);"
"unset($obj->a, $obj->b);"
"var_dump($obj);");
MVCR("<?php "
"class X {"
" function __construct() { echo 'construct\n'; }"
" function __destruct() { echo 'destruct\n'; }"
"}"
"function test() {"
" $a = new X;"
" echo 'before unset\n';"
" unset($a);"
" echo 'after unset\n';"
"}"
"test();");
MVCR("<?php "
"function foo() { return 42; }"
"$a = foo();"
"var_dump((unset)foo());"
"var_dump((unset)$a);"
"var_dump($a);");
MVCR("<?php "
"function return_true() { return true; }\n"
"function f(&$x, $y) {\n"
" $x = $y;\n"
" if (return_true())\n"
" unset($x);\n"
" $x = 0;\n"
"}\n"
"$myvar = 10;f($myvar, 30);var_dump($myvar);");
MVCR("<?php\n"
"$a = array(0, 1);\n"
"$b = array(0, 1);\n"
"$a[0] =& $b;\n"
"$c =& $a;\n"
"unset($a[0][0]);\n"
"var_dump($a);\n");
MVCR("<?php\n"
"class A {\n"
" public function foo() {\n"
" unset($this);\n"
" var_dump($this);\n"
" }\n"
" public static function bar() {\n"
" unset($this);\n"
" var_dump($this);\n"
" }\n"
"}\n"
"function goo() {\n"
" unset($this);\n"
" var_dump($this);\n"
"}\n"
"$obj = new A;\n"
"$obj->foo(); \n"
"$obj->bar();\n"
"A::bar();\n"
"goo();\n"
"unset($this);\n"
"var_dump($this);\n");
MVCR("<?php "
"function rmv($a, $b) { unset($a[$b]); return $a; }"
"$a = array('foo');"
"$b = array();"
"var_dump(rmv($a, $b));");
MVCR("<?php\n"
"class cls {}\n"
"$obj = new cls;\n"
"$a = array(1,2);\n"
"unset($a[$obj]);\n"
"var_dump($a);\n");
MVCR("<?php\n"
"$a = array(1,2);\n"
"unset($a[1.5]);\n"
"var_dump($a);\n");
MVCR("<?php\n"
"$a = array(1,2);\n"
"unset($a[false]);\n"
"var_dump($a);\n");
MVCR("<?php\n"
"$a = array(1,2);\n"
"unset($a[true]);\n"
"var_dump($a);\n");
MVCR("<?php\n"
"$a = array(1,2, '' => 'foo');\n"
"unset($a[null]);\n"
"var_dump($a);\n");
return true;
}
bool TestCodeRun::TestReference() {
MVCR("<?php $idxa = array('a' => 1240430476);"
"$idxa = &$idxa['a'];");
MVCR("<?php $a = array(1, 'a'); $b = $a; "
"foreach ($b as $k => &$v) { $v = 'ok';} var_dump($a, $b);");
MVCR("<?php $a = array(1, 'test'); $b = $a; $c = &$b[0]; "
"$c = 10; var_dump($a, $b);");
// reference expressions
MVCR("<?php $a = &$b; $a = 10; var_dump($b);");
MVCR("<?php $a = 1; $b = $a; $a = 2; var_dump($b);");
MVCR("<?php $a = 1; $b = &$a; $c = $b; $a = 2; var_dump($b); var_dump($c);");
MVCR("<?php $a = 1; $b = &$a; $b = 2; var_dump($a);");
MVCR("<?php $a = 1; $b = &$a; $c = $b; $b = 2; var_dump($a); var_dump($c);");
MVCR("<?php $a = 1; $c = $b = &$a; $b = 2; var_dump($a); var_dump($c);");
MVCR("<?php $a = 1; $b = &$a; $c = 2; $b = $c; $c = 5; "
"var_dump($a); var_dump($b); var_dump($c);");
MVCR("<?php $a = 1; $b = &$a; $c = 2; $d = &$c; $b = $d; "
"var_dump($a); var_dump($b); var_dump($c); var_dump($d);");
MVCR("<?php $a = 1; $b = &$a; $c = 2; $d = &$c; $b = &$d; "
"var_dump($a); var_dump($b); var_dump($c); var_dump($d);");
MVCR("<?php $a = 10; $b = array(&$a); var_dump($b); "
"$a = 20; var_dump($b);");
MVCR("<?php $a = array(); $b = 10; $a[] = &$b; $b = 20; var_dump($a);");
MVCR("<?php $a = 10; $b = array('test' => &$a); var_dump($b); "
"$a = 20; var_dump($b);");
MVCR("<?php $a = array(); $b = 1; $a['t'] = &$b; $b = 2; var_dump($a);");
MVCR("<?php $a = array(1, 2); foreach ($a as $b) { $b++;} var_dump($a);");
MVCR("<?php $a = array(1, 2); foreach ($a as &$b) { $b++;} var_dump($a);");
MVCR("<?php $a = array(1, array(2,3)); "
"foreach ($a[1] as &$b) { $b++;} var_dump($a);");
// reference parameters
MVCR("<?php function f(&$a) { $a = 'ok';} "
"$a = 10; f($a); var_dump($a);");
MVCR("<?php function f(&$a) { $a = 'ok';} "
"$a = array(); $c = &$a['b']; $c = 'ok'; var_dump($a);");
MVCR("<?php function f(&$a) { $a = 'ok';} "
"$a = array(); $c = &$a['b']; f($c); var_dump($a);");
MVCR("<?php function f(&$a) { $a = 'ok';} "
"$a = array(); f($a['b']); var_dump($a);");
MVCR("<?php function f(&$a) { $a = 'ok';} class T { public $b = 10;} "
"$a = new T(); $a->b = 10; f($a->b); var_dump($a);");
MVCR("<?php function f(&$a) { $a = 'ok';} class T {} "
"$a = new T(); $a->b = 10; f($a->b); var_dump($a);");
MVCR("<?php function f(&$a) {} "
"$a = array(); f($a['b']); var_dump($a);");
MVCR("<?php function f(&$a) {} class T {} "
"$a = new T(); $a->b = 10; f($a->b); var_dump($a);");
// reference returns
MVCR("<?php $a = 10; function &f() { global $a; return $a;} "
"$b = &f(); $b = 20; var_dump($a);");
MVCR("<?php function &f() { $a = 10; return $a;} "
"$b = &f(); $b = 20; var_dump($b);");
MVCR("<?php $a = array(); function &f() { global $a; return $a['b'];} "
"$b = &f(); $b = 20; var_dump($a);");
MVCR("<?php function &f() { $a = array(); return $a['b'];} "
"$b = &f(); $b = 20; var_dump($b);");
// circular references
//VCR("<?php $a = array('a' => &$a); var_dump($a);");
//VCR("<?php $a = array('a' => &$a); $b = array($a); var_dump($b);");
MVCR("<?php\n"
"$a1 = array(&$a1, 1); $a2 = $a1; unset($a1);\n"
"$a2[0][] = 2;\n"
"var_dump($a2[0][0][0][2]);\n");
// shallow copy of members (either of arrays or objects)
MVCR("<?php function test($a) { $a[1] = 10; $a['r'] = 20;} "
"$b = 5; $a = array('r' => &$b); $a['r'] = 6; test($a); var_dump($a);");
MVCR("<?php "
"$a = array('a'=>0);"
"$ref = &$a['a'];"
"var_dump($a);"
"$b = $a;"
"var_dump($a,$b);"
"$b['a'] = 1;"
"var_dump($a,$b);"
"$a = array(0);"
"$ref = &$a[0];"
"var_dump($a);"
"$b = $a;"
"var_dump($a,$b);"
"$b[0] = 1;"
"var_dump($a,$b);"
);
if (!hhvm) {
// call-time pass by reference -- not supported in the VM
MVCRNW("<?php "
"function foo($u, $v, $w) {"
" $u = 10;"
" $v = 20;"
" $w = 20;"
"}"
"$u = 1;"
"$v = 2;"
"$w = 3;"
"foo(&$u, &$v, $w);"
"var_dump($u, $v, $w);");
}
// reference self assignment
MVCR("<?php "
"class A {"
" function t($a, $arr) {"
" }"
"}"
"class B extends A {"
" function t($a, $arr) {"
" var_dump($a);"
" $arr['hello'] = $a;"
" var_dump($a);"
" }"
"}"
"function f() {"
" return new B();"
"}"
"function test() {"
" $v = 100;"
" $arr['hello'] = $v;"
" $a = new B();"
" $a->t($arr['hello'], $arr);"
"}"
"test();"
"$arr = array('hello' => 1);"
"$x = &$arr['hello'];"
"$arr['hello'] = $x;"
"var_dump($arr);"
"function test2(&$a, $b) {"
" $a = $b;"
"}"
"$v = 10;"
"test2($v, $v);"
"var_dump($v);");
// reference, parameter & assignment
MVCR("<?php "
"function test(&$some_ref) {"
" $some_ref = 42;"
"}"
"test($some_ref = 1);"
"var_dump($some_ref);"
"$var = null;"
"test($var);"
"var_dump($var);"
"$var = null;"
"test($some_ref = $var);"
"var_dump($some_ref, $var);"
"$var = null;"
"test($some_ref = &$var);"
"var_dump($some_ref, $var);"
"function test2($some_ref) {"
" $some_ref = 42;"
"}"
"test2($some_ref = 1);"
"var_dump($some_ref);"
"$var = null;"
"test2($var);"
"var_dump($var);"
"$var = null;"
"test2($some_ref = $var);"
"var_dump($some_ref, $var);"
"$var = null;"
"test2($some_ref = &$var);"
"var_dump($some_ref, $var);");
MVCR("<?php "
"$foo = 123;"
"function &baz() {"
" global $foo;"
" return $foo;"
"}"
"function bar() {"
" $baz = 'baz';"
" return $baz();"
"}"
"function buz() {"
" global $foo;"
" return ($foo);"
"}"
"$a = &bar();"
"$a = 456;"
"var_dump($a, $foo);"
"$a = &buz();"
"$a = 789;"
"var_dump($a, $foo);");
MVCR("<?php "
"function &test(&$x) {"
" $x = 1;"
" return $x;"
"}"
"$x = 0;"
"$y = &test($x);"
"$y++;"
"var_dump($x, $y);");
MVCR("<?php "
"function foo(&$a) { var_dump($a++); }"
"function test() {"
" foo($a = 6);"
" $a = null;"
" foo($b += 5);"
" $b = null;"
" foo($c -= 5);"
" $c = null;"
" $e = 0;"
" foo(++$e);"
" $e = 5;"
" $g = 0;"
" foo(--$g);"
" $g = 7;"
" $h = null;"
" foo($h += 5);"
" $h = null;"
" foo($h -= 5);"
" $h = null;"
"}"
"test();");
MVCR("<?php "
"function foo() {"
" $perms = array('x' => 1);"
" $t = &$perms;"
" $t = $t['x'];"
" unset($t);"
" return $perms;"
"}"
"var_dump(foo());");
MVCR("<?php "
"$a = array();"
"$a[0][0] = $a;"
"var_dump($a);"
"$b[0][0] = $b;"
"var_dump($b);"
"$c[0] = $c;"
"var_dump($c);");
MVCR("<?php "
"function foo($x) {"
" var_dump($x[0]->foo['a']['b']);"
" $x[0]->foo['a']['b'] = 5;"
" var_dump($x);"
"}"
"foo(false);"
"function baz(&$x) {}"
"foreach ($x->foo[1]->prop as &$y) {}"
"var_dump($x);"
"baz($q->foo[1]->prop);"
"var_dump($q);"
"$y = &$z->foo[1]->prop;"
"var_dump($z);"
"function &fiz(&$x) {"
" return $x->foo[1]->prop;"
"}"
"fiz($w);"
"var_dump($w);");
MVCR("<?php "
"$x = 0;\n"
"$foo0 = isset($g) ? \"ref\" : \"val\";\n"
"$foo1 = isset($g) ? \"val\" : \"ref\";\n"
"function ref(&$a, $b) { echo \"$a $b\"; }\n"
"function val($a, $b) { echo \"$a $b\"; }\n"
"$foo0($x, $x = 5);\n"
"$foo1($x, $x = 5);\n");
MVCR("<?php\n"
"function f($arg0, $arg1) { var_dump($arg0, $arg1); }\n"
"function g(&$arg0, $arg1) { var_dump($arg0, $arg1); }\n"
"class A {\n"
" function f($f, $var) {\n"
" $f($this, $$var = 5);\n"
" }\n"
" function g($f, $var) {\n"
" $f($this, $var++);\n"
" }\n"
"}\n"
"$a = new A;\n"
"$a->f('f', 'this');\n"
"$a->f('g', 'this');\n"
"$a->g('f', 30);\n"
"$a->g('g', 30);\n");
MVCR("<?php "
"function foo($a, &$b, $c) {"
" $a+=1;"
" $b+=2;"
" $c+=3;"
" var_dump($a,$b,$c);"
"}"
"function bar(&$a, &$b, &$c) {"
" $a+=1;"
" $b+=2;"
" $c+=3;"
" var_dump($a,$b,$c);"
"}"
"function test($fn, $arg) {"
" $fn($arg, $arg, $arg);"
" var_dump($arg);"
"}"
"test('foo', 1);"
"test('bar', 1);");
MVCR("<?php "
"class X {"
" public $x = 10;"
" function __destruct() {"
" var_dump('destruct');"
" $this->x = 0;"
" }"
"}"
"function test(&$a, $b) {"
" var_dump($a, $b);"
"}"
"function f($x) {"
" unset($GLOBALS['a']);"
" return 1;"
"}"
"$a = array(new X);"
"test($a[0], f(1));");
MVCR("<?php "
"function test(&$some_ref) { $some_ref = 42; }"
"function bar() { return 'test'; }"
"$p = bar();"
"$p($some_ref = 1);"
"var_dump($some_ref);"
"$p($some_ref = &$q);"
"var_dump($some_ref,$q);");
MVCR("<?php "
"function foo(&$x, $y) { $x++; var_dump($x); }"
"function bar(&$x, $y, $f) {"
" $f($x, $x = &$y);"
" foo($x, $x = &$y);"
" foo($y, $y = 2);"
"}"
"$x = 0;"
"bar($x, $x, 'foo');"
"var_dump($x);");
MVCR("<?php "
"function f($x) {"
" global $u;"
" if (isset($u)) return null;"
" return $x;"
"}"
"function test($a) {"
" $a++;"
" return $a;"
"}"
"function &foo() {"
" return $GLOBALS['x'];"
"}"
"$x = 1;"
"test(foo());"
"var_dump($x);"
"$f = f('foo');"
"$x = 1;"
"test($f());"
"var_dump($x);"
"$t = f('test');"
"$x = 1;"
"$t(foo());"
"var_dump($x);");
MVCR("<?php "
"function test() {"
" $x =& $y;"
" $x = false;"
" $y .= 'hello';"
" echo $x;"
"}"
"test();");
return true;
}
bool TestCodeRun::TestDynamicConstants() {
MVCR("<?php function foo($a) { return $a + 10;} define('TEST', foo(10)); "
"var_dump(TEST);");
MVCR("<?php function foo() { global $g; return $g ? -1 : 15;} "
"var_dump(TEST); define('TEST', foo()); var_dump(TEST);");
MVCR("<?php if (true) define('TEST', 1); else define('TEST', 2); "
"var_dump(TEST);");
MVCR("<?php var_dump(TEST); define('TEST', 1); var_dump(TEST); "
"define('TEST', 2); var_dump(TEST);");
MVCR("<?php if (false) define('TEST', 1); else define('TEST', 2); "
"var_dump(TEST);");
MVCR("<?php var_dump(defined('TEST')); var_dump(TEST);"
"define('TEST', 13);"
"var_dump(defined('TEST')); var_dump(TEST);");
MVCR("<?php define('FOO', BAR); define('BAR', FOO); echo FOO; echo BAR;");
MVCR("<?php define('A', 10); class T { static $a = array(A); } "
"define('A', 20); var_dump(T::$a);");
return true;
}
bool TestCodeRun::TestDynamicVariables() {
// r-value
MVCR("<?php $a = 1; function t() { global $a;$b = 'a'; var_dump($$b);} t();");
MVCR("<?php $a = 1; function t() { $b = 'a'; var_dump($$b);} t();");
MVCR("<?php function t() { $a = 'test'; $b = 'a'; var_dump($$b);} t();");
MVCR("<?php $a = 'test'; $b = 'a'; var_dump($$b);");
MVCR("<?php $a = 1; class A { public function t() { global $a; $b = 'a'; var_dump($$b);}} $obj = new A(); $obj->t();");
// l-value
MVCR("<?php $a = 'test'; $b = 'a'; $$b = 'ok'; var_dump($a);");
MVCR("<?php $a = 'test'; $b = 'a'; $$b = 10; var_dump($a);");
MVCR("<?php $a = 'd'; var_dump($$a); $$a = 10; var_dump($$a); var_dump($d);");
// ref-value
MVCR("<?php $a = 'test'; $b = 'a'; $c = &$$b; $c = 10; var_dump($a);");
// extract
MVCR("<?php extract(array('a' => 'aval')); var_dump($a);");
MVCR("<?php extract(array('a' => 'ok')); $a = 1; var_dump($a);");
MVCR("<?php $a = 1; extract(array('a' => 'ok'), EXTR_SKIP); var_dump($a);");
MVCR("<?php $a = 1; extract(array('a' => 'ok'), EXTR_PREFIX_SAME, 'p');"
" var_dump($p_a);");
MVCR("<?php extract(array('a' => 'ok'), EXTR_PREFIX_ALL, 'p');"
" var_dump($p_a);");
MVCR("<?php extract(array('ok'), EXTR_PREFIX_INVALID, 'p'); var_dump($p_0);");
MVCR("<?php $a = null; extract(array('a' => 'ok'), EXTR_IF_EXISTS); var_dump($a);");
MVCR("<?php $a = null; extract(array('a' => 'ok', 'b' => 'no'), EXTR_PREFIX_IF_EXISTS, 'p'); var_dump($p_a); var_dump($b); var_dump($p_b);");
MVCR("<?php $a = 'ok'; extract(array('b' => &$a), EXTR_REFS); $b = 'no'; var_dump($a);");
MVCR("<?php $a = 'ok'; $arr = array('b' => &$a); extract($arr, EXTR_REFS); $b = 'no'; var_dump($a);");
MVCR("<?php\n"
"function f() {\n"
" $arr = array(1 => 2, '1d' => 3);\n"
" extract($arr);\n"
" $vars = get_defined_vars(); asort($vars); var_dump($vars);\n"
"}\n"
"f();\n");
MVCR("<?php\n"
"$a = 123;\n"
"$b = 456;\n"
"function foo() {\n"
" global $a;\n"
" $b = &$GLOBALS['b'];\n"
" $d = 789; $e = 111;\n"
" $c = &$d;\n"
" $arr = get_defined_vars(); ksort($arr); var_dump($arr); return $arr;\n"
"}\n"
"function bar($arr) {\n"
" extract($arr, EXTR_REFS);\n"
" var_dump($a, $b, $c, $d, $e);\n"
" $a = 'aaa'; $b = 'bbb'; $c = 'ccc';\n"
" var_dump($d);\n"
"}"
"bar(foo());\n"
"var_dump($a, $b);\n"
);
// compact
MVCR("<?php function test() { $a = 10; $b = 'test'; "
" var_dump(compact('ab')); "
" var_dump(compact('a', 'ab', 'b')); "
" var_dump(compact('a', array('ab', 'b')));"
"} test(); ");
MVCR("<?php\n"
"function f() { return true; }\n"
"function test() {\n"
" $a = 100;\n"
" if (compact('a', 'b')) { }\n"
" var_dump(compact('a', 'b'));\n"
" if (f()) $b = 1; else $b = new Exception();\n"
" return $b;\n"
"}\n"
"test();\n");
MVCR("<?php "
"function f() { return 3; }"
"function test($f) {"
" $x = $f();"
" return compact('x');"
"}"
"var_dump(test('f'));");
MVCR("<?php\n"
"function foo($a) {\n"
" while ($a--) {\n"
" if (!$a) {\n"
" var_dump(compact('x', 'y'));\n"
" }\n"
" $x = $a;\n"
" $y = $a * $a;\n"
" }\n"
"}\n"
"foo(4);\n");
// get_defined_vars
MVCR("<?php\n"
"function simple_getdefined_test() {\n"
" $a = 'a';\n"
" var_dump(get_defined_vars());\n"
"}\n"
"simple_getdefined_test();\n"
);
MVCR("<?php "
"function foo() {"
" static $b = 20;"
" global $d;"
" $a = 10;"
" $b = 'c';"
" $$b = 20;"
" $gdv = get_defined_vars();"
" var_dump(isset($gdv['a']) && $gdv['a'] === 10);"
" var_dump(isset($gdv['b']) && $gdv['b'] === 'c');"
" var_dump(isset($gdv['c']) && $gdv['c'] === 20);"
" var_dump(isset($gdv['d']) && $gdv['d'] === 2.1);"
"}"
"$d = 2.1;"
"foo();"
"var_dump(isset($ggdv['argc']));"
"var_dump(isset($ggdv['argv']));"
"var_dump(isset($ggdv['_SERVER']));"
"var_dump(isset($ggdv['_GET']));"
"var_dump(isset($ggdv['_POST']));"
"var_dump(isset($ggdv['_COOKIE']));"
"var_dump(isset($ggdv['_FILES']));"
"var_dump(isset($ggdv['d']));"
);
MVCR("<?php "
"function foo(array $test) {"
" foreach ($test AS $var) {"
" global $$var;"
" $$var = $var . 'foo';"
" }"
"}"
"foo(array('a', 'b'));"
"var_dump($a, $b);");
MVCR("<?php "
"function test($a) {"
" $b = 5;"
" global $$a;"
" var_dump($b);"
"}"
"test('b');");
MVCR("<?php "
"$x = 'stuff';"
"$stuff = 1234;"
"echo \"${$x}\";");
MVCR("<?php "
"$i = 1;"
"$j = 2;"
"$k = 3;"
"$v = 'i';"
"var_dump($$v);"
"$v = 'j';"
"var_dump($$v);"
"$v = 'k';"
"var_dump($$v);"
"$v = '_FILES';"
"var_dump($$v);"
"$v = 'l';"
"var_dump($$v);"
"if (true) {"
" class A{"
" const C = 1;"
" }"
"} else {"
" class A{"
" const C = 1;"
" }"
"}"
"function foo($p) {"
" var_dump($p::C);"
"}"
"foo('A');");
MVCR("<?php\n"
"$MY_VAR_a = 123;\n"
"function foo() {\n"
" global $MY_VAR_a;\n"
" $arr = get_defined_vars();\n"
" asort($arr);\n"
" var_dump($arr);\n"
" return $arr;\n"
"}\n"
"foo();\n");
MVCR("<?php\n"
"function foo() {\n"
" $arr = get_defined_vars();\n"
" var_dump($arr);\n"
" return $arr;\n"
"}\n"
"foo();\n");
return true;
}
bool TestCodeRun::TestDynamicProperties() {
MVCR("<?php class A { public $a = 1;} "
"class B extends A { "
" public $m = 10;"
" public function test() { "
" $b = 'a';"
" $this->$b = 'test'; var_dump($this->$b); var_dump($this->a);"
" $c = &$this->$b; $c = array(1); var_dump($this->a);"
" }"
"} $obj = new B(); $obj->test();");
MVCR("<?php class A { public $a = 1;} class B { public $a = 2;} "
"$obj = 1; $obj = new A(); var_dump($obj->a);");
MVCR("<?php "
"class A { } "
"function f(&$a) { $a = 1000; } "
"$a = new A(); $f = 10; $a->$f = 100; var_dump($a); "
"var_dump((array)$a); "
"$f = 100; "
"f($a->$f); "
"foreach ($a as $k => &$v) { var_dump($k); $v = 1; } "
"var_dump($a); ");
return true;
}
bool TestCodeRun::TestDynamicFunctions() {
MVCR("<?php function test() { print 'ok';} $a = 'Test'; $a();");
MVCR("<?php function test($a) { print $a;} $a = 'Test'; $a('ok');");
MVCR("<?php function test($a, $b) { print $a.$b;} $a = 'Test'; $a('o','k');");
MVCR("<?php function t($a = 'k') { print $a;} "
"$a = 'T'; $a(); $a('o');");
MVCR("<?php function t($a, $b = 'k') { print $a.$b;} "
"$a = 'T'; $a('o'); $a('o', 'p');");
MVCR("<?php function t($a, $b = 'k', $c = 'm') { print $a.$b.$c;} "
"$a = 'T'; $a('o'); $a('o', 'p'); $a('o', 'p', 'q');");
MVCR("<?php function test() { var_dump(func_get_args());} "
"$a = 'Test'; $a();");
MVCR("<?php function test($a) { var_dump(func_get_args());} "
"$a = 'Test'; $a(1); $a(1, 2);");
MVCR("<?php function test($a, $b) { var_dump(func_get_args());} "
"$a = 'Test'; $a(1, 2); $a(1, 2, 3); $a(1, 2, 3, 4);");
MVCR("<?php function t($a = 'k') { var_dump(func_get_args());} "
"$a = 'T'; $a(); $a('o'); $a('o', 'p'); $a('o', 'p', 'q');");
MVCR("<?php function t($a, $b = 'k') { var_dump(func_get_args());} "
"$a = 'T'; $a('o'); $a('o', 'p'); $a('o', 'p', 'q');");
MVCR("<?php function t($a, $b = 'k', $c = 'q') { var_dump(func_get_args());} "
"$a = 'T'; $a('o'); $a('o', 'p'); $a('o', 'p', 'q');");
MVCR("<?php function test(&$a, $b) { $a = 'ok';} $a = 'Test'; "
"$a($a, 10); print $a;");
MVCR("<?php $a = 'test'; function &test() { global $a; return $a;} "
" $b = $a(); $b = 'ok'; var_dump($a); "
" $b = &$a(); $b = 'ok'; var_dump($a);");
MVCR("<?php function test($a, $b) { print $a.$b;} $a = 'Test'; $y = 'kqq'; "
"$a('o',$y[0]);");
MVCR("<?php function test($a, $b) { print $a.$b;} $a = 'Test'; "
"$y = array('k','q','q'); $a('o',$y[0]);");
MVCR("<?php "
"$a = 'test';"
"if ($a) {"
" function bar() {}"
"} else {"
" function bar() {}"
"}"
"function foo() {}"
"function goo(&$p) {}"
"$goo = 'goo';"
"goo(foo());"
"$goo(foo());"
"bar(foo());");
// Test dynamically calling a builtin that is RefVariableArguments
MVCR("<?php "
"if ($argc > 100) { $f = 'var_dump'; } else { $f = 'sscanf'; }"
"$auth = \"24\\tLewis Carroll\";"
"$n = $f($auth, \"%d\\t%s %s\", $id, $first, $last);"
"echo \"$id,$first,$last\\n\";");
// Test dynamically calling a builtin that is MixedVariableArguments
MVCR("<?php "
"function bar($flag) {"
" $arr = array(array('b' => 3, 'a' => 2, 'c' => 1),"
" array('x' => 6, 'y' => 4, 'z' => 5),"
" array('p' => 8, 'q' => 9, 'r' => 7));"
" if ($flag) { $f = 'var_dump'; } else { $f = 'array_multisort'; }"
" $f($arr[0], $arr[1], $arr[2]);"
" var_dump($arr);"
"}"
"bar($argc > 100);");
return true;
}
bool TestCodeRun::TestRenameFunction() {
OptionSetter w0(this, OptionSetter::CompileTime,
"-vDynamicInvokeFunctions.*=test1 "
"-vDynamicInvokeFunctions.*=test2");
OptionSetter w1(this, OptionSetter::RunTime,
"-vEval.JitEnableRenameFunction=true");
MVCRO("<?php "
"function test1() { print __FUNCTION__;} "
"function test2() { print __FUNCTION__;} "
"fb_rename_function('test2', 'test3');"
"fb_rename_function('test1', 'test2'); teSt2();"
"fb_rename_function('test2', 'test3'); teSt2();"
,
"test1test1"
);
MVCRO("<?php\n"
"function one() { echo 'one';}\n"
"fb_rename_function('one', 'two');\n"
"fb_rename_function('two', 'three');\n"
"three();",
"one");
MVCRO("<?php "
"function test1() { echo \"test1\n\"; }"
"function test3() { echo \"test3\n\"; }"
"function baz($test1, $test2) {"
" var_dump(function_exists(\"Test1\"));"
" var_dump(function_exists(\"tEst2\"));"
" var_dump(function_exists($test1));"
" var_dump(function_exists($test2));"
"}"
"baz(\"teSt1\", \"test2\");"
"fb_rename_function(\"test1\", \"test2\");"
"baz(\"TEst1\", \"test2\");"
"fb_rename_function(\"test3\", \"test1\");"
"baz(\"test1\", \"test2\");"
"test1();"
"test2();",
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"test3\n"
"test1\n");
MVCRO("<?php\n"
"function one() { echo 'one';}\n"
"fb_renamed_functions(array('one', 'three'));\n"
"var_dump(fb_rename_function('one', 'two'));\n",
"bool(true)\n");
MVCR("<?php "
"function err($code,$msg) { var_dump($code,$msg); }"
"set_error_handler('err');"
"function test1() {}"
"function test2() {}"
"fb_rename_function('test1', 'test3');"
"fb_rename_function('test2', 'test1');"
"fb_rename_function('test1', 'test2');"
"fb_rename_function('test3', 'test1');");
MVCRO("<?php "
"function test1() {"
" var_dump(__METHOD__);"
"}"
"function test2() {"
" var_dump(__METHOD__);"
"}"
"function test($test) {"
" test1();"
" TeSt1();"
" $test();"
" $test = strtolower($test);"
" $test(1,2,3);"
"}"
"test('Test1');"
"fb_rename_function('tEst1', 'fiz');"
"fb_rename_function('test2', 'Test1');"
"test('teSt1');",
"string(5) \"test1\"\n"
"string(5) \"test1\"\n"
"string(5) \"test1\"\n"
"string(5) \"test1\"\n"
"string(5) \"test2\"\n"
"string(5) \"test2\"\n"
"string(5) \"test2\"\n"
"string(5) \"test2\"\n");
return true;
}
bool TestCodeRun::TestIntercept() {
OptionSetter w0(this, OptionSetter::Env, "ENABLE_INTERCEPT=1");
OptionSetter w1(this, OptionSetter::RunTime,
"-vEval.JitEnableRenameFunction=true");
MVCRO("<?php "
"$a = 10; $b = 20;"
"function &foo(&$n, $p) { global $a; $n = 123; $p += 1; "
" var_dump('foo');"
"return $a;}"
"function &bar(&$n, $p) { global $b; $n = 456; $p += 2; "
" var_dump('bar');"
"return $b;}"
"fb_intercept('foo', 'fb_stubout_intercept_handler', 'bar');"
"$n = 0; $d = 3; $c = &foo($n, $d); var_dump($c, $d); $c = 30;"
//"var_dump($a, $b, $n);"
,
"string(3) \"bar\"\nint(20)\nint(3)\n"
//"int(10)\nint(30)\nint(456)\n"
);
MVCRO("<?php "
"$a = 10; $b = 20;"
"class A {"
"function &foo(&$n, $p) { global $a; $n = 123; $p += 1; "
" var_dump('foo');"
"return $a;}"
"}"
"class B {"
"function &bar(&$n, $p) { global $b; $n = 456; $p += 2; "
" var_dump('bar');"
"return $b;}"
"}"
"fb_intercept('A::foo', 'fb_stubout_intercept_handler', 'B::bar');"
"$n = 0; $d = 3; $c = &A::foo($n, $d); var_dump($c, $d); $c = 30;"
//"var_dump($a, $b, $n);"
,
"string(3) \"bar\"\nint(20)\nint(3)\n"
//"int(10)\nint(30)\nint(456)\n"
);
MVCRO("<?php "
"function foo(&$a) {"
" var_dump('foo');"
" $a = 1;"
"}"
"function bar(&$a) {"
" var_dump('bar');"
" $a = 2;"
"}"
"function goo($name, $obj, $params, $data, &$done) {"
" return call_user_func_array($data, $params);"
"}"
"fb_intercept('foo', 'goo', 'bar');"
"$a = 0;"
"foo($a);"
"var_dump($a);",
"string(3) \"bar\"\n"
"int(2)\n");
MVCRO("<?php "
"function test() {"
" define('X', 2);"
" define('Y', 3);"
" fb_intercept('foo', 'bar');"
" var_dump(X);"
" define('Y', 4);"
" var_dump(Y);"
"}"
"test();",
"int(2)\n"
"int(3)\n");
MVCRO("<?php"
"class X {"
" static function foo() { global$g; return $g; }"
"}"
"function bar() {"
" var_dump('Intercepted');"
"}"
"function test() {"
" X::foo();"
" fb_intercept('X::foo', 'bar', 'bar');"
" X::foo();"
"}"
"test();",
"string(11) \"Intercepted\"\n");
return true;
}
bool TestCodeRun::TestMaxInt() {
MVCR("<?php "
"$val1 = ~PHP_INT_MAX; "
"$val2 = PHP_INT_MAX; "
"var_dump($val1); "
"var_dump($val2); "
);
return true;
}
bool TestCodeRun::TestDynamicMethods() {
OptionSetter w(this, OptionSetter::CompileTime, "-vAllDynamic=1");
MVCR("<?php "
"class A { public function test() { print 'in A';} } "
"class B extends A { public function test() { print 'in B';} } "
"$obj = new B(); "
"call_user_func_array(array($obj, 'A::test'), array());");
MVCR("<?php $i = 'gi'; $s = 'gs'; class A { "
"public function &dyn_test(&$a) { global $i; $a = $i; return $i;}} "
"$obj = new A(); $f = 'dyn_test'; "
"$c = &$obj->$f($b); var_dump($b); var_dump($c);");
MVCR("<?php $i = 'gi'; $s = 'gs'; class A { "
"public static function &dyn_test(&$a) "
"{ global $s; $a = $s; return $s;}} "
"$f = 'dyn_test'; $e = A::$f($d); var_dump($d); var_dump($e);");
MVCR("<?php class dyn_A{} class B{} $cls = 'dyn_a'; $a = new $cls();");
MVCR("<?php class A { function _test() { print 'ok';} "
"function __call($name, $args) { $name = '_'.$name; $this->$name();} } "
"$obj = new A(); $obj->test();");
MVCR("<?php class A { function test($a, $b) { var_dump($a, $b);} } "
"$m = 'test'; $o = new A();"
"$ar = array(0,1); $st = 'abc';"
"$o->$m($ar[0], $st[0]); A::$m($ar[1], $st[1]);");
{
OptionSetter w(this, OptionSetter::CompileTime,
"-v DynamicMethodPrefix.*=_");
MVCR("<?php class A { function _test() { print 'ok';} "
"function __call($name, $args) { $name = '_'.$name; $this->$name();} }"
"$obj = new A(); $obj->test();");
}
MVCR("<?php "
"class z {"
" function minArgTest($a1, $a2, $a3, $a4, $a5, $a6, $a7, $a8, $a9, $a10,"
" $a11=true, $a12 = true) {"
" var_dump($a1);"
" var_dump($a2);"
" var_dump($a3);"
" var_dump($a4);"
" var_dump($a5);"
" var_dump($a6);"
" var_dump($a7);"
" var_dump($a8);"
" var_dump($a9);"
" var_dump($a10);"
" var_dump($a11);"
" var_dump($a12);"
" }"
" function varArgsTest() {"
" $args = func_get_args();"
" var_dump($args);"
" }"
" function varArgsTest2($a1, $a2) {"
" $args = func_get_args();"
" var_dump($args);"
" }"
" function refTestHelper(&$x) {"
" $x *= 2;"
" }"
"}"
"function refTest($q) {"
" if (false) { $q = 1; }"
" $x = 1;"
" $q->refTestHelper($x);"
" var_dump($x);"
"}"
"$q = new z;"
"$f = 'minArgTest';"
"$q->minArgTest('one',2,3.333,4,5,6,7,8,9,10);"
"$q->minArgTest('one',2,3.333,4,5,6,7,8,9,10,11,12);"
"$q->$f('one',2,3.333,4,5,6,7,8,9,10);"
"$q->$f('one',2,3.333,4,5,6,7,8,9,10,11,12);"
"refTest($q);"
"$f = 'varArgsTest';"
"$q->varArgsTest('one',2,3.333,4,5,6,7,8,9,10);"
"$q->varArgsTest('one',2,3.333,4,5,6,7,8,9,10,11,12);"
"$q->$f('one',2,3.333,4,5,6,7,8,9,10);"
"$q->$f('one',2,3.333,4,5,6,7,8,9,10,11,12);"
"$f = 'varArgsTest2';"
"$q->varArgsTest2('one',2,3.333,4,5,6,7,8,9,10);"
"$q->varArgsTest2('one',2,3.333,4,5,6,7,8,9,10,11,12);"
"$q->$f('one',2,3.333,4,5,6,7,8,9,10);"
"$q->$f('one',2,3.333,4,5,6,7,8,9,10,11,12);");
MVCR("<?php "
"class z {"
" function __construct() { echo 'construct'; }"
" function z() { echo 'method'; }"
"}"
"$z = new z;"
"$z->z();");
MVCR("<?php "
"function bar() {"
" echo 'bar called';"
"}"
"class foo {"
" public $functions = array();"
" function foo() {"
" $function = 'bar';"
" print($function);"
" print($function());"
" $this->functions['test'] = $function;"
" print($this->functions['test']());"
" }"
"}"
"$a = new foo ();");
MVCR("<?php "
"function t($x) {"
" var_dump($x);"
"}"
"$x = array(1,2,3);"
"array_map('t', $x);"
"class z {"
" function q() {"
" $x = array(1,2,3);"
" array_map(array('self', 'p'), $x);"
" }"
" function p($x) {"
" var_dump($x);"
" }"
"}"
"$m = new z();"
"$m->q();");
MVCR("<?php "
"class A {"
" function foo(&$test) {"
" $test = 10;"
" }"
"}"
"$obj = new A();"
"$method = 'foo';"
"$obj->$method($aa[3]);"
"var_dump($aa);");
MVCR("<?php "
"abstract class Parent_ {"
" protected function overridden() {"
" var_dump(isset($this), __METHOD__);"
" }"
" protected function calledHere() {"
" if (isset($this)) {"
" $this->overridden();"
" } else {"
" static::overridden();"
" }"
" }"
"}"
"class Child extends Parent_ {"
" protected final function overridden() {"
" var_dump(isset($this), __METHOD__);"
" }"
" protected function calledHere() {"
" var_dump(__METHOD__);"
" }"
" public function entry($fun = 'calledHere') {"
" self::callParent($fun);"
" }"
" function callParent($fun) {"
" parent::$fun();"
" if (isset($this)) {"
" $this::$fun();"
" }"
" }"
"}"
"$c = new Child;"
"$c->entry();"
"$c->entry('overridden');"
"Child::entry();"
"Child::callParent('calledHere');"
"Child::callParent('overridden');");
return true;
}
bool TestCodeRun::TestVolatile() {
MVCR("<?php "
"for ($i = 0; $i < 4; $i++) {"
" if ($i > 1 && !defined('CON')) {"
" define(/*|Dynamic|*/'CON', 1);"
" }"
" if (defined('CON')) {"
" var_dump(CON);"
" } else {"
" echo \"CON does not exists\\n\";"
" }"
"}"
"for ($i = 0; $i < 4; $i++) {"
" if ($i > 1 && !function_exists('foo')) {"
" function foo() {"
" echo \"foo called\\n\";"
" }"
" }"
" if (function_exists('foo')) {"
" foo();"
" } else {"
" echo \"foo does not exists\\n\";"
" }"
"}"
"for ($i = 0; $i < 4; $i++) {"
" if ($i > 1 && !class_exists('bar')) {"
" class bar {"
" function bar() { echo \"bar called\\n\"; }"
" }"
" }"
" if (class_exists('bar')) {"
" $a = new bar;"
" } else {"
" echo \"bar does not exists\\n\";"
" }"
"}");
MVCR("<?php "
"function bar() {"
" for ($i = 0; $i < 4; $i++) {"
" if ($i > 1 && !function_exists('foo')) {"
" function foo() {"
" echo \"foo called\\n\";"
" }"
" }"
" $foo = 'foo';"
" if (function_exists($foo)) {"
" foo();"
" } else {"
" echo \"foo does not exists\\n\";"
" }"
" }"
" for ($i = 0; $i < 4; $i++) {"
" if ($i > 1 && !class_exists('goo')) {"
" class goo {"
" function goo() {"
" echo \"goo called\\n\";"
" }"
" }"
" }"
" $goo = 'goo';"
" if (class_exists($goo)) {"
" $a = new goo();"
" } else {"
" echo \"goo does not exists\\n\";"
" }"
" }"
"}"
"if (function_exists('bar')) bar();"
"$a = 'bar';"
"if (function_exists($a)) bar();"
"$a = 'later';"
"if (function_exists($a)) {"
" echo \"later exists\\n\";"
"} else {"
" echo \"later does not exists\\n\";"
"}"
"$a = 'later2';"
"if (class_exists($a)) {"
" echo \"later2 exists\\n\";"
"} else {"
" echo \"later2 does not exists\\n\";"
"}"
"$a = 'later3';"
"if (function_exists($a)) {"
" echo \"later3 exists\\n\";"
"} else {"
" echo \"later3 does not exists\\n\";"
"}"
"$a = 'later4';"
"if (class_exists($a)) {"
" echo \"later4 exists\\n\";"
"} else {"
" echo \"later4 does not exists\\n\";"
"}"
"function later3() {"
" echo \"later3 called\\n\";"
"}"
"class later4 {"
"}"
"if (function_exists('function_exists')) {"
" echo \"yes\\n\";"
"}"
"if (class_exists('exception')) {"
" echo \"yes\\n\";"
"}");
MVCR("<?php "
"function foo() {"
" if (!defined('Auth_OpenID_NO_MATH_SUPPORT')) {"
" define('Auth_OpenID_NO_MATH_SUPPORT', true);"
" }"
"}"
"function bar() {"
" return defined('Auth_OpenID_NO_MATH_SUPPORT');"
"}"
"if (defined('M_PI')) {"
" var_dump(bar());"
" foo();"
" var_dump(bar());"
"}");
MVCR("<?php "
"function foo() {"
" if (!interface_exists('MyInterface')) {"
" interface MyInterface{};"
" echo 'no';"
" } else {"
" echo 'yes';"
" }"
"}"
"foo();"
"foo();");
MVCR("<?php "
"function foo() {"
" if (function_exists('bar')) {"
" echo \"yes\\n\";"
" } else {"
" echo \"no\\n\";"
" }"
" function bar() {"
" echo \"bar\\n\";"
" }"
" if (function_exists('bar')) {"
" echo \"yes\\n\";"
" } else {"
" echo \"no\\n\";"
" }"
"}"
"foo();");
MVCR("<?php "
"function foo() {"
" if (class_exists('bar')) {"
" echo \"yes\\n\";"
" } else {"
" echo \"no\\n\";"
" }"
" class bar {"
" }"
" if (class_exists('bar')) {"
" echo \"yes\\n\";"
" } else {"
" echo \"no\\n\";"
" }"
"}"
"foo();");
// Autoloading
MVCR("<?php "
"function z() {"
" var_dump('__autoload');"
" var_dump(class_exists('cNew'));"
" var_dump(class_exists('cNew_r'));"
" var_dump(class_exists('cNew_d'));"
" var_dump(class_exists('csm'));"
" var_dump(class_exists('csm_r'));"
" var_dump(class_exists('CcOn'));"
" var_dump(class_exists('CcOn_r'));"
" var_dump(class_exists('CcOn_d'));"
" var_dump(class_exists('csmeth'));"
" var_dump(class_exists('csmeth_r'));"
" var_dump(class_exists('csmeth_d'));"
" var_dump(class_exists('cpar'));"
" var_dump(class_exists('cpar_r'));"
" var_dump(class_exists('cref'));"
" var_dump(class_exists('cex'));"
"}"
"function test() {"
" function t1() {"
" new cNew();"
" }"
" t1();"
" function t2() {"
" new cNew_r();"
" }"
" t2();"
" function t4() {"
" $x = 'cNew_d';"
" new $x();"
" }"
" t4();"
" function t5() {"
" var_dump(csm::$mem);"
" }"
" t5();"
" function t6() {"
" var_dump(csm_r::$mem);"
" }"
" t6();"
" function t7() {"
" var_dump(CcOn::C);"
" }"
" t7();"
" function t8() {"
" var_dump(CcOn_r::C);"
" }"
" t8();"
" function t9() {"
" var_dump(constant('CcOn_d::C'));"
" }"
" t9();"
" function t10() {"
" csmeth::m();"
" }"
" t10();"
" function t11() {"
" csmeth_r::m();"
" }"
" t11();"
" function t12() {"
" call_user_func(array('csmeth_d', 'm'));"
" }"
" t12();"
" function t13() {"
" class a extends cpar {}"
" new a;"
" }"
" t13();"
" function t14() {"
" class b extends cpar_r {}"
" new b;"
" }"
" t14();"
" function t15() {"
" new ReflectionClass('cref');"
" }"
" t15();"
" function t16() {"
" var_dump(class_exists('cex'));"
" }"
" t16();"
" function t17() {"
" var_dump(class_exists('cex_r'));"
" }"
" t17();"
"}"
"test();"
"z();"
"function __autoload($name) {"
" var_dump('autoload ' . $name);"
" switch ($name) {"
" case 'cNew':"
" class cNew {}"
" break;"
" case 'cNew_r':"
" class cNew_r {}"
" if (false) {"
" class cNew_r {}"
" }"
" break;"
" case 'cNew_d':"
" class cNew_d {}"
" break;"
" case 'csm':"
" class csm {"
" public static $mem = 1;"
" }"
" break;"
" case 'csm_r':"
" class csm_r {"
" public static $mem = 1;"
" }"
" if (false) {"
" class csm_r {}"
" }"
" break;"
" case 'CcOn':"
" class CcOn {"
" const C = 2;"
" }"
" break;"
" case 'CcOn_r':"
" class CcOn_r {"
" const C = 2;"
" }"
" if (false) {"
" class CcOn_r {}"
" }"
" break;"
" case 'CcOn_d':"
" class CcOn_d {"
" const C = 2;"
" }"
" break;"
" case 'csmeth':"
" class csmeth {"
" public static function m() { echo '1\n'; }"
" }"
" break;"
" case 'csmeth_r':"
" class csmeth_r {"
" public static function m() { echo '1'; }"
" }"
" if (false) {"
" class csmeth_r {}"
" }"
" break;"
" case 'csmeth_d':"
" class csmeth_d {"
" public static function m() { echo '1'; }"
" }"
" break;"
" case 'cpar':"
" class cpar {}"
" break;"
" case 'cpar_r':"
" class cpar_r {}"
" if (false) {"
" class cpar_r {}"
" }"
" break;"
" case 'cref':"
" class cref {}"
" break;"
" case 'cex':"
" class cex {}"
" break;"
" case 'cex_r':"
" class cex_r {}"
" if (false) {"
" class cex_r {}"
" }"
" break;"
" }"
"}");
MVCR("<?php "
"class_exists('c');"
"class c {"
" const A = 'a';"
" const B = 'b';"
" const C = 'c';"
" const D = 'd';"
" public static $S = array("
" self::A,"
" self::B,"
" self::C,"
" self::D);"
"}"
"var_dump(c::$S);");
MVCR("<?php "
"class B {}"
"class A extends B {"
" static function make() {"
" $b = new parent();"
" $a = new self();"
" }"
"}"
"if (false) { class A {};}"
"A::make();");
MVCR("<?php "
"function foo($a) {"
" if ($a) {"
" class A {}"
" }"
"}"
"foo(true);"
"function bar() {"
" if (class_exists('A')) {"
" class C extends A { }"
" $obj = new C;"
" var_dump($obj);"
" } else {"
" var_dump('no');"
" }"
"}"
"bar();");
MVCR("<?php "
"function foo($a) {"
" if ($a) {"
" interface A {}"
" }"
"}"
"foo(true);"
"function bar() {"
" if (interface_exists('A')) {"
" class C implements A { }"
" $obj = new C;"
" var_dump($obj);"
" } else {"
" var_dump('no');"
" }"
"}"
"bar();");
MVCR("<?php "
"if (class_exists('B')) {"
" class A extends B {"
" public function f() {"
" var_dump('A');"
" }"
" }"
"}"
"var_dump(class_exists('C'));"
"class B extends C {"
" public function f() {"
" var_dump('B');"
" }"
"}"
"class C {}"
"if (class_exists('A')) {"
" $obj = new A;"
" $obj->f();"
"} else {"
" var_dump('correct');"
"}");
MVCR("<?php "
"function wrapper($a) {"
" if ($a) {"
" class C {"
" private static $v;"
" public static function f() {"
" return self::$v;"
" }"
" }"
" }"
"}"
"class C2 {"
" private static $v;"
" public static function f() {"
" return self::$v;"
" }"
"}"
"function foo($a) {"
" if ($a == 0) return is_callable(array('C', 'f'), null);"
" return is_callable(array('C2', 'f'), null);"
"}"
"wrapper(false);"
"var_dump(foo(0));"
"var_dump(foo(1));"
"if (class_exists('C')) var_dump('yes'); else var_dump('no');");
MVCR("<?php "
"function __autoload($name) {"
" if ($name == 'CaT') {"
" class CaT {"
" function __construct() {}"
" }"
" }"
" var_dump($name);"
"}"
""
"new CaT(1);"
"class_exists('cat', false);");
MVCRO("<?php\n"
"function autoload_first($name) {\n"
" echo __METHOD__ . \"\\n\";\n"
" throw new Exception('first', 0, new Exception('first_inner'));\n"
"}\n"
"function autoload_second($name) {\n"
" echo __METHOD__ . \"\\n\";\n"
" throw new Exception('second', 0, new Exception('second_inner'));\n"
"}\n"
"function __autoload($name) {\n"
" echo __METHOD__ . \"\\n\";\n"
" throw new Exception('__autoload');\n"
"}\n"
"spl_autoload_register('autoload_first');\n"
"spl_autoload_register('autoload_second');\n"
"try {\n"
" var_dump(class_exists('A'));\n"
"} catch(Exception $e) {\n"
" do {\n"
" echo $e->getMessage() . \"\\n\";\n"
" } while($e = $e->getPrevious());\n"
"}\n"
"try {\n"
" $obj = new A();\n"
"} catch(Exception $e) {\n"
" do {\n"
" echo $e->getMessage() . \"\\n\";\n"
" } while($e = $e->getPrevious());\n"
"}\n"
"// hphpc won't call the autoloader unless there exists a \n"
"// definition for the class somewhere\n"
"if (true) {\n"
" class A {}\n"
"}\n",
"autoload_first\n"
"autoload_second\n"
"second\n"
"second_inner\n"
"first\n"
"first_inner\n"
"autoload_first\n"
"autoload_second\n"
"second\n"
"second_inner\n"
"first\n"
"first_inner\n");
MVCRO("<?php\n"
"function f($cls) {}\n"
"var_dump(spl_autoload_functions());\n"
"spl_autoload_register('f');\n"
"var_dump(spl_autoload_functions());\n"
"spl_autoload_unregister('f');\n"
"var_dump(spl_autoload_functions());\n"
"spl_autoload_unregister('spl_autoload_call');\n"
"var_dump(spl_autoload_functions());\n"
"spl_autoload_register('f');\n"
"var_dump(spl_autoload_functions());\n"
"spl_autoload_unregister('spl_autoload_call');\n"
"var_dump(spl_autoload_functions());\n",
"bool(false)\n"
"array(1) {\n"
" [0]=>\n"
" string(1) \"f\"\n"
"}\n"
"array(0) {\n"
"}\n"
"bool(false)\n"
"array(1) {\n"
" [0]=>\n"
" string(1) \"f\"\n"
"}\n"
"bool(false)\n");
MVCRO("<?php\n"
"function autoload_first($name) {\n"
" echo __METHOD__ . \"\\n\";\n"
"}\n"
"function autoload_second($name) {\n"
" echo __METHOD__ . \"\\n\";\n"
"}\n"
"function __autoload($name) {\n"
" echo __METHOD__ . \"\\n\";\n"
"}\n"
"echo \"**************\\n\";\n"
"class_exists('A');\n"
"echo \"**************\\n\";\n"
"spl_autoload_register('autoload_first');\n"
"spl_autoload_register('autoload_second');\n"
"class_exists('B');\n"
"echo \"**************\\n\";\n"
"spl_autoload_unregister('autoload_first');\n"
"spl_autoload_unregister('autoload_second');\n"
"class_exists('C');\n"
"echo \"**************\\n\";\n"
"spl_autoload_unregister('spl_autoload_call');\n"
"class_exists('D');\n"
"echo \"**************\\n\";\n"
"// hphpc won't call the autoloader unless there exists a \n"
"// definition for the class somewhere\n"
"if (true) {\n"
" class A {}\n"
" class B {}\n"
" class C {}\n"
" class D {}\n"
"}\n",
"**************\n"
"__autoload\n"
"**************\n"
"autoload_first\n"
"autoload_second\n"
"**************\n"
"**************\n"
"__autoload\n"
"**************\n");
// Github Issue#619
MVCRO("<?php "
"spl_autoload_register(function($f) { var_dump(1); });\n"
"spl_autoload_register(function($f) { var_dump(2); });\n"
"class_exists('A');\n"
"// hphpc won't call the autoloader unless there exists a\n"
"// definition for the class somewhere\n"
"if (true) {\n"
" class A {}\n"
"}\n",
"int(1)\n"
"int(2)\n"
);
MVCRO("<?php "
"var_dump(fb_autoload_map("
" array('function' => array(),"
" 'constant' => array(),"
" 'failure' => 'failure'),"
" ''));"
"function failure($kind, $name) {"
" if ($kind == 'constant' && $name == 'bar') define('bar', 'baz');"
" var_dump($kind, $name);"
"}"
"var_dump(function_exists('foo'));"
"var_dump(function_exists('bar', false));"
"var_dump(defined('foo'));"
"var_dump(defined('bar', false));"
"var_dump(constant('foo'));"
"var_dump(constant('bar'));"
"if (0) {"
" function foo() {}"
" function foo() {}"
" define('foo', 0);"
" define('bar', 0);"
"}",
"bool(true)\n"
"string(8) \"function\"\n"
"string(3) \"foo\"\n"
"bool(false)\n"
"bool(false)\n"
"string(8) \"constant\"\n"
"string(3) \"foo\"\n"
"bool(false)\n"
"bool(false)\n"
"string(8) \"constant\"\n"
"string(3) \"foo\"\n"
"NULL\n"
"string(8) \"constant\"\n"
"string(3) \"bar\"\n"
"string(3) \"baz\"\n");
return true;
}
bool TestCodeRun::TestHereDoc() {
MVCR("<?php\n"
"$nullherequote= <<<fail\n"
"fail;\n"
"echo \"--$nullherequote--\\n\";"
"$x=\"foo\";"
"$threestops= <<<pass\n"
"passable $x\n"
"pass;x\n"
"ss;\n"
"pass;\n"
"echo \"$threestops\\n\";");
return true;
}
bool TestCodeRun::TestProgramFunctions() {
//VCR("<?php var_dump($_SERVER);");
MVCR("<?php var_dump($argc, count($argv));");
//VCR("<?php var_dump($_ENV);");
MVCR("<?php function p($a) { print $a;} "
"register_shutdown_function('p', 'shutdown');");
return true;
}
bool TestCodeRun::TestCompilation() {
MVCR("<?php class A { public static $foo = 123;} $a = foo(); "
"function foo() { return 'foo';} var_dump(A::$$a);");
MVCRNW("<?php fun foo() {}");
// testing re-declared classes with missing parents, VM raises error
// but the compiled code does not.
//MVCR("<?php $a = bar(); if ($a) { class fOO extends Unknown {} } else "
// "{ class Foo extends unknOwn {} } function bar() { return 123;}");
// testing re-declared classes with different cases
MVCR("<?php $a = bar(); if ($a) { class fOO {} } else "
"{ class Foo {} } function bar() { return 123;} $obj = new foo();");
// testing re-declared functions with different cases
MVCR("<?php $a = bar(); if ($a) { function fOO() {} } else "
"{ function Foo() {} } function bar() { return 123;} foo();");
// overlapped interface
MVCR("<?php interface A {} class B implements A {} "
"class C extends B implements A {} $obj = new C();");
// trigraph
MVCR("<?php print '\?\?/';");
// testing type inference on a re-declared constant
MVCR("<?php if (false) define('a', 'test'); define('a', 5); print $b % a;");
// testing type inference on a special type casting: PlusOperand -> Double
MVCR("<?php function d() { return '2009';} $y = (d()) + 6;");
MVCR("<?php class A { public static $a = array('a', 'b'); public static function test() { self::$a[] = 'c'; var_dump(self::$a);} } A::test();");
// \x65D is invalid in C++
MVCR("<?php var_dump(\"[\\x][\\xA][\\x65][\\x65D]\");");
MVCR("\\x65D");
// float vs. double
MVCR("<?php $a = 1; $a = 'test'; var_dump($a + 2.5);");
// +/- String
MVCR("<?php $a = -date('w');");
// ObjectOffset.at()
MVCR("<?php class A { public $a = array('t' => 't');} class B { public $a;} "
"$a = 1; $a = new A(); $a->a['t'] = true; var_dump($a->a['t']);");
// Variant % operator
MVCR("<?php $a = date('d') % 10;");
MVCR("<?php $a = 'test'; $a = 1; print $a % 10;");
// defining a constant after it's used
MVCR("<?php $a = MAX_LATITUDE + 5;"
"if (12 > -MAX_LATITUDE) define('MAX_LATITUDE', 90); ");
// toInt64() wrapper
MVCR("<?php print 1 << 32;");
// !$a is closer in C++
MVCR("<?php if (!$a = true) {}");
// integer as array element
MVCR("<?php function test($a = 0) { $b = $a; $c = $b[$a];}");
// String/Array operators
MVCR("<?php function str() { return 'test';} "
"function test() { var_dump(str() - $a);}");
// unused variable warning
MVCR("<?php function test() {} function foo() { test($a = 1);}");
// void return functions
MVCR("<?php function test() {} true ? test() : 1;");
// uninitialized variables need to be Variant
MVCR("<?php function test() { $a = 0; $a += $b;} test();");
// VariantOffset = VariantOffset
MVCR("<?php class A {} $a = new A(); $a->a = $a->b = 'test'; var_dump($a);");
MVCR("<?php $a = 1; $a = array(); $a['a'] = $a['b'] = 'test'; var_dump($a);");
// lval on Variant
MVCR("<?php function test() { return array();} reset(test());");
// variant.o_lval() needs lval() wrapper
MVCR("<?php class A { public $prop = 1;} class B { public $prop = 5;} "
"$a = 1; $a = new A(); $a->prop++; var_dump($a->prop);");
// obj->prop doesn't need lval() wrapper
MVCR("<?php class A { public $prop = 1;} "
"$a = new A(); $a->prop++; var_dump($a->prop);");
// ((p_obj)variant)->prop
MVCR("<?php class A { public $prop = 1;} "
"$a = 1; $a = new A(); $a->prop++; var_dump($a->prop);");
// unsigned int should never be seen
MVCR("<?php $a = 0xC0000000 & $b;");
// redefine properties
MVCR("<?php class E extends exception { public $message; public $code;}");
// redefine static members
MVCR("<?php class A { static $a = 1;} "
"class B extends A { static $a = 2;} var_dump(B::$a);");
// overriding function with assignment on parameters
MVCR("<?php class A { "
"function __call($a, $b) { $b = 'a'; $b = 1; "
"var_dump($a, $b[0], $b[1]);}} "
"$obj = new A(); $a = 1; $b = 'a'; $b = 2; $obj->test($a, $b);");
// method->method
MVCR("<?php class A { public function getA() { return $this;} "
"public function test() { var_dump('test');}} "
"class B { public function getA() {} public function test(){}}"
"$obj = new A(); $obj->getA()->test();"
);
// constructor fallback
MVCR("<?php class A { function __construct($a) { var_dump($a);} } "
"class B extends A {} "
"$a = new B('test');");
// prop->method
MVCR("<?php class A { function test() {}} class B { public $b;} "
"class C { function test() {}} "
"$a = 'test'; $a = new B(); $a->b = new A(); $a->b->test();");
// testing code generation order
MVCR("<?php "
"$global = B::CLASS_CONSTANT; "
"$another = test2($global); "
"define('CONSTANT', test2('defining')); "
//"test();"
//"function test($a = CONSTANT) { test2($a);} "
"function test2($a) { var_dump($a); return 12345;} "
"class A extends B {} "
"class B { const CLASS_CONSTANT = 1;} ");
// $_SERVER is already defined
MVCR("<?php $_SERVER = array('test' => 1); var_dump($_SERVER);");
MVCR("<?php $GLOBALS['_SERVER'] = array('test' => 1); var_dump($_SERVER);");
// class constant as default
MVCR("<?php "
"class A { const C = 123; static function t($a = B::C) {} } A::t();"
"class B { const C = 456; static function t($a = A::C) {} } B::t();");
// base virtual function prototype
MVCR("<?php class T { function __toString() { return 123;}} "
"$obj = new T(); var_dump($obj);");
// void wrapper
MVCR("<?php function test() {} var_dump(test()); $a = test();");
// ambiguous overload
MVCR("<?php $a = 'test'; $a = 123; switch ($a) { case -1: var_dump($a);}");
// [][]
MVCR("<?php $a['a']['b'] = 'test'; var_dump($a['a']['b']);");
// testing Variant to specific class conversion
MVCR("<?php class A { function test(A $a) { $a->foo();} "
"function foo() { print 'foo';}}");
MVCR("<?php "
"class A { function f($a) {} }"
"$obj = new A;"
"$obj->f(date('m/d/y H:i:s', 123456789));"
"$v = date(\"m\",123456789)+1;");
// no side effect optimization met if() short
MVCR("<?php if ($a) $a == 0;");
// */ and // in default argument
MVCR("<?php "
"function foo($p1=\"/.*/\", $p2=\"//\") {"
" var_dump($p1, $p2);"
"}"
"foo();");
MVCR("<?php "
"$n = floor(1.0);"
"var_dump(($n > 0) ? $n : $n + 1);");
MVCR("<?php "
"class X {"
" function test($a, $b, $c) {"
" return $a != $b;"
" }"
"}"
"function test($a) {"
" $x = new X;"
" return $a ? $x->test(1, 2) : false;"
"}"
"var_dump(test(1));");
MVCR("<?php function bug1($a, $b) {"
"foreach ($b[$a++ + $a++] as &$x) { echo $x; }}");
MVCR("<?php "
"function f($a, $b, $c) { return 'hello'; }"
"function test($a) {"
" $x = ($a->foo = f($b++, $b++, $b++)) . f(1,2,3);"
" return $x;"
"}");
MVCR("<?php "
"function g() {}"
"function test1() {"
" return '' . g();"
"}");
MVCR("<?php "
"function g() {}"
"function test1() {"
" return 0 + g();"
"}");
MVCR("<?php "
"function g() {}"
"function test1() {"
" return 1 * g();"
"}");
MVCR("<?php "
"$data = new stdclass;"
"$type = 'OCI-Lob';"
"if ($data instanceof $type) {"
" echo 'true';"
"}"
"class X {"
" static $foo;"
"};"
"function test() {"
" $x = new X;"
" $foo = 'foo';"
" if (isset($x->$foo) || empty($x->$foo) ||"
" isset($x->{'bar'})) {"
" unset($x->$foo);"
" unset($x->{'bar'});"
" echo true;"
" }"
"}");
MVCR("<?php "
"class X {"
" static function g() {}"
"};"
"@X::g();"
"function g($a,$b) {}"
"function f() { return 3; }"
"@g(f(),f());");
MVCR("<?php for ($i = 0; $i++,$i - 10;) {}");
MVCR("<?php function test($className) {"
"$x = new ReflectionClass($className);"
"return $x->newInstance()->loadAll(); }");
MVCR("<?php var_dump(array(1,2,3)+array(4,5,6));");
MVCR("<?php "
"function foo($a) {"
" $r = '';"
" if ($a) {"
" $r ->error = '';"
" }"
" return $r;"
"}"
"var_dump(foo(true));"
"var_dump(foo(false));");
MVCR("<?php "
"function foo($a) {"
" $r = '';"
" if ($a) {"
" $r ->error->line = 1;"
" }"
" return $r;"
"}"
"var_dump(foo(true));"
"var_dump(foo(false));");
MVCR("<?php "
"call_user_func_array(array('Normalizer','normalize'),array('bar'));");
MVCR("<?php "
"function bar($g) { return $g; }"
"class X {"
" static function foo() {"
" echo $this->baz(bar(1), bar(''));"
" }"
"}");
MVCR("<?php "
"function foo() {}"
"function test() {"
" foo()->bar();"
"}");
MVCR("<?php "
"function checker($x) {"
" $msg = foo();"
" $notice = $msg['title'].'. '.$msg['body'];"
" foo();"
" @list($a,$b) = $x;"
" $x = @$x['a'];"
" $x = @$x['b'];"
" return $a - $b + $x;"
"}");
MVCR("<?php "
"class C {"
" function foo($a) {"
" var_dump($this + $a);"
" var_dump($this - $a);"
" var_dump($this * $a);"
" var_dump($this / $a);"
" var_dump($a + $this);"
" var_dump($a - $this);"
" var_dump($a * $this);"
" var_dump($a / $this);"
" }"
"}"
"$obj = new C;"
"$obj->foo(1);");
MVCR("<?php "
"class X {}"
"class Y extends X { public $foo; }"
"function foo() {"
" $x = new Y;"
" $x && var_dump($x->foo);"
" $x = new X;"
" var_dump($x);"
"}"
"foo();");
MVCR("<?php "
"function bar($a) {}"
"function foo($x) {"
" $a = $x;"
" echo $x;"
" unset($a);"
" $a = bar(1);"
" bar($a++);"
"}");
MVCR("<?php function test($a) { return null * $a; }");
MVCR("<?php "
"function foo() {"
" define('AAA', 1);"
" if (false) {"
" define('BBB', 'bbb');"
" }"
"}");
MVCR("<?php "
"function foo() { return array(1,2,3); }"
"function bar($a, $b, $c) { $a = 4; }"
"$x = foo();"
"bar($x[3][4], $y);"
"var_dump($x);");
MVCR("<?php "
"function test($a) {"
" print \"hello $a world!\" and die;"
"}");
MVCR("<?php "
"if(0){class y{}}else{class y{}}"
"abstract class x extends y {"
" private static $nextSerial = 1;"
" private $serial = 0;"
" public function __construct() {"
" $this->serial = self::$nextSerial++;"
" }"
"}");
{
OptionSetter w1(this, OptionSetter::CompileTime,
"-vLocalCopyProp=0 -vEliminateDeadCode=0");
MVCR("<?php "
"function setAttribute() {"
" if (($v_size = func_num_args()) == 0) {"
" return true;"
" }"
" $v_att_list = &func_get_args();"
" return true;"
"}"
"setAttribute('a');");
}
{
HipHopSyntax w1(this);
MVCR("<?php "
"class X {}"
"function bar(string $x = X::FIZ, $y=null, $z=null,"
" $a=null, $b=null, $c=null, $d=null) {}");
}
MVCR("<?php "
"function foo($a,$b,$c,$d) { return implode($a,$b); }"
"function bar($values, $parent_fields) {"
" $full_name = implode('___', $parent_fields);"
" $body = '';"
" $body .= '<div>';"
" $body .= '<table id=' . 'bar_' . $full_name . ' border=1>';"
" $item_num = 0;"
" if (null !== $values) {"
" foreach($values as $val) {"
" $row_id = 'tr_sentrylist_' . $item_num . '_' . $full_name;"
" $body .= '<tr id=' . $row_id . '>';"
" $body .= '<td>';"
" $body .= foo($item_num, 0,"
" $val, $parent_fields);"
" $body .= '</td>';"
" $body .= '<td>';"
" $body .= foo($item_num, $full_name, 0, 0);"
" $body .= '</td>';"
" $body .= '</tr>';"
" $item_num += 1;"
" }"
" }"
" $body .= '</table>';"
"}");
MVCR("<?php "
"class X {"
" function foo() {"
" return function() use(&$this) {"
" return $this->bar();"
" };"
" }"
" function bar() {}"
"}");
MVCR("<?php "
"$x = 1;"
"switch ($x++ ?: -1) {};"
"var_dump($x);");
MVCR("<?php "
"function f() {"
" global $g;"
" $g++;"
"}"
"var_dump((boolean)f(),(int)f(),(double)f(),(string)f());"
"var_dump((array)f(),(object)f(),(unset)f());");
MVCR("<?php "
"if (isset($g)) {"
" class X {"
" private static $i = null;"
" function foo() {"
" self::$i = $this;"
" }"
" }"
"} else {"
" class X {}"
"}");
MVCRNW("<?php "
"class X { const FOO = 'hello'; }"
"function foo(&$a) { static $s; }"
"if (class_exists('X')) foo(X::FOO);");
MVCR("<?php "
"class X {"
" static function foo() { return new X; }"
" function bar() { var_dump(__METHOD__); }"
"};"
"function id($x) { return $x; }"
"function test() {"
" id(X::foo(1))->bar();"
"}"
"test();");
MVCRNW("<?php "
"class X {"
" function bar(X $x) {"
" $x->foo();"
" $x->foo();"
" }"
" function foo() { var_dump(__METHOD__); }"
"}"
"function test() {"
" X::bar(null);"
"}"
"test();");
MVCR("<?php "
"class X {"
" public function foo($offset) {"
" if (isset($this->__array[$offset])) {"
" return $this->initializeOffset($offset);"
" } else {"
" return null;"
" }"
" return $this->__array[$offset];"
" }"
"}");
MVCR("<?php "
"class Y {"
" function bar() {}"
"}"
"class X {"
" function foo() {"
" $x = $this;"
" if ($this instanceof y) {"
" $this->bar();"
" }"
" return $x;"
" }"
"}");
MVCR("<?php"
"function foo(&$a, &$b) {}"
"if (isset($g)) {"
" function foo($a, $b) {}"
"}"
"function bar() {"
" foo($x, $y);"
"}"
"bar();");
MVCR("<?php "
"class X {"
" function foo($x,$y) {"
" $a = null;"
" if ($x) {"
" $a = new X;"
" }"
" new X($y ? null : $a);"
" return $a;"
" }"
"}"
"$x = new X;"
"var_dump($x->foo(false, true));");
MVCR("<?php \n"
"\n"
"class C {\n"
" public function loadAllWithIDs($ids) {\n"
" if (!count($ids = array_filter($ids))) {\n"
" return array();\n"
" }\n"
" var_dump('muy malo', $ids);\n"
" return -666;\n"
" }\n"
"}\n"
"\n"
"function main() {\n"
" $testA = array(4 => false, 5 => false);\n"
" $c = new C();\n"
" var_dump($c->loadAllWithIDs($testA));\n"
"}\n"
"\n"
"main();\n");
MVCR("<?php "
"class A {"
" public $a;"
" function foo() {"
" $this->bar();"
" if ($this instanceof B) {"
" $this->b = 1;"
" }"
" $this->a = 1;"
" }"
"}"
"class B extends A {"
" public $b;"
" function bar() {}"
"}"
"function main() {"
" $b = new B;"
" $b->foo();"
" var_dump($b);"
"}"
"main();");
return true;
}
bool TestCodeRun::TestReflection() {
MVCR("<?php\n"
"class A { public function foo() {}}\n"
"$x = new ReflectionMethod('A::foo');\n"
"var_dump($x->name, $x->class);\n");
MVCR("<?php class A { public static function test() { print 'ok';}}"
"var_dump(is_callable('A::test'));"
"var_dump(function_exists('A::test'));");
MVCR("<?php function test($a) { return 'ok'.$a;}"
"var_dump(function_exists('TEst')); "
"var_dump(is_callable('teSt'));"
"var_dump(call_user_func('teST', 'blah')); "
"var_dump(call_user_func_array('teST', array('blah'))); "
);
MVCR("<?php class B { public function f($a) { return 'ok'.$a;}} "
"class A extends B { public $p = 'g';} "
"$obj = new A(); "
"var_dump(get_class($obj)); "
"var_dump(get_parent_class($obj)); "
"var_dump(is_a($obj, 'b')); "
"var_dump(is_subclass_of($obj, 'b'));"
"var_dump(method_exists($obj, 'f'));"
"var_dump(method_exists('A', 'f'));"
"var_dump(is_callable(array($obj, 'f')));"
"var_dump(is_callable(array('A', 'f')));"
"var_dump(get_object_vars($obj));"
"var_dump(call_user_method('f', $obj, 'blah'));"
"var_dump(call_user_method_array('f', $obj, array('blah')));"
);
MVCR("<?php class A { public static function f($a) { return 'ok'.$a;}} "
"$obj = new A(); "
"var_dump(method_exists($obj, 'f'));"
"var_dump(method_exists('A', 'f'));"
"var_dump(is_callable(array($obj, 'f')));"
"var_dump(is_callable(array('A', 'f')));"
"var_dump(call_user_func(array($obj,'f'), 'blah'));"
"var_dump(call_user_func_array(array($obj,'f'), array('blah')));"
"var_dump(call_user_func(array('A','f'), 'blah'));"
"var_dump(call_user_func_array(array('A','f'), array('blah')));"
);
MVCR("<?php "
"class A { function foo() {} }"
"class B extends A { function bar() {}}"
"var_dump(get_class_methods(new B()));");
MVCR("<?php "
"class X {"
" public function a() { var_dump(get_class_methods($this)); }"
" protected function b() {}"
" private function c() {}"
" final function d() {}"
" public function e() {}"
"}"
"class Y {"
" public function a() { var_dump(get_class_methods($this)); }"
"}"
"$x = new X;"
"$x->a();"
"$y = new Y;"
"$y->a();"
"var_dump(get_class_methods($x));"
"var_dump(get_class_methods($y));");
MVCR("<?php "
"interface A { function foo(); }"
"abstract class B implements A { function bar() {}}"
"var_dump(get_class_methods('B'));");
MVCR("<?php "
"interface I1 { function ifoo2(); function ifoo1(); }"
"interface I2 { function ifoo4(); function ifoo3(); }"
"class A { function foo() {} function foo2() {} }"
"abstract class B extends A implements I1, I2 { function bar() {}}"
"abstract class C extends A implements I2, I1 { function bar() {}}"
"class D extends C { function ifoo2() {} function ifoo1() {}"
" function ifoo4() {} function ifoo3() {} function bar() {} }"
"var_dump(get_class_methods('B'));"
"var_dump(get_class_methods('C'));"
);
MVCR("<?php class A { static $a = 10; public $b = 20;}"
"$obj = new A(); var_dump(get_object_vars($obj));");
MVCR("<?php\n"
"function foo($a = null) {}\n"
"$func = new ReflectionFunction('foo');\n"
"$params = $func->getParameters();\n"
"var_dump($params[0]->isDefaultValueAvailable());\n");
MVCR("<?php "
"class X {"
" function X() { }"
" function __construct() { }"
"}"
"class Y {"
" function Y() { }"
"}"
"class Z {"
" function z() { }"
"}"
"function test($cname, $mname) {"
" $x = new ReflectionClass($cname);"
" $m = $x->getMethod($mname);"
" echo \"$cname:$mname:\"; var_dump($m->isConstructor());"
"}"
"test('X', 'X');"
"test('Y', 'Y');"
"test('Y', 'y');"
"test('Z', 'Z');"
"test('Z', 'z');");
MVCR("<?php "
"function foo($a, $b) { }"
"$funcs = get_defined_functions();"
"var_dump($funcs['user']);");
{
HipHopSyntax w(this);
MVCRO("<?php "
"class bar { function baz() { yield 5; } }"
"$x = new ReflectionClass('bar');"
"var_dump(count($x->getMethods()));",
"int(1)\n");
MVCRO("<?php"
"Trait T { function bar() { yield 1; } }"
"class X { use T; }"
"function test() {"
" $r = new ReflectionClass('X');"
" foreach ($r->getMethods() as $m) {"
" var_dump($m->name);"
" }"
"}"
"test();",
"string(3) \"bar\"\n");
MVCRO("<?php\n"
"\n"
"/**\n"
" * Doc comment on a function generator\n"
" */\n"
"function foo() {\n"
" yield null;\n"
"}\n"
"$rf = new ReflectionFunction('foo');\n"
"var_dump($rf->getDocComment());\n"
"\n"
"class C {\n"
" /**\n"
" * Doc comment on a method generator\n"
" */\n"
" public function bar() {\n"
" yield null;\n"
" }\n"
"}\n"
"$rm = new ReflectionMethod('C','bar');\n"
"var_dump($rm->getDocComment());\n"
,
"string(46) \"/**\n"
" * Doc comment on a function generator\n"
" */\"\n"
"string(48) \"/**\n"
" * Doc comment on a method generator\n"
" */\"\n"
);
}
MVCR("<?php"
"function test() {"
" try {"
" $classes = get_declared_classes();"
" foreach ($classes as $class) {"
" $r = new ReflectionClass($class);"
" $t += count($r->getMethods());"
" }"
" var_dump('ok');"
" } catch (Exception $e) {"
" var_dump($e->getMessage());"
" }"
"}"
"test();");
MVCRO("<?php "
"trait T {}"
"interface I {}"
"foreach (get_declared_classes() as $c) {"
" if ($c == 'T' || $c == 'I') {"
" var_dump('failed');"
" exit(0);"
" }"
"}"
"var_dump('OK!');",
"string(3) \"OK!\"\n");
/* is_a - objects */
MVCRO("<?php "
"class A {} class B extends A {}"
"$a = new A; $b = new B;"
"var_dump(is_a($a, 'A'));"
"var_dump(is_a($a, 'B'));"
"var_dump(is_a($b, 'A'));"
"var_dump(is_a($b, 'A', true));"
,
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
);
/* is_a - classes */
MVCRO("<?php "
"class A {}"
"class B extends A {}"
"class C extends B {}"
"$a = new A; $b = new B;"
"var_dump(is_a('a', 'A', true));"
"var_dump(is_a('a', 'A', false));"
"var_dump(is_a('b', 'A', true));"
"var_dump(is_a('a', 'B', true));"
"var_dump(is_a('c', 'A', true));"
,
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
);
/* is_a - interfaces */
MVCRO("<?php "
"interface A {}"
"interface B extends A {}"
"interface C extends B {}"
"class D implements A {}"
"$d = new D;"
"var_dump(is_a($d, 'A'));"
"var_dump(is_a($d, 'B'));"
"var_dump(is_a('B', 'A', true));"
"var_dump(is_a('B', 'B', true));"
"var_dump(is_a('C', 'A', true));"
,
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
);
/* is_subclass_of - objects */
MVCRO("<?php "
"class A {} class B extends A {}"
"$a = new A; $b = new B;"
"var_dump(is_subclass_of($a, 'A'));"
"var_dump(is_subclass_of($a, 'B'));"
"var_dump(is_subclass_of($b, 'A'));"
"var_dump(is_subclass_of($b, 'A', false));"
,
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
);
/* is_subclass_of - classes */
MVCRO("<?php "
"class A {}"
"class B extends A {}"
"class C extends B {}"
"$a = new A; $b = new B;"
"var_dump(is_subclass_of('a', 'A', true));"
"var_dump(is_subclass_of('a', 'A', false));"
"var_dump(is_subclass_of('b', 'A', true));"
"var_dump(is_subclass_of('a', 'B', true));"
"var_dump(is_subclass_of('c', 'A', true));"
,
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
);
/* is_subclass_of - interfaces */
MVCRO("<?php "
"interface A {}"
"interface B extends A {}"
"interface C extends B {}"
"class D implements A {}"
"$d = new D;"
"var_dump(is_subclass_of($d, 'A'));"
"var_dump(is_subclass_of($d, 'B'));"
"var_dump(is_subclass_of('B', 'A'));"
"var_dump(is_subclass_of('B', 'B'));"
"var_dump(is_subclass_of('C', 'A'));"
,
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
);
/* reflection function for closures */
MVCRO("<?php\n"
"$f = function() { echo \"in \\$f\\n\"; };\n"
"$g = function($a = 'default') { echo \"in \\$g; passed $a\\n\"; };\n"
"\n"
"/** This doc comment is so helpful and descriptive. */\n"
"$add = function($x, $y) {\n"
" $sum = $x + $y;\n"
" echo 'x + y = ' . $sum . \"\\n\";\n"
"};\n"
"\n"
"function show_params($params) {\n"
" echo 'parameters => array(' . count($params) . \") {\\n\";\n"
" foreach ($params as $p) {\n"
" echo \" name => {$p->getName()}\\n\";\n"
" }\n"
" echo \"}\\n\";\n"
"}\n"
"function show($rf) {\n"
" var_dump($rf->getName());\n"
" var_dump($rf->isUserDefined());\n"
" var_dump($rf->getStartLine());\n"
" var_dump($rf->getEndLine());\n"
" var_dump($rf->getDocComment());\n"
" var_dump($rf->getFileName() === __FILE__);\n"
" show_params($rf->getParameters());\n"
" var_dump($rf->getNumberOfParameters());\n"
" var_dump($rf->getNumberOfRequiredParameters());\n"
"}\n"
"\n"
"$rf = new ReflectionFunction($f);\n"
"$rg = new ReflectionFunction($g);\n"
"$radd = new ReflectionFunction($add);\n"
"\n"
"echo \"invoking f\\n\";\n"
"$rf->invoke();\n"
"\n"
"echo \"\\ninvoking g\\n\";\n"
"$rg->invoke('hello');\n"
"$rg->invokeArgs(array('goodbye'));\n"
"\n"
"echo \"\\ninvoking add\\n\";\n"
"$radd->invoke(1, 2);\n"
"$radd->invokeArgs(array(5000000000, 5000000000));\n"
"\n"
"echo \"\\nshowing f\\n\";\n"
"show($rf);\n"
"\n"
"echo \"\\nshowing g\\n\";\n"
"show($rg);\n"
"\n"
"echo \"\\nshowing add\\n\";\n"
"show($radd);\n"
,
"invoking f\n"
"in $f\n"
"\n"
"invoking g\n"
"in $g; passed hello\n"
"in $g; passed goodbye\n"
"\n"
"invoking add\n"
"x + y = 3\n"
"x + y = 10000000000\n"
"\n"
"showing f\n"
"string(9) \"{closure}\"\n"
"bool(true)\n"
"int(4)\n"
"int(4)\n"
"bool(false)\n"
"bool(true)\n"
"parameters => array(0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"\n"
"showing g\n"
"string(9) \"{closure}\"\n"
"bool(true)\n"
"int(5)\n"
"int(5)\n"
"bool(false)\n"
"bool(true)\n"
"parameters => array(1) {\n"
" name => a\n"
"}\n"
"int(1)\n"
"int(0)\n"
"\n"
"showing add\n"
"string(9) \"{closure}\"\n"
"bool(true)\n"
"int(8)\n"
"int(11)\n"
"string(54) \"/** This doc comment is so helpful and descriptive. */\"\n"
"bool(true)\n"
"parameters => array(2) {\n"
" name => x\n"
" name => y\n"
"}\n"
"int(2)\n"
"int(2)\n"
);
MVCR("<?php "
"function __autoload($name) {"
" switch ($name) {"
" case 'C':"
" class C {}"
" break;"
" case 'M':"
" class M { function foo() {} }"
" break;"
" default: class C{} class M {}"
" }"
" var_dump($name);"
"}"
"$r1 = new ReflectionClass('C');"
"$r2 = new ReflectionMethod('M', 'foo');");
return true;
}
bool TestCodeRun::TestReflectionClasses() {
MVCR("<?php "
// declarations
"interface i1 {} interface i2 {}"
"class cls1 implements i1, i2 { "
" const CLS_CONST = 2;"
" protected $prop1;"
" public static $prop2 = 23;"
" function method1($param1) { print $param1;} "
"} "
"function &func1(cls1 $p1, &$p2, $p3='def') { "
" static $a=1; var_dump($p1);"
"} "
"function func2($a) { var_dump($a);} "
"class cls2 extends cls1 {}"
""
// helpers
"function dump_func($func) {"
" var_dump($func->getName()); "
" var_dump($func->isInternal()); "
" var_dump($func->isUserDefined()); "
" var_dump($func->isClosure()); "
" $vars = $func->getStaticVariables(); "
" var_dump(count($vars));"
" var_dump(isset($vars['a']));"
" var_dump($func->returnsReference()); "
" var_dump($func->getNumberOfParameters()); "
" var_dump($func->getNumberOfRequiredParameters()); "
" foreach ($func->getParameters() as $name => $param) {"
" var_dump($name); "
" dump_param($param); "
" }"
"} "
""
"function verify_class($cls) {"
" if ($cls) {"
" var_dump($cls->getName()); "
" } else {"
" var_dump(null);"
" }"
"}"
""
"function verify_classes($classes) {"
" ksort($classes);"
" foreach ($classes as $cls) {"
" verify_class($cls); "
" }"
"}"
""
"function dump_param($param) {"
" var_dump($param->getName()); "
" var_dump($param->isPassedByReference()); "
" verify_class($param->getDeclaringClass()); "
" verify_class($param->getClass()); "
" var_dump($param->isArray()); "
" var_dump($param->allowsNull()); "
" var_dump($param->isOptional()); "
" var_dump($param->isDefaultValueAvailable()); "
" if ($param->isOptional()) { "
//" var_dump($param->getDefaultValue()); "
" } "
" var_dump($param->getPosition()); "
"} "
""
"function dump_prop($prop, $obj) {"
" var_dump($prop->getName()); "
" var_dump($prop->isPublic()); "
" var_dump($prop->isPrivate()); "
" var_dump($prop->isProtected()); "
" var_dump($prop->isStatic()); "
//" var_dump($prop->isDefault()); "
" var_dump($prop->getModifiers() & 0xffff); "
" if ($prop->isPublic()) { "
" var_dump($prop->getValue($obj)); "
" if (!$prop->isStatic()) {"
" var_dump($prop->setValue($obj, 78)); "
" }"
" var_dump($prop->getValue($obj)); "
" } "
" verify_class($prop->getDeclaringClass()); "
"} "
""
"function dump_class($cls, $obj) {"
" var_dump($cls->isInstance($obj)); "
" var_dump($cls->getName()); "
" var_dump($cls->isInternal()); "
" var_dump($cls->isUserDefined()); "
" var_dump($cls->isInstantiable()); "
" var_dump($cls->hasConstant('CLS_CONST')); "
" var_dump($cls->hasMethod('method1')); "
" var_dump($cls->hasProperty('prop1')); "
" dump_func($cls->getMethod('method1')); "
" dump_prop($cls->getProperty('prop1'), $obj); "
" verify_classes($cls->getInterfaces()); "
" var_dump($cls->isInterface()); "
" var_dump($cls->isAbstract()); "
" var_dump($cls->isFinal()); "
" var_dump($cls->getModifiers() & 0xffff); "
" verify_class($cls->getParentClass()); "
" var_dump($cls->isSubclassOf('i1')); "
" var_dump($cls->getStaticPropertyValue('prop2')); "
//" var_dump($cls->setStaticPropertyValue('prop2', 45)); "
" cls1::$prop2 = 45; "
" var_dump($cls->getStaticPropertyValue('prop2')); "
" var_dump(cls1::$prop2); "
" var_dump($cls->isIterateable()); "
" var_dump($cls->implementsInterface('i2')); "
" foreach ($cls->getProperties() as $name => $prop) {"
" var_dump($name); "
" dump_prop($prop, $obj); "
" }"
" foreach ($cls->getMethods() as $name => $func) {"
" var_dump($name); "
" dump_func($func); "
" var_dump($func->isFinal()); "
" var_dump($func->isAbstract()); "
" var_dump($func->isPublic()); "
" var_dump($func->isPrivate()); "
" var_dump($func->isProtected()); "
" var_dump($func->isStatic()); "
" var_dump($func->isConstructor()); "
" var_dump($func->isDestructor()); "
" var_dump($func->getModifiers() & 0xFFFF); "
" verify_class($func->getDeclaringClass()); "
" if ($name == 'method1') $func->invoke($obj, 'invoked'); "
" }"
"}"
""
// verification
"$func = new ReflectionFunction('func1'); "
"dump_func($func); "
""
"$func = new ReflectionFunction('func2'); "
"$func->invoke('invoked');"
""
"$cls = new ReflectionClass('cls1'); "
"$obj = $cls->newInstance(); "
"dump_class($cls, $obj);"
""
"$cls = new ReflectionClass('cls2'); "
"$obj = $cls->newInstance(); "
"dump_class($cls, $obj);"
"");
MVCR("<?php "
"abstract class c {"
" public static $arr = array();"
" function g() {"
" $cl = new ReflectionClass(get_class($this));"
" $p = $cl->getProperty('arr');"
" return $p->getValue();"
" }"
"}"
"abstract class aa extends c {"
" public function get_arr() {"
" $actions = parent::get_arr();"
" return $actions;"
" }"
"}"
"class a extends aa {"
" public static $arr = array('v');"
"}"
"$x = new a;"
"var_dump($x->g());");
MVCR("<?php "
"$z=true;"
"if ($z) {"
" class AaaA {"
" function f() {"
" var_dump(get_class());"
" }"
" }"
"} else {"
" class aAAa {}"
"}"
"class BbBb {}"
"$r = new ReflectionClass('aaaa');"
"var_dump($r->getName());"
"$r = new ReflectionClass('bbbb');"
"var_dump($r->getName());"
"$a = new aaaa;"
"$a->f();");
MVCR("<?php "
"class z {"
" const foo = 10;"
"}"
"class c {"
" const bar = z::foo;"
"}"
"var_dump(c::bar);"
"$r = new ReflectionClass('c');"
"var_dump($r->getConstant(\"bar\"));");
MVCR("<?php "
"class fOo {}"
"interface ioO {}"
"$c = new ReflectionClass('Foo');"
"$i = new ReflectionClass('Ioo');"
"var_dump($c->getFileName() !== '');"
"var_dump($i->getFileName() !== '');");
MVCR("<?php "
"class C {"
"public function mE() {"
"echo 'fail';"
"}"
"}"
"$ref = new ReflectionClass('C');"
"var_dump($ref->hasMethod('mE'));"
"var_dump($ref->hasMethod('me'));"
"$m = $ref->getMethod('me');"
"var_dump($m->getName());");
MVCR("<?php "
"class Base {"
" function foo() {"
" $m = new ReflectionMethod(get_class($this), 'bar');"
" var_dump($m->name);"
" }"
"}"
"$condition = 123;"
"if ($condition) {"
" class A extends Base {}"
"} else {"
" class A extends Base {}"
"}"
"class B extends A {"
" function bar() {"
" }"
"}"
"$obj = new B();"
"$obj->foo();");
MVCR("<?php "
"interface A {function foo();}"
"interface B extends A {}"
"class C implements B {function foo() {}};"
"$klass = new ReflectionClass('C');"
"var_dump($klass->implementsInterface('A'));"
"$inter = new ReflectionClass('B');"
"var_dump($inter->hasMethod('foo'));");
MVCR("<?php\n"
"class A { private $a; protected $b; public $c; static $d; }\n"
"function f($a) { asort($a); foreach ($a as $v) { var_dump($v->getName()); } }\n"
"$r = new ReflectionClass('A');\n"
"$a = $r->getProperties(); f($a);\n"
"$a = $r->getProperties(ReflectionProperty::IS_PUBLIC); f($a);\n"
"$a = $r->getProperties(ReflectionProperty::IS_PRIVATE); f($a);\n"
"$a = $r->getProperties(ReflectionProperty::IS_PROTECTED); f($a);\n"
"$a = $r->getProperties(ReflectionProperty::IS_STATIC); f($a);\n");
{
HipHopSyntax w(this);
MVCROF(
"<?php "
"function not_a_closure() { "
" return 1; "
"}; "
"$rf = new ReflectionFunction('not_a_closure'); "
"var_dump($rf->isClosure()); "
"var_dump($rf->isGenerator()); "
" "
"function is_a_generator() { "
" yield 1; "
" yield 2; "
"}; "
"$rf = new ReflectionFunction('is_a_generator'); "
"var_dump($rf->isClosure()); "
"var_dump($rf->isGenerator()); "
" "
"$cl = function() { "
" return 1; "
"}; "
"$rf = new ReflectionFunction($cl); "
"var_dump($rf->isClosure()); "
"var_dump($rf->isGenerator()); "
" "
"$cl = function() { "
" yield 1; "
" yield 2; "
"}; "
"$rf = new ReflectionFunction($cl); "
"var_dump($rf->isClosure()); "
"var_dump($rf->isGenerator()); "
,
"test/vm/reflection_isclosure.php.exp"
);
}
return true;
}
bool TestCodeRun::TestErrorHandler() {
MVCR("<?php function handler($code, $msg) { "
" var_dump(strpos($msg, 'system error') !== false); return true;"
"} "
"set_error_handler('handler');"
"function a() {} set_error_handler('a');restore_error_handler();"
"trigger_error('system error'); "
);
MVCR("<?php function handler($code, $msg) { "
" var_dump(strpos($msg, 'system error') !== false); return true;"
"} "
"set_error_handler('handler');"
"user_error('system error'); "
);
MVCR("<?php function handler($e) { "
" var_dump(strpos((string)$e, 'bomb') !== false); return true;"
"} "
"set_exception_handler('handler');"
"function a() {} set_exception_handler('a');restore_exception_handler();"
"throw new Exception('bomb'); "
);
MVCR("<?php "
"ob_start();"
"set_exception_handler('user_exception_handler');"
"echo 'Hello World';"
"throw new Exception;"
"function user_exception_handler($e) {"
" ob_end_clean();"
" var_dump(error_get_last());"
" echo 'Goodbye';"
" var_dump(error_get_last());"
"}");
MVCR("<?php\n"
"function handler($code, $msg, $file, $line) { var_dump($line); }\n"
"set_error_handler('handler');\n"
"function f($a) {\n"
" $b = $a[100];\n"
" return $b;\n"
"}\n"
"f(array(1, 2, 3));\n");
MVCR("<?php\n"
"class C {"
" public static function log(Exception $exception) {"
" $msg = get_class($exception).': '.$exception->getMessage();"
" var_dump($msg);"
" }"
" public static function setup() {"
" set_exception_handler(array(__CLASS__, 'log'));"
" }"
"}"
"$obj = new C;"
"$obj->setup();"
"throw new Exception('test');");
return true;
}
bool TestCodeRun::TestAssertOptions() {
MVCR("<?php "
"assert_options(ASSERT_ACTIVE, 0);"
"assert_options(ASSERT_WARNING, 0);"
"var_dump(assert(false));"
"var_dump(assert_options(ASSERT_ACTIVE, 0));"
"var_dump(assert_options(ASSERT_WARNING, 1));"
"var_dump(assert(false));"
"var_dump(assert_options(ASSERT_ACTIVE, 0));"
"var_dump(assert_options(ASSERT_WARNING, 2));"
"var_dump(assert(false));"
"var_dump(assert_options(ASSERT_ACTIVE, 1));"
"var_dump(assert_options(ASSERT_WARNING, 0));"
"var_dump(assert(false));"
"var_dump(assert_options(ASSERT_ACTIVE, 2));"
"var_dump(assert_options(ASSERT_WARNING, 0));"
"var_dump(assert(false));");
return true;
}
bool TestCodeRun::TestExtMisc() {
XhpSyntax w(this);
MVCR("<?php var_dump(pack('nvc*', 0x1234, 0x5678, 65, 66));");
MVCR("<?php var_dump(unpack('nfrist/vsecond/c2chars', "
"pack('nvc*', 0x1234, 0x5678, 65, 66)));");
MVCR("<?php $d=fopen('test/test_code_run.cpp', 'r');\n"
"var_dump(is_object($d));\n"
"var_dump(is_resource($d));\n"
"var_dump(gettype((string)$d));");
MVCR("<?php "
"class X {};"
"$x = new X;"
"$x->a = 1;"
"$x->b = 'hello';"
"$x->c = $x;"
"var_dump(http_build_query($x));");
MVCR("<?php "
"function __autoload($c) {"
" var_dump($c);"
"}"
"function test() {"
" var_dump(is_subclass_of('C', 'D'));"
" var_dump(get_class_methods('C'));"
" var_dump(method_exists('C', 'foo'));"
" class C {}"
" var_dump(is_subclass_of('C', 'D'));"
" var_dump(is_subclass_of('C', 'C'));"
"}"
"test();"
"var_dump(class_exists('C'));");
MVCRO("<?php "
"var_dump(hex2bin(\";lwekn\"));"
"var_dump(hex2bin(\"68656c6c6f\"));"
"var_dump(hex2bin(\"68656c6c6f6\"));"
,
"bool(false)\n"
"string(5) \"hello\"\n"
"bool(false)\n");
MVCRO("<?php\n"
"var_dump(token_name(396));\n"
"$str = \"<?php \\$x=<foo:bar/>;\\$y=<foo:bar>woo!</foo:bar>;\\n\";\n"
"$arr = token_get_all($str);\n"
"foreach ($arr as $t) {\n"
" if ($t[0] == 396) {\n"
" var_dump($t[1]);\n"
" }\n"
"}\n"
,
"string(12) \"T_XHP_TAG_LT\"\n"
"string(1) \"<\"\n"
"string(1) \"<\"\n"
"string(1) \"<\"\n"
);
return true;
}
bool TestCodeRun::TestInvalidArgument() {
MVCRO("<?php "
"var_dump(fb_rename_function('', ''));"
"var_dump(hotprofiler_enable(-1));"
"var_dump(mysql_fetch_array(null, 0));"
"var_dump(mysql_fetch_object(null, 'stdClass'));"
,
"bool(false)\n"
"NULL\n"
"bool(false)\n"
"bool(false)\n");
MVCR("<?php "
"$ch = curl_init();"
"var_dump(curl_setopt($ch, -1, 'http://www.example.com/'));"
"curl_close($ch);"
"var_dump(iconv_set_encoding('internal_encoding',"
" str_pad('invalid-charset', 64)));"
"var_dump(iconv_mime_decode("
" 'Subject: =?UTF-8?B?UHLDvGZ1bmcgUHLDvGZ1bmc=?=',"
" 0, str_pad('invalid-charset', 64)));"
"var_dump(iconv_mime_decode_headers("
" 'Subject: =?UTF-8?B?UHLDvGZ1bmcgUHLDvGZ1bmc=?=', 0,"
" str_pad('invalid-charset', 64)));"
"var_dump(iconv_strlen('UHLDvGZ1bmcgUHLDvGZ1bmc=',"
" str_pad('invalid-charset', 64)));"
"$subject = 'Subject: =?UTF-8?B?UHLDvGZ1bmcgUHLDvGZ1bmc=?=';"
"var_dump(iconv_strpos($subject,"
" 'H', 0, str_pad('invalid-charset', 64)));"
"var_dump(iconv_strrpos($subject,"
" 'H', str_pad('invalid-charset', 64)));"
"var_dump(iconv_substr('AB',0,1, str_pad('invalid-charset', 64)));"
"$preferences = array("
" 'output-charset' => 'UTF-8',"
" 'line-length' => 76,"
" 'line-break-chars' => '\n'"
");"
"$preferences['scheme'] = 'Q';"
"$preferences['input-charset'] = str_pad('invalid-charset', 64);"
"var_dump(iconv_mime_encode('Subject', 'Pr\xc3\274fung Pr\xc3\274fung',"
" $preferences));"
"$preferences['input-charset'] = 'ISO-8859-1';"
"$preferences['output-charset'] = str_pad('invalid-charset', 64);"
"var_dump(iconv_mime_encode('Subject', 'Pr\xc3\274fung Pr\xc3\274fung',"
" $preferences));"
"var_dump(iconv_set_encoding('internal_encoding',"
" str_pad('invalid-charset', 64)));"
"var_dump(iconv('UTF-8', str_pad('invalid-charset', 64), ''));"
"var_dump(iconv(str_pad('invalid-charset', 64), 'UTF-8', ''));"
"var_dump(time_nanosleep(-1, 0));"
"var_dump(time_nanosleep(0, -1));"
"var_dump(time_sleep_until(0));"
"var_dump(gzcompress('abc', -2));"
"var_dump(gzdeflate('abc', -2));"
"var_dump(http_build_query(1));"
"var_dump(parse_url('http://www.example.com', 100));"
"var_dump(dns_check_record('127.0.0.1', 'INVALID_TYPE'));"
"var_dump(assert_options(-1));"
"var_dump(simplexml_load_string('', 'INVALID_CLASS'));"
"var_dump(simplexml_load_string('', 'stdClass'));"
"var_dump(stream_get_contents('', -1));"
"$fp = fopen('test/test_ext_file.txt', 'r');"
"var_dump(fgets($fp, -1));"
/*
Not handled correctly. Invalid arg /types/ should result in
the function not being called, and null returned (even though
the functions are documented as returning false on failure).
"var_dump(fputcsv($fp, array(), 'abc'));"
"var_dump(fputcsv($fp, array(), 'a', 'def'));"
"var_dump(fgetcsv($fp, array(), 'abc'));"
"var_dump(fgetcsv($fp, array(), 'a', 'def'));"
*/
"fclose($fp);"
"$tmpfname = tempnam('', str_repeat('a', 128));"
"var_dump(strlen(basename($tmpfname)));"
"unlink($tmpfname);"
"$tmpfname = tempnam('', '/var/www' . str_repeat('a', 128));"
"var_dump(strlen(basename($tmpfname)));"
"unlink($tmpfname);"
"$ar1 = array(10, 100, 100, 0);"
"$ar2 = array(1, 3, 2);"
"var_dump(array_multisort($ar1, $ar2));"
"$phrase = 'eat fruits, vegetables, and fiber every day.';"
"$healthy = array('fruits', 'vegetables');"
"$yummy = array('pizza', 'beer', 'ice cream');"
"var_dump(str_replace($healthy, $yummy, $phrase));"
"var_dump(str_replace('ll', $yummy, 'good golly miss molly!',"
" $count));"
"var_dump(setlocale(LC_ALL, array('de_DE@euro', 'de_DE', 'deu_deu'),"
" array(1, 2)));"
"var_dump(setlocale(LC_ALL, str_pad('a', 255)));"
"var_dump(pack(\"\\xf4\", 0x1234, 0x5678, 65, 66));"
"var_dump(pack(\"x5\", 0x1234, 0x5678, 65, 66));"
"var_dump(pack(\"h\", -0x1234));"
"var_dump(pack(\"h\", 12345678900));"
"var_dump(unpack(\"\\xf4\", \"0x1234\"));"
"var_dump(sscanf('foo', '[%s', $id, $first, $last));"
"var_dump(sscanf('foo', '%z', $id, $first, $last));"
"var_dump(sscanf(\"SN/abc\", \"SN/%d%d\", $out));"
"var_dump($out);"
"var_dump(sscanf(\"SN/abc\", \"\", $out));"
"var_dump($out);"
"var_dump(printf('%$', 3));"
"var_dump(vsprintf('%$', 3));"
"var_dump(sprintf('%$', 3));"
"var_dump(vsprintf('%$', 3));"
"var_dump(str_word_count('abc', 2, '...'));"
"var_dump(str_word_count('abc', 2, 'b..a'));"
"var_dump(str_word_count('abc', 2, 'a..b..c'));"
"var_dump(base_convert('05678', 8, 37));"
"var_dump(convert_cyr_string('abc', 'y', 'z'));"
"var_dump(money_format('%abc', 1.33));"
"var_dump(money_format('%i%i', 1.33));"
"var_dump(str_pad('abc', 10, '', 100));"
"var_dump(str_pad('abc', 10, ' ', 100));"
"var_dump(wordwrap('', 75, '', true));"
"var_dump(wordwrap(null, 75, '', true));"
"var_dump(wordwrap('abc', 75, '', true));"
"var_dump(wordwrap('abc', 0, '', true));");
MVCR("<?php "
"function bar($a) { return $a; }"
"function baz($a) { return $a; }"
"function foo($x) {"
" return fb_call_user_func_safe_return('baz',"
" fb_call_user_func_safe_return('bar', $x));"
"}");
MVCR("<?php "
"function handler($err, $errstr) {"
" $errstr = preg_replace('/given,.*$/','given', $errstr);"
" var_dump($err, $errstr);"
"}"
"set_error_handler('handler');"
"class y {}"
"class x {"
" function __construct(y $y) {}"
"}"
"var_dump(new X(null));");
return true;
}
bool TestCodeRun::TestSuperGlobals() {
if (false) {
// This test is flaky on machines with both ipv6 and ipv4
MVCR("<?php function foo() { "
"file_get_contents('http://www.facebook.com/status.php');"
"var_dump(empty($http_response_header));"
"} foo();");
}
MVCR("<?php "
"function test() {"
" unset($GLOBALS['_SERVER']);"
" $GLOBALS['_SERVER']['foo'] = 'bar';"
" var_dump($_SERVER['foo']);"
" }"
"test();");
MVCR("<?php "
"function test() {"
" $_POST = array('HELLO' => 1);"
"}"
"test();"
"var_dump($_POST);");
MVCR("<?php "
"class X {"
" static function test() {"
" var_dump(__FUNCTION__);"
" var_dump(__CLASS__);"
" var_dump(__METHOD__);"
" return array($GLOBALS[__FUNCTION__],"
" $GLOBALS[__CLASS__],"
" $GLOBALS[__METHOD__]);"
" }"
"}"
"$test = 'this_is_function_test';"
"$X = 'this_is_class_x';"
"$GLOBALS['X::test'] = 'this_is_method_test::x';"
"var_dump(X::test());");
MVCR("<?php\n"
"$a = 100;\n"
"function f() {\n"
" foreach ($GLOBALS as $k => &$v) {\n"
" if ($k == 'a') { $v = -1; }\n"
" }\n"
" global $a;\n"
" var_dump($a);\n"
" $b = $GLOBALS;\n"
" $b['a'] = 0;\n"
" var_dump($GLOBALS['a']);\n"
"}\n"
"f();\n");
return true;
}
bool TestCodeRun::TestGlobalStatement() {
MVCR("<?php\n"
"global $c;\n"
"function &foo() {\n"
" $a = 5;\n"
" global $c;\n"
" $c = &$a;\n"
" var_dump($c);\n"
" return $a;\n"
"}\n"
"$b = foo();\n"
"$b = 6;\n"
"var_dump($c);\n"
"var_dump($b);\n"
);
MVCR("<?php "
"$global_var = 10;"
"function test_unset() {"
" global $global_var;"
" var_dump( isset($global_var) );"
" var_dump( empty($global_var) );"
" unset($global_var);"
" var_dump( isset($global_var) );"
" var_dump( empty($global_var) ); }"
"var_dump($global_var);"
"test_unset();"
"var_dump($global_var);"
);
MVCR("<?php "
"$a = 0;"
"function test() {"
" $a = 1;"
" if (true) global $a;"
" $a = 2;"
"}"
"test();"
"print \"$a\\n\";"
);
MVCR("<?php "
"$a = 1;"
"function test() {"
" $b = 1;"
" global $a;"
" $a = 10;"
"}"
"var_dump($a);"
"test();"
"var_dump($a);"
" return true;"
);
MVCR("<?php "
"function test() {"
" if (true) {"
" global $a;"
" $a = 10;"
" }"
"}"
"test();"
"var_dump($a);"
);
MVCR("<?php "
"$x = 1;"
"$GLOBALS['x'] = 2;"
"var_dump($x);"
"function test() {"
" global $x;"
" $x = 3;"
" $GLOBALS['x'] = 4;"
" var_dump($x);"
"}"
"test();");
return true;
}
bool TestCodeRun::TestStaticStatement() {
MVCR("<?php "
"function test_unset_static() {"
" static $static_var;"
" $static_var ++;"
" echo \"value of static_var before unset: $static_var\\n\";"
" var_dump( isset($static_var) );"
" var_dump( empty($static_var) );"
" unset($static_var);"
" echo \"value of static_var after unset: $static_var\\n\";"
" var_dump( isset($static_var) );"
" var_dump( empty($static_var) );"
" $static_var = 20;"
" echo \"value of static_var after new assignment: $static_var\\n\";"
"}"
"test_unset_static();"
"test_unset_static();"
"test_unset_static();"
);
MVCR("<?php "
"function test() {"
" $static_var = 3;"
" echo $static_var;"
" static $static_var;"
" $static_var ++;"
" echo $static_var;"
"}"
"test();"
)
MVCR("<?php "
"class A { static function test() {"
" $static_var = 3;"
" echo $static_var;"
" static $static_var;"
" $static_var ++;"
" echo $static_var;"
"} }"
"A::test();"
)
MVCR("<?php "
" $static_var = 1;"
" echo $static_var . \"\\n\";"
" static $static_var;"
" echo $static_var . \"\\n\";"
" $static_var ++;"
" echo $static_var . \"\\n\";"
)
MVCR("<?php "
" $static_var = 1;"
" global $static_var;"
" echo $static_var . \"\\n\";"
" $static_var --;"
" echo $static_var . \"\\n\";"
)
MVCR("<?php "
" $static_var = 1;"
" echo $static_var . \"\\n\";"
" static $static_var;"
" echo $static_var . \"\\n\";"
" $static_var ++;"
" echo $static_var . \"\\n\";"
" global $static_var;"
" echo $static_var . \"\\n\";"
" $static_var --;"
" echo $static_var . \"\\n\";"
)
MVCR("<?php "
"static $static_var = 1;"
"echo $static_var . \"\\n\";"
"function test()"
"{"
" static $static_var = -1;"
" echo $static_var . \"\\n\";"
" $static_var = 2;"
" echo $static_var . \"\\n\";"
" $static_var++;"
" echo $static_var . \"\\n\";"
"}"
"test();"
"test();"
)
MVCR("<?php "
"static $static_var;"
"echo $static_var . \"\\n\";"
"$static_var = 1;"
"echo $static_var . \"\\n\";"
)
MVCR("<?php "
"function test() {"
" if (false) {"
" static $static_var = +3;"
" }"
" echo $static_var . \"\\n\";"
" $static_var = 4;"
" echo $static_var . \"\\n\";"
"}"
"test();"
)
MVCR("<?php "
"if (false) {"
" static $static_var = +3;"
"}"
"echo $static_var . \"\\n\";"
"$static_var = 4;"
"echo $static_var . \"\\n\";"
)
MVCR("<?php "
"echo $static_var . \"\\n\";"
"static $static_var = 4;"
"echo $static_var . \"\\n\";"
);
MVCR("<?php "
"static $a = 5;"
"echo $a . \"\\n\";"
"global $a;"
"echo $a . \"\\n\";"
);
MVCR("<?php "
"function test() {"
" static $commenced = false;"
" if ($commenced === false) {"
" return 1;"
" }"
" $commenced = true;"
" unset($args);"
"}"
"echo test();"
);
MVCR("<?php "
"static $a = 1, $b = 2;"
"static $c = 1;"
"static $d = 1;"
"static $e = 1;"
"static $f = 1;"
"static $g = 1;"
"static $h = 1;"
"static $i = 1;"
"static $i = 2;"
"if (false) {"
" static $a = 2;"
" static $b = 3;"
" static $c = 2;"
" static $g;"
" static $i;"
" $e = 2;"
"} else {"
" static $d = 2;"
" static $h;"
" $f = 2;"
"}"
"echo $a;"
"echo $b;"
"echo $c;"
"echo $d;"
"echo $e;"
"echo $f;"
"echo $g;"
"echo $h;"
"echo $i;"
""
"function f() {"
" static $a = 1, $b = 2;"
" static $c = 1;"
" static $d = 1;"
" static $e = 1;"
" static $f = 1;"
" static $g = 1;"
" static $h = 1;"
" static $i = 1;"
" static $i = 2;"
" if (false) {"
" static $a = 2;"
" static $b = 3;"
" static $c = 2;"
" static $g;"
" static $i;"
" $e = 2;"
" } else {"
" static $d = 2;"
" static $h;"
" $f = 2;"
" }"
" echo $a;"
" echo $b;"
" echo $c;"
" echo $d;"
" echo $e;"
" echo $f;"
" echo $g;"
" echo $h;"
" echo $i;"
"}"
"f();"
"class foo {"
" static $a = 1, $b = 2;"
" static $c = 1;"
" static $d = 1;"
" static $e = 1;"
" static $f = 1;"
" function bar() {"
" static $a = 1, $b = 2;"
" static $c = 1;"
" static $d = 1;"
" static $e = 1;"
" static $f = 1;"
" static $g = 1;"
" static $h = 1;"
" static $i = 1;"
" static $i = 2;"
" if (false) {"
" static $a = 2;"
" static $b = 3;"
" static $c = 2;"
" static $g;"
" static $i;"
" $e = 2;"
" } else {"
" static $d = 2;"
" static $h;"
" $f = 2;"
" }"
" echo foo::$a;"
" echo foo::$b;"
" echo foo::$c;"
" echo foo::$d;"
" echo foo::$e;"
" echo foo::$f;"
" echo $a;"
" echo $b;"
" echo $c;"
" echo $d;"
" echo $e;"
" echo $f;"
" echo $g;"
" echo $h;"
" echo $i;"
" }"
"}"
"echo foo::$a;"
"echo foo::$b;"
"$v = new foo;"
"$v->bar();");
MVCR("<?php "
"define('FOO', 1);"
"class a {"
" static $b = FOO;"
"}"
"function foo() {"
" static $a;"
" static $a = FOO;"
" echo $a;"
"}"
"foo();"
"echo a::$b;");
MVCR("<?php "
"class c {"
" public $q = 20;"
" function x() {"
" $foo = 20;"
" static $foo;"
" $foo = $this->q;"
" echo $foo;"
" }"
" function y() {"
" static $foo = 20;"
" $foo++;"
" echo $foo;"
" }"
" static function sf() {"
" static $foo = 0;"
" $foo++;"
" echo $foo;"
" }"
"}"
"class d extends c {"
" public $q = 30;"
"}"
"$x = new c();"
"$x->x();"
"$x->y();"
"$x->y();"
"$x->y();"
"$x->y();"
"$x = new d();"
"$x->x();"
"$x->y();"
"$x->y();"
"$x->y();"
"c::sf();"
"c::sf();"
"c::sf();"
"d::sf();"
"d::sf();"
"d::sf();");
MVCR("<?php "
"class A {"
" private function foo() {"
" static $x = null;"
" var_dump(get_class($this), $x);"
" $x = 1;"
" }"
" public function run() {"
" $this->foo();"
" }"
"}"
"class B extends A {}"
"class C extends A {}"
"$a = new A;"
"$b = new B;"
"$c = new C;"
"$a->run();"
"$b->run();"
"$c->run();");
return true;
}
bool TestCodeRun::TestIfStatement() {
MVCR("<?php "
"if (false) {"
" echo \"case 1\\n\";"
"}"
"if (false) {"
" echo \"case 2\\n\";"
" function f1() {"
" $v = 1;"
" }"
"}"
"if (true) {"
" echo \"case 3\\n\";"
"}"
"if (true) {"
" echo \"case 4\\n\";"
" function f2() {"
" $v = 1;"
" }"
"}"
"if (true) {"
" echo \"case 5\\n\";"
"} else {"
" echo \"case 6\\n\";"
"}"
"if (true) {"
" echo \"case 7\\n\";"
"} else {"
" echo \"case 8\\n\";"
" function f3() {"
" $v = 1;"
" }"
"}"
"if ($a) {"
" echo \"case 9\\n\";"
"} elseif (true) {"
" echo \"case 10\\n\";"
" function f4() {"
" $v = 1;"
" }"
"} else {"
" echo \"case 11\\n\";"
"}"
"if ($a) {"
" echo \"case 12\\n\";"
"} elseif (true) {"
" echo \"case 13\\n\";"
"} else {"
" echo \"case 14\\n\";"
" function f5() {"
" $v = 1;"
" }"
"}"
"if ($a) {"
" echo \"case 15\\n\";"
"} elseif (true) {"
" echo \"case 16\\n\";"
"} elseif (true) {"
" echo \"case 17\\n\";"
" function f6() {"
" $v = 1;"
" }"
"} else {"
" echo \"case 18\\n\";"
"}"
"if ($a) {"
" echo \"case 19\\n\";"
"} elseif (true) {"
" echo \"case 20\\n\";"
"} elseif (true) {"
" echo \"case 21\\n\";"
" function f7() {"
" $v = 1;"
" }"
"}"
"if ($a) {"
" echo \"case 22\\n\";"
"} elseif (true) {"
" echo \"case 23\\n\";"
"} elseif (false) {"
" echo \"case 24\\n\";"
" function f8() {"
" $v = 1;"
" }"
"} else {"
" echo \"case 25\\n\";"
"}"
"if ($a) {"
" echo \"case 26\\n\";"
"} elseif (true) {"
" echo \"case 27\\n\";"
"} elseif (false) {"
" echo \"case 28\\n\";"
" function f9() {"
" $v = 1;"
" }"
"}");
MVCR("<?php "
"if (true) {"
" function foo() { echo \"foo\\n\"; }"
"} else if (false) {"
" function bar() { echo \"bar\\n\"; }"
"}");
MVCR("<?php "
"if (true) {"
" function foo() { echo \"foo\\n\"; }"
"} elseif (false) {"
" function bar() { echo \"bar\\n\"; }"
"}");
MVCR("<?php "
"function test($a,$b = 0) {"
" if ($a == 2) {"
" if ($b == 1) {"
" return;"
" }"
" $a = 5;"
" }"
" if ($a == 3) {"
" var_dump($a);"
" }"
"}"
"test(3);");
return true;
}
bool TestCodeRun::TestBreakStatement() {
MVCR("<?php "
"$arr = array('one', 'two', 'three', 'four', 'stop', 'five');"
"while (list(, $val) = each($arr)) {"
" if ($val == 'stop') {"
" break;"
" }"
" echo \"$val\\n\";"
"}"
""
"$i = 0;"
"while (++$i) {"
" switch ($i) {"
" case 5:"
" echo \"At 5\\n\";"
" break 1;"
" case 10:"
" echo \"At 10; quitting\\n\";"
" break 2;"
" default:"
" break;"
" }"
"}");
return true;
}
bool TestCodeRun::TestContinueStatement() {
MVCR("<?php "
"for ($i = 0;$i<3;$i++) {"
" echo \"Start Of I loop\\n\";"
" for ($j=0;;$j++) {"
" if ($j >= 2) continue 2;"
" echo \"I : $i J : $j\".\"\\n\";"
" }"
" echo \"End\\n\";"
"}"
"for ($i = 0;$i<10;$i++) {"
" if ($i % 2 == 0) continue 1;"
" echo $i . \"\\n\";"
"}"
"for ($i = 0;$i<10;$i++) {"
" if ($i % 2 == 0) continue;"
" echo $i . \"\\n\";"
"}");
MVCR("<?php "
"for ($i1 = 0; $i1 < 2; $i1++) {"
" for ($i2 = 0; $i2 < 2; $i2++) {"
" switch ($i2 % 2) {"
" case 0:"
" continue;"
" break;"
" }"
" print \"[\" . $i2 . \"]\\n\";"
" }"
" print $i1 . \"\\n\";"
"}");
return true;
}
bool TestCodeRun::TestReturnStatement() {
MVCR("<?php "
"function foo1($a) {"
" if ($a) return \"ok\";"
"}"
"function foo2($a) {"
" if ($a > 1) return;"
" if ($a == 1) return 1;"
"}"
"function foo3($a) {"
" if ($a > 1) return;"
" if ($a == 1) return;"
"}"
"function bar() {"
" $v1 = foo1(0);"
" var_dump($v1);"
" $v2 = foo2(0);"
" var_dump($v2);"
" $v3 = foo3(0);"
" var_dump($v3);"
"}"
"bar();");
MVCR("<?php "
"class q {}"
"function g() {"
" return null;"
" return new q;"
"}"
"function f() {"
" return;"
" return new q;"
"}"
"var_dump(g());"
"var_dump(f());"
);
return true;
}
bool TestCodeRun::TestAdd() {
MVCR("<?php "
"printf(\"%s\\n\", 30 + 30);"
"printf(\"%s\\n\", \"30\" + 30);"
"printf(\"%s\\n\", 30 + \"30\");"
"printf(\"%s\\n\", \"30\" + \"30\");"
);
MVCR("<?php "
"$a = \"123.456\" + 123;"
"var_dump($a);"
"$a = \"123.456\" + 456.123;"
"var_dump($a);"
"$a = \"123.456\" + \"123\";"
"var_dump($a);"
"$a = \"123.456\" + \"456.123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a += 123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a += 456.123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a += \"123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a += \"456.123\";"
"var_dump($a);"
);
MVCR("<?php "
"var_dump(1.7976931348623157e+308 + 1.7976931348623157e+308);"
);
return true;
}
bool TestCodeRun::TestMinus() {
MVCR("<?php "
"printf(\"%s\\n\", 30 - 30);"
"printf(\"%s\\n\", \"30\" - 30);"
"printf(\"%s\\n\", 30 - \"30\");"
"printf(\"%s\\n\", \"30\" - \"30\");"
);
MVCR("<?php "
"$a = \"123.456\" - 123;"
"var_dump($a);"
"$a = \"123.456\" - 456.123;"
"var_dump($a);"
"$a = \"123.456\" - \"123\";"
"var_dump($a);"
"$a = \"123.456\" - \"456.123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a -= 123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a -= 456.123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a -= \"123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a -= \"456.123\";"
"var_dump($a);"
);
return true;
}
bool TestCodeRun::TestMultiply() {
MVCR("<?php "
"printf(\"%s\\n\", 30 * 30);"
"printf(\"%s\\n\", \"30\" * 30);"
"printf(\"%s\\n\", 30 * \"30\");"
"printf(\"%s\\n\", \"30\" * \"30\");"
);
MVCR("<?php "
"$a = \"123.456\" * 123;"
"var_dump($a);"
"$a = \"123.456\" * 456.123;"
"var_dump($a);"
"$a = \"123.456\" * \"123\";"
"var_dump($a);"
"$a = \"123.456\" * \"456.123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a *= 123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a *= 456.123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a *= \"123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a *= \"456.123\";"
"var_dump($a);"
);
return true;
}
bool TestCodeRun::TestDivide() {
MVCR("<?php "
"printf(\"%s\\n\", 30 / 30);"
"printf(\"%s\\n\", \"30\" / 30);"
"printf(\"%s\\n\", 30 / \"30\");"
"printf(\"%s\\n\", \"30\" / \"30\");"
);
MVCR("<?php "
"$a = \"123.456\" / 123;"
"var_dump($a);"
"$a = \"123.456\" / 456.123;"
"var_dump($a);"
"$a = \"123.456\" / \"123\";"
"var_dump($a);"
"$a = \"123.456\" / \"456.123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a /= 123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a /= 456.123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a /= \"123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a /= \"456.123\";"
"var_dump($a);"
"$a = \"123\" / 123;"
"var_dump($a);"
"$a = \"123\" / \"123\";"
"var_dump($a);"
"$a = \"321\" / 123;"
"var_dump($a);"
"$a = \"321\" / 123.456;"
"var_dump($a);"
);
return true;
}
bool TestCodeRun::TestModulus() {
MVCR("<?php "
"printf(\"%s\\n\", 30 % 30);"
"printf(\"%s\\n\", \"30\" % 30);"
"printf(\"%s\\n\", 30 % \"30\");"
"printf(\"%s\\n\", \"30\" % \"30\");"
);
MVCR("<?php "
"$a = \"123.456\" % 123;"
"var_dump($a);"
"$a = \"123.456\" % 456.123;"
"var_dump($a);"
"$a = \"123.456\" % \"123\";"
"var_dump($a);"
"$a = \"123.456\" % \"456.123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a %= 123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a %= 456.123;"
"var_dump($a);"
"$a = \"123.456\";"
"$a %= \"123\";"
"var_dump($a);"
"$a = \"123.456\";"
"$a %= \"456.123\";"
"var_dump($a);"
"$a = \"123\" % 123;"
"var_dump($a);"
"$a = \"123\" % \"123\";"
"var_dump($a);"
"$a = \"321\" % 123;"
"var_dump($a);"
"$a = \"321\" % 123.456;"
"var_dump($a);"
);
MVCR("<?php "
"$a = 1 % 9223372036854775807;"
"var_dump($a);");
return true;
}
bool TestCodeRun::TestOperationTypes() {
MVCR("<?php "
"$a = null; var_dump(+$a);"
"$a = null; var_dump(-$a);"
""
"$a = null; $b = null; var_dump($a + $b);"
"$a = null; $b = true; var_dump($a + $b);"
"$a = null; $b = 0; var_dump($a + $b);"
"$a = null; $b = 1; var_dump($a + $b);"
"$a = null; $b = 1.0; var_dump($a + $b);"
"$a = null; $b = '1.0'; var_dump($a + $b);"
"$a = null; $b = 'foo'; var_dump($a + $b);"
"$a = null; $b = new Exception(); var_dump($a + $b);"
"$a = null; $b = null; $b = 0; var_dump($a + $b);"
"$a = null; $b = null; $b = 1; var_dump($a + $b);"
"$a = null; $b = null; $b = 1.0; var_dump($a + $b);"
"$a = null; $b = null; $b = '1.0'; var_dump($a + $b);"
"$a = null; $b = null; $b = 'foo'; var_dump($a + $b);"
"$a = null; $b = null; $b = new Exception(); var_dump($a + $b);"
"$a = null; $b = null; $a += $b; var_dump($a);"
"$a = null; $b = true; $a += $b; var_dump($a);"
"$a = null; $b = 0; $a += $b; var_dump($a);"
"$a = null; $b = 1; $a += $b; var_dump($a);"
"$a = null; $b = 1.0; $a += $b; var_dump($a);"
"$a = null; $b = '1.0'; $a += $b; var_dump($a);"
"$a = null; $b = 'foo'; $a += $b; var_dump($a);"
"$a = null; $b = new Exception(); $a += $b; var_dump($a);"
"$a = null; $b = null; $b = 0; $a += $b; var_dump($a);"
"$a = null; $b = null; $b = 1; $a += $b; var_dump($a);"
"$a = null; $b = null; $b = 1.0; $a += $b; var_dump($a);"
"$a = null; $b = null; $b = '1.0'; $a += $b; var_dump($a);"
"$a = null; $b = null; $b = 'foo'; $a += $b; var_dump($a);"
"$a = null; $b = null; $b = new Exception(); $a += $b; var_dump($a);"
""
"$a = null; $b = null; var_dump($a - $b);"
"$a = null; $b = true; var_dump($a - $b);"
"$a = null; $b = 0; var_dump($a - $b);"
"$a = null; $b = 1; var_dump($a - $b);"
"$a = null; $b = 1.0; var_dump($a - $b);"
"$a = null; $b = '1.0'; var_dump($a - $b);"
"$a = null; $b = 'foo'; var_dump($a - $b);"
"$a = null; $b = new Exception(); var_dump($a - $b);"
"$a = null; $b = null; $b = 0; var_dump($a - $b);"
"$a = null; $b = null; $b = 1; var_dump($a - $b);"
"$a = null; $b = null; $b = 1.0; var_dump($a - $b);"
"$a = null; $b = null; $b = '1.0'; var_dump($a - $b);"
"$a = null; $b = null; $b = 'foo'; var_dump($a - $b);"
"$a = null; $b = null; $b = new Exception(); var_dump($a - $b);"
"$a = null; $b = null; $a -= $b; var_dump($a);"
"$a = null; $b = true; $a -= $b; var_dump($a);"
"$a = null; $b = 0; $a -= $b; var_dump($a);"
"$a = null; $b = 1; $a -= $b; var_dump($a);"
"$a = null; $b = 1.0; $a -= $b; var_dump($a);"
"$a = null; $b = '1.0'; $a -= $b; var_dump($a);"
"$a = null; $b = 'foo'; $a -= $b; var_dump($a);"
"$a = null; $b = new Exception(); $a -= $b; var_dump($a);"
"$a = null; $b = null; $b = 0; $a -= $b; var_dump($a);"
"$a = null; $b = null; $b = 1; $a -= $b; var_dump($a);"
"$a = null; $b = null; $b = 1.0; $a -= $b; var_dump($a);"
"$a = null; $b = null; $b = '1.0'; $a -= $b; var_dump($a);"
"$a = null; $b = null; $b = 'foo'; $a -= $b; var_dump($a);"
"$a = null; $b = null; $b = new Exception(); $a -= $b; var_dump($a);"
""
"$a = null; $b = null; var_dump($a * $b);"
"$a = null; $b = true; var_dump($a * $b);"
"$a = null; $b = 0; var_dump($a * $b);"
"$a = null; $b = 1; var_dump($a * $b);"
"$a = null; $b = 1.0; var_dump($a * $b);"
"$a = null; $b = '1.0'; var_dump($a * $b);"
"$a = null; $b = 'foo'; var_dump($a * $b);"
"$a = null; $b = new Exception(); var_dump($a * $b);"
"$a = null; $b = null; $b = 0; var_dump($a * $b);"
"$a = null; $b = null; $b = 1; var_dump($a * $b);"
"$a = null; $b = null; $b = 1.0; var_dump($a * $b);"
"$a = null; $b = null; $b = '1.0'; var_dump($a * $b);"
"$a = null; $b = null; $b = 'foo'; var_dump($a * $b);"
"$a = null; $b = null; $b = new Exception(); var_dump($a * $b);"
"$a = null; $b = null; $a *= $b; var_dump($a);"
"$a = null; $b = true; $a *= $b; var_dump($a);"
"$a = null; $b = 0; $a *= $b; var_dump($a);"
"$a = null; $b = 1; $a *= $b; var_dump($a);"
"$a = null; $b = 1.0; $a *= $b; var_dump($a);"
"$a = null; $b = '1.0'; $a *= $b; var_dump($a);"
"$a = null; $b = 'foo'; $a *= $b; var_dump($a);"
"$a = null; $b = new Exception(); $a *= $b; var_dump($a);"
"$a = null; $b = null; $b = 0; $a *= $b; var_dump($a);"
"$a = null; $b = null; $b = 1; $a *= $b; var_dump($a);"
"$a = null; $b = null; $b = 1.0; $a *= $b; var_dump($a);"
"$a = null; $b = null; $b = '1.0'; $a *= $b; var_dump($a);"
"$a = null; $b = null; $b = 'foo'; $a *= $b; var_dump($a);"
"$a = null; $b = null; $b = new Exception(); $a *= $b; var_dump($a);"
""
"$a = null; $b = true; var_dump($a / $b);"
"$a = null; $b = 1; var_dump($a / $b);"
"$a = null; $b = 1.0; var_dump($a / $b);"
"$a = null; $b = '1.0'; var_dump($a / $b);"
"$a = null; $b = null; $b = 1; var_dump($a / $b);"
"$a = null; $b = null; $b = 1.0; var_dump($a / $b);"
"$a = null; $b = null; $b = '1.0'; var_dump($a / $b);"
"$a = null; $b = true; $a /= $b; var_dump($a);"
"$a = null; $b = 1; $a /= $b; var_dump($a);"
"$a = null; $b = 1.0; $a /= $b; var_dump($a);"
"$a = null; $b = '1.0'; $a /= $b; var_dump($a);"
"$a = null; $b = null; $b = 1; $a /= $b; var_dump($a);"
"$a = null; $b = null; $b = 1.0; $a /= $b; var_dump($a);"
"$a = null; $b = null; $b = '1.0'; $a /= $b; var_dump($a);"
""
"$a = true; $b = null; var_dump($a + $b);"
"$a = true; $b = true; var_dump($a + $b);"
"$a = true; $b = 0; var_dump($a + $b);"
"$a = true; $b = 1; var_dump($a + $b);"
"$a = true; $b = 1.0; var_dump($a + $b);"
"$a = true; $b = '1.0'; var_dump($a + $b);"
"$a = true; $b = 'foo'; var_dump($a + $b);"
"$a = true; $b = new Exception(); var_dump($a + $b);"
"$a = true; $b = null; $b = 0; var_dump($a + $b);"
"$a = true; $b = null; $b = 1; var_dump($a + $b);"
"$a = true; $b = null; $b = 1.0; var_dump($a + $b);"
"$a = true; $b = null; $b = '1.0'; var_dump($a + $b);"
"$a = true; $b = null; $b = 'foo'; var_dump($a + $b);"
"$a = true; $b = null; $b = new Exception(); var_dump($a + $b);"
"$a = true; $b = null; $a += $b; var_dump($a);"
"$a = true; $b = true; $a += $b; var_dump($a);"
"$a = true; $b = 0; $a += $b; var_dump($a);"
"$a = true; $b = 1; $a += $b; var_dump($a);"
"$a = true; $b = 1.0; $a += $b; var_dump($a);"
"$a = true; $b = '1.0'; $a += $b; var_dump($a);"
"$a = true; $b = 'foo'; $a += $b; var_dump($a);"
"$a = true; $b = new Exception(); $a += $b; var_dump($a);"
"$a = true; $b = null; $b = 0; $a += $b; var_dump($a);"
"$a = true; $b = null; $b = 1; $a += $b; var_dump($a);"
"$a = true; $b = null; $b = 1.0; $a += $b; var_dump($a);"
"$a = true; $b = null; $b = '1.0'; $a += $b; var_dump($a);"
"$a = true; $b = null; $b = 'foo'; $a += $b; var_dump($a);"
"$a = true; $b = null; $b = new Exception(); $a += $b; var_dump($a);"
""
"$a = true; $b = null; var_dump($a - $b);"
"$a = true; $b = true; var_dump($a - $b);"
"$a = true; $b = 0; var_dump($a - $b);"
"$a = true; $b = 1; var_dump($a - $b);"
"$a = true; $b = 1.0; var_dump($a - $b);"
"$a = true; $b = '1.0'; var_dump($a - $b);"
"$a = true; $b = 'foo'; var_dump($a - $b);"
"$a = true; $b = new Exception(); var_dump($a - $b);"
"$a = true; $b = null; $b = 0; var_dump($a - $b);"
"$a = true; $b = null; $b = 1; var_dump($a - $b);"
"$a = true; $b = null; $b = 1.0; var_dump($a - $b);"
"$a = true; $b = null; $b = '1.0'; var_dump($a - $b);"
"$a = true; $b = null; $b = 'foo'; var_dump($a - $b);"
"$a = true; $b = null; $b = new Exception(); var_dump($a - $b);"
"$a = true; $b = null; $a -= $b; var_dump($a);"
"$a = true; $b = true; $a -= $b; var_dump($a);"
"$a = true; $b = 0; $a -= $b; var_dump($a);"
"$a = true; $b = 1; $a -= $b; var_dump($a);"
"$a = true; $b = 1.0; $a -= $b; var_dump($a);"
"$a = true; $b = '1.0'; $a -= $b; var_dump($a);"
"$a = true; $b = 'foo'; $a -= $b; var_dump($a);"
"$a = true; $b = new Exception(); $a -= $b; var_dump($a);"
"$a = true; $b = null; $b = 0; $a -= $b; var_dump($a);"
"$a = true; $b = null; $b = 1; $a -= $b; var_dump($a);"
"$a = true; $b = null; $b = 1.0; $a -= $b; var_dump($a);"
"$a = true; $b = null; $b = '1.0'; $a -= $b; var_dump($a);"
"$a = true; $b = null; $b = 'foo'; $a -= $b; var_dump($a);"
"$a = true; $b = null; $b = new Exception(); $a -= $b; var_dump($a);"
""
"$a = true; $b = null; var_dump($a * $b);"
"$a = true; $b = true; var_dump($a * $b);"
"$a = true; $b = 0; var_dump($a * $b);"
"$a = true; $b = 1; var_dump($a * $b);"
"$a = true; $b = 1.0; var_dump($a * $b);"
"$a = true; $b = '1.0'; var_dump($a * $b);"
"$a = true; $b = 'foo'; var_dump($a * $b);"
"$a = true; $b = new Exception(); var_dump($a * $b);"
"$a = true; $b = null; $b = 0; var_dump($a * $b);"
"$a = true; $b = null; $b = 1; var_dump($a * $b);"
"$a = true; $b = null; $b = 1.0; var_dump($a * $b);"
"$a = true; $b = null; $b = '1.0'; var_dump($a * $b);"
"$a = true; $b = null; $b = 'foo'; var_dump($a * $b);"
"$a = true; $b = null; $b = new Exception(); var_dump($a * $b);"
"$a = true; $b = null; $a *= $b; var_dump($a);"
"$a = true; $b = true; $a *= $b; var_dump($a);"
"$a = true; $b = 0; $a *= $b; var_dump($a);"
"$a = true; $b = 1; $a *= $b; var_dump($a);"
"$a = true; $b = 1.0; $a *= $b; var_dump($a);"
"$a = true; $b = '1.0'; $a *= $b; var_dump($a);"
"$a = true; $b = 'foo'; $a *= $b; var_dump($a);"
"$a = true; $b = new Exception(); $a *= $b; var_dump($a);"
"$a = true; $b = null; $b = 0; $a *= $b; var_dump($a);"
"$a = true; $b = null; $b = 1; $a *= $b; var_dump($a);"
"$a = true; $b = null; $b = 1.0; $a *= $b; var_dump($a);"
"$a = true; $b = null; $b = '1.0'; $a *= $b; var_dump($a);"
"$a = true; $b = null; $b = 'foo'; $a *= $b; var_dump($a);"
"$a = true; $b = null; $b = new Exception(); $a *= $b; var_dump($a);"
""
"$a = true; $b = true; var_dump($a / $b);"
"$a = true; $b = 1; var_dump($a / $b);"
"$a = true; $b = 1.0; var_dump($a / $b);"
"$a = true; $b = '1.0'; var_dump($a / $b);"
"$a = true; $b = null; $b = 1; var_dump($a / $b);"
"$a = true; $b = null; $b = 1.0; var_dump($a / $b);"
"$a = true; $b = null; $b = '1.0'; var_dump($a / $b);"
"$a = true; $b = true; $a /= $b; var_dump($a);"
"$a = true; $b = 1; $a /= $b; var_dump($a);"
"$a = true; $b = 1.0; $a /= $b; var_dump($a);"
"$a = true; $b = '1.0'; $a /= $b; var_dump($a);"
"$a = true; $b = null; $b = 1; $a /= $b; var_dump($a);"
"$a = true; $b = null; $b = 1.0; $a /= $b; var_dump($a);"
"$a = true; $b = null; $b = '1.0'; $a /= $b; var_dump($a);");
MVCR("<?php "
"var_dump(1 / 1.7976931348623157e+308 || false);");
/*
Fails under release build due to g++ optimization
MVCR("<?php "
"var_dump((1.7976931348623157e+308 + 1.7976931348623157e+308) << 0);");
*/
MVCR("<?php "
"function foo() {"
" return '1';"
"}"
"function bar() {"
" $a = 1;"
" $a += foo();"
" var_dump($a);"
" $b = 1;"
" $b -= foo();"
" var_dump($b);"
"}"
"bar();");
MVCR("<?php "
"$a = null;"
"$a += new Exception();"
"var_dump($a);");
return true;
}
#define UNARY_OP_DATA(op) \
"<?php " \
#op"(!null);" \
#op"(!true);" \
#op"(!false);" \
#op"(!0);" \
#op"(!1);" \
#op"(!1.2);" \
#op"(!\"\");" \
#op"(!\"0\");" \
#op"(!\"1\");" \
#op"(!\"1.2\");" \
#op"(!'');" \
#op"(!'0');" \
#op"(!'1');" \
#op"(!'1.2');" \
#op"(!__LINE__);" \
#op"(!__FUNCTION__);" \
#op"(!0x10);" \
#op"(!010);" \
#op"(!\"0x10\");" \
#op"(!\"010\");" \
#op"(+null);" \
#op"(+true);" \
#op"(+false);" \
#op"(+0);" \
#op"(+1);" \
#op"(+1.2);" \
#op"(+\"\");" \
#op"(+\"0\");" \
#op"(+\"1\");" \
#op"(+\"1.2\");" \
#op"(+'');" \
#op"(+'0');" \
#op"(+'1');" \
#op"(+'1.2');" \
#op"(+__LINE__);" \
#op"(+__FUNCTION__);" \
#op"(+0x10);" \
#op"(+010);" \
#op"(+\"0x10\");" \
#op"(+\"010\");" \
#op"(-null);" \
#op"(-true);" \
#op"(-false);" \
#op"(-0);" \
#op"(-1);" \
#op"(-1.2);" \
#op"(-\"\");" \
#op"(-\"0\");" \
#op"(-\"1\");" \
#op"(-\"1.2\");" \
#op"(-'');" \
#op"(-'0');" \
#op"(-'1');" \
#op"(-'1.2');" \
#op"(-__LINE__);" \
#op"(-__FUNCTION__);" \
#op"(-0x10);" \
#op"(-010);" \
#op"(-\"0x10\");" \
#op"(-\"010\");" \
#op"(~0);" \
#op"(~1);" \
#op"(~1.2);" \
#op"(~\"\");" \
#op"(~\"0\");" \
#op"(~\"1\");" \
#op"(~\"1.2\");" \
#op"(~'');" \
#op"(~'0');" \
#op"(~'1');" \
#op"(~'1.2');" \
#op"(~__LINE__);" \
#op"(~__FUNCTION__);" \
#op"(~0x10);" \
#op"(~010);" \
#op"(~\"0x10\");" \
#op"(~\"010\");" \
#op"((null));" \
#op"((true));" \
#op"((false));" \
#op"((0));" \
#op"((1));" \
#op"((1.2));" \
#op"((\"\"));" \
#op"((\"0\"));" \
#op"((\"1\"));" \
#op"((\"1.2\"));" \
#op"((''));" \
#op"(('0'));" \
#op"(('1'));" \
#op"(('1.2'));" \
#op"((__LINE__));" \
#op"((__FUNCTION__));" \
#op"((0x10));" \
#op"((010));" \
#op"((\"0x10\"));" \
#op"((\"010\"));" \
#op"((int)null);" \
#op"((int)true);" \
#op"((int)false);" \
#op"((int)0);" \
#op"((int)1);" \
#op"((int)1.2);" \
#op"((int)\"\");" \
#op"((int)\"0\");" \
#op"((int)\"1\");" \
#op"((int)\"1.2\");" \
#op"((int)'');" \
#op"((int)'0');" \
#op"((int)'1');" \
#op"((int)'1.2');" \
#op"((int)__LINE__);" \
#op"((int)__FUNCTION__);" \
#op"((int)0x10);" \
#op"((int)010);" \
#op"((int)\"0x10\");" \
#op"((int)\"010\");" \
#op"((integer)null);" \
#op"((integer)true);" \
#op"((integer)false);" \
#op"((integer)0);" \
#op"((integer)1);" \
#op"((integer)1.2);" \
#op"((integer)\"\");" \
#op"((integer)\"0\");" \
#op"((integer)\"1\");" \
#op"((integer)\"1.2\");" \
#op"((integer)'');" \
#op"((integer)'0');" \
#op"((integer)'1');" \
#op"((integer)'1.2');" \
#op"((integer)__LINE__);" \
#op"((integer)__FUNCTION__);" \
#op"((integer)0x10);" \
#op"((integer)010);" \
#op"((integer)\"0x10\");" \
#op"((integer)\"010\");" \
#op"((bool)null);" \
#op"((bool)true);" \
#op"((bool)false);" \
#op"((bool)0);" \
#op"((bool)1);" \
#op"((bool)1.2);" \
#op"((bool)\"\");" \
#op"((bool)\"0\");" \
#op"((bool)\"1\");" \
#op"((bool)\"1.2\");" \
#op"((bool)'');" \
#op"((bool)'0');" \
#op"((bool)'1');" \
#op"((bool)'1.2');" \
#op"((bool)__LINE__);" \
#op"((bool)__FUNCTION__);" \
#op"((bool)0x10);" \
#op"((bool)010);" \
#op"((bool)\"0x10\");" \
#op"((bool)\"010\");" \
#op"((boolean)null);" \
#op"((boolean)true);" \
#op"((boolean)false);" \
#op"((boolean)0);" \
#op"((boolean)1);" \
#op"((boolean)1.2);" \
#op"((boolean)\"\");" \
#op"((boolean)\"0\");" \
#op"((boolean)\"1\");" \
#op"((boolean)\"1.2\");" \
#op"((boolean)'');" \
#op"((boolean)'0');" \
#op"((boolean)'1');" \
#op"((boolean)'1.2');" \
#op"((boolean)__LINE__);" \
#op"((boolean)__FUNCTION__);" \
#op"((boolean)0x10);" \
#op"((boolean)010);" \
#op"((boolean)\"0x10\");" \
#op"((boolean)\"010\");" \
#op"((float)null);" \
#op"((float)true);" \
#op"((float)false);" \
#op"((float)0);" \
#op"((float)1);" \
#op"((float)1.2);" \
#op"((float)\"\");" \
#op"((float)\"0\");" \
#op"((float)\"1\");" \
#op"((float)\"1.2\");" \
#op"((float)'');" \
#op"((float)'0');" \
#op"((float)'1');" \
#op"((float)'1.2');" \
#op"((float)__LINE__);" \
#op"((float)__FUNCTION__);" \
#op"((float)0x10);" \
#op"((float)010);" \
#op"((float)\"0x10\");" \
#op"((float)\"010\");" \
#op"((double)null);" \
#op"((double)true);" \
#op"((double)false);" \
#op"((double)0);" \
#op"((double)1);" \
#op"((double)1.2);" \
#op"((double)\"\");" \
#op"((double)\"0\");" \
#op"((double)\"1\");" \
#op"((double)\"1.2\");" \
#op"((double)'');" \
#op"((double)'0');" \
#op"((double)'1');" \
#op"((double)'1.2');" \
#op"((double)__LINE__);" \
#op"((double)__FUNCTION__);" \
#op"((double)0x10);" \
#op"((double)010);" \
#op"((double)\"0x10\");" \
#op"((double)\"010\");" \
#op"((real)null);" \
#op"((real)true);" \
#op"((real)false);" \
#op"((real)0);" \
#op"((real)1);" \
#op"((real)1.2);" \
#op"((real)\"\");" \
#op"((real)\"0\");" \
#op"((real)\"1\");" \
#op"((real)\"1.2\");" \
#op"((real)'');" \
#op"((real)'0');" \
#op"((real)'1');" \
#op"((real)'1.2');" \
#op"((real)__LINE__);" \
#op"((real)__FUNCTION__);" \
#op"((real)0x10);" \
#op"((real)010);" \
#op"((real)\"0x10\");" \
#op"((real)\"010\");" \
#op"((string)null);" \
#op"((string)true);" \
#op"((string)false);" \
#op"((string)0);" \
#op"((string)1);" \
#op"((string)1.2);" \
#op"((string)\"\");" \
#op"((string)\"0\");" \
#op"((string)\"1\");" \
#op"((string)\"1.2\");" \
#op"((string)'');" \
#op"((string)'0');" \
#op"((string)'1');" \
#op"((string)'1.2');" \
#op"((string)__LINE__);" \
#op"((string)__FUNCTION__);" \
#op"((string)0x10);" \
#op"((string)010);" \
#op"((string)\"0x10\");" \
#op"((string)\"010\");" \
#op"(1.7e+319);" \
#op"(!1.7e+319);" \
#op"(+1.7e+319);" \
#op"(-1.7e+319);" \
#op"(~1.7e+319);" \
#op"((1.7e+319));" \
#op"((int)1.7e+319);" \
#op"((integer)1.7e+319);" \
#op"((bool)1.7e+319);" \
#op"((boolean)1.7e+319);" \
#op"((float)1.7e+319);" \
#op"((double)1.7e+319);" \
#op"((real)1.7e+319);" \
#op"((string)1.7e+319);" \
#op"(\"1.7e+319\");" \
#op"(!\"1.7e+319\");" \
#op"(+\"1.7e+319\");" \
#op"(-\"1.7e+319\");" \
#op"(~\"1.7e+319\");" \
#op"((\"1.7e+319\"));" \
#op"((int)\"1.7e+319\");" \
#op"((integer)\"1.7e+319\");" \
#op"((bool)\"1.7e+319\");" \
#op"((boolean)\"1.7e+319\");" \
#op"((float)\"1.7e+319\");" \
#op"((double)\"1.7e+319\");" \
#op"((real)\"1.7e+319\");" \
#op"((string)\"1.7e+319\");"
#define UNARY_OP_ARRAY_DATA(op) \
"<?php " \
#op"(array(\"\\0\" => 1));" \
#op"(array(\"\\0\" => \"\\0\"));" \
#op"(array(\"\\0\" => \"\\\\\"));" \
#op"(array(\"\\0\" => \"\\'\"));" \
#op"(array(\"\\\\\" => 1));" \
#op"(array(\"\\\\\" => \"\\0\"));" \
#op"(array(\"\\\\\" => \"\\\\\"));" \
#op"(array(\"\\\\\" => \"\\'\"));" \
#op"(array(\"\\'\" => 1));" \
#op"(array(\"\\'\" => \"\\0\"));" \
#op"(array(\"\\'\" => \"\\\\\"));" \
#op"(array(\"\\'\" => \"\\'\"));" \
#op"(array(\"\\a\" => \"\\a\"));" \
#op"(!array(\"\\0\" => \"\\0\"));" \
#op"((array(\"\\0\" => \"\\0\")));" \
#op"((int)array(\"\\0\" => \"\\0\"));" \
#op"((integer)array(\"\\0\" => \"\\0\"));" \
#op"((bool)array(\"\\0\" => \"\\0\"));" \
#op"((boolean)array(\"\\0\" => \"\\0\"));" \
#op"((float)array(\"\\0\" => \"\\0\"));" \
#op"((double)array(\"\\0\" => \"\\0\"));" \
#op"((real)array(\"\\0\" => \"\\0\"));" \
#op"((string)array(\"\\0\" => \"\\0\"));" \
"$a = \"0x10\";" \
#op"($a);" \
#op"(\"\\0\");" \
"$a = array(\"\\0\" => 1);" \
#op"($a);" \
"$a = array(\"\\0\" => \"\\0\");" \
#op"($a);" \
"$a = array(\"\\0\" => \"\\\\\");" \
#op"($a);" \
"$a = array(\"\\0\" => \"\\'\");" \
#op"($a);" \
"$a = array(\"\\\\\" => 1);" \
#op"($a);" \
"$a = array(\"\\\\\" => \"\\0\");" \
#op"($a);" \
"$a = array(\"\\\\\" => \"\\\\\");" \
#op"($a);" \
"$a = array(\"\\\\\" => \"\\'\");" \
#op"($a);" \
"$a = array(\"\\'\" => 1);" \
#op"($a);" \
"$a = array(\"\\'\" => \"\\0\");" \
#op"($a);" \
"$a = array(\"\\'\" => \"\\\\\");" \
#op"($a);" \
"$a = array(\"\\'\" => \"\\'\");" \
#op"($a);" \
"$a = array(\"\\a\" => \"\\a\");" \
#op"($a);"
#define UNARY_OP(op) \
MVCR(UNARY_OP_DATA(op)) \
MVCR(UNARY_OP_ARRAY_DATA(op))
bool TestCodeRun::TestUnaryOperators() {
UNARY_OP(var_dump);
MVCR("<?php "
"function foo($x) {"
" if ($x) {"
" $a = array();"
" $s = 'hello';"
" $o = (object)null;"
" }"
" var_dump((array)$a, (array)$s, (array)$o);"
" var_dump((string)$a, (string)$s, (string)$o);"
" var_dump((object)$a);"
"var_dump((object)$s);"
"var_dump((object)$o);"
"}"
"foo(false);");
MVCR("<?php "
"function test($x) {"
" switch ($x) {"
" case 1:"
" $y = true;"
" case 2:"
" var_dump(isset($y), $y);"
" }"
"}"
"test(2);");
return true;
}
bool TestCodeRun::TestSilenceOperator() {
MVCR("<?php "
"@define( 'MARKDOWN_EMPTY_ELEMENT_SUFFIX', \" />\");");
return true;
}
bool TestCodeRun::TestPrint() {
UNARY_OP(echo);
UNARY_OP(print);
UNARY_OP(print_r);
UNARY_OP(serialize);
return true;
}
bool TestCodeRun::TestVarExport() {
MVCR(UNARY_OP_DATA(var_export));
MVCRO(UNARY_OP_ARRAY_DATA(var_export),
"array (\n"
" '' . \"\\0\" . '' => 1,\n"
")array (\n"
" '' . \"\\0\" . '' => '' . \"\\0\" . '',\n"
")array (\n"
" '' . \"\\0\" . '' => '\\\\',\n"
")array (\n"
" '' . \"\\0\" . '' => '\\\\\\\'',\n"
")array (\n"
" '\\\\' => 1,\n"
")array (\n"
" '\\\\' => '' . \"\\0\" . '',\n"
")array (\n"
" '\\\\' => '\\\\',\n"
")array (\n"
" '\\\\' => '\\\\\\\'',\n"
")array (\n"
" '\\\\\\\'' => 1,\n"
")array (\n"
" '\\\\\\\'' => '' . \"\\0\" . '',\n"
")array (\n"
" '\\\\\\\'' => '\\\\',\n"
")array (\n"
" '\\\\\\\'' => '\\\\\\\'',\n"
")array (\n"
" '\\\\a' => '\\\\a',\n"
")falsearray (\n"
" '' . \"\\0\" . '' => '' . \"\\0\" . '',\n"
")11truetrue111'Array''0x10''' . \"\\0\" . ''array (\n"
" '' . \"\\0\" . '' => 1,\n"
")array (\n"
" '' . \"\\0\" . '' => '' . \"\\0\" . '',\n"
")array (\n"
" '' . \"\\0\" . '' => '\\\\',\n"
")array (\n"
" '' . \"\\0\" . '' => '\\\\\\\'',\n"
")array (\n"
" '\\\\' => 1,\n"
")array (\n"
" '\\\\' => '' . \"\\0\" . '',\n"
")array (\n"
" '\\\\' => '\\\\',\n"
")array (\n"
" '\\\\' => '\\\\\\\'',\n"
")array (\n"
" '\\\\\\\'' => 1,\n"
")array (\n"
" '\\\\\\\'' => '' . \"\\0\" . '',\n"
")array (\n"
" '\\\\\\\'' => '\\\\',\n"
")array (\n"
" '\\\\\\\'' => '\\\\\\\'',\n"
")array (\n"
" '\\\\a' => '\\\\a',\n"
")");
return true;
}
bool TestCodeRun::TestLocale() {
MVCRO("<?php "
"class A { public $a; function __toString() { return $this->a;}} "
"$a = new A; $a->a = 'a'; $b = new A; $b->a = 'b'; "
"$arr = array($a, $b); sort($arr, SORT_REGULAR, true); "
"print ((string)$arr[0]);",
"a");
MVCRO("<?php "
"class A { public $a; }"
"$a = new A; $a->a = 'a'; $b = new A; $b->a = 'b'; "
"$arr = array($b, $a);"
"print $arr[0]->a;"
"sort($arr, SORT_REGULAR, true); "
"print $arr[0]->a;",
"ba");
MVCRO("<?php "
"$a = array(1);"
"$b = array(2);"
"$arr = array($b, $a);"
"print $arr[0][0];"
"asort($arr, SORT_REGULAR, true); "
"print $arr[0][0];",
"22");
MVCR("<?php "
"$a = array(\"a bc\", \"\\xc1 bc\", \"d ef\");"
"asort($a);"
"print_r($a);"
"$a = array(\"a bc\", \"\\xc1 bc\", \"d ef\");"
"asort($a, SORT_LOCALE_STRING);"
"print_r($a);"
"$a = array(\"a bc\", \"\\xc1 bc\", \"d ef\");"
"setlocale(LC_ALL, \"pt_PT\");"
"asort($a);"
"print_r($a);"
"$a = array(\"a bc\", \"\\xc1 bc\", \"d ef\");"
"setlocale(LC_ALL, \"pt_PT\");"
"asort($a, SORT_LOCALE_STRING);"
"print_r($a);");
return true;
}
bool TestCodeRun::TestLogicalOperators() {
MVCR("<?php "
"function foo() { echo \"foo\"; }"
"$a = (false && foo());"
"$b = (true || foo());"
"$c = (false and foo());"
"$d = (true or foo());"
"$e = ($e || true);"
"$f = ($f or true);"
"$g = ($g && false);"
"$h = ($h and false);"
"var_dump($a, $b, $c, $d, $e, $f, $g, $h);");
MVCR("<?php "
"function foo($a) { echo \"foo\"; return $a; }"
"$x = true;"
"$x = $x and foo(false);"
"var_dump($x);"
"$x = $x && foo(false);"
"var_dump($x);"
"$x = false;"
"$x = $x or foo(true);"
"var_dump($x);"
"$x = $x || foo(true);"
"var_dump($x);");
MVCR("<?php var_dump($a || null);");
MVCR("<?php "
"function f($a) { var_dump('f:'.$a); return $a; }"
"function foo($a) {"
" var_dump($a && true);"
" var_dump(f($a) && true);"
" var_dump(true && $a);"
" var_dump(true && f($a));"
" var_dump($a && false);"
" var_dump(f($a) && false);"
" var_dump(false && $a);"
" var_dump(false && f($a));"
" var_dump($a || true);"
" var_dump(f($a) || true);"
" var_dump(true || $a);"
" var_dump(true || f($a));"
" var_dump($a || false);"
" var_dump(f($a) || false);"
" var_dump(false || $a);"
" var_dump(false || f($a));"
"}"
"foo(34);"
"foo(0);");
return true;
}
bool TestCodeRun::TestGetClass() {
MVCR("<?php "
"class foo {"
" function bar () {"
" var_dump(get_class());"
" var_dump(get_class(null));"
" }"
"}"
"class foo2 extends foo {"
"}"
"$f1 = new foo;"
"$f2 = new foo2;"
"var_dump(get_class($f1));"
"$f1->bar();"
"$f2->bar();"
"var_dump(get_class(\"qwerty\"));"
"var_dump(get_class($f1));"
"var_dump(get_class($f2));"
);
MVCR("<?php "
"abstract class bar {"
" public function __construct()"
" {"
" var_dump(get_class($this));"
" var_dump(get_class());"
" }"
"}"
"class foo extends bar {"
"}"
"new foo;"
);
return true;
}
bool TestCodeRun::TestGetParentClass() {
MVCR("<?php "
"class dad {"
" function dad()"
" {}"
"}"
"class child extends dad {"
" function child()"
" {"
" echo \"I'm \" , get_parent_class($this) , \"'s son\\n\";"
" }"
"}"
"class child2 extends dad {"
" function child2()"
" {"
" echo \"I'm \" , get_parent_class('child2') , \"'s son too\n\";"
" }"
"}"
"$foo = new child();"
"$bar = new child2();"
);
MVCR("<?php "
"interface i {"
" function test();"
"}"
"class foo implements i {"
" function test() {"
" var_dump(get_parent_class());"
" }"
"}"
"class bar extends foo {"
" function test_bar() {"
" var_dump(get_parent_class());"
" }"
"}"
"class goo extends bar {"
" function test_goo() {"
" var_dump(get_parent_class());"
" }"
"}"
"$bar = new bar;"
"$foo = new foo;"
"$goo = new goo;"
"$foo->test();"
"$bar->test();"
"$bar->test_bar();"
"$goo->test();"
"$goo->test_bar();"
"$goo->test_goo();"
"var_dump(get_parent_class($bar));"
"var_dump(get_parent_class($foo));"
"var_dump(get_parent_class($goo));"
"var_dump(get_parent_class(\"bar\"));"
"var_dump(get_parent_class(\"foo\"));"
"var_dump(get_parent_class(\"goo\"));"
"var_dump(get_parent_class(\"i\"));"
"var_dump(get_parent_class(\"\"));"
"var_dump(get_parent_class(\"[[[[\"));"
"var_dump(get_parent_class(\" \"));"
"var_dump(get_parent_class(new stdclass));"
"var_dump(get_parent_class(array()));"
"var_dump(get_parent_class(1));"
);
return true;
}
bool TestCodeRun::TestRedeclaredFunctions() {
MVCR("<?php "
"if (true) {"
" function test() {"
" echo('a');"
" }"
"} else {"
" function test() {"
" echo('b');"
" }"
"}"
"test();"
);
MVCR("<?php "
"function test($a, $b, $c, $d, $e, $f, $g = 0) {"
" return $a;"
"}"
"if (0) { function test($a) {} }"
"test(1,2,3,4,5,6);");
return true;
}
bool TestCodeRun::TestRedeclaredClasses() {
MVCR(
"<?php\n"
"$b = 123;\n"
"if ($b) {\n"
" class Exception1 extends Exception {}\n"
"} else {\n"
" class Exception1 extends Exception {}\n"
"}\n"
"class Exception2 extends Exception1 {}\n"
"\n"
"function foo() {\n"
" $e = new Exception();\n"
" try {\n"
" throw new Exception2();\n"
" } catch (Exception $e) {\n"
" var_dump($e->getCode());\n"
" }\n"
"}\n"
"foo();\n"
);
MVCR("<?php "
"class base1 {}"
"class base2 {}"
"if (true) {"
" class a extends base1 {"
" const aconst = \"firstA\";"
" const a1const = 0;"
" static $astat = 1;"
" static $a1stat = 1;"
" function __construct() { echo \"first def made\n\"; }"
" static function foo() { return 1;}"
" }"
"} else {"
" class a extends base2 {"
" const aconst = \"secondA\";"
" const a2const = 0;"
" static $astat = 2;"
" static $a2stat = 2;"
" function __construct() { echo \"second def made\n\"; }"
" static function foo() { return 2;}"
" }"
"}"
"$foo = \"foo\";"
"$y = new a;"
"var_dump(a::foo());"
"var_dump(a::$foo());"
"var_dump(call_user_func(array('a','foo')));"
"var_dump(a::$astat);"
"var_dump(a::$a1stat);"
"var_dump(a::aconst);"
"var_dump(a::a1const);"
"var_dump(method_exists('a',\"foo\"));"
"var_dump(method_exists($y,\"foo\"));"
"var_dump(property_exists(\"a\",\"astat\"));"
"var_dump(property_exists(\"a\",\"a1stat\"));"
"var_dump(property_exists(\"a\",\"a2stat\"));"
"var_dump(get_parent_class($y));"
"var_dump(is_subclass_of(\"a\", \"base1\"));"
"var_dump(is_subclass_of(\"a\", \"base2\"));"
"var_dump(get_object_vars($y));"
);
MVCR("<?php "
"if (true) {"
" class base {"
" public $baseVal = 'base';"
" static $baseStatic = 'baseStat';"
" function childProp() { return $this->childProp; }"
" function testChildMeth() { return $this->childMeth(); }"
" static function baseStatMeth() {"
" return 'Base static method';"
" }"
" function childMeth() { return 'I am base'; }"
" }"
"} else {"
" class base {"
" }"
"}"
"class child1 extends base {"
" public $child1Val = 'child1';"
" public $childProp = 'IamChild1';"
" static $child1Static = 'child1Stat';"
" function childMeth() {"
" return 'I am child1';"
" }"
" static function child1StatMeth() {"
" return 'Child 1 static method';"
" }"
" function parentChildMeth() {"
" return parent::childMeth();"
" }"
"}"
"class child2 extends child1 {"
" public $child2Val = 'child2';"
" public $childProp = 'IamChild2';"
" static $child2Static = 'child2Stat';"
" static function child2StatMeth() {"
" return 'Child 2 static method';"
" }"
" function childMeth() {"
" return 'I am child2';"
" }"
" function parentChildMeth() {"
" return parent::childMeth();"
" }"
" function testChildMeth2() { return $this->childMeth(); }"
"}"
"if (true) {"
" class child3 extends child2 {"
" public $child3Val = 'child3';"
" public $childProp = 'IamChild3';"
" static $child3Static = 'child3Stat';"
" function childMeth() {"
" return 'I am child3';"
" }"
" static function child3StatMeth() {"
" return 'Child 3 static method';"
" }"
" function parentChildMeth() {"
" return parent::childMeth();"
" }"
""
" }"
"} else {"
" class child3 {}"
"}"
"function test($val, $exp, $feature) {"
" if ($val !== $exp) {"
" echo $feature . \" failed. Got:\\n\";"
" var_dump($val);"
" echo \"But expected:\\n\";"
" var_dump($exp);"
" } else {"
" echo $feature . \" passed\\n\";"
" }"
"}"
"function run() {"
" $base = new base;"
" test($base->baseVal, 'base', 'Base object member');"
" test(base::$baseStatic, 'baseStat', 'Base static member');"
" test(base::baseStatMeth(), 'Base static method', 'Base static method');"
" test($base->baseStatMeth(), 'Base static method', 'Base static method obj syntax');"
" $child1 = new child1;"
" test($child1->baseVal, 'base', 'dRedec inherited property');"
" test($child1->child1Val, 'child1', 'dRedec property');"
" test($child1->testChildMeth(), 'I am child1', 'dRedec parent->virtual method');"
" test($child1->childProp(), 'IamChild1', 'dRedec parent->child prop method');"
" test(child1::child1StatMeth(), 'Child 1 static method', 'dRedec static method');"
" test(child1::baseStatMeth(), 'Base static method', 'dRedec parent static method');"
" test($child1->child1StatMeth(), 'Child 1 static method', 'dRedec static method obj syntax');"
" test($child1->baseStatMeth(), 'Base static method', 'dRedec parent static method obj syntax');"
" test(child1::$baseStatic, 'baseStat', 'dRedec parent static prop');"
" test(child1::$child1Static, 'child1Stat', 'dRedec static prop');"
" test($child1->parentChildMeth(), 'I am base', 'dRedec parent method');"
" $child2 = new child2;"
" test($child2->baseVal, 'base', 'ddRedec grandparent property');"
" test($child2->child1Val, 'child1', 'ddRedec parent property');"
" test($child2->child2Val, 'child2', 'ddRedec property');"
" test($child2->testChildMeth(), 'I am child2', 'ddRedec grandparent->virtual method');"
" test($child2->testChildMeth2(), 'I am child2', 'ddRedec parent->virtual method');"
" test($child2->childProp(), 'IamChild2', 'ddRedec grandparent->child prop method');"
" test(child2::baseStatMeth(), 'Base static method', 'ddRedec grandparent static method');"
" test(child2::child1StatMeth(), 'Child 1 static method', 'ddRedec parent static method');"
" test(child2::child2StatMeth(), 'Child 2 static method', 'ddRedec static method');"
" test($child2->baseStatMeth(), 'Base static method', 'ddRedec grandparent static method obj syntax');"
" test($child2->child1StatMeth(), 'Child 1 static method', 'ddRedec parent static method obj syntax');"
" test($child2->child2StatMeth(), 'Child 2 static method', 'ddRedec static method obj syntax');"
" test(child2::$baseStatic, 'baseStat', 'ddRedec grandparent static prop');"
" test(child2::$child1Static, 'child1Stat', 'ddRedec parent static prop');"
" test(child2::$child2Static, 'child2Stat', 'ddRedec static prop');"
" test($child2->parentChildMeth(), 'I am child1', 'ddRedec parent method');"
" $child3 = new child3;"
" test($child3->baseVal, 'base', 'RddRedec greatgrandparent property');"
" test($child3->child1Val, 'child1', 'RddRedec grandparent property');"
" test($child3->child2Val, 'child2', 'RddRedec parent property');"
" test($child3->child3Val, 'child3', 'RddRedec property');"
" test($child3->testChildMeth(), 'I am child3', 'RddRedec greatgrandparent->virtual method');"
" test($child3->testChildMeth2(), 'I am child3', 'RddRedec grandparent->virtual method');"
" test($child3->childProp(), 'IamChild3', 'RddRedec greatgrandparent->child prop method');"
" test(child3::baseStatMeth(), 'Base static method', 'RddRedec greatgrandparent static method');"
" test(child3::child1StatMeth(), 'Child 1 static method', 'RddRedec grandparent static method');"
" test(child3::child2StatMeth(), 'Child 2 static method', 'RddRedec parent static method');"
" test(child3::child3StatMeth(), 'Child 3 static method', 'RddRedec static method');"
" test($child3->baseStatMeth(), 'Base static method', 'RddRedec greatgrandparent static method obj syntax');"
" test($child3->child1StatMeth(), 'Child 1 static method', 'RddRedec grandparent static method obj syntax');"
" test($child3->child2StatMeth(), 'Child 2 static method', 'RddRedec parent static method obj syntax');"
" test($child3->child3StatMeth(), 'Child 3 static method', 'RddRedec static method obj syntax');"
" test(child3::$baseStatic, 'baseStat', 'RddRedec greatgrandparent static prop');"
" test(child3::$child1Static, 'child1Stat', 'RddRedec grandparent static prop');"
" test(child3::$child2Static, 'child2Stat', 'RddRedec parent static prop');"
" test(child3::$child3Static, 'child3Stat', 'RddRedec static prop');"
" test($child3->parentChildMeth(), 'I am child2', 'RddRedec parent method');"
"}"
"run();"
);
MVCR("<?php "
"$i = 1;"
"if ($i == 1) {"
" class foo {"
" function foo() {"
" echo \"foo 1\";"
" }"
" function bar() {"
" echo \"bar 1\";"
" }"
" }"
"} else {"
" class foo {"
" function foo() {"
" echo \"foo 2\";"
" }"
" function bar() {"
" echo \"bar 2\";"
" }"
" }"
"}"
"$t = new foo();"
"$t->foo();"
"$t->bar();");
MVCR("<?php "
"$i = 2;"
"if ($i == 1) {"
" class foo {"
" function foo() {"
" echo \"foo 1\";"
" }"
" function bar() {"
" echo \"bar 1\";"
" }"
" }"
"} else {"
" class foo {"
" function foo() {"
" echo \"foo 2\";"
" }"
" function bar() {"
" echo \"bar 2\";"
" }"
" }"
"}"
"$t = new foo();"
"$t->foo();"
"$t->bar();");
MVCR("<?php "
"class a {"
" public static function x() {"
" echo 'x';"
" }"
"}"
"if (0) {"
" class b {"
" }"
"}"
"class b extends a{"
" public static function z() {"
" self::x();"
" }"
"}"
"b::x();");
MVCR("<?php "
"function f($i) {"
" $j = 1;"
" var_dump($j);"
" if ($i == 1) {"
" class p {"
" public $data1;"
" }"
" class c extends p {"
" }"
" function r() { echo \"r1\\n\"; }"
" } else {"
" class p {"
" public $data2;"
" }"
" class c extends p {"
" }"
" function r() { echo \"r2\\n\"; }"
" }"
"}"
"if ($i == 1) {"
" class p {"
" public $data1;"
" }"
" class c extends p {"
" }"
" function r() { echo \"r3\\n\"; }"
"}"
"f(1);"
"$obj = new p();"
"var_dump($obj);"
"$obj = new c();"
"var_dump($obj);"
"r();");
MVCR("<?php "
"class A {"
" protected static function foo() {}"
"}"
"if (false) {"
" class A{"
" protected static function foo() {}"
" }"
"}"
"class B extends A{}"
""
"class C extends B {"
" function x() {"
" self::FOO();"
" }"
"}");
MVCR("<?php "
"class A {"
" static function foo() {"
" static $z = 0;"
" $z++;"
" var_dump($z);"
" }"
"}"
"if (false) {"
" class A{}"
"}"
"class B extends A{}"
"class C extends B {}"
"A::foo();"
"B::foo();"
"C::foo();");
MVCR("<?php "
"$a = 1;"
"if ($a) {"
"interface A {}"
"} else {"
"interface A {}"
"}"
"if ($a) {"
"interface B extends A {}"
"} else {"
"interface B extends A {}"
"}"
"class Z implements B {}");
MVCR("<?php "
"$ok = 1;"
"if ($ok) {"
"class A {"
"const FOO = 'test';"
"public $a = A::FOO;"
"}"
"} else {"
"class A {"
"const FOO = 'test';"
"public $a = A::FOO;"
"}"
"}");
MVCR("<?php "
"class B {};"
"if (0) {"
" class B {}"
"}"
"class A extends B {"
" function __call($name,$args) { echo 'A::$name\n'; }"
"};"
"$a = new A;"
"call_user_func_array(array($a, 'foo'), array());");
MVCR("<?php "
"class A extends Exception { public $a = 1; }"
"if (0) {"
" class A { public $a = 2; }"
"}"
"function test() {"
"try {"
" throw new A;"
"} catch (A $e) {"
" echo $e->a, '\n';"
"}} test();");
MVCR("<?php "
"function nop($en,$es){};set_error_handler('nop');"
"class X { function bar() { var_dump($this); } }"
"if (1) {"
" class U {"
" }"
"} else {"
" class U extends X {"
" }"
"}"
"class V extends U {}"
"function test() {"
" $x = new X;"
" $x->bar();"
" $x = new V;"
" $x->bar();"
"}"
"test();");
MVCR("<?php "
"if (true) { class base extends Exception {} } else { class base {} }"
"class child1 extends base {}"
"$obj = new child1;"
"echo ($obj instanceof Exception) ? \"Passed\n\" : \"Failed\n\";");
MVCR("<?php "
"class PEAR {"
" static function f() { PEAR::g(); }"
" function g() { echo 'This is g()'; }"
"}"
"if ($x) {"
" class PEAR {}"
"}"
"class D1 extends PEAR {"
" public $foo;"
" private $bar;"
" function bar() { return $this->foo + $this->bar; }"
"}"
"class D2 extends D1 {"
" public $foo;"
" private $bar;"
" function bar() { return $this->foo + $this->bar; }"
"}"
"PEAR::f();");
MVCR("<?php\n"
"function __autoload($c) { var_dump($c); }\n"
"function f() { return false; }\n"
"if (f()) {\n"
" interface A { }\n"
" class B { }\n"
" interface C { }\n"
"} else {\n"
" class A { }\n"
" interface B { }\n"
" interface C { }\n"
"}\n"
"function test($c) {\n"
" var_dump(class_exists('A'));\n"
" var_dump(interface_exists('A'));\n"
" var_dump(class_exists('B'));\n"
" var_dump(interface_exists('B'));\n"
" var_dump(class_exists($c));\n"
" var_dump(interface_exists('C'));\n"
"}\n"
"test('C');\n");
MVCR("<?php "
"class A {"
" static function bar(&$a) {"
" $a = 'ok';"
" }"
"}"
"$a = 'failed';"
"A::bar($a);"
"var_dump($a);"
"if (false) {"
" class A{}"
" class A2{}"
"}"
"class C {"
" static function bar() {"
" }"
"}"
"class A2 extends C {"
" static function bar(&$a) {"
" $a = 'ok';"
" }"
"}"
"$a = 'failed';"
"A2::bar($a);"
"var_dump($a);");
MVCR("<?php "
"if (!isset($g2)) {"
" class test {}"
"} else {"
" class test {"
" static $foo = 27;"
" }"
" var_dump(test::$foo);"
"}"
"$x = new test();"
"$x->bar = 1;"
"$x->foo = 2;"
"var_dump($x);");
MVCR("<?php "
"class A { function fun() { return 'A'; } }"
"if (true) { class B {}} else { class B {} }"
"class C extends B {"
" public function foo() { $this->out(A::fun()); }"
" public function out($arg) { var_dump($arg); }"
"}"
"$c = new C();"
"$c->foo();");
MVCR("<?php "
"class b {"
" function z() {"
" $this->x();"
" }"
" function y() {"
" echo 'y';"
" }"
"}"
"class c extends b {"
" function x() {"
" $this->y();"
" }"
"}"
"if (false) {"
" class b{}"
" class c{}"
"}"
"$x = new c();"
"$x->z();");
MVCR("<?php "
"class A {}"
"class B extends A {"
" function meh() {"
" return $this;"
" }"
"}"
"class C extends B {"
" function work() {"
" echo \"WORK\n\";"
" }"
"}"
"if (false) {"
" class A {}"
" class B {}"
" class C {}"
"}"
"function test() {"
" $x = new C;"
" $x->meh()->work();"
"}"
"test();");
MVCR("<?php "
"if (isset($g)) {"
" class X {}"
"} else {"
" class X {"
" static function foo() {}"
" function bar() {"
" X::foo(1,2,3);"
" }"
" }"
"}");
MVCR("<?php "
"if (isset($g)) {"
" class X {}"
"} else {"
" class X {"
" public $a = 1;"
" function __destruct() { var_dump(__METHOD__); }"
" }"
"}"
"class X1 extends X {"
" public $t = 1;"
"}"
"function test() {"
" $x = new X1;"
" $x->t = 5;"
" $x->a = 3;"
" $y = clone $x;"
" var_dump($y->a,$y->t);"
"}"
"test();");
MVCR("<?php "
"if (true) {"
" class A {"
" private $a = 1;"
" }"
" class B extends A {"
" public $a;"
" function f() { $this->a = 2; }"
" }"
"} else {"
" class A {"
" protected $a = 1;"
" }"
" class B extends A {"
" public $a;"
" function f() { $this->a = 2; }"
" }"
"}"
"$obj = new B;"
"$obj->f();"
"var_dump($obj);");
MVCR("<?php "
"if (isset($g)) { class c{} } else { class c{} }"
"class d extends c {"
" private $b = 'b';"
" function t2() {"
" foreach ($this as $k => $v) {"
" var_dump($v);"
" }"
" }"
"}"
"$x = new d;"
"$x->t2();");
MVCR("<?php "
"if (!isset($h)) {"
" if (isset($g)) {"
" interface A { function foo(); }"
" } else {"
" interface A { function foo(); }"
" }"
"} else {"
" if (isset($g)) {"
" interface X { function foo(); }"
" } else {"
" interface X { function foo(); }"
" }"
"}"
"abstract class B implements A { function bar() {} }"
"var_dump(get_class_methods('A'));"
"var_dump(get_class_methods('B'));"
"var_dump(get_class_methods('X'));"
"var_dump(get_class_methods('Y'));");
MVCR("<?php "
"if (isset($g)) {"
" class X { function foo() { var_dump(__METHOD__); } }"
" class Y extends X {}"
"} else {"
" class X { function foo() { var_dump(__METHOD__); } }"
" class Y {}"
"}"
"class Z extends Y {"
" function foo() { var_dump(__METHOD__); }"
" function bar() { X::foo(); }"
"}"
"Z::bar();");
MVCR("<?php "
"if (isset($g)) {"
" class X {}"
"} else {"
" class X {"
" function __destruct() { var_dump(__METHOD__); }"
" protected $prot_over_prot = 1;"
" public $pub_over_pub = 2;"
" protected $pub_over_prot = 3;"
" }"
"}"
"class Y extends X {"
" function __destruct() { var_dump(__METHOD__,$this); }"
" protected $prot_over_prot = 4;"
" public $pub_over_pub = 5;"
" public $pub_over_prot = 6;"
" protected $prot_base = 7;"
" public $pub_base = 8;"
"}"
"class Z extends Y {"
" function __destruct() { var_dump(__METHOD__); }"
" public $prot_over_prot = 9;"
" public $pub_over_pub = 10;"
" public $pub_over_prot = 11;"
" public $prot_base = 12;"
" public $pub_base = 13;"
"}"
"function foo($x) {"
" $s = serialize($x);"
" var_dump($s);"
" $y = unserialize($s);"
" var_dump($y);"
" var_dump((array)$y);"
" if (function_exists('apc_store')) {"
" apc_store('foo', $y);"
" $z = apc_fetch('foo');"
" } else {"
" $z = clone $y;"
" }"
" var_dump($z);"
" unset($z, $y);"
" var_dump($x);"
"}"
"$y = new y;"
"foo($y);"
"$z = new z;"
"foo($z);"
"unset($z, $y);");
return true;
}
bool TestCodeRun::TestReassignThis() {
MVCRONW("<?php "
"class Foo {"
" function Bar() {"
" $__this = $this;"
" $this = null;"
" debug_backtrace();"
" $this = $__this;"
" } "
"}", "");
MVCRONW("<?php "
"function foo() {"
" $this = 2;"
" echo \"You should not see this\"; "
"} "
"foo();", "");
MVCRONW("<?php "
"$x = 5; "
"$this =& $x; "
"echo \"You should not see this\";", "");
MVCRONW("<?php "
"class Foo {"
" public $x; "
"} "
"$this = new Foo(); "
"echo \"You should not see this\";", "");
MVCRONW("<?php "
"class Foo {"
" public $x; "
"} "
"$this =& new Foo(); "
"echo \"You should not see this\";", "");
MVCRONW("<?php "
"$myarray = array(1 => 2, 2 => 3); "
"foreach ($myarray as $this => $wat) {"
" echo \"You should not see this\"; "
"}", "");
MVCRONW("<?php "
"$myarray = array(1 => 2, 2 => 3); "
"foreach ($myarray as $a => $this) {"
" echo \"You should not see this\"; "
"}", "");
return true;
}
bool TestCodeRun::TestClone() {
MVCR("<?php "
"class A {"
" public $foo = 0;"
" public $fooref = 1;"
" private $foopriv = 2;"
" function __clone() {"
" echo \"clone\n\";"
" }"
"}"
"$a1 = new A;"
"$p = 8;"
"$q = 9;"
"$a1->foo = 'foo';"
"$a1->fooref = &$p;"
"$a1->dyn = 'dyn';"
"$a1->dynref = &$q;"
"var_dump($a1);"
"$a2 = clone $a1;"
"var_dump($a1);"
"var_dump($a2);"
"$a2->foo = 'a2foo';"
"$a2->fooref = 'a2fooref';"
"$a2->dyn = 'a2dyn';"
"$a2->dynref = 'a2dynref';"
"$a2->dynref2 = 'dynref2';"
"var_dump($a1);"
"var_dump($a2);"
"var_dump($p);"
"var_dump($q);");
MVCR("<?php "
"class c {"
" protected $cm = 'get';"
" function x() {"
" var_dump($this->cm);"
" }"
"}"
"class c2 extends c {}"
"$y = new c;"
"$y->x();"
"$z = clone $y;"
"$z->x();"
"$y = new c2;"
"$y->x();"
"$z = clone $y;"
"$z->x();");
return true;
}
bool TestCodeRun::TestEvalOrder() {
MVCRO("<?php\n"
"set_error_handler('h');\n"
"foo(var_dump('123'));\n"
"var_dump('end');\n"
"function h() { var_dump('errored');}",
"string(7) \"errored\"\n");
MVCRO("<?php\n"
"set_error_handler('h');\n"
"class A {} $obj = new A; $obj->foo(var_dump('123'));\n"
"var_dump('end');\n"
"function h() { var_dump('errored');}",
"string(7) \"errored\"\n");
MVCR("<?php "
"$a = array(123); "
"foreach ($a as $x => $x) { "
" var_dump($x); "
"}");
MVCR("<?php\n"
"\n"
"class MyIterator implements Iterator{\n"
" private $var = array();\n"
" public function __construct($array) {\n"
" echo \"constructing\n\";\n"
" if (is_array($array)) {\n"
" $this->var = $array;\n"
" }\n"
" }\n"
" public function rewind() {\n"
" echo \"rewinding\n\";\n"
" reset($this->var);\n"
" }\n"
" public function current() {\n"
" $var = current($this->var);\n"
" echo \"current: $var\n\";\n"
" return $var;\n"
" }\n"
" public function key() {\n"
" $var = key($this->var);\n"
" echo \"key: $var\n\";\n"
" return $var;\n"
" }\n"
" public function next() {\n"
" $var = next($this->var);\n"
" echo \"next: $var\n\";\n"
" return $var;\n"
" }\n"
" public function valid() {\n"
" $var = $this->current() !== false;\n"
" echo \"valid: \",$var?'true':'false',\"\n\";\n"
" return $var;\n"
" }\n"
"}\n"
"\n"
"function f() { var_dump('f'); return 0; }\n"
"function g() { var_dump('g'); return 0; }\n"
"\n"
"$a = array(1, 2);\n"
"$values = array('a' => 1, 'b' => 2, 'c' => 3);\n"
"$it = new MyIterator($values);\n"
"foreach ($it as $a[f()] => $a[g()]) {\n"
" print \"$a[0]\n\";\n"
"}\n");
MVCR("<?php "
"class X {} "
"function foo() { var_dump('foo');} "
"$x = new X; "
"unset($x->a[foo()]->y); ");
MVCR("<?php "
"function foo($i) { "
" var_dump($i); "
" return 'a'; "
"} "
"${foo(1)}[foo(2)][foo(3)] = foo(4); "
);
MVCR("<?php "
"class A {"
" public $foo;"
" public $bar;"
" function q($a) {"
" echo $a;"
" $this->foo = 9;"
" $this->bar = '3';"
" return $this;"
" }"
"}"
"$a = new A();"
"var_dump($a->q('1')->foo + $a->q('2')->bar);"
"var_dump($a->q('1')->foo - $a->q('2')->bar);"
"var_dump($a->q('1')->foo / $a->q('2')->bar);"
"var_dump($a->q('1')->foo * $a->q('2')->bar);"
"var_dump($a->q('1')->foo % $a->q('2')->bar);"
"var_dump($a->q('1')->foo << $a->q('2')->bar);"
"var_dump($a->q('1')->foo >> $a->q('2')->bar);"
"var_dump($a->q('1')->foo && $a->q('2')->bar);"
"var_dump($a->q('1')->foo || $a->q('2')->bar);"
"var_dump($a->q('1')->foo and $a->q('2')->bar);"
"var_dump($a->q('1')->foo or $a->q('2')->bar);"
"var_dump($a->q('1')->foo xor $a->q('2')->bar);"
"var_dump($a->q('1')->foo . $a->q('2')->bar);"
"var_dump($a->q('1')->foo & $a->q('2')->bar);"
"var_dump($a->q('1')->foo | $a->q('2')->bar);"
"var_dump($a->q('1')->foo ^ $a->q('2')->bar);"
"var_dump($a->q('1')->foo == $a->q('2')->bar);"
"var_dump($a->q('1')->foo === $a->q('2')->bar);"
"var_dump($a->q('1')->foo != $a->q('2')->bar);"
"var_dump($a->q('1')->foo !== $a->q('2')->bar);"
"var_dump($a->q('1')->foo > $a->q('2')->bar);"
"var_dump($a->q('1')->foo >= $a->q('2')->bar);"
"var_dump($a->q('1')->foo < $a->q('2')->bar);"
"var_dump($a->q('1')->foo <= $a->q('2')->bar);"
);
MVCR("<?php "
"function x($a, $b, $c, $d) {}"
"function p($x) { echo $x . \"\n\"; return $x; }"
"class c {"
" function __construct($a, $b, $c, $d) {}"
" function f($a, $b, $c, $d) {}"
" static function g($a, $b, $c, $d) {}"
"}"
"function rt(&$a, $v) {"
" $a = $v;"
"}"
"function id($x) { return $x; }"
"function dump($a, $b) {"
" var_dump($a, $b);"
"}"
"echo \"sfc\n\";"
"x(p(1), p(2), p(3), 4);"
"$y = 'x';"
"echo \"dfc\n\";"
"$y(p(1), p(2), p(3), 4);"
"echo \"smc\n\";"
"c::g(p(1), p(2), p(3), 4);"
"$y = 'g';"
"echo \"dsmc\n\";"
"c::$y(p(1), p(2), p(3), 4);"
"echo \"occ\n\";"
"$q = new c(p(1), p(2), p(3), 4);"
"echo \"omc\n\";"
"$q->f(p(1), p(2), p(3), 4);"
"echo \"rsfc\n\";"
"rt($a, id(10));"
"var_dump($a);"
"dump($v++, $v++);"
"$v = 10;"
"dump($v, $v = 0);"
"echo \"nest\n\";"
"x(p(1), x(p(2), p(3), p(4), p(5)), p(6), x(p(7), p(8), p(9), p(10)));"
"echo \"arr\n\";"
"$z = array(p(1), p(2), x(p(3), p(4), p(5), p(6)), p(7));"
"$q = 1;"
"$z = array(1, 2, $q);"
);
MVCR("<?php "
"error_reporting(E_ALL & ~E_NOTICE);"
"function id($x,$y) { return $x; }"
"function id1($x) { return $x; }"
"function pid($x) { var_dump($x); return $x; }"
"class cls {"
" function __construct() { print 'ctor\n'; }"
" function f($x) { return $this; }"
" function ttest() {"
" return $this->f(pid('arg1'),pid('arg2'));"
" }"
"}"
"$d = id1(new cls())"
" ->f('arg1')"
" ->f('arg2')"
" ->f('arg3');"
"$d = id1(new cls())"
" ->f('arg1', 'argex1')"
" ->f('arg2', 'argex2')"
" ->f('arg3', 'argex3');"
"$d = id(new cls(), pid('idarg'))"
" ->f(pid('arg1'), pid('argex1'))"
" ->f(pid('arg2'), pid('argex2'))"
" ->f(pid('arg3'), pid('argex3'));"
"$d->ttest();");
MVCR("<?php "
"class a {"
" function r(&$x) {"
" $x = 20;"
" }"
"}"
"function id($x) { return $x; }"
"$a = new a();"
"id($a)->r($x);"
"var_dump($x);");
MVCR("<?php "
"class c {"
" function x($y) {"
" echo $y . \"\n\";"
" return $this;"
" }"
"}"
"function p($x) {"
" echo $x . \"\n\";"
" return $x;"
"}"
"$x = new c;"
"$x->x(3, p(1), p(2))->x(6, p(4), p(5));");
MVCR("<?php "
"class Q {"
" public $val;"
" function __construct($v) {"
" $this->val = $v;"
" }"
" public function blah() {"
" return $this;"
" }"
"}"
"class A {"
" public $v;"
" function set($v) {"
" $this->v = $v;"
" return $this;"
" }"
"}"
"function id($x) { return $x; }"
"$x = new Q(0);"
"$a = id(new A)->set($x);"
"$x = id(new Q(1))->blah();"
"var_dump($a);");
MVCR("<?php "
"$a = array(array($id = 1, $id), array($id = 2, $id));"
"var_dump($a);"
"$a = array(+($id = 1), $id, -($id = 2), $id, "
" !($id = 3), $id, ~($id = 4), $id, "
" isset($a[$id = 5]), $id);"
"var_dump($a);");
MVCR("<?php "
"function test($a)"
"{"
" echo \"$a\\n\";"
"}"
"test(1, test(2), test(3, test(4), test(5)));");
MVCR("<?php "
"$v = 1;"
"function foo($a, $b, $c) {"
" var_dump($a, $b, $c);"
"}"
"function bar($a) {"
" foo($a, $a++, $a);"
" $arr = array($a, $a++, $a);"
" var_dump($arr);"
"}"
"bar($v);");
MVCR("<?php "
"$GLOBALS['t'] = 0;"
"$GLOBALS['f'] = 0;"
"$GLOBALS['i'] = 0;"
"$GLOBALS['d'] = 0;"
"$GLOBALS['v'] = 'a';"
"function t() {"
" global $t;"
" $t++;"
" return true;"
"}"
"function f() {"
" global $f;"
" $f++;"
" return false;"
"}"
"function i() {"
" global $i;"
" $i++;"
" return 1;"
"}"
"function d() {"
" global $d;"
" $d++;"
" return 3.14;"
"}"
"function v() {"
" global $v;"
" $v++;"
" return $v;"
"}"
"function foo() {"
" var_dump(t() + t());"
" var_dump(t() + f());"
" var_dump(t() + i());"
" var_dump(t() + d());"
" var_dump(t() + v());"
" var_dump(f() + t());"
" var_dump(f() + f());"
" var_dump(f() + i());"
" var_dump(f() + d());"
" var_dump(f() + v());"
" var_dump(i() + t());"
" var_dump(i() + f());"
" var_dump(i() + i());"
" var_dump(i() + d());"
" var_dump(i() + v());"
" var_dump(d() + t());"
" var_dump(d() + f());"
" var_dump(d() + i());"
" var_dump(d() + d());"
" var_dump(d() + v());"
" var_dump(v() + t());"
" var_dump(v() + f());"
" var_dump(v() + i());"
" var_dump(v() + d());"
" var_dump(v() + v());"
" var_dump($GLOBALS['t'], $GLOBALS['f'],"
" $GLOBALS['i'], $GLOBALS['d'],"
" $GLOBALS['v']);"
" var_dump(t() - t());"
" var_dump(t() - f());"
" var_dump(t() - i());"
" var_dump(t() - d());"
" var_dump(t() - v());"
" var_dump(f() - t());"
" var_dump(f() - f());"
" var_dump(f() - i());"
" var_dump(f() - d());"
" var_dump(f() - v());"
" var_dump(i() - t());"
" var_dump(i() - f());"
" var_dump(i() - i());"
" var_dump(i() - d());"
" var_dump(i() - v());"
" var_dump(d() - t());"
" var_dump(d() - f());"
" var_dump(d() - i());"
" var_dump(d() - d());"
" var_dump(d() - v());"
" var_dump(v() - t());"
" var_dump(v() - f());"
" var_dump(v() - i());"
" var_dump(v() - d());"
" var_dump(v() - v());"
" var_dump($GLOBALS['t'], $GLOBALS['f'],"
" $GLOBALS['i'], $GLOBALS['d'],"
" $GLOBALS['v']);"
" var_dump(t() * t());"
" var_dump(t() * f());"
" var_dump(t() * i());"
" var_dump(t() * d());"
" var_dump(t() * v());"
" var_dump(f() * t());"
" var_dump(f() * f());"
" var_dump(f() * i());"
" var_dump(f() * d());"
" var_dump(f() * v());"
" var_dump(i() * t());"
" var_dump(i() * f());"
" var_dump(i() * i());"
" var_dump(i() * d());"
" var_dump(i() * v());"
" var_dump(d() * t());"
" var_dump(d() * f());"
" var_dump(d() * i());"
" var_dump(d() * d());"
" var_dump(d() * v());"
" var_dump(v() * t());"
" var_dump(v() * f());"
" var_dump(v() * i());"
" var_dump(v() * d());"
" var_dump(v() * v());"
" var_dump($GLOBALS['t'], $GLOBALS['f'],"
" $GLOBALS['i'], $GLOBALS['d'],"
" $GLOBALS['v']);"
"}"
"foo();");
MVCR("<?php "
"function f($a) { echo \"test$a\\n\"; return 1; }"
"function bug2($a, $b) {"
" return isset($b[f($a++)], $b[f($a++)], $b[f($a++)]);"
"}"
"bug2(0, array());");
MVCR("<?php var_dump($v++, $v++);");
MVCR("<?php var_dump($v, $v = 0);");
MVCR("<?php\n"
"function f(&$a, &$b) { $a = 1; $b = 2; return 3; }\n"
"class A { }\n"
"function test() {\n"
" $a = array(); f($a[0], $a[1]); var_dump($a);\n"
" $a = array(); $a[0] = f($a[1], $a[2]); var_dump($a);\n"
" $a = new A(); f($a->f, $a->g); var_dump($a);\n"
"}\n"
"test();\n");
MVCR("<?php "
"class C {"
" function __construct() {"
" echo \"class C\\n\";"
" }"
" public function __get( $what ) {"
" echo \"get C\\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C\\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"function f() {"
" echo \"f()\\n\";"
" return 1;"
"}"
"function foo() {"
" $obj = new C;"
" $obj->a = f();"
" $obj->b = new C;"
" $obj->b->a = f();"
"}"
"foo();");
MVCR("<?php "
"class C implements ArrayAccess {"
" private $data = array();"
" public function __construct() {"
" echo \"C\\n\";"
" }"
" public function offsetGet($name) {"
" echo \"offsetGet: $name\\n\";"
" return $this->data[$name];"
" }"
" public function offsetSet($name, $value) {"
" $a = serialize($value);"
" echo \"offsetSet: $name=$a\\n\";"
" $this->data[$name]=$value;"
" }"
" public function offsetExists($name) {"
" echo \"offsetExists: $name\\n\"; return true;"
" }"
" public function offsetUnset($name) {"
" echo \"offsetUnset: $name\\n\";"
" }"
"}"
"function f() {"
" echo \"f()\\n\";"
" return 1;"
"}"
"function f2() {"
" echo \"f2()\\n\";"
" return 'foo';"
"}"
"function foo($a) {"
" $a['foo'] = new C;"
" $a['foo']['bar'] = new C;"
" $a['foo']['bar']['goo'] = f();"
"}"
"foo(new C);");
MVCR("<?php "
"class X {"
" function __destruct() { var_dump('done'); }"
"}"
"function f() {"
" $x = new X;"
"}"
"function g() {"
" var_dump('start');"
" f();"
" var_dump('end');"
"}"
"g();");
MVCR("<?php "
"function foo($v) {"
" $a = array('key' => &$v);"
" return $a;"
"}"
"function goo($v) {"
" return $v . 1;"
"}"
"var_dump(foo('1.0'));"
"var_dump(foo(foo('1.0')));"
"var_dump(foo(goo('1.0')));");
MVCR("<?php "
"function f(&$a, $v = 5) {"
" $a = $v;"
" return 0;"
"}"
"$a = 2;"
"var_dump($a . f($a));"
"$a = 2;"
"var_dump(($a.'') . f($a));"
"$a = 2;"
"var_dump(($a.$a) . f($a));"
"f($a,2);"
"var_dump($a . f($a));"
"f($a,2);"
"var_dump(($a.'') . f($a));"
"f($a,2);"
"var_dump(($a.$a) . f($a));"
"class c {"
" public static $a;"
"}"
"c::$a = 2;"
"var_dump(c::$a . f(c::$a));"
"function g(&$a) {"
" $a[0] = 5;"
" return 0;"
"}"
"$a = array(2);"
"var_dump($a[0] . g($a));"
"$a = array(2);"
"var_dump(($a[0] . '') . g($a));"
"function h(&$a) {"
" $a = 5;"
" return 0;"
"}"
"$a = array(2);"
"var_dump($a[0] . h($a[0]));"
"$a = array(2);"
"var_dump(($a[0] . '') . h($a[0]));"
"function k($a) {"
" $a->prop = 5;"
" return 0;"
"}"
"$a = new stdclass;"
"$a->prop = 2;"
"var_dump($a->prop . k($a));"
"$a = new stdclass;"
"$a->prop = 2;"
"var_dump(($a->prop . '') . k($a));"
"$i = 0;"
"var_dump($i . ++$i);"
"$i = 0;"
"var_dump(($i . '') . ++$i);"
"function foo() {"
" return 'foo';"
"}"
"f($a, 'test');"
"var_dump(($a . 'x') . foo($a = ''));"
"$a = array(2);"
"var_dump($a[$a = 0]);"
"$a = new stdclass;"
"$a->foo = 42;"
"var_dump($a->{$a = 'foo'});"
"var_dump($a);"
"$b = new stdclass;"
"$a = null;"
"$a->{f($a,$b)} = 5;"
"var_dump($a, $b);"
"function dump($a, $b) {"
" var_dump($a, $b);"
"}"
"f($a, 'foo');"
"dump($a, $a = 'bar');"
"$a = 'foo';"
"dump($a, $a = 'bar');"
"f($a, 'foo');"
"dump($a.'', $a = 'bar');"
"f($a, 'foo');"
"dump($a.$a, $a = 'bar');");
MVCR("<?php "
"$a = Array(1,2,3); "
"$b = Array(4,5,6); "
"$i = 1; "
"$a[$i++] = $b[$i++]; "
"var_dump($a);");
MVCR("<?php "
"function f($x) {"
" global $a;"
" var_dump($x, $a);"
" return $x;"
"}"
"class X implements ArrayAccess {"
" function OffsetGet($n) {"
" echo 'get:'; var_dump($n);"
" return (string)(int)$n == (string)$n ? $this : $n;"
" }"
" function OffsetSet($n, $v) {"
" $this->{$n} = $v;"
" echo 'set:'; var_dump($n, $v);"
" }"
" function OffsetExists($n) { return $n == 'foo'; }"
" function OffsetUnset($n) {}"
" function __get($n) { return $this->OffsetGet($n); }"
" function __set($n,$v) { return $this->OffsetSet($n, $v); }"
"}"
"$a = new X;"
"function ref(&$a, &$b, &$c) {"
"}"
"function test() {"
" global $a;"
" $a[f(0)]->{f(1)}[f(2)] = $a[f(3)][f(4)][f(5)]->foo;"
" var_dump($a[f(6)]['fuz'] . f(7));"
" ref($a[f(10)][f(11)][f(12)],$a[f(20)][f(21)][f(22)],"
" $a[f(30)][f(31)][f(32)]);"
" $a->{f(0)}[f(1)]->{f(2)} = $a->{f(3)}->{f(4)}->bar;"
"}"
"test();");
MVCR("<?php "
"class X { function foo($a) { echo 'In foo:'; var_dump($a); } }"
"function y($y) { echo 'In y:'; var_dump($y); }"
"function test($x, $y) {"
" $x->foo($x = null);"
" $y($y = null);"
"}"
"test(new X, 'y');");
MVCR("<?php "
"function f() { global $a; return ++$a; }"
"var_dump(array($a,f(),$a));");
MVCR("<?php "
"function foo() {"
" global $a;"
" $a = 1;"
"}"
"$a = 'a'; $r = ++$a . $a; var_dump($r);"
"$a = 'a'; $r = $a++ . $a; var_dump($r);"
"$a = 'a'; $r = $a . ++$a; var_dump($r);"
"$a = 'a'; $r = $a . $a++; var_dump($r);"
"$a = 'a'; $r = ++$a . ++$a; var_dump($r);"
"$a = 'a'; $r = ++$a . $a++; var_dump($r);"
"$a = 'a'; $r = $a++ . ++$a; var_dump($r);"
"$a = 'a'; $r = $a++ . $a++; var_dump($r);"
"$a = 'a'; $b = 'b'; $r = $a . foo() . $b; var_dump($r);"
"$a = 'a'; $b = 'b'; $r = $a . (foo() . $b); var_dump($r);");
MVCR("<?php "
"function test($x) {"
" $a = array($a => $x[$a = 'foo']);"
" return $a;"
"}"
"var_dump(test(array('foo' => 5)));");
MVCR("<?php "
"interface I {}"
"function __autoload($c) {"
" var_dump($c);"
" class A implements I {}"
"}"
"var_dump(class_implements(\"A\", false));"
"var_dump(class_implements(\"A\"));"
"var_dump(class_exists(\"A\"));");
MVCR("<?php "
"class B {}"
"function __autoload($c) {"
" var_dump($c);"
" class A extends B {}"
"}"
"var_dump(class_parents(\"A\", false));"
"var_dump(class_parents(\"A\"));"
"var_dump(class_exists(\"A\"));");
MVCRO("<?php "
"trait T {}"
"function __autoload($c) {"
" var_dump($c);"
" class A { use T; }"
"}"
"var_dump(class_uses(\"A\", false));"
"var_dump(class_uses(\"A\"));"
"var_dump(class_exists(\"A\"));"
,
"bool(false)\n"
"string(1) \"A\"\n"
"array(1) {\n"
" [\"T\"]=>\n"
" string(1) \"T\"\n"
"}\n"
"bool(true)\n"
);
return true;
}
bool TestCodeRun::TestGetObjectVars() {
MVCR("<?php "
"class Base"
"{"
" public $aaa = 1;"
" protected $bbb = 2;"
" private $ccc = 3;"
"}"
"class Child extends Base"
"{"
" private $ddd = 4;"
"}"
"var_dump(get_object_vars(new Base()));"
"var_dump(get_object_vars(new Child()));"
);
MVCR("<?php "
"class Base"
"{"
" public $aaa = 1;"
" protected $bbb = 2;"
" private $ccc = 3;"
"}"
"class Child extends Base"
"{"
" public $ddd = 4;"
"}"
"class Unrelated"
"{"
" function foo($obj) {"
" var_dump(get_object_vars($obj));"
" }"
"}"
"$base_obj = new Base();"
"$child_obj = new Child();"
"$unrelated_obj = new Unrelated();"
"$unrelated_obj->foo($child_obj);"
"$unrelated_obj->foo($base_obj);"
);
MVCR("<?php "
"class Base"
"{"
" public $aaa = 1;"
" protected $bbb = 2;"
" private $ccc = 3;"
" function foo($obj) {"
" var_dump(get_class($obj));"
" var_dump(get_object_vars($obj));"
" }"
"}"
"class Child extends Base"
"{"
" public $ddd = 4;"
" protected $eee = 5;"
" private $fff = 6;"
"}"
""
"$base_obj = new Base();"
"$child_obj = new Child();"
"$base_obj->foo($child_obj);"
);
MVCR("<?php "
"class Base"
"{"
" public $aaa = 1;"
" protected $bbb = 2;"
" private $ccc = 3;"
" function foo($obj) {"
" var_dump(get_class($obj));"
" var_dump(get_object_vars($obj));"
" }"
"}"
"class Child extends Base"
"{"
" public $ddd = 5;"
" protected $eee = 6;"
" private $fff = 4;"
"}"
"$base_obj = new Base();"
"$base_obj->foo($base_obj);"
);
MVCR("<?php "
"class Base"
"{"
" public $aaa = 1;"
" protected $bbb = 2;"
" private $ccc = 3;"
"}"
""
"class Child extends Base"
"{"
" public $ddd = 4;"
" protected $eee = 5;"
" private $fff = 6;"
" function foo($obj) {"
" var_dump(get_class($obj));"
" var_dump(get_object_vars($obj));"
" }"
"}"
"$child_obj = new Child();"
"$base_obj = new Base();"
"$child_obj->foo($base_obj);"
);
MVCR("<?php "
"var_dump(get_object_vars(false));"
"var_dump(get_object_vars(true));"
"var_dump(get_object_vars('hello'));"
"var_dump(get_object_vars(5));");
return true;
}
bool TestCodeRun::TestSerialization() {
MVCR("<?php\n"
"class A implements Serializable {\n"
" public $__foo = true;\n"
" public function serialize() {\n"
" return null;\n"
" }\n"
" public function unserialize($serialized) {\n"
" }\n"
"} var_dump(unserialize(serialize(new A())));");
MVCR("<?php\n"
"class A implements Serializable {\n"
" public $__foo = true;\n"
" public function serialize() {\n"
" return serialize(array('a' => 'apple', 'b' => 'banana'));\n"
" }\n"
" public function unserialize($serialized) {\n"
" $props = unserialize($serialized);\n"
" $this->a = $props['a'];\n"
" $this->b = $props['b'];\n"
" }\n"
"} $obj = unserialize(serialize(new A())); var_dump($obj->b);");
MVCR("<?php "
"class Small {"
" private static $nc = 0;"
" public $name;"
" public $num;"
" function __construct() {"
" $n = self::$nc++;"
" $this->name = 'foo'.$n;"
" $this->num = 3*$n;"
" }"
"}"
"class Big {"
" public $groupAll = array();"
" public $group1 = array();"
" public $group2 = array();"
" public $wacky;"
" public $nothing;"
" public $unrelated = array();"
" function add() {"
" $s = new Small();"
" $this->groupAll[] = $s;"
" if ($s->num % 2 == 0) {"
" $this->group1[]=array($s->name, $s);"
" } else {"
" $this->group2[]=array($s->name, $s);"
" }"
" }"
" function finish() {"
" $x = 10;"
" $this->wacky = array(&$x, &$x);"
" $s = new Small();"
" $this->unrelated[] = $s;"
" $this->unrelated[] = $s;"
" $this->unrelated[] = $s;"
" }"
"}"
"function t() {"
" $b = new Big;"
" for ($i = 0; $i < 10; ++$i) {"
" $b->add();"
" }"
" $b->finish();"
" var_dump($b);"
" $s = serialize($b);"
" var_dump($s);"
" $us = unserialize($s);"
" var_dump($us);"
"}"
"t();"
);
MVCR("<?php "
"class t {"
" public $foo = 10;"
" protected $bar = 20;"
" private $derp = 30;"
"}"
"class t2 extends t {"
" private $derp2 = 40;"
" protected $bar2 = 50;"
"}"
"$x = new t;"
"print_r($x);"
"var_dump($x);"
"echo serialize($x) . '\n';"
""
"$x2 = new t2;"
"print_r($x2);"
"var_dump($x2);"
"echo serialize($x2) . '\n';");
MVCR("<?php "
"class b {"
" private $foo = 1;"
" private $bar = 2;"
"}"
"class b2 extends b {"
" public $bar = 3;"
"}"
"$x = new b2;"
"$x->foo = 100;"
"var_dump((array)$x);"
"var_dump(serialize($x));"
"var_dump($x);");
// Zend PHP 5.2 has a bug here, fixed in 5.3.
MVCR("<?php\n"
"$a = array(array());\n"
"$a[0][0] = &$a[0];\n"
"var_dump(serialize($a));\n");
MVCRO("<?php "
"var_dump(unserialize('a:1:{s:1:\"1\";s:3:\"foo\";}'));"
"var_dump(unserialize('a:1:{d:1;s:3:\"foo\";}'));"
"var_dump(unserialize('a:1:{a:1:{i:0;i:1;}}'));"
,
"array(1) {\n"
" [\"1\"]=>\n"
" string(3) \"foo\"\n"
"}\n"
"bool(false)\n"
"bool(false)\n");
MVCR("<?php "
"class X {"
" private $priv = 'priv';"
" protected $prot = 'prot';"
"}"
"$x = new X;"
"$s = serialize($x);"
"$s = str_replace('X', 'Y', $s);"
"$x = unserialize($s);"
"var_dump($x,$x->prot,$x->priv);");
MVCR("<?php "
"class Y {"
" private $priv = 'priv';"
" protected $prot = 'prot';"
"}"
"class Z extends Y {}"
"$x = new Z;"
"$s = serialize($x);"
"$x = unserialize($s);"
"var_dump($x);"
"var_dump(serialize($x));");
MVCR("<?php "
"class X {"
" private $priv;"
" protected $prot;"
" public $pub;"
" function __construct($a,$b,$c) {"
" $this->priv = $a;"
" $this->prot = $b;"
" $this->pub = $c;"
" }"
" function foo() { var_dump($this->priv, $this->prot, $this->pub); }"
"}"
"$x = new X(1,2,3);"
"$s = serialize($x);"
"$x = unserialize($s);"
"var_dump($x);"
"$x->foo();");
MVCR("<?php "
"class X {}"
"$a = new X;"
"$q = array(1,2,3);"
"$a->foo = &$q;"
"for ($i = 0; $i < 10; $i++) $a->{'x'.$i} = clone $a;"
"$a->bar = &$q;"
"$s = serialize($a);"
"var_dump($s);"
"$A = unserialize($s);"
"var_dump($A);"
"$r = &$A->bar;"
"var_dump(array_keys($r));");
MVCR("<?php "
"class X {"
" private $str;"
" private $arr;"
" private $obj;"
" function foo() {"
" $this->str = 'hello';"
" $this->arr = array(1,2,3);"
" $this->obj = $this;"
" }"
"}"
"function test() {"
" $x = new X;"
" $s = serialize($x);"
" $x = unserialize($s);"
" var_dump($x);"
"}"
"test();");
return true;
}
bool TestCodeRun::TestJson() {
MVCR("<?php "
"$a = array();"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));");
MVCR("<?php "
"$a = array(1.23456789e+34, 1E666, 1E666/1E666);"
"$e = json_encode($a);"
"var_dump($a);");
MVCR("<?php "
"var_dump(json_decode(\"[\\\"a\\\",1,true,false,null]\", true));");
MVCR("<?php "
"class A {"
" public $a = 'foo';"
" protected $b = 'bar';"
" private $c = 'blah';"
" public function aaaa() {"
" var_dump(json_encode($this));"
" }"
"}"
"$obj = new A();"
"$obj->aaaa();");
// recursive object
MVCR("<?php\n"
"class Foo { }\n"
"$foo = new Foo(); $foo->foo = $foo;\n"
"var_dump(json_encode($foo));\n");
#if 0
MVCR("<?php "
"$a = array(1);"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(1, \"2\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(1);"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(1, \"2\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode($a));"
""
"$a = array(1);"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(1, \"2\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(1);"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(1, \"2\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode($a));"
""
"$a = array(1);"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1, \"2\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = $a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1);"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1, \"2\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = &$a;"
"var_dump($a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1);"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1, \"2\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = $a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1);"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(1, \"2\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, \"2\"=>2);"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>\"1\", \"2\"=>\"2\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));"
""
"$a = array(\"1\"=>1, 2=>\"2\");"
"$a[] = &$a;"
"var_dump(&$a);"
"var_dump(json_encode(&$a));");
#endif
return true;
}
bool TestCodeRun::TestThrift() {
MVCRO("<?php "
"class TType {"
" const STOP = 0;"
" const VOID = 1;"
" const BOOL = 2;"
" const BYTE = 3;"
" const I08 = 3;"
" const DOUBLE = 4;"
" const I16 = 6;"
" const I32 = 8;"
" const I64 = 10;"
" const STRING = 11;"
" const UTF7 = 11;"
" const STRUCT = 12;"
" const MAP = 13;"
" const SET = 14;"
" const LST = 15;"
" const UTF8 = 16;"
" const UTF16 = 17;"
"}"
"class DummyProtocol {"
" public $t;"
" function __construct() {"
" $this->t = new DummyTransport();"
" }"
" function getTransport() {"
" return $this->t;"
" }"
"}"
"class DummyTransport {"
" public $buff = '';"
" public $pos = 0;"
" function flush() { }"
" function write($buff) {"
" $this->buff .= $buff;"
" }"
" function read($n) {"
" $r = substr($this->buff, $this->pos, $n);"
" $this->pos += $n;"
" return $r;"
" }"
"}"
"class TestStruct {"
" static $_TSPEC;"
""
" public $aBool = null;"
" public $anInt = null;"
" public $aString = null;"
" public $aDouble = null;"
" public $anInt64 = null;"
" public $aList = null;"
" public $aMap = null;"
" public $aSet = null;"
" public $anByte = null;"
" public $anI16 = null;"
""
" public function __construct($vals=null) {"
" if (!isset(self::$_TSPEC)) {"
" self::$_TSPEC = array("
" -1 => array("
" 'var' => 'aBool',"
" 'type' => TType::BOOL,"
" ),"
" 1 => array("
" 'var' => 'anInt',"
" 'type' => TType::I32,"
" ),"
" 2 => array("
" 'var' => 'aString',"
" 'type' => TType::STRING,"
" ),"
" 3 => array("
" 'var' => 'aDouble',"
" 'type' => TType::DOUBLE,"
" ),"
" 4 => array("
" 'var' => 'anInt64',"
" 'type' => TType::I64,"
" ),"
" 5 => array("
" 'var' => 'aList',"
" 'type' => TType::LST,"
" 'etype' => TType::DOUBLE,"
" 'elem' => array("
" 'type' => TType::DOUBLE,"
" ),"
" ),"
" 6 => array("
" 'var' => 'aMap',"
" 'type' => TType::MAP,"
" 'ktype' => TType::I32,"
" 'vtype' => TType::DOUBLE,"
" 'key' => array("
" 'type' => TType::I32,"
" ),"
" 'val' => array("
" 'type' => TType::DOUBLE,"
" ),"
" ),"
" 7 => array("
" 'var' => 'aSet',"
" 'type' => TType::SET,"
" 'etype' => TType::I32,"
" 'elem' => array("
" 'type' => TType::I32,"
" ),"
" ),"
" 8 => array("
" 'var' => 'anByte',"
" 'type' => TType::BYTE,"
" ),"
" 9 => array("
" 'var' => 'anI16',"
" 'type' => TType::I16,"
" ),"
" );"
" }"
" }"
"}"
""
"function test() {"
" $p = new DummyProtocol();"
" $v1 = new TestStruct();"
" $v1->aBool = true;"
" $v1->anInt = 1234;"
" $v1->aString = 'abcdef';"
" $v1->aDouble = 1.2345;"
" $v1->anInt64 = 8589934592;"
" $v1->aList = array(13.3, 23.4, 3576.2);"
" $v1->aMap = array(10=>1.2, 43=>5.33);"
" $v1->aSet = array(10=>true, 11=>true);"
" $v1->anByte = 123;"
" $v1->anI16 = 1234;"
" var_dump($v1);"
" thrift_protocol_write_binary($p, 'foomethod', 1, $v1, 20, true);"
" var_dump(md5($p->getTransport()->buff));"
" var_dump(thrift_protocol_read_binary($p, 'TestStruct', true));"
"}"
"test();"
,
"object(TestStruct)#3 (10) {\n"
" [\"aBool\"]=>\n"
" bool(true)\n"
" [\"anInt\"]=>\n"
" int(1234)\n"
" [\"aString\"]=>\n"
" string(6) \"abcdef\"\n"
" [\"aDouble\"]=>\n"
" float(1.2345)\n"
" [\"anInt64\"]=>\n"
" int(8589934592)\n"
" [\"aList\"]=>\n"
" array(3) {\n"
" [0]=>\n"
" float(13.3)\n"
" [1]=>\n"
" float(23.4)\n"
" [2]=>\n"
" float(3576.2)\n"
" }\n"
" [\"aMap\"]=>\n"
" array(2) {\n"
" [10]=>\n"
" float(1.2)\n"
" [43]=>\n"
" float(5.33)\n"
" }\n"
" [\"aSet\"]=>\n"
" array(2) {\n"
" [10]=>\n"
" bool(true)\n"
" [11]=>\n"
" bool(true)\n"
" }\n"
" [\"anByte\"]=>\n"
" int(123)\n"
" [\"anI16\"]=>\n"
" int(1234)\n"
"}\n"
"string(32) \"6b4fbe9563551f3dee970a74b883f923\"\n"
"object(TestStruct)#4 (10) {\n"
" [\"aBool\"]=>\n"
" bool(true)\n"
" [\"anInt\"]=>\n"
" int(1234)\n"
" [\"aString\"]=>\n"
" string(6) \"abcdef\"\n"
" [\"aDouble\"]=>\n"
" float(1.2345)\n"
" [\"anInt64\"]=>\n"
" int(8589934592)\n"
" [\"aList\"]=>\n"
" array(3) {\n"
" [0]=>\n"
" float(13.3)\n"
" [1]=>\n"
" float(23.4)\n"
" [2]=>\n"
" float(3576.2)\n"
" }\n"
" [\"aMap\"]=>\n"
" array(2) {\n"
" [10]=>\n"
" float(1.2)\n"
" [43]=>\n"
" float(5.33)\n"
" }\n"
" [\"aSet\"]=>\n"
" array(2) {\n"
" [10]=>\n"
" bool(true)\n"
" [11]=>\n"
" bool(true)\n"
" }\n"
" [\"anByte\"]=>\n"
" int(123)\n"
" [\"anI16\"]=>\n"
" int(1234)\n"
"}\n");
MVCRO(
"<?php "
"class TType {"
" const STOP = 0;"
" const VOID = 1;"
" const BOOL = 2;"
" const BYTE = 3;"
" const I08 = 3;"
" const DOUBLE = 4;"
" const I16 = 6;"
" const I32 = 8;"
" const I64 = 10;"
" const STRING = 11;"
" const UTF7 = 11;"
" const STRUCT = 12;"
" const MAP = 13;"
" const SET = 14;"
" const LST = 15;"
" const UTF8 = 16;"
" const UTF16 = 17;"
"}"
"class DummyProtocol {"
" public $t;"
" function __construct() {"
" $this->t = new DummyTransport();"
" }"
" function getTransport() {"
" return $this->t;"
" }"
"}"
"class DummyTransport {"
" public $buff = '';"
" public $pos = 0;"
" function flush() { }"
" function write($buff) {"
" $this->buff .= $buff;"
" }"
" function read($n) {"
" $r = substr($this->buff, $this->pos, $n);"
" $this->pos += $n;"
" return $r;"
" }"
"}"
"class TestStruct {"
" static $_TSPEC;"
""
" public $aBool = null;"
" public $anInt = null;"
" public $aDouble = null;"
" public $anInt64 = null;"
" public $anByte = null;"
" public $anI16 = null;"
""
" public function __construct($vals=null) {"
" if (!isset(self::$_TSPEC)) {"
" self::$_TSPEC = array("
" -1 => array("
" 'var' => 'aBool',"
" 'type' => TType::BOOL,"
" ),"
" 1 => array("
" 'var' => 'anInt',"
" 'type' => TType::I32,"
" ),"
" 2 => array("
" 'var' => 'aDouble',"
" 'type' => TType::DOUBLE,"
" ),"
" 3 => array("
" 'var' => 'anInt64',"
" 'type' => TType::I64,"
" ),"
" 4 => array("
" 'var' => 'anByte',"
" 'type' => TType::BYTE,"
" ),"
" 5 => array("
" 'var' => 'anI16',"
" 'type' => TType::I16,"
" ),"
" );"
" }"
" }"
"}"
""
"function test() {"
" $p = new DummyProtocol();"
" $v1 = new TestStruct();"
" $v1->aBool = false;"
" $v1->anInt = -1234;"
" $v1->aDouble = -1.2345;"
" $v1->anInt64 = -1;"
" $v1->anByte = -12;"
" $v1->anI16 = -123;"
" thrift_protocol_write_binary($p, 'foomethod', 1, $v1, 20, true);"
" var_dump(thrift_protocol_read_binary($p, 'TestStruct', true));"
"}"
"test();",
"object(TestStruct)#4 (6) {\n"
" [\"aBool\"]=>\n"
" bool(false)\n"
" [\"anInt\"]=>\n"
" int(-1234)\n"
" [\"aDouble\"]=>\n"
" float(-1.2345)\n"
" [\"anInt64\"]=>\n"
" int(-1)\n"
" [\"anByte\"]=>\n"
" int(-12)\n"
" [\"anI16\"]=>\n"
" int(-123)\n"
"}\n");
MVCRO(
"<?php "
"class TType {"
" const STOP = 0;"
" const VOID = 1;"
" const BOOL = 2;"
" const BYTE = 3;"
" const I08 = 3;"
" const DOUBLE = 4;"
" const I16 = 6;"
" const I32 = 8;"
" const I64 = 10;"
" const STRING = 11;"
" const UTF7 = 11;"
" const STRUCT = 12;"
" const MAP = 13;"
" const SET = 14;"
" const LST = 15;"
" const UTF8 = 16;"
" const UTF16 = 17;"
"}"
"class DummyProtocol {"
" public $t;"
" function __construct() {"
" $this->t = new DummyTransport();"
" }"
" function getTransport() {"
" return $this->t;"
" }"
"} "
"class DummyTransport {"
" public $buff = '';"
" public $pos = 0;"
" function flush() { }"
" function write($buff) {"
" $this->buff .= $buff;"
" } "
" function read($n) {"
" $r = substr($this->buff, $this->pos, $n);"
" $this->pos += $n;"
" return $r;"
" } "
"} "
"class TestStruct {"
" static $_TSPEC;"
" "
" public $aBool = null;"
" public $anInt = null;"
" public $aString = null;"
" public $aDouble = null;"
" public $anInt64 = null;"
" public $aList = null;"
" public $aMap = null;"
" public $aSet = null;"
" public $anByte = null;"
" public $anI16 = null;"
" "
" public function __construct($vals=null) {"
" if (!isset(self::$_TSPEC)) {"
" self::$_TSPEC = array("
" -1 => array("
" 'var' => 'aBool',"
" 'type' => TType::BOOL,"
" ),"
" 1 => array("
" 'var' => 'anInt',"
" 'type' => TType::I32,"
" ),"
" 2 => array("
" 'var' => 'aString',"
" 'type' => TType::STRING,"
" ),"
" 3 => array("
" 'var' => 'aDouble',"
" 'type' => TType::DOUBLE,"
" ),"
" 4 => array("
" 'var' => 'anInt64',"
" 'type' => TType::I64,"
" ),"
" 5 => array("
" 'var' => 'aList',"
" 'type' => TType::LST,"
" 'etype' => TType::DOUBLE,"
" 'elem' => array("
" 'type' => TType::DOUBLE,"
" ),"
" ),"
" 6 => array("
" 'var' => 'aMap',"
" 'type' => TType::MAP,"
" 'ktype' => TType::I32,"
" 'vtype' => TType::DOUBLE,"
" 'key' => array("
" 'type' => TType::I32,"
" ),"
" 'val' => array("
" 'type' => TType::DOUBLE,"
" ),"
" ),"
" 7 => array("
" 'var' => 'aSet',"
" 'type' => TType::SET,"
" 'etype' => TType::I32,"
" 'elem' => array("
" 'type' => TType::I32,"
" ),"
" ),"
" 8 => array("
" 'var' => 'anByte',"
" 'type' => TType::BYTE,"
" ),"
" 9 => array("
" 'var' => 'anI16',"
" 'type' => TType::I16,"
" ),"
" );"
" }"
" }"
"}"
""
"function test() {"
" $p = new DummyProtocol();"
" $v1 = new TestStruct();"
" $v1->aBool = true;"
" $v1->anInt = 1234;"
" $v1->aString = 'abcdef';"
" $v1->aDouble = 1.2345;"
" $v1->anInt64 = 8589934592;"
" $v1->aList = array(13.3, 23.4, 3576.2);"
" $v1->aMap = array(10=>1.2, 43=>5.33);"
" $v1->aSet = array(10=>true, 11=>true);"
" $v1->anByte = 123;"
" $v1->anI16 = 1234;"
" thrift_protocol_write_compact($p, 'foomethod', 1, $v1, 20);"
" var_dump(md5($p->getTransport()->buff));"
"}"
"test();",
"string(32) \"cd0654ca200fe910204988f44f996a11\"\n");
MVCRO(
"<?php "
"class TType {"
" const STOP = 0;"
" const VOID = 1;"
" const BOOL = 2;"
" const BYTE = 3;"
" const I08 = 3;"
" const DOUBLE = 4;"
" const I16 = 6;"
" const I32 = 8;"
" const I64 = 10;"
" const STRING = 11;"
" const UTF7 = 11;"
" const STRUCT = 12;"
" const MAP = 13;"
" const SET = 14;"
" const LST = 15;"
" const UTF8 = 16;"
" const UTF16 = 17;"
"}"
"class DummyProtocol {"
" public $t;"
" function __construct() {"
" $this->t = new DummyTransport();"
" }"
" function getTransport() {"
" return $this->t;"
" }"
"} "
"class DummyTransport {"
" public $buff = '';"
" public $pos = 0;"
" function flush() { }"
" function write($buff) {"
" $this->buff .= $buff;"
" } "
" function read($n) {"
" $r = substr($this->buff, $this->pos, $n);"
" $this->pos += $n;"
" return $r;"
" } "
" function putBack($data) {"
" $this->buff = ($data . $this->buff);"
" } "
"} "
"class TestStruct {"
" static $_TSPEC;"
" "
" public $aBool = null;"
" public $anInt = null;"
" public $aString = null;"
" public $aDouble = null;"
" public $anInt64 = null;"
" public $aList = null;"
" public $aMap = null;"
" public $aSet = null;"
" public $anByte = null;"
" public $anI16 = null;"
" "
" public function __construct($vals=null) {"
" if (!isset(self::$_TSPEC)) {"
" self::$_TSPEC = array("
" -1 => array("
" 'var' => 'aBool',"
" 'type' => TType::BOOL,"
" ),"
" 1 => array("
" 'var' => 'anInt',"
" 'type' => TType::I32,"
" ),"
" 2 => array("
" 'var' => 'aString',"
" 'type' => TType::STRING,"
" ),"
" 3 => array("
" 'var' => 'aDouble',"
" 'type' => TType::DOUBLE,"
" ),"
" 4 => array("
" 'var' => 'anInt64',"
" 'type' => TType::I64,"
" ),"
" 5 => array("
" 'var' => 'aList',"
" 'type' => TType::LST,"
" 'etype' => TType::DOUBLE,"
" 'elem' => array("
" 'type' => TType::DOUBLE,"
" ),"
" ),"
" 6 => array("
" 'var' => 'aMap',"
" 'type' => TType::MAP,"
" 'ktype' => TType::I32,"
" 'vtype' => TType::DOUBLE,"
" 'key' => array("
" 'type' => TType::I32,"
" ),"
" 'val' => array("
" 'type' => TType::DOUBLE,"
" ),"
" ),"
" 7 => array("
" 'var' => 'aSet',"
" 'type' => TType::SET,"
" 'etype' => TType::I32,"
" 'elem' => array("
" 'type' => TType::I32,"
" ),"
" ),"
" 8 => array("
" 'var' => 'anByte',"
" 'type' => TType::BYTE,"
" ),"
" 9 => array("
" 'var' => 'anI16',"
" 'type' => TType::I16,"
" ),"
" );"
" }"
" }"
"}"
""
"function test() {"
" $p = new DummyProtocol();"
" $v1 = new TestStruct();"
" $v1->aBool = true;"
" $v1->anInt = 1234;"
" $v1->aString = 'abcdef';"
" $v1->aDouble = 1.2345;"
" $v1->anInt64 = 8589934592;"
" $v1->aList = array(13.3, 23.4, 3576.2);"
" $v1->aMap = array(10=>1.2, 43=>5.33);"
" $v1->aSet = array(10=>true, 11=>true);"
" $v1->anByte = 123;"
" $v1->anI16 = 1234;"
" thrift_protocol_write_compact($p, 'foomethod', 1, $v1, 20);"
// HACK: rewrite the version and call type from "version X, call" to
// "version 2, response" to appease deserializer
" $p->getTransport()->buff[1] = pack('C', 0x42);"
" var_dump(thrift_protocol_read_compact($p, 'TestStruct'));"
"}"
"test();",
"object(TestStruct)#4 (10) {\n"
" [\"aBool\"]=>\n"
" bool(true)\n"
" [\"anInt\"]=>\n"
" int(1234)\n"
" [\"aString\"]=>\n"
" string(6) \"abcdef\"\n"
" [\"aDouble\"]=>\n"
" float(1.2345)\n"
" [\"anInt64\"]=>\n"
" int(8589934592)\n"
" [\"aList\"]=>\n"
" array(3) {\n"
" [0]=>\n"
" float(13.3)\n"
" [1]=>\n"
" float(23.4)\n"
" [2]=>\n"
" float(3576.2)\n"
" }\n"
" [\"aMap\"]=>\n"
" array(2) {\n"
" [10]=>\n"
" float(1.2)\n"
" [43]=>\n"
" float(5.33)\n"
" }\n"
" [\"aSet\"]=>\n"
" array(2) {\n"
" [10]=>\n"
" bool(true)\n"
" [11]=>\n"
" bool(true)\n"
" }\n"
" [\"anByte\"]=>\n"
" int(123)\n"
" [\"anI16\"]=>\n"
" int(1234)\n"
"}\n");
return true;
}
bool TestCodeRun::TestExit() {
MVCR("<?php "
"function foo() { return false; }"
"foo() or die(\"foobar\");");
MVCR("<?php "
"function foo() { return false; }"
"foo() or exit(\"foobar\");");
MVCR("<?php "
"function callback($data) {"
" return \"callback: $data\";"
"}"
"ob_start();"
"echo \"from first level\\n\";"
"ob_start();"
"ob_start(\"callback\");"
"echo \"foobar!\\n\";"
"exit;");
MVCRONW("<?php "
"declare(ticks=1);"
"function foo() {"
" echo 'a';"
" exit(1);"
"}"
"function bar() {} "
"pcntl_signal(SIGUSR1, 'foo');"
"$pid = posix_getpid();"
"posix_kill($pid, SIGUSR1);"
"bar(); /* check for received signal upon function entry/exit */ "
"for ($i = 0; $i < 2; $i++) {"
" echo 'a';"
"}"
,
"a");
MVCR("<?php "
"$command = \"exit 2\";"
"system($command, $return);"
"print \"$return\\n\";");
MVCR("<?php "
"$command = \"exit 2\";"
"passthru($command, $return);"
"print \"$return\\n\";");
return true;
}
bool TestCodeRun::TestCreateFunction() {
MVCR("<?php var_dump(array_filter(array(1, 1003, 34, 5006), "
"create_function('$x', 'return $x > 1000;')));");
MVCR("<?php var_dump(array_filter(array(1, 1003, 34, 5006), "
"create_function('$x', 'return '.'$x > 1000;')));");
return true;
}
bool TestCodeRun::TestConstructorDestructor() {
MVCR("<?php "
"class parent_c {"
" public function __construct() {"
" echo \"parent__construct\";"
" }"
" public function __destruct() {"
" echo \"parent__destruct\";"
" }"
"}"
"class child_c extends parent_c {"
" public function __construct() {"
" echo \"child__construct\";"
" }"
" public function __destruct() {"
" echo \"child__destruct\";"
" }"
"}"
"$v = new child_c;unset($v);");
MVCR("<?php "
"class parent_c {"
" public function __construct() {"
" echo \"parent__construct\";"
" }"
" public function __destruct() {"
" echo \"parent__destruct\";"
" }"
"}"
"class child_c extends parent_c {"
" public function __construct() {"
" echo \"child__construct\";"
" parent::__construct();"
" }"
" public function __destruct() {"
" echo \"child__destruct\";"
" parent::__destruct();"
" }"
"}"
"$v = new child_c;unset($v);");
MVCR("<?php ;"
"class B1 {}"
"class C1 { function __construct() {} }"
"class D1 { function __destruct() { var_dump(__METHOD__); } }"
"class D2 extends C1 { function __destruct()"
"{ var_dump(__METHOD__); } }"
"class D3 extends D2 {}"
"class D4 extends B1 { function __destruct()"
"{ var_dump(__METHOD__); } }"
"class D5 extends D4 {}"
"class D6 extends D1 { function __construct($a) { if ($a) f(); } }"
"function f() { throw new Exception('throw'); }"
"function foo($a,$b) {"
" try {"
" $x = new D6($b?f():$a);"
" } catch (Exception $e) {"
" var_dump('caught');"
" }"
"}"
"function bar($x, $a, $b) {"
" try {"
" $x = new $x($b?f():$a);"
" } catch (Exception $e) {"
" var_dump('caught');"
" }"
"}"
"function n($x) { return new $x; }"
"function baz($d) {"
" $x = new D1;"
" $x = new D2;"
" $x = new D3;"
" $x = new D4;"
" $x = new D5;"
" $x = new D6;"
" $x = n($d.'1');"
" $x = n($d.'2');"
" $x = n($d.'3');"
" $x = n($d.'4');"
" $x = n($d.'5');"
" $x = n($d.'6');"
" $x = n('B1');"
"}"
"foo(false,false);"
"foo(false,true);"
"foo(true,true);"
"foo(true,false);"
"bar('D6',false,false);"
"bar('D6',false,true);"
"bar('D6',true,false);"
"bar('D6',true,true);"
"baz('D');");
return true;
}
bool TestCodeRun::TestConcat() {
MVCR("<?php\n"
"$str = '';\n"
"$arr1 = array('a', 'b');\n"
"$arr2 = $arr1;\n"
"foreach ($arr1 as $v1) {\n"
" $str .= $v1;\n"
" switch ($v1) {\n"
" default:\n"
" foreach ($arr2 as $v2) {\n"
" $str .= $v2;\n"
" }\n"
" }\n"
"}\n"
"var_dump($str);\n"
);
MVCR("<?php "
"function foo($where_clause)"
"{"
" $sql ="
" 'SELECT p.property_name, p.property_value, p.property_id, '."
" 'p.property_data_type, p.property_type, '."
" 't.tier_id, t.tier_parent_id, t.tier_version, t.tier_type, '."
" 't.tier_state, t.tier_name '."
" 'FROM tier t LEFT OUTER JOIN property p ON '."
" 'p.parent_id = t.tier_id AND '."
" 'p.property_type = \"tier\" '."
" $where_clause;"
" echo $sql . \"\\n\";"
"}"
"foo(\"where 1 = 1\");");
MVCR("<?php "
"echo \"a\" . \"b\" . \"c\" . \"d\" . \"e\";"
"echo 'a' . 'b' . 'c' . 'd' . 'e';"
"echo 'a' . \"b\" . \"c\" . \"d\" . 'e';"
"echo '\"a' . \"\\\"b\" . \"\\'c\" . \"\\'d\" . '\\\"e';"
"echo 1 . 2 . 3 . 4 . 5;"
"echo 1 . '2' . '3' . 4 . 5;"
"echo 1 . \"2\" . \"3\" . 4 . 5;");
MVCR("<?php "
"$v = \"c\";"
"echo \"a\" . \"b\" . $v . \"d\" . \"e\";"
"echo \"a\" . \"b\" . $v . \"d\" . \"e\" . $v . \"f\" . \"g\";");
MVCR("<?php "
"echo '\\\\' . \"\\n\";"
"echo '\\'' . \"\\n\";"
"echo '\\\\' . '\\'' . \"\\n\";"
"echo '\\\\' . \"'\" . \"\\n\";"
"echo \"\\\\\" . \"'\" . \"\\n\";"
"echo \"\\101\" . \"\\n\";"
"echo \"\\\\\" . \"101\" . \"\\n\";"
"echo \"\\1\" . \"101\" . \"\\n\";"
"echo \"\\01\" . \"01\" . \"\\n\";"
"echo \"\\01\" . \"g\" . \"\\n\";"
"echo \"\\1\" . \"g\" . \"\\n\";"
"echo \"\\011\" . \"01\" . \"\\n\";"
"echo \"\\0111\" . \"01\" . \"\\n\";"
"echo \"\\x\" . \"1\" . \"\\n\";"
"echo \"\\x1\" . \"1\" . \"\\n\";"
"echo \"\\x11\" . \"1\" . \"\\n\";"
"echo \"\\x111\" . \"1\" . \"\\n\";"
"echo \"\\x1111\" . \"1\" . \"\\n\";"
"echo \"\\x11111\" . \"1\" . \"\\n\";"
"echo \"\\777777\" . \"7\" . \"\\n\";"
"echo \"\\0777777\" . \"7\" . \"\\n\";"
"echo \"\\00777777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\\"7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\\\7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\a7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\b7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\f7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\n7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\r7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\t7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\v7777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\07777\" . \"7\" . \"\\n\";"
"echo \"\\0077\\'7777\" . \"7\" . \"\\n\";");
MVCR("<?php "
"echo '\\\\';"
"echo '\\'';"
"echo '\\\\';"
"echo '\\\\';"
"echo \"\\\\\";"
"echo \"\\101\";"
"echo \"\\\\\";"
"echo \"\\1\";"
"echo \"\\01\";"
"echo \"\\01\";"
"echo \"\\1\";"
"echo \"\\011\";"
"echo \"\\0111\";"
"echo \"\\x\";"
"echo \"\\x1\";"
"echo \"\\x11\";"
"echo \"\\x111\";"
"echo \"\\x1111\";"
"echo \"\\x11111\";"
"echo \"\\777777\";"
"echo \"\\0777777\";"
"echo \"\\00777777\";"
"echo \"\\0077\\\"7777\";"
"echo \"\\0077\\\\7777\";"
"echo \"\\0077\\a7777\";"
"echo \"\\0077\\b7777\";"
"echo \"\\0077\\f7777\";"
"echo \"\\0077\\n7777\";"
"echo \"\\0077\\r7777\";"
"echo \"\\0077\\t7777\";"
"echo \"\\0077\\v7777\";"
"echo \"\\0077\\07777\";"
"echo \"\\0077\\'7777\";");
MVCR("<?php "
"echo <<<EOT\n"
"\\t\n"
"\\r\n"
"\\a\n"
"\\b\n"
"\\f\n"
"\\v\n"
"\\\"\n"
"\\\\\n"
"'\\\\' . \\`\\n\\`;\n"
"'\\'' . \\`\\n\\`;\n"
"'\\\\' . '\\'' . \\`\\n\\`;\n"
"'\\\\' . \\`'\\` . \\`\\n\\`;\n"
"\\`\\\\\\` . \\`'\\` . \\`\\n\\`;\n"
"\\`\\101\\` . \\`\\n\\`;\n"
"\\`\\\\\\` . \\`101\\` . \\`\\n\\`;\n"
"\\`\\1\\` . \\`101\\` . \\`\\n\\`;\n"
"\\`\\01\\` . \\`01\\` . \\`\\n\\`;\n"
"\\`\\01\\` . \\`g\\` . \\`\\n\\`;\n"
"\\`\\1\\` . \\`g\\` . \\`\\n\\`;\n"
"\\`\\011\\` . \\`01\\` . \\`\\n\\`;\n"
"\\`\\0111\\` . \\`01\\` . \\`\\n\\`;\n"
"\\`\\x\\` . \\`1\\` . \\`\\n\\`;\n"
"\\`\\x1\\` . \\`1\\` . \\`\\n\\`;\n"
"\\`\\x11\\` . \\`1\\` . \\`\\n\\`;\n"
"\\`\\x111\\` . \\`1\\` . \\`\\n\\`;\n"
"\\`\\x1111\\` . \\`1\\` . \\`\\n\\`;\n"
"\\`\\x11111\\` . \\`1\\` . \\`\\n\\`;\n"
"\\`\\777777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0777777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\00777777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\\\`7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\\\7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\a7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\b7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\f7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\n7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\r7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\t7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\v7777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\07777\\` . \\`7\\` . \\`\\n\\`;\n"
"\\`\\0077\\'7777\\` . \\`7\\` . \\`\\n\\`;\n"
"EOT;\n");
MVCR("<?php "
"$v = 1;"
"echo $v . b'a' . b\"b\" . `ls \\055\\144 \\x2ftmp`;"
"echo b'a' . b\"b\" . `ls \\055\\144 \\x2ftmp` . $v;");
MVCR("<?php "
"function foo() {"
" $u = \"abc\";"
" $v = \"\\0\";"
" $w = \"def\\n\";"
" $x = $u . $v . $w;"
" echo $x;"
" echo \"abc\" . \"\\0\" . \"def\\n\";"
"}"
"foo();"
"$u = \"abc\";"
"$v = \"\\0\";"
"$w = \"def\\n\";"
"$x = $u . $v . $w;"
"echo $x;"
"echo \"abc\" . \"\\0\" . \"def\\n\";"
"echo \"ab\\0c\\n\";");
MVCR("<?php "
"function foo() { return \"hello\" . \"\\0\" . \"world\n\"; }"
"function bar() {"
" $s = foo();"
" echo $s;"
"}"
"bar();");
MVCR("<?php "
"define('FOO'.'BAR', 1);"
"echo FOOBAR;");
MVCR("<?php "
"$a = \"1\";"
"$a .= \"2\";"
"$a .= \"3\";"
"$a .= \"4\";"
"var_dump($a);"
"$a .= \"1\";"
"$a .= \"2\";"
"$a .= \"3\";"
"$a .= \"4\";"
"var_dump($a);");
MVCR("<?php "
"$a = array(1, array(1, array(1)));"
"$a[1][1][1] = 3;"
"var_dump($a);"
"$a[1][1][1] = \"1\";"
"$a[1][1][1] .= \"2\";"
"$a[1][1][1] .= \"3\";"
"$a[1][1][1] .= \"4\";"
"$a[1][1][1] .= \"5\";"
"var_dump($a);"
"$payload['pane_html'] = null;"
"$payload['pane_html'] = "
"'<div id=\"beacon_accepted_pane\" class=\"beacon_status_pane\" "
"style=\"display: none\">';"
"$payload['pane_html'] .= '<div class=\"beacon_status_message\">';");
MVCR("<?php "
"$a1 = a;"
"$a2 = b;"
"$a3 = c;"
"$a4 = d;"
"$a5 = e;"
"$a6 = f;"
"$a7 = g;"
"$a8 = h;"
"$a9 = i;"
"$a10 = j;"
"$a11 = k;"
"$a12 = l;"
"$a13 = m;"
"echo $a1.$a2.$a3.$a4.$a5.$a6;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7.$a8;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7.$a8.$a9;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7.$a8.$a9.$a10;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7.$a8.$a9.$a10.$a11;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7.$a8.$a9.$a10.$a11.$a12;"
"echo $a1.$a2.$a3.$a4.$a5.$a6.$a7.$a8.$a9.$a10.$a11.$a12.$a13;");
MVCR("<?php "
"function n_() {"
" return \"\n\" ."
" str_repeat($GLOBALS['n_indent_tab'], $GLOBALS['n_indent_level']);"
"}"
"function n_indent() {"
" $GLOBALS['n_indent_level']++;"
" return n_();"
"}"
"function n_unindent() {"
" $GLOBALS['n_indent_level']--;"
" return n_();"
"}"
"function render($arg1, $arg2) {"
" return"
" '<div id=\"captcha\" class=\"'.$arg1.'\">'."
" n_indent()."
" $arg2 ."
" n_unindent()."
" '</div>';"
"}"
"$GLOBALS['n_indent_level'] = 0;"
"var_dump(render(\"foo\", \"bar\"));");
MVCR("<?php "
"$s = \" \";"
"$a = \"hello\";"
"$a .= $s;"
"$a .= \"world\";"
"var_dump($a);"
"$a = \"a\";"
"$a .= \"b\";"
"$a .= $a;"
"var_dump($a);"
"$a = 3;"
"echo 0 + \"1$a\";");
MVCR("<?php "
"function test($a)"
"{"
" if ($a > 0) {"
" $sql = 'foo';"
" } else {"
" $sql = 'bar';"
" }"
" $sql .= ' baz';"
" return $sql;"
"}"
"echo test(1),test(-1),\"\\n\";");
MVCR("<?php "
"function foo() {"
" echo \" FOO \";"
" return \" foo \";"
"}"
"function bar() {"
" echo \" hello \" . foo() . \"\n\";"
" echo \" hello \" , foo() , \"\n\";"
"}"
"bar();");
MVCR("<?php "
"function foo() {"
" print \" FOO \";"
" return \" foo \";"
"}"
"class A implements ArrayAccess {"
" private $data = array();"
" public function offsetUnset($index) {}"
""
" public function offsetGet($index) {"
" print \" GET \";"
" return \" get \";"
" }"
" public function offsetSet($index, $value) {"
" $data[$index] = $value;"
" }"
" public function offsetExists($index) { }"
"}"
"class C {"
" public function __get( $what ) {"
" echo \"get C\\n\";"
" return $this->_p[ $what ];"
" }"
" public function __set( $what, $value ) {"
" echo \"set C\\n\";"
" $this->_p[ $what ] = $value;"
" }"
" private $_p = array();"
"}"
"function bar() {"
" print \" hello \" . foo() . \"\\n\";"
" $a = new A;"
" $a[0] = 0;"
" $a[1] = 1;"
" echo \" hello $a[0]\";"
" echo \" hello $a[1]\\n\";"
" print \" hello $a[0]\";"
" print \" hello $a[1]\\n\";"
" $b = new C;"
" $b->a = 'aaaa';"
" $b->b = 'bbbb';"
" echo \" hello $b->a\";"
" echo \" hello $b->b\\n\";"
" print \" hello $b->a\";"
" print \" hello $b->b\\n\";"
" echo \" hello $b->a $b->b $b->a $b->b\";"
"}"
"bar();");
MVCR("<?php "
"function test($a, $b) {"
" return $a . \"\\0\" . $b . \"\\0\" . $a . $b . $a . $b;"
"}"
"var_dump(json_encode(test('x', 'y')));");
MVCR("<?php "
"$a = 1;"
"var_dump($a . '2' . '3');");
MVCR("<?php "
"$a= 'a';"
"$b = 'b';"
"$c = 0;"
"var_dump($a . $b == $c);");
MVCR("<?php "
"class C {"
" public function __toString() {"
" return 'bar';"
" }"
"}"
"function f($x) {"
" var_dump($x . '');"
"}"
"f(123);"
"f(new C);");
return true;
}
bool TestCodeRun::TestConstant() {
MVCR("<?php define('A', 'B'); define('A_'.A, 'B'); var_dump(A, A_B);");
MVCR("<?php "
"define('AAA', true);"
"define('BBB', false);"
"define('CCC', null);"
"if (AAA){"
" echo \"AAA\";"
"} else {"
" echo \"!AAA\";"
"}"
"if (BBB) {"
" echo \"BBB\";"
"} else {"
" echo \"!BBB\";"
"}"
"if (CCC) {"
" echo \"CCC\";"
"} else {"
" echo \"!CCC\";"
"}"
"$a = AAA ? \"AAA\" : \"!AAA\";"
"$b = BBB ? \"BBB\" : \"!BBB\";"
"$c = CCC ? \"CCC\" : \"!CCC\";"
"echo \"$a$b$c\\n\";");
MVCR("<?php "
"echo strlen(\"he\\0llo\");"
"echo php_uname();"
"echo md5('1f3870be274f6c49b3e31a0c6728957f');"
"echo sha1('1f3870be274f6c49b3e31a0c6728957f');"
"echo crc32('1f3870be274f6c49b3e31a0c6728957f');"
"echo pi();"
"echo getrandmax();"
"echo mt_getrandmax();"
"echo ord('abc');"
"echo chr(27);"
"echo strtoupper(\"Mary Had A \\0 Lamb\");"
"echo strtolower(\"Mary Had A \\0 Lamb\");"
"echo strcmp(\"Mary Had A \\0Lamb\", \"Mary Had A Lamb\") < 0;"
"echo strncmp(\"Mary Had A \\0 Lamb\", \"Mary Had A Lamb\", 5) == 0;"
"echo strcasecmp(\"Mary Had A \\0 Lamb\", \"Mary Had A Lamb\") < 0;"
"echo strncasecmp(\"Mary Had A \\0 Lamb\", \"Mary Had A Lamb\", 5) == 0;"
"echo addslashes(\"Is your name \\0O'reilly?\");"
"echo htmlspecialchars(\"<a ref='test'>Test</a>\", ENT_QUOTES);"
"echo htmlspecialchars_decode(\"\\0abc\");"
"echo htmlspecialchars_decode(\"abc\\0def\");"
"echo htmlentities(\"<a ref='test'>Test</a>\", ENT_QUOTES);"
"echo dirname(\"<a ref='test'>Test</a>\");"
"echo basename(\"<a ref='test'>Test</a>\");"
"echo version_compare(\"5.1.2\", \"5.1.3\");"
"echo dechex(10);"
"echo hexdec(\"See\");"
"echo decbin(12);"
"echo decbin('000110011');"
"echo decoct(264);"
"echo octdec('77');"
"echo octdec(decoct(45));"
"echo str_repeat(\"-=\", 10);"
"echo intval(42);"
"echo intval(4.2);"
"echo intval('42');"
"echo intval('+42');"
"echo intval('-42');"
"echo intval(042);"
"echo intval('042');"
"echo intval(1e10);"
"echo intval('1e10');"
"echo intval(0x1A);"
"echo intval(42000000);"
"echo intval(42, 8);"
"echo intval('42', 8);"
"echo substr(\"abcdef\", -1);"
"echo substr(\"abcdef\", -2);"
"echo substr(\"abcdef\", -3, 1);"
"echo substr(\"abcdef\", 0, -1);"
"echo substr(\"abcdef\", 2, -1);"
"echo substr(\"abcdef\", 4, -4);"
"echo substr(\"abcdef\", -3, -1);"
"echo substr(\"abcdef\", 1);"
"echo substr(\"abcdef\", 1, 3);"
"echo substr(\"abcdef\", 0, 4);"
"echo substr(\"abcdef\", 0, 8);"
"echo substr(\"abcdef\", -1, 1);"
"echo trim(\"\\t\\t\\0These are a few words :) ... \");"
"echo trim(\"\\t\\t\\0These are a few words :) ... \", \" \\t.\");"
"echo trim(\"\\x09Example string\\x0A\", \"\\x00..\\x1F\");"
"echo ltrim(\"\\t\\t\\0These are a few words :) ... \");"
"echo ltrim(\"\\t\\t\\0These are a few words :) ... \", \" \\t.\");"
"echo ltrim(\"\\x09Example string\\x0A\", \"\\x00..\\x1F\");"
"echo rtrim(\"\\t\\t\\0These are a few words :) ... \");"
"echo rtrim(\"\\t\\t\\0These are a few words :) ... \", \" \\t.\");"
"echo rtrim(\"\\x09Example string\\x0A\", \"\\x00..\\x1F\");"
"echo chop(\"\\t\\t\\0These are a few words :) ... \");"
"echo chop(\"\\t\\t\\0These are a few words :) ... \", \" \\t.\");"
"echo chop(\"\\x09Example string\\x0A\", \"\\x00..\\x1F\");"
"echo acos(0.5);"
"echo acosh(0.5);"
"echo asin(0.5);"
"echo asinh(0.5);"
"echo atan(0.5);"
"echo atan2(0.5, 0.5);"
"echo atanh(0.5);"
"echo cos(0.5);"
"echo cosh(0.5);"
"echo sin(0.5);"
"echo sinh(0.5);"
"echo tan(0.5);"
"echo tanh(0.5);"
"echo exp(5.7);"
"echo exp(12);"
"echo log10(12);"
"echo log(12);"
"echo sqrt(2);"
"echo ceil(7.9);"
"echo floor(7.9);"
"echo fmod(5.7, 1.3);"
"echo ip2long(\"127.0.0.1\");"
/*
5.2 accepts these, 5.3 does not.
php.net says it should
"echo ip2long(\"10.0.0\");"
"echo ip2long(\"10.0.256\");"
*/
"echo long2ip(pow(2,32) + 1024);"
"echo rad2deg(M_PI_4);"
"echo deg2rad(45);");
MVCR("<?php "
"var_dump(067);"
"var_dump(077);"
"var_dump(078);"
"var_dump(0x78);"
"var_dump(0x78f);"
"var_dump(0xef);"
"var_dump(-067);"
"var_dump(-077);"
"var_dump(-078);"
"var_dump(-0x78);"
"var_dump(-0x78f);"
"var_dump(-0xef);");
MVCR("<?php "
"define('FOO', \"\\n\");"
"define('BAR', \"\\r\");"
"var_dump(PHP_EOL);"
"var_dump(FOO);"
"var_dump(BAR);");
MVCR("<?php "
"var_dump(INF);"
"var_dump(NAN);");
MVCR("<?php "
"define('A_B', 555);"
"define('A_'. 'B', 'B');");
MVCR("<?php "
"var_dump(define('AF_UNIX', 5));"
"var_dump(AF_UNIX);");
// Arrays aren't allowed as constants
MVCR("<?php "
"var_dump(define('KONST', array('a', 'bc')));"
"var_dump(KONST);"
"var_dump(define('FLUB', 1230));"
"var_dump(define('FLUB', array(1,23)));"
"var_dump(FLUB);"
// defeat optimizations
"var_dump(define('BLAH', array_map('strlen', array('a', 'bc'))));"
"var_dump(BLAH);"
"define('FOO', array(1,2,3));");
MVCR("<?php "
"var_dump(define('foo', false));"
"var_dump(define('foo', true));");
return true;
}
bool TestCodeRun::TestClassConstant() {
MVCR("<?php "
"class parent_c {"
" const ZERO = 0;"
" const TWENTY = 20;"
" const FORTY = 40;"
"}"
"class child_c extends parent_c {"
" const FIFTY = 50;"
"}"
""
"function foo"
"($a = parent_c::ZERO, $b = child_c::FIFTY, $c = child_c::FORTY) {"
" echo $a;"
" echo $b;"
" echo $c;"
"}"
"foo();"
"print parent_c::ZERO;");
MVCR("<?php "
"class FooConstants {"
" const ZERO = 0;"
" const TWENTY_FOUR3 = FooConstants::TWENTY_FOUR2;"
" const TWENTY_FOUR2 = FooConstants::TWENTY_FOUR;"
" const TWENTY_FOUR = 24;"
" const FORTY_EIGHT = 48;"
"}"
"class BarConstants {"
" const ZERO = FooConstants::ZERO;"
" const TWENTY_FOUR = FooConstants::TWENTY_FOUR;"
" const FORTY_EIGHT = FooConstants::FORTY_EIGHT;"
"}"
"class GooConstants {"
" const ZERO = BarConstants::ZERO;"
" const TWENTY_FOUR = BarConstants::TWENTY_FOUR;"
" const FORTY_EIGHT = BarConstants::FORTY_EIGHT;"
"}"
"function a_better_pickle() {"
" return FooConstants::ZERO;"
"}"
"a_better_pickle();"
"print GooConstants::ZERO;"
"print FooConstants::TWENTY_FOUR2;"
"print FooConstants::TWENTY_FOUR3;");
MVCR("<?php "
"define('FOO', 3);"
"define('BAR', true);"
"define('GOO', FOO + 4);"
"define('HOO', FOO);"
"var_dump(FOO);"
"var_dump(BAR);"
"var_dump(GOO);"
"var_dump(HOO);"
"class A {"
" const C1 = 1;"
" const C2 = '2';"
" const C3 = FOO;"
" const C4 = BAR;"
" const C5 = GOO;"
" const C6 = HOO;"
"}"
"var_dump(a::C1);"
"var_dump(a::C2);"
"var_dump(a::C3);"
"var_dump(a::C4);"
"var_dump(a::C5);"
"var_dump(a::C6);");
MVCR("<?php "
"define('FOO', 3);"
"function foo($a = FOO) {"
" echo $a;"
"}"
"foo();");
MVCR("<?php "
"class c {"
" function foo($x = self::BLAH) {}"
"}");
MVCR("<?php "
"interface X {"
" const A=1;"
"}"
"class Y {"
" const B = 2;"
"}"
"class Z extends Y implements X {"
" function x() {"
" print self::A;"
" print self::B;"
" print Z::A;"
" print Z::B;"
" print X::A;"
" print Y::B;"
" }"
"}"
"$z = new Z;"
"$z->x();");
MVCR("<?php "
"class Dummy {}"
""
"class foo {"
" public static $v = array(Dummy::c => 'foo');"
"}"
""
"interface A {"
" const CONSTANT = 'CONSTANT';"
"}"
""
"class B implements A { }"
""
"class C {"
" static $A_CONSTANT = A::CONSTANT;"
" static $B_CONSTANT = B::CONSTANT;"
"}"
""
"var_dump(A::CONSTANT);"
"var_dump(B::CONSTANT);"
"var_dump(C::$A_CONSTANT);"
"var_dump(C::$B_CONSTANT);");
MVCR("<?php "
"abstract class TB {"
" const PARAM_A = 'aaa';"
" const PARAM_B = 'bbb';"
" const PARAM_C = 'ccc';"
" const PARAM_D = 'ddd';"
"}"
"abstract class ATB extends TB {"
"}"
"class ABCD extends ATB {"
" static public function foo() {"
" return array("
" 'a_ids' => array("
" ATB::PARAM_A => true,"
" ATB::PARAM_C => array("
" array('tcks', 'none'),"
" array('tcks', 'ids'),"
" ),"
" ATB::PARAM_B =>"
" 'aaaa',"
" ),"
" 'user_id' => array("
" ATB::PARAM_A => true,"
" ATB::PARAM_C => array("
" array('tcks', 'none'),"
" array('tcks', 'id'),"
" ),"
" ATB::PARAM_B =>"
" 'bbbb',"
" ),"
" );"
" }"
"}"
"var_dump(ABCD::foo());");
MVCR("<?php "
"function __autoload($x) { var_dump('AUTOLOAD:'.$x); }"
"class X {"
" public $foo = Y::FOO;"
" function foo() {"
" var_dump(__METHOD__, $this);"
" }"
"}"
"X::foo();");
MVCRO("<?php\n"
"class A { const A = 'a'; }\n"
"class B extends A { const B = 'b'; }\n"
"var_dump(get_class_constants('B'));\n"
,
"array(1) {\n"
" [\"B\"]=>\n"
" string(1) \"b\"\n"
"}\n");
MVCRO("<?php\n"
"interface I { const X = 'x'; }\n"
"class A implements I { }\n"
"var_dump(A::X);\n"
"var_dump(get_class_constants('A'));\n"
,
"string(1) \"x\"\n"
"array(0) {\n"
"}\n");
MVCRO("<?php\n"
"class B { const X = 'old'; }\n"
"class A extends B { const X = 'new'; }\n"
"var_dump(A::X);\n"
"var_dump(get_class_constants('A'));\n"
,
"string(3) \"new\"\n"
"array(1) {\n"
" [\"X\"]=>\n"
" string(3) \"new\"\n"
"}\n");
MVCRO("<?php\n"
"var_dump(get_class_constants('C'));\n"
,
"array(0) {\n"
"}\n");
MVCRO("<?php\n"
"class B { const X='xxx'; }\n"
"class C { const Y=B::X; }\n"
"var_dump(get_class_constants('C'));\n"
,
"array(1) {\n"
" [\"Y\"]=>\n"
" string(3) \"xxx\"\n"
"}\n");
MVCR("<?php "
"if (isset($g)) {"
" interface I { const FOO = 1; }"
" class C { const FOO = 3; }"
"} else {"
" interface I { const FOO = 2; }"
" class C { const FOO = 4; }"
"}"
"class X {"
" function foo($x = C::FOO, $y = I::FOO) {}"
"}"
"function test() {"
" $x = new ReflectionMethod('X', 'foo');"
" foreach ($x->getParameters() as $p) {"
" var_dump($p->getDefaultValue());"
" }"
"}"
"function fiz($c) {"
" var_dump($c::FOO);"
"}"
"fiz('I');"
"fiz('C');"
"test();");
MVCR("<?php "
"interface ITest {"
" const ITestConst = 42;"
"}"
"class Test implements ITest {"
" public function foo($y = 'Test', $x = self::ITestConst) {"
" var_dump($y::ITestConst);"
" var_dump(static::ITestConst);"
" var_dump(self::ITestConst);"
" var_dump($x);"
" }"
"}"
"$t = new Test();"
"$t->foo();"
"$rc = new ReflectionClass('Test');"
"$method = $rc->getMethod('foo');"
"foreach ($method->getParameters() as $param) {"
" var_dump($param->getDefaultValue());"
"}");
return true;
}
bool TestCodeRun::TestConstantFunction() {
MVCR("<?php "
"class JavaScriptPacker {"
" public function foo() {"
" $encode10 = $this->_getJSFunction('_encode10');"
" var_dump($encode10);"
" $encode36 = $this->_getJSFunction('_encode36');"
" var_dump($encode36);"
" }"
" private function _getJSFunction($aName) {"
" if (defined('self::JSFUNCTION'.$aName))"
" return constant('self::JSFUNCTION'.$aName);"
" else"
" return '';"
" }"
" const JSFUNCTION_encode10 ="
" 'function($charCode) {"
" return $charCode;"
"}';"
""
"}"
"$obj = new JavaScriptPacker;"
"$obj->foo(); ");
MVCR("<?php "
"var_dump(constant('M_PI'));"
"$a = 'M_PI';"
"var_dump(constant($a));"
"define('FOO', M_PI);"
"var_dump(constant('FOO'));"
"define('BAR', php_uname());"
"var_dump(constant('BAR'));"
"define(/*|Dynamic|*/'GOO', 1);"
"var_dump(constant('GOO'));"
"if (false) {"
" define('C', 1);"
"} else {"
" define('C', 2);"
"}"
"var_dump(constant('C'));");
return true;
}
bool TestCodeRun::TestDefined() {
MVCR("<?php "
"if (defined('FOO')) echo 'defined'; else echo 'undefined';");
MVCR("<?php "
"define('FOO', 1);"
"if (defined('FOO')) echo 'defined'; else echo 'undefined';");
MVCR("<?php "
"echo FOO;"
"if (defined('FOO')) echo 'defined'; else echo 'undefined';");
MVCR("<?php "
"define('THIRTEEN', 13);"
"define('ONE', 1);"
"class Foo {"
" const ZERO = 0;"
" function f() {"
" if (defined('self::ZERO')) {"
" var_dump(self::ZERO);"
" }"
" if (defined('THIRTEEN')) {"
" var_dump(THIRTEEN);"
" }"
" if (defined('ONE')) {"
" var_dump(ONE);"
" }"
" $a = 'self::ZERO';"
" if (defined($a)) {"
" var_dump(self::ZERO);"
" }"
" }"
"}"
"class Bar extends Foo {"
" function f() {"
" if (defined('self::ZERO')) {"
" var_dump(self::ZERO);"
" }"
" if (defined('parent::ZERO')) {"
" var_dump(parent::ZERO);"
" }"
" $a = 'parent::ZERO';"
" if (defined($a)) {"
" var_dump(parent::ZERO);"
" }"
" }"
"}"
"class Goo {"
" const ZERO = Bar::ZERO;"
"}"
"$a = 'Foo::ZERO';"
"if (defined($a)) {"
" var_dump(Foo::ZERO);"
"}"
"$a = 'Bar::ZERO';"
"if (defined($a)) {"
" var_dump(Bar::ZERO);"
"}"
"$a = 'Goo::ZERO';"
"if (defined($a)) {"
" var_dump(Goo::ZERO);"
"}"
"$obj = new Foo;"
"$obj->f();"
"$obj = new Bar;"
"$obj->f();");
MVCR("<?php "
"function handler($errno, $errstr) {"
" var_dump($errno);"
" return true;"
"}"
"set_error_handler('handler');"
"unserialize();"
"define();"
"define('u');"
"define('a','X');"
"define('b','Y',false);"
"define('c',1,2,3,4,foo());"
"var_dump(a,b,c);"
"var_dump(defined('a'),defined('b'),defined('c'));"
"function foo() {"
" var_dump('FOO');"
"}");
return true;
}
bool TestCodeRun::TestAssignment() {
MVCR("<?php "
"function f($a) {"
" var_dump($a);"
"}"
"class ClassA {"
" var $val;"
" function foo() { f($val = 1); }"
" function bar() { f($this->val = 1); }"
" function goo() { f($val = 'val'); f($this->$val = 2); }"
" function zoo() {"
" var_dump($val); var_dump($this->val);"
" }"
"}"
"function foo() {"
" f($val2 = 1);"
"}"
"$obj = new ClassA();"
"var_dump($obj);"
"$obj->foo();"
"var_dump($obj);"
"$obj->bar();"
"var_dump($obj);"
"$obj->goo();"
"var_dump($obj);"
"$obj->zoo();");
MVCR("<?php "
"function f($a) {"
" var_dump($a);"
"}"
"class ClassA {"
" static $val = 1;"
" function foo() { f($val = 'val'); f($this->$val = 2); }"
" function foo2() { f($this->val = 3); }"
" function bar() {"
" var_dump($val); var_dump($this->val);"
" }"
"}"
"$obj = new ClassA();"
"var_dump($obj);"
"$obj->foo();"
"var_dump($obj);"
"$obj->bar();"
"$obj->foo2();"
"var_dump($obj);"
"$obj->bar();");
MVCR("<?php "
"class X"
"{"
" function __destruct() { var_dump('destruct'); }"
"}"
"function foo() {"
" $x = new X;"
" var_dump('before');"
" $x = null;"
" var_dump('after');"
"}"
"foo();");
MVCR("<?php "
"function e() { return 'hello'; }"
"function foo() {"
" $expected = e();"
" $list_expected = \"[$expected,$expected]\";"
" var_dump($expected, $list_expected);"
"}"
"foo();");
MVCR("<?php\n"
"function g($key, $old, $new, $s = false) {\n"
" $diff = array();\n"
" if ($old !== $new) {\n"
" if ($s) {\n"
" $old = f($old, true);\n"
" $new = f($new, true);\n"
" }\n"
" $diff['old'][$key] = $old;\n"
" $diff['new'][$key] = $new;\n"
" }\n"
" return $diff;\n"
"}\n"
"function f($a0, $a1) {\n"
" return 'should_be_modified';\n"
"}\n"
"var_dump(g('key', 'old', 'new', true));\n");
MVCR("<?php\n"
"\n"
"class dom {\n"
" public $kid;\n"
" public function __destruct() {\n"
" echo \"dom destructing\n\";\n"
" $this->kid->check();\n"
" $this->kid->clear_unset();\n"
" }\n"
"}\n"
"\n"
"class node {\n"
" public $dom;\n"
"\n"
" public function __construct($dom) {\n"
" $this->dom = $dom;\n"
" $dom->kid = $this;\n"
" }\n"
" public function __destruct() {\n"
" echo \"node destructing\n\";\n"
" }\n"
" public function clear_unset() {\n"
" unset($this->dom);\n"
" }\n"
" public function clear_set() {\n"
" $this->dom = null;\n"
" }\n"
" public function check() {\n"
" var_dump(isset($this->dom));\n"
" }\n"
"}\n"
"\n"
"class node_arr {\n"
" public $doms = array();\n"
"\n"
" public function __construct($dom) {\n"
" $this->doms[0] = $dom;\n"
" $dom->kid = $this;\n"
" }\n"
" public function __destruct() {\n"
" echo \"node destructing\n\";\n"
" }\n"
" public function clear_unset() {\n"
" unset($this->doms[0]);\n"
" }\n"
" public function clear_set() {\n"
" $this->doms[0] = null;\n"
" }\n"
" public function check() {\n"
" var_dump(isset($this->doms[0]));\n"
" }\n"
"}\n"
"\n"
"echo \"\nProperty, SetM\n\";\n"
"$node = new node(new dom);\n"
"$node->clear_set();\n"
"unset($node);\n"
"\n"
"echo \"\nProperty, UnsetM\n\";\n"
"$node = new node(new dom);\n"
"$node->clear_unset();\n"
"unset($node);\n"
"\n"
"echo \"\nArray, SetM\n\";\n"
"$node = new node_arr(new dom);\n"
"$node->clear_set();\n"
"unset($node);\n"
"\n"
"echo \"\nArray, UnsetM\n\";\n"
"$node = new node_arr(new dom);\n"
"$node->clear_unset();\n"
"unset($node);\n");
return true;
}
bool TestCodeRun::TestSimpleXML() {
MVCR("<?php\n"
"function addChildNode(SimpleXMLElement $parent, "
"SimpleXMLElement $node) {\n"
" $newchild = $parent->addChild($node->getName(), (string)$node);\n"
" foreach ($node->attributes() as $name => $value) {\n"
" $newchild->addAttribute($name, $value);\n"
" }\n"
" foreach ($node->children() as $child) {\n"
" addChildNode($newchild, $child);\n"
" }\n"
"}\n"
"\n"
"$xmlreq = '<a><item><node><sub>1st</sub>"
"<sub>2nd</sub></node></item></a>';\n"
"$quote = simplexml_load_string($xmlreq);\n"
"$req = new SimpleXMLElement('<node/>');\n"
"foreach ($quote->attributes() as $name => $value) {\n"
" $req->addAttribute($name, $value);\n"
"}\n"
"foreach ($quote->children() as $child) {\n"
" addChildNode($req, $child);\n"
"}\n"
"\n"
"$vertex = new SimpleXMLElement('<root/>');\n"
"addChildNode($vertex, $req);\n"
"var_dump($vertex->asXML());\n"
);
MVCR("<?php $x = new SimpleXMLElement('<foo><bar>345.234</bar></foo>');"
"var_dump((double)$x->bar);");
MVCR("<?php $x = new SimpleXMLElement('<foo><bar></bar></foo>');"
"var_dump((bool)$x->bar);");
MVCR("<?php $x = new SimpleXMLElement('<foo><bar>0</bar></foo>');"
"var_dump((bool)$x->bar);");
MVCR("<?php "
"$x = new SimpleXMLElement('<foo/>'); "
"$x->addAttribute('attr', 'one'); "
"$x['attr'] = 'two'; "
"var_dump((string)$x['attr']); "
"var_dump($x->asXML());");
MVCR("<?php\n"
"$node = new SimpleXMLElement('<foo><bar>whoops</bar></foo>');\n"
"var_dump((array)$node->bar);");
MVCR("<?php\n"
"$node = new SimpleXMLElement('<foo><bar name=\"value\">"
"whoops</bar></foo>');\n"
"var_dump((array)$node->bar);");
MVCR("<?php\n"
"$node = new SimpleXMLElement('<foo><bar>whoops</bar></foo>');\n"
"var_dump((string)$node[0]);");
MVCR("<?php\n"
"$node = simplexml_load_string('<foo><bar>whoops</bar></foo>');"
"var_dump((string)$node);");
MVCR("<?php\n"
"$node = new SimpleXMLElement('<foo><bar>whoops</bar></foo>');"
"var_dump((string)$node);");
MVCR("<?php\n"
"$node = new SimpleXMLElement('<foo>whoops</foo>');"
"var_dump((string)$node);");
MVCR("<?php\n"
"$sxe = new SimpleXMLElement('<image-definition />');\n"
"$sxe->addChild('path', 'some/path/to/my.file');\n"
"$sxe->addChild('options');\n"
"$sxe->options->addChild('paddingbottom', 1);\n"
"var_dump((string)$sxe->path);\n"
"var_dump((string)$sxe->options->paddingbottom);\n"
);
MVCR("<?php\n"
"$x = new SimpleXMLElement('<foo/>');\n"
"$x->addChild('bar', 'whoops');\n"
"var_dump((string)$x);\n");
MVCR(
"<?php\n"
"function convert_simplexml_to_array($sxml) {\n"
" $arr = array();\n"
" if ($sxml) {\n"
" foreach ($sxml as $k => $v) {\n"
" if ($sxml['list']) {\n"
" if (isset($v['key'])) {\n"
" $arr[(string)$v['key']] = convert_simplexml_to_array($v);\n"
" } else {\n"
" $arr[] = convert_simplexml_to_array($v);\n"
" }\n"
" } else {\n"
" $arr[$k] = convert_simplexml_to_array($v);\n"
" }\n"
" }\n"
" }\n"
" if (sizeof($arr) > 0) {\n"
" return $arr;\n"
" } else {\n"
" return (string)$sxml;\n"
" }\n"
"}\n"
"\n"
"$xml = <<<EOM\n"
"<root list=\"true\">\n"
" <node key=\"key1\" list=\"true\">\n"
" <subnode key=\"subkey1\" list=\"true\">\n"
" <name>value1-1</name>\n"
" <name>value1-2</name>\n"
" </subnode>\n"
" <subnode key=\"subkey2\">value1</subnode>\n"
" </node>\n"
" <node key=\"key2\" list=\"true\">\n"
" <subnode>value2</subnode>\n"
" </node>\n"
"</root>\n"
"EOM;\n"
"\n"
"$sxml = simplexml_load_string($xml);\n"
"var_dump(convert_simplexml_to_array($sxml));\n"
);
MVCR("<?php\n"
"$xml = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><response>test</response>';\n"
"$sxml = simplexml_load_string($xml);\n"
"foreach ($sxml as $k => $v) {\n"
" var_dump($k, (string)$v);\n"
"}\n");
MVCR("<?php\n"
"$xml = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><response><t>6</t><t>7</t><t>8</t></response>';\n"
"$sxml = simplexml_load_string($xml);\n"
"foreach ($sxml as $k => $v) {\n"
" var_dump($k, (int)$v);\n"
"}\n");
MVCR("<?php\n"
"$xml = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><response><t>6</t><t>7</t><t>8</t></response>';\n"
"$sxml = simplexml_load_string($xml);\n"
"foreach ($sxml as $k => $v) {\n"
" var_dump($k, (string)$v);\n"
"}\n");
MVCR("<?php\n"
"$xml = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><root>"
"<invalidations><invalidation id=\"12345\"/></invalidations></root>';\n"
"$dom = new SimpleXMLElement($xml);\n"
"$invalidations = $dom->invalidations;\n"
"var_dump((string)$invalidations->invalidation[\"id\"]);\n"
"foreach ($invalidations as $node) {\n"
" var_dump((string)$node->invalidation[\"id\"]);\n"
"}\n");
MVCR("<?php\n"
"\n"
"$file = <<<EOM\n"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
"<wurfl-config>\n"
" <persistence>\n"
" <provider>memcache</provider>\n"
" <params></params>\n"
" </persistence>\n"
"\n"
" <cache>\n"
" <provider>memcache</provider>\n"
" <params></params>\n"
" </cache>\n"
"</wurfl-config>\n"
"EOM;\n"
"var_dump($file);\n"
"\n"
"$xml = simplexml_load_string($file);\n"
"foreach ($xml->children() as $parent_name => $xml_ele) {\n"
" var_dump($parent_name);\n"
"\n"
" foreach ($xml_ele->children() as $key => $value) {\n"
" var_dump((string)$key, (string)$value);\n"
" }\n"
"}\n"
);
MVCR("<?php\n"
"$xml = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><response><t>6</t></response>';\n"
"$sxml = simplexml_load_string($xml);\n"
"function convert_simplexml_to_array($sxml) {\n"
" if ($sxml) {\n"
" foreach ($sxml as $k => $v) {\n"
" var_dump($k, (string)$v);\n"
" convert_simplexml_to_array($v);\n"
" }\n"
" }\n"
"}\n"
"convert_simplexml_to_array($sxml);");
MVCR("<?php $doc = new SimpleXMLElement('<?xml version=\"1.0\"?><root><node><option>1</option></node></root>'); $doc->node->option = false; var_dump($doc->asXML());");
MVCR("<?php $doc = new SimpleXMLElement('<?xml version=\"1.0\"?><root><node><option>1</option></node></root>'); $doc->node->option = 0; var_dump($doc->asXML());");
MVCR("<?php $doc = new SimpleXMLElement('<?xml version=\"1.0\"?><root><node><option>1</option></node></root>'); unset($doc->node->option); var_dump($doc->asXML());");
MVCR("<?php $doc = simplexml_load_String('<?xml version=\"1.0\"?><lists><list path=\"svn+ssh\"><entry kind=\"dir\"></entry><entry kind=\"file\"></entry></list></lists>'); foreach ($doc->list[0]->entry as $r) { var_dump((array)$r->attributes());}");
MVCR("<?php "
"$sxe = new SimpleXMLElement('<foo />');"
"$sxe->addChild('options');"
"$sxe->options->addChild('paddingtop', 0);"
"echo 'Success\n';");
MVCR("<?php $doc = simplexml_load_string('<?xml version=\"1.0\"?><root xmlns:foo=\"http://example.com\"><foo:b1>c1</foo:b1><foo:b2>c2</foo:b2><foo:b2>c3</foo:b2></root>'); $foo_ns_bar = $doc->children('http://example.com');"
"var_dump($doc->getName());"
"foreach ($foo_ns_bar as $v) var_dump((string)$v);"
"var_dump($foo_ns_bar->getName());"
"var_dump(count($foo_ns_bar->b1));"
"var_dump((string)$foo_ns_bar->b1);"
"var_dump((string)$foo_ns_bar->b1[0]);"
"foreach ($foo_ns_bar->b1 as $v) var_dump((string)$v);"
"var_dump(count($foo_ns_bar->b2));"
"var_dump((string)$foo_ns_bar->b2[0]);"
"var_dump((string)$foo_ns_bar->b2[1]);"
"foreach ($foo_ns_bar->b2 as $v) var_dump((string)$v);"
);
MVCR("<?php function printElement($el, $indent='') {"
" if (strlen($indent) > 10) {"
" var_dump('Recursed to deep, backing out');"
" return;"
" }"
" print $indent.$el->getName().\"\\n\";"
" foreach ($el->attributes() as $k => $v) {"
" print $indent.$k.' => '.$v.\"\\n\";"
" }"
" foreach ($el->children() as $child) {"
" printElement($child, $indent.' ');"
" }"
"}"
"$a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><xx><yy><node a=\"b\">hi</node></yy><yy><node a=\"b\">hi</node></yy></xx>');"
"printElement($a);"
);
MVCR("<?php $a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><node a=\"b\"><subnode attr1=\"value1\" attr2=\"value2\">test</subnode><subnode><subsubnode>test</subsubnode></subnode><test>v</test></node>');"
"var_dump((array)$a->attributes());"
"var_dump((string)$a->subnode[0]);"
"var_dump((string)$a->subnode[0]['attr1']);"
"var_dump((string)$a->subnode[1]['subsubnode']);"
"var_dump((string)$a->subnode[1]->subsubnode);"
"var_dump((string)$a->test);"
"var_dump((array)$a->subnode[0]->attributes());"
"var_dump((array)$a->subnode[1]->attributes());"
"var_dump($a->asxml());"
"var_dump((string)$a->addchild('newnode', 'newvalue'));"
"$a->addattribute('newattr', 'newattrvalue');"
"var_dump($a->asxml());"
"var_dump((array)$a->attributes());"
"var_dump((string)$a->newnode);"
"var_dump($a->getname());"
"var_dump((array)$a->children()->subnode[0]->subsubnode);"
"$nodes = $a->xpath('//node/subnode');"
"var_dump((string)$nodes[1]->subsubnode);"
"$nodes = $nodes[1]->xpath('subsubnode');"
"var_dump((string)$nodes[0]);"
);
MVCR("<?php $a = new SimpleXMLElement('<?xml version=\"1.0\" encoding=\"utf-8\"?><node><subnode><subsubnode>test</subsubnode></subnode></node>');"
"var_dump((array)($a->subnode->subsubnode));"
"var_dump((string)($a->subnode->subsubnode));"
);
MVCR("<?php $a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><node><subnode><subsubnode>test</subsubnode></subnode></node>');"
"var_dump((array)($a->subnode->subsubnode));"
"var_dump((string)($a->subnode->subsubnode));"
);
MVCR("<?php $a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><node><subnode><subsubnode>test</subsubnode></subnode></node>');"
"var_dump((string)($a->subnode->subsubnode['0']));"
"var_dump((string)($a->subnode->subsubnode[0]));"
);
MVCR("<?php $a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><node><subnode attr1=\"value1\">test</subnode></node>');"
"var_dump((string)($a->subnode['attr1']));"
);
MVCR("<?php $a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><node><subnode><subsubnode attr1=\"value1\">test</subsubnode></subnode></node>');"
"var_dump((string)($a->subnode->subsubnode['attr1']));"
);
MVCR("<?php $a = new SimpleXMLElement('<?xml version=\"1.0\" encoding=\"utf-8\"?><node><subnode><subsubnode><sssnode>test</sssnode></subsubnode></subnode></node>');"
"var_dump((string)($a->subnode->subsubnode->sssnode));"
);
MVCR("<?php "
"$post_xml = '<?xml version=\"1.0\" encoding=\"utf-8\"?><ScanResults version=\"1.0\"><scannedItem itemType=\"5\" itemSize=\"1079856\" "
"itemName=\"C:\\\\Program Files\\\\VMware\\\\VMware Tools\\\\VMwareUser.exe\" "
"IsScanned=\"1\" IsInfected=\"0\" ObjectSummary=\"0\" "
"ScanError=\"0\"/></ScanResults>';"
"$xml = new SimpleXMLElement($post_xml);"
"foreach ($xml->scannedItem as $item) {"
" echo $item['itemName'] . \"\\n\";"
"}");
MVCR("<?php $a = simplexml_load_string('<?xml version=\"1.0\" encoding=\"utf-8\"?><?mso-application progid=\"Excel.Sheet\"?><node><subnode><subsubnode>test</subsubnode></subnode></node>');"
"var_dump((string)($a->subnode->subsubnode[0]));"
);
MVCR("<?php\n"
"$xml = '<?xml version=\"1.0\" encoding=\"UTF-8\"?><response><t a=\"apple\" b=\"banana\">6</t><t>7</t><t>8</t></response>';\n"
"$sxml = simplexml_load_string($xml);\n"
"var_dump(count($sxml->t));\n"
"var_dump((string)$sxml->t[0]);\n"
"var_dump((string)$sxml->t[1]);\n"
"var_dump((string)$sxml->t[2]);\n"
"var_dump(count($sxml->t->bogus));\n"
"var_dump(count($sxml->t->attributes()));\n"
"foreach ($sxml->bogus as $v) {}");
return true;
}
bool TestCodeRun::TestXML() {
MVCR(
"<?php\n"
"class xml {\n"
" var $parser;\n"
" function xml() {\n"
" $this->parser = xml_parser_create();\n"
" xml_set_object($this->parser, $this);\n"
" xml_set_element_handler($this->parser, 'tag_open', 'tag_close');\n"
" xml_set_character_data_handler($this->parser, 'cdata');\n"
" }\n"
" function parse($data) { xml_parse($this->parser, $data);}\n"
" function tag_open($parser, $tag, $attributes) {\n"
" var_dump($tag, $attributes);\n"
" }\n"
" function cdata($parser, $cdata) { var_dump($cdata);}\n"
" function tag_close($parser, $tag){ var_dump($tag);}\n"
"}\n"
"\n"
"$xml_parser = new xml();\n"
"$xml_parser->parse('<A ID=\"hallo\">PHP</A>');\n"
);
MVCR("<?php\n"
"function parse_callback() {\n"
" var_dump(func_get_args());\n"
"}\n"
"function main() {\n"
" $p = xml_parser_create();\n"
" xml_set_element_handler($p, 'parse_callback', 'parse_callback');\n"
" xml_set_element_handler($p, false, 'parse_callback');\n"
" xml_parse($p, \"<tag><child/></tag>\", true);\n"
"\n"
" $p = xml_parser_create();\n"
" xml_set_element_handler($p, 'parse_callback', 'parse_callback');\n"
" xml_set_element_handler($p, 'parse_callback', '');\n"
" xml_parse($p, \"<tag><child/></tag>\", true);\n"
"}\n"
"main();\n");
return true;
}
bool TestCodeRun::TestDOMDocument() {
MVCR("<?php $obj = new DOMText(); var_dump($obj instanceof DOMNode);");
MVCR("<?php $xml = '<?xml version=\"1.0\"?><dependencies><dependency dependency_id=\"0\" dependent_id=\"1\"/><dependency dependency_id=\"4\" dependent_id=\"5\"/><dependency dependency_id=\"5\" dependent_id=\"6\"/><dependency dependency_id=\"9\" dependent_id=\"8\"/><dependency dependency_id=\"10\" dependent_id=\"8\"/><dependency dependency_id=\"12\" dependent_id=\"13\"/><dependency dependency_id=\"12\" dependent_id=\"14\"/></dependencies>';\n"
"$dom = new domDocument;\n"
"$dom->loadxml($xml);\n"
"$xpath = new DOMXPath($dom);\n"
"$node_list = $xpath->query('//dependencies/dependency[@dependency_id = 0 and @dependent_id = 1]');\n"
"$dependencies = $xpath->query('//dependencies')->item(0);\n"
"$dependencies->removeChild($node_list->item(0));\n"
);
MVCR("<?php $xml = '<?xml version=\"1.0\"?><dependencies><dependency dependency_id=\"0\" dependent_id=\"1\"/><dependency dependency_id=\"4\" dependent_id=\"5\"/><dependency dependency_id=\"5\" dependent_id=\"6\"/><dependency dependency_id=\"9\" dependent_id=\"8\"/><dependency dependency_id=\"10\" dependent_id=\"8\"/><dependency dependency_id=\"12\" dependent_id=\"13\"/><dependency dependency_id=\"12\" dependent_id=\"14\"/></dependencies>';\n"
"$dom = new domDocument;\n"
"$dom->loadxml($xml);\n"
"$xpath = new DOMXPath($dom);\n"
"$node_list = $xpath->query('//dependencies/dependency[@dependent_id = 8]');\n"
"foreach ($node_list as $node) {\n"
" var_dump($node->getAttribute($attribute));\n"
"}\n"
);
MVCR("<?php\n"
"$xmlstr = \"<?xml version='1.0' standalone='yes'?>\n"
"<!DOCTYPE chapter SYSTEM '/share/sgml/Norman_Walsh/"
"db3xml10/db3xml10.dtd'\n"
"[ <!ENTITY sp \\\"spanish\\\">\n"
"]>\n"
"<!-- lsfj -->\n"
"<chapter language='en'><title language='en'>Title</title>\n"
"<para language='ge'>\n"
"&sp;\n"
"<!-- comment -->\n"
"<informaltable language='&sp;kkk'>\n"
"<tgroup cols='3'>\n"
"<tbody>\n"
"<row><entry>a1</entry><entry morerows='1'>b1</entry>"
"<entry>c1</entry></row>\n"
"<row><entry>a2</entry><entry>c2</entry></row>\n"
"<row><entry>a3</entry><entry>b3</entry><entry>c3</entry></row>\n"
"</tbody>\n"
"</tgroup>\n"
"</informaltable>\n"
"</para>\n"
"</chapter> \";\n"
"\n"
"function print_node($node)\n"
"{\n"
" print \"Node Name: \" . $node->nodeName;\n"
" print \"\nNode Type: \" . $node->nodeType;\n"
" if ($node->nodeType != 3) {\n"
" $child_count = $node->childNodes->length;\n"
" } else {\n"
" $child_count = 0;\n"
" }\n"
" print \"\nNum Children: \" . $child_count;\n"
" if($child_count <= 1){\n"
" print \"\nNode Content: \" . $node->nodeValue;\n"
" }\n"
" print \"\n\n\";\n"
"}\n"
"\n"
"function print_node_list($nodelist)\n"
"{\n"
" foreach($nodelist as $node)\n"
" {\n"
" print_node($node);\n"
" }\n"
"}\n"
"\n"
"echo \"Test 1: accessing single nodes from php\n\";\n"
"$dom = new domDocument;\n"
"$dom->loadxml($xmlstr);\n"
"if(!$dom) {\n"
" echo \"Error while parsing the document\n\";\n"
" exit;\n"
"}\n"
"\n"
"// children() of of document would result in a memleak\n"
"//$children = $dom->children();\n"
"//print_node_list($children);\n"
"\n"
"echo \"--------- root\n\";\n"
"$rootnode = $dom->documentElement;\n"
"print_node($rootnode);\n"
"\n"
"echo \"--------- children of root\n\";\n"
"$children = $rootnode->childNodes;\n"
"print_node_list($children);\n"
"\n"
"// The last node should be identical with the last "
"entry in the children array\n"
"echo \"--------- last\n\";\n"
"$last = $rootnode->lastChild;\n"
"print_node($last);\n"
"\n"
"// The parent of this last node is the root again\n"
"echo \"--------- parent\n\";\n"
"$parent = $last->parentNode;\n"
"print_node($parent);\n"
"\n"
"// The children of this parent are the same children as one above\n"
"echo \"--------- children of parent\n\";\n"
"$children = $parent->childNodes;\n"
"print_node_list($children);\n"
"\n"
"echo \"--------- creating a new attribute\n\";\n"
"//This is worthless\n"
"//$attr = $dom->createAttribute(\"src\", \"picture.gif\");\n"
"//print_r($attr);\n"
"\n"
"//$rootnode->set_attributeNode($attr);\n"
"$attr = $rootnode->setAttribute(\"src\", \"picture.gif\");\n"
"$attr = $rootnode->getAttribute(\"src\");\n"
"print_r($attr);\n"
"print \"\n\";\n"
"\n"
"echo \"--------- Get Attribute Node\n\";\n"
"$attr = $rootnode->getAttributeNode(\"src\");\n"
"print_node($attr);\n"
"\n"
"echo \"--------- Remove Attribute Node\n\";\n"
"$attr = $rootnode->removeAttribute(\"src\");\n"
"print \"Removed \" . $attr . \" attributes.\n\";\n"
"\n"
"echo \"--------- attributes of rootnode\n\";\n"
"$attrs = $rootnode->attributes;\n"
"print_node_list($attrs);\n"
"\n"
"echo \"--------- children of an attribute\n\";\n"
"$children = $attrs->item(0)->childNodes;\n"
"print_node_list($children);\n"
"\n"
"echo \"--------- Add child to root\n\";\n"
"$myelement = new domElement(\"Silly\", \"Symphony\");\n"
"$newchild = $rootnode->appendChild($myelement);\n"
"print_node($newchild);\n"
"print $dom->saveXML();\n"
"print \"\n\";\n"
"\n"
"echo \"--------- Find element by tagname\n\";\n"
"echo \" Using dom\n\";\n"
"$children = $dom->getElementsByTagname(\"Silly\");\n"
"print_node_list($children);\n"
"\n"
"echo \" Using elem\n\";\n"
"$children = $rootnode->getElementsByTagName(\"Silly\");\n"
"print_node_list($children);\n"
"\n"
"echo \"--------- Unlink Node\n\";\n"
"print_node($children->item(0));\n"
"$rootnode->removeChild($children->item(0));\n"
"print_node_list($rootnode->childNodes);\n"
"print $dom->savexml();\n"
);
// dom002.phpt
MVCR("<?php\n"
"$xml = <<<HERE\n"
"<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n"
"<foo xmlns=\"http://www.example.com/ns/foo\"\n"
" xmlns:fubar=\"http://www.example.com/ns/fubar\">\n"
" <bar><test1 /></bar>\n"
" <bar><test2 /></bar>\n"
" <fubar:bar><test3 /></fubar:bar>\n"
" <fubar:bar><test4 /></fubar:bar>\n"
"</foo>\n"
"HERE;\n"
"\n"
"function dump($elems) {\n"
" foreach ($elems as $elem) {\n"
" var_dump($elem->nodeName);\n"
" dump($elem->childNodes);\n"
"}\n"
"}\n"
"\n"
"$dom = new DOMDocument();\n"
"$dom->loadXML($xml);\n"
"$doc = $dom->documentElement;\n"
"dump($dom->getElementsByTagName('bar'));\n"
"dump($doc->getElementsByTagName('bar'));\n"
"dump($dom->getElementsByTagNameNS('http://www.example.com/ns/fubar',"
" 'bar'));\n"
"dump($doc->getElementsByTagNameNS('http://www.example.com/ns/fubar',"
" 'bar'));\n"
);
// dom005.phpt
MVCR("<?php\n"
"$dom = new domdocument;\n"
"$html = <<<EOM\n"
"<html><head>\n"
"<title>Hello world</title>\n"
"</head>\n"
"<body>\n"
"This is a not well-formed<br>\n"
"html files with undeclared entities&nbsp;\n"
"</body>\n"
"</html>\n"
"EOM;\n"
"$dom->loadHTML($html);\n"
"print \"--- save as XML\n\";\n"
"\n"
"print adjustDoctype($dom->saveXML());\n"
"print \"--- save as HTML\n\";\n"
"\n"
"print adjustDoctype($dom->saveHTML());\n"
"\n"
"function adjustDoctype($xml) {\n"
" return str_replace("
"array(\">\n<\",\"DOCTYPE HTML\",'<p>','</p>'),"
"array(\"><\",\"DOCTYPE html\",'',''),$xml);\n"
"}\n"
);
// dom006.phpt
MVCR("<?php\n"
"class books extends domDocument {\n"
" function addBook($title, $author) {\n"
" $titleElement = $this->createElement('title');\n"
" $titleElement->appendChild($this->createTextNode($title));\n"
" $authorElement = $this->createElement('author');\n"
" $authorElement->appendChild($this->createTextNode($author));\n"
" $bookElement = $this->createElement('book');\n"
" $bookElement->appendChild($titleElement);\n"
" $bookElement->appendChild($authorElement);\n"
" $this->documentElement->appendChild($bookElement);\n"
" }\n"
"}\n"
"\n"
"$dom = new books;\n"
"\n"
"$xml = <<<EOM\n"
"<?xml version='1.0' ?>\n"
"<books>\n"
" <book>\n"
" <title>The Grapes of Wrath</title>\n"
" <author>John Steinbeck</author>\n"
" </book> <book>\n"
" <title>The Pearl</title> <author>John Steinbeck</author>\n"
" </book></books>\n"
"EOM;\n"
"\n"
"$dom->loadXML($xml);\n"
"$dom->addBook('PHP de Luxe', 'Richard Samar, Christian Stocker');\n"
"print $dom->saveXML();"
);
// dom007.phpt
MVCR("<?php\n"
"$xml = <<< EOXML\n"
"<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n"
"<!DOCTYPE courses [\n"
"<!ELEMENT courses (course+)>\n"
"<!ELEMENT course (title, description, temp*)>\n"
"<!ATTLIST course cid ID #REQUIRED>\n"
"<!ELEMENT title (#PCDATA)>\n"
"<!ELEMENT description (#PCDATA)>\n"
"<!ELEMENT temp (#PCDATA)>\n"
"<!ATTLIST temp vid ID #REQUIRED>\n"
"<!ENTITY test 'http://www.hpl.hp.com/semweb/2003/query_tester#'>\n"
"<!ENTITY rdf 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>\n"
"<!NOTATION GIF PUBLIC \"-\" \"image/gif\">\n"
"<!ENTITY myimage PUBLIC \"-\" \"mypicture.gif\" NDATA GIF>\n"
"]>\n"
"<courses>\n"
" <course cid=\"c1\">\n"
" <title>Basic Languages</title>\n"
" <description>Introduction to Languages</description>\n"
" </course>\n"
" <course cid=\"c6\">\n"
" <title>French I</title>\n"
" <description>Introduction to French</description>\n"
" <temp vid=\"c7\">\n"
" </temp>\n"
" </course>\n"
"</courses>\n"
"EOXML;\n"
"\n"
"$dom = new DOMDocument();\n"
"$dom->loadXML($xml);\n"
"\n"
"$dtd = $dom->doctype;\n"
"\n"
"/* Notation Tests */\n"
"$nots = $dtd->notations;\n"
"\n"
"$length = $nots->length; var_dump($length);\n"
"echo \"Length: \".$length.\"\n\";\n"
"\n"
"foreach ($nots AS $key=>$node) {\n"
" echo \"Key $key: \".$node->nodeName.\" (\".\n"
"$node->systemId.\") (\".$node->publicId.\")\n\";\n"
"}\n"
"print \"\n\";\n"
"for($x=0; $x < $length; $x++) {\n"
" echo \"Index $x: \".$nots->item($x)->nodeName.\" (\".\n"
" $nots->item($x)->systemId.\") "
"(\".$nots->item($x)->publicId.\")\n\";\n"
"}\n"
"\n"
"echo \"\n\";\n"
"$node = $nots->getNamedItem('xxx');\n"
"var_dump($node);\n"
"\n"
"echo \"\n\";\n"
"/* Entity Decl Tests */\n"
"$ents = $dtd->entities;\n"
"$length = $ents->length;\n"
"echo \"Length: \".$length.\"\n\";\n"
"foreach ($ents AS $key=>$node) {\n"
" echo \"Key: $key Name: \".$node->nodeName.\"\n\";\n"
"}\n"
"echo \"\n\";\n"
"for($x=0; $x < $length; $x++) {\n"
" echo \"Index $x: \".$ents->item($x)->nodeName.\"\n\";\n"
"}\n"
"\n"
"echo \"\n\";\n"
"$node = $ents->item(3);\n"
"var_dump($node);\n"
"$node = $ents->getNamedItem('xxx');\n"
"var_dump($node);\n"
);
MVCR("<?php"
" function rerender($html, $frag = false) {"
" $doc = new DOMDocument();"
" if ($frag) {"
" $body = $doc->createDocumentFragment();"
" $body->appendXML($html);"
" } else {"
" $doc->loadHTML($html);"
" $body = $doc->documentElement;"
" }"
" return helper($body);"
" }"
""
" function helper($element) {"
" if ($element instanceof DOMText) {"
" return htmlspecialchars($element->nodeValue);"
" } else {"
" $body = '';"
" foreach ($element->childNodes as $child) {"
" $body .= helper($child);"
" }"
""
" if ($element instanceof DOMElement) {"
" $attrs = array();"
" foreach ($element->attributes as $attr) {"
" $attrs[] = htmlspecialchars($attr->name) . '=\"' . "
" htmlspecialchars($attr->value) . '\"';"
" }"
" if ($attrs) {"
" $attrs = ' ' . implode(' ', $attrs);"
" } else {"
" $attrs = '';"
" }"
" return '<' . $element->tagName . $attrs . '>' . $body . "
" '</' . $element->tagName . '>';"
" } else {"
" return $body;"
" }"
" }"
" }"
""
" $fragment = 'Hello, <b>world</b>.';"
" $document = '<html><body><div style=\"color:red\">"
" <p class=\"thing\">'.$fragment.'</p></div>';"
""
" echo rerender($fragment, true).\"\n\n\";"
" echo rerender($document, false).\"\n\n\";"
);
MVCR("<?php "
"$xml ="
" '<root>$1 - <template><title>SITENAME</title></template></root>';"
"$dom = new DOMDocument();"
"$dom->loadXML($xml);"
"new foo($dom->documentElement);"
"class foo {"
" function foo($a) {"
" var_dump($a);"
" }"
"}");
MVCR("<?php\n"
"$dom = new DOMDocument();\n"
"$dom->loadXML('<a><b><c /></b></a>');\n"
"$remove = array();\n"
"foreach ($dom->getElementsByTagName('b') as $data) {\n"
" foreach ($data->childNodes as $element) {\n"
" if ($element instanceof DOMElement) {\n"
" $remove[] = $element;\n"
" }\n"
" }\n"
"}\n"
"foreach ($remove as $r) {\n"
" $r->parentNode->removeChild($r);\n"
"}\n"
"echo $dom->saveXML();\n"
);
MVCRO("<?php\n"
"function foo() {\n"
" $html = '<b>Hello</b><i>World</i>';\n"
" $doc = new DOMDocument();\n"
" $element = $doc->createDocumentFragment();\n"
" $element->appendXML($html);\n"
" foreach ($element->childNodes->getIterator() as $child) {\n"
" $element = null;\n"
" $doc = null;\n"
" var_dump($child->nodeValue);\n"
" }\n"
"}\n"
"foo();\n",
"string(5) \"Hello\"\n"
"string(5) \"World\"\n"
);
/* github issue #556 */
MVCR( "<?php "
"class MyNode extends DOMNode {}"
"class MyElement extends DOMElement {}"
"$dom = new DOMDocument;"
"var_dump($dom->registerNodeClass('DOMNode', 'MyNode'));"
"var_dump($dom->registerNodeClass('DOMElement', 'MyElement'));"
);
return true;
}
bool TestCodeRun::TestFile() {
//MVCR("<?php "
// "$gif = imagecreatefromgif('http://www.php.net/images/php.gif');"
// "imagegif($gif);"
// "imagedestroy($gif);");
MVCR("<?php\n"
"function main() {\n"
" file_put_contents(\"/tmp/temp.txt\",\n"
" \"put this in the txt file\\n\");\n"
" $txt = file_get_contents(\"/tmp/temp.txt\");\n"
" echo $txt;\n"
" file_put_contents(\"compress.zlib:///tmp/temp.zip\",\n"
" \"put this in the zip file\\n\");\n"
" $zip = file_get_contents(\"compress.zlib:///tmp/temp.zip\");\n"
" echo $zip;\n"
" file_put_contents('php://stdout', \"file_put_contents\\n\");\n"
"}\n"
"main();\n");
MVCR("<?php "
"$fh = fopen('php://output', 'w');"
"if (!$fh) {"
" throw new Exception('foo');"
"}"
"fprintf($fh, \"hello\\n\");"
"var_dump(fflush($fh));"
"var_dump(fclose($fh));"
"$fh = fopen('php://output', 'a');"
"if (!$fh) {"
" throw new Exception('foo');"
"}"
"fprintf($fh, \"hello\\n\");"
"var_dump(fflush($fh));"
"var_dump(fclose($fh));"
"$fh = fopen('php://output', 'r');"
"if (!$fh) {"
" throw new Exception('foo');"
"}"
"fprintf($fh, \"hello\\n\");"
"var_dump(fflush($fh));"
"var_dump(fclose($fh));");
MVCR("<?php "
"var_dump(filetype('test/test_ext_file2.tmp'));"
"var_dump(is_link('test/test_ext_file2.tmp'));"
"$a = lstat('test/test_ext_file2.tmp');"
"var_dump($a['mtime']);");
MVCR("<?php "
"$f = fopen('php://stdout', 'w');"
"fprintf($f, 'stdout');");
MVCR("<?php "
"$input = fopen('/tmp/junk.txt', 'w+');"
"fwrite($input, 'hello world');"
""
"fseek($input, 0);"
"$output = fopen('php://memory', 'w+');"
"stream_copy_to_stream($input, $output);"
"fseek($output, 0);"
"$bytes = fread($output, 1024);"
"print \"From file, without Maxlen: <\".serialize($bytes).\">.\\n\";"
""
"fseek($input, 0);"
"$output = fopen('php://memory', 'w+');"
"stream_copy_to_stream($input, $output, null);"
"fseek($output, 0);"
"$bytes = fread($output, 1024);"
"print \"From file, using Maxlen null: <\".serialize($bytes).\">.\\n\";"
""
""
"fseek($input, 0);"
"$output = fopen('php://memory', 'w+');"
"stream_copy_to_stream($input, $output, -1);"
"fseek($output, 0);"
"$bytes = fread($output, 1024);"
"print \"From file, using Maxlen -1: <\".serialize($bytes).\">.\\n\";");
MVCR("<?php "
"$tmp_dir='/tmp/tcr_tmp_dir'.getmypid();"
"mkdir($tmp_dir);"
"print_r(glob($tmp_dir.'/*'));"
"rmdir($tmp_dir);");
MVCR("<?php "
"$src = tmpfile();"
"$dst = tmpfile();"
"fwrite($src, 'a');"
"fseek($src, 0);"
"stream_copy_to_stream($src, $dst);"
"fseek($dst, 0);"
"$str = stream_get_contents($dst);"
"fseek($src, 0);"
"stream_copy_to_stream($src, $dst);"
"fseek($dst, 0);"
"$str = stream_get_contents($dst);"
"echo $str;");
MVCR("<?php "
"define('FILENAME', '/tmp/flock_file.dat');"
"function flock_or_die($filename, $resource, $flock_op) {"
" $r = flock($resource, $flock_op);"
" var_dump($r); "
"}"
"$resource = fopen(FILENAME, 'w');"
"flock_or_die(FILENAME, $resource, LOCK_EX);"
"flock_or_die(FILENAME, $resource, LOCK_UN);"
"unlink(FILENAME);");
MVCR("<?php "
"$h = popen(\"echo foo; exit 2\", 'r');"
"$content = stream_get_contents($h);"
"$result = pclose($h);"
"echo trim($content).\"/\".$result.\"/\".gettype($result).\"\\n\";");
MVCR("<?php "
"$fp = fopen('test/test_ext_file.txt', 'r');"
"var_dump(pclose($fp));");
MVCR("<?php "
"$fp = fopen('test/nonexist.txt', 'r');"
"var_dump(pclose($fp));");
MVCR("<?php "
"fclose(STDOUT);"
"echo 'test';"
"ob_start();");
MVCR("<?php "
"define('BAR','Some Value');"
"var_dump(parse_ini_string('foo=BAR'));"
);
return true;
}
bool TestCodeRun::TestDirectory() {
MVCR("<?php "
"$d = dir(\"test/\");"
"echo \"Path: \" . $d->path . \"\\n\";"
"while (false !== ($entry = $d->read())) {"
" echo $entry.\"\\n\";"
"}"
"$d->rewind();"
"while (false !== ($entry = $d->read())) {"
" echo $entry.\"\\n\";"
"}"
"$d->close();");
return true;
}
bool TestCodeRun::TestBadFunctionCalls() {
// make sure no error
MVCR("<?php "
"error_reporting(E_ALL & ~E_NOTICE);"
"class A { function __construct() {}} $obj = new A(10);");
// make sure foo() is still called
MVCR("<?php "
"error_reporting(E_ALL & ~E_NOTICE);"
"function foo($a) { print $a;} "
"class A { function __construct() {}} $obj = new A(foo(10));");
// make sure 1st parameter is corrected passed in
MVCR("<?php "
"error_reporting(E_ALL & ~E_NOTICE);"
"function foo($a) { print $a;} function bar($a) { return $a;}"
" foo('ok', bar('bad'));");
// Too many args
MVCR("<?php "
"error_reporting(E_ALL & ~E_NOTICE);"
"function foo($x) {}"
"function z() {"
" $yay = 1;"
" $snarf = 2;"
" foo(1,foo(1), $yay,$snarf);"
"}"
"z();");
// Ensure all arguments are evaluated
MVCR("<?php\n"
"function f() {\n"
" $a = array();\n"
" array_push($a[] = 1);\n"
" var_dump($a);\n"
"}\n"
"f();\n");
MVCR("<?php\n"
"function f() {\n"
" $a = 0;\n"
" array_chunk($a = 1);\n"
" var_dump($a);\n"
"}\n"
"f();\n");
MVCR("<?php\n"
"function f() {\n"
" $a = 0;\n"
" $b = 0;\n"
" $c = 0;\n"
" $d = 0;\n"
" array_chunk($a = 1, $b = 2, $c = 3, $d = 4);\n"
" var_dump($a, $b, $c, $d);\n"
"}\n"
"f();\n");
MVCR("<?php\n"
"function f() {\n"
" $arr = array();\n"
" sort($arr[0]);\n"
" var_dump($arr);\n"
" unset($arr);\n"
" $arr = array();\n"
" sort($arr[0],0,0,0,0,0,0,0,0);\n"
" var_dump($arr);\n"
"}\n"
"f();\n");
// Test invoking method on non-objects
MVCRO("<?php\n"
"$vals = array(null, 0, false, array(), 'test');\n"
"foreach ($vals as $val) {\n"
" try {\n"
" $val->foo();\n"
" } catch (BadMethodCallException $e) {\n"
" echo \"BadMethodCallException thrown\\n\";\n"
" }\n"
"}\n",
"BadMethodCallException thrown\n"
"BadMethodCallException thrown\n"
"BadMethodCallException thrown\n"
"BadMethodCallException thrown\n"
"BadMethodCallException thrown\n");
// Make sure call_user_func() doesn't throw an exception
MVCRO("<?php\n"
"call_user_func(null, 'test');\n"
"echo \"test\\n\";",
"test\n");
return true;
}
bool TestCodeRun::TestConstructor() {
// class-name constructors should not be renamed
MVCR("<?php class A { function a() { echo \"A\n\"; }}"
"function test() { $obj = new A(); $obj->a(); }"
"test();");
// __construct takes priority
MVCR("<?php "
"class A {"
" function a() { echo \"A\n\"; }"
" function __construct() { echo \"cons\n\"; }"
"} "
"function test() { $obj = new A(); $obj->a(); } "
"test();");
MVCR("<?php "
"class A {"
" public function A() {"
" echo \"In A\\n\";"
" $this->__construct();"
" }"
" public function __construct() {"
" echo \"In A::__construct\\n\";"
" }"
"}"
"class B extends A {"
" public function B() {"
" echo \"In B\\n\";"
" $this->A();"
" }"
"}"
"$obj = new B();"
""
"class A2 {"
" public function __construct() {"
" echo \"In A2::__construct\\n\";"
" $this->B2();"
" }"
" public function B2() {"
" echo \"In B2\\n\";"
" }"
"}"
"class B2 extends A2 {"
" public function __construct() {"
" echo \"In B2::__construct\\n\";"
" parent::__construct();"
" }"
"}"
"$obj = new B2();"
"class C {"
" public function C() {}"
"}"
"class D extends C {"
" public function __construct() {"
" echo \"In D::__construct\\n\";"
" C::__construct();"
" }"
"}"
"$obj = new D;"
"$obj->c();"
"class E {"
" public function E() {"
" echo \"In E\\n\";"
" }"
" public function foo() {"
" $this->E();"
" E::__construct();"
" }"
"}"
"$obj = new E;"
"$obj->foo();");
MVCR("<?php "
"if (isset($g)) {"
" class X {}"
"} else {"
" class X {function X() {var_dump(__METHOD__);}}"
"}"
"class Y extends X {"
" function __construct($a, $b) {"
" var_dump(__METHOD__);"
" parent::__construct($a,$b);"
" }"
"}"
"$y = new Y(1,2);");
MVCR("<?php "
"if (true) {"
" class A {"
" public function __construct($i, $j, $k) {"
" $this->a = $i * $i;"
" $this->b = $j * $j;"
" $this->c = $k * $k;"
" }"
" public $a;"
" protected $b;"
" private $c;"
" public $aa = 'aa';"
" protected $bb = false;"
" private $cc = 1.22;"
" }"
"}"
"class B extends A {"
" public function __construct($i, $j, $k) {"
" $this->a = $i + $i;"
" $this->b = $j + $j;"
" $this->c = $k + $k;"
" }"
" public $a;"
" protected $b;"
" private $c;"
" public $aa = 'aaa';"
" protected $bb = 4;"
" private $cc = 1.222;"
"}"
"function foo() {"
" $obj = new B(1, 2, 3);"
" var_dump($obj);"
"}"
"foo();");
return true;
}
bool TestCodeRun::TestIntIsset() {
MVCR("<? "
"function f($p) { $i = strlen($p); if (isset($i)) {} }");
return true;
}
bool TestCodeRun::TestTernary() {
MVCR("<?php $t = true; $a = $t ? \"hello\" : \"world\"; var_dump($a);");
MVCR("<?php $f = false; $a = $f ? 5 : \"hello\"; var_dump($a);");
MVCR("<?php $t = true; $a = $t ? \"hello\" : null; var_dump($a);");
MVCR("<?php "
"function memcache_init_split_vars() {"
" global $_SERVER;"
" global $MEMCACHED_SPLIT_HASH;"
" $MEMCACHED_SPLIT_HASH ="
" crc32(empty($_SERVER['SERVER_ADDR']) ? php_uname('n')"
" : $_SERVER['SERVER_ADDR']);"
"}");
MVCR("<?php "
"function f() {} function g() {} "
"$t = true;"
"$a = $t ? f() : g();"
"var_dump($a);");
MVCR("<?php function test($a) { $b = $a + 1 == 5 ? 5 : 7; } test(4);");
MVCR("<?php $t = true; $f = false;"
"$a = $t ? null : ($f ? \"hello\" : \"world\");");
MVCR("<?php $t = true; $a = $t ? \"\" : \"a\" . $t . \"b\";");
MVCR("<?php "
"function add_cssclass($add, $class) {"
" $class = empty($class) ? $add : $class .= ' ' . $add;"
" return $class;"
"}"
"add_cssclass('test', $a);");
MVCR("<?php "
"$a = 123;"
"echo $a ? @mysql_data_seek(null, null) : false;");
MVCR("<?php "
"function foo($a) {"
" $x = $a ? 1 : 0;"
" return $x - 5;"
"}"
"var_dump(foo(1, 2, 3));"
"var_dump(foo(0, 2, 3));");
MVCR("<?php\n"
"class X {\n"
" public $exp_info;\n"
" public function __construct(array $exp_info = null) {\n"
" $this->exp_info = $exp_info ?: array();\n"
" }\n"
"}\n"
"$x = new X(array(0, 1, 2));\n"
"var_dump($x->exp_info);\n"
"$x1 = new X(null);\n"
"var_dump($x->exp_info);\n");
MVCR("<?php\n"
"class X {}\n"
"function f($a0,\n"
" $a1,\n"
" $a2,\n"
" $a3 = null,\n"
" $a4 = null,\n"
" $a5 = null) {\n"
" $r0 = $a0 ?: 0;\n"
" $r1 = $a1 ?: 0.0;\n"
" $r2 = $a2 ?: false;\n"
" $r3 = $a3 ?: ''; \n"
" $r4 = $a4 ?: array();\n"
" $r5 = $a5 ?: new X;\n"
" return array(\n"
" $r0, $r1, $r2,\n"
" $r3, $r4, $r5);\n"
"}\n"
"var_dump(f(0, 0.0, false, null, null, null));\n"
"var_dump(f(1, 1.0, true, 'hello', array(0, 1), new X));\n");
MVCR("<?php\n"
"function f($x, $y) {\n"
" return $x[0][$y++] ?: false;\n"
"}\n"
"var_dump(f(array(array(0, 1, 2)), 0));\n"
"var_dump(f(array(array(0, 1, 2)), 1));\n");
return true;
}
bool TestCodeRun::TestUselessAssignment() {
MVCR("<?php "
"class MyDestructableClass {"
" function __construct() {"
" print \"In constructor\\n\";"
" $this->name = \"MyDestructableClass\";"
" }"
""
" function __destruct() {"
" print \"Destroying \" . $this->name . \"\\n\";"
" }"
"}"
"function foo($a) {"
" if ($a) return new MyDestructableClass();"
" return false;"
"}"
"function bar($a) {"
" if ($a) {"
" $obj = foo(1);"
" $obj = 1;"
" var_dump(2);"
" }"
" var_dump(1);"
"}"
"bar(1);");
MVCR("<?php "
"class MyDestructableClass {"
" function __construct() {"
" print \"In constructor\\n\";"
" $this->name = \"MyDestructableClass\";"
" }"
""
" function __destruct() {"
" print \"Destroying \" . $this->name . \"\\n\";"
" }"
"}"
"function foo(&$a) {"
" $a = new MyDestructableClass();"
"}"
"function bar($a) {"
" if ($a) {"
" $b = array(1, 2, 3);"
" var_dump($b);"
" foo($dummy = array(1, 2, 3));"
" $c = array(1, 2, 3);"
" var_dump($c);"
" }"
"}"
"bar(1);");
MVCR("<?php "
"function out($a) {"
" echo $a,'\\n';"
"}"
"function test($a) {"
" $a ? out('?a') : out(':a');"
" $a ? out('+a') : 0;"
" $a ? 0 : out('-a');"
" $a && out('&&a');"
" $a || out('||a');"
" $a and out('and a');"
" $a or out('or a');"
" $b = $c = 0;"
" $a || (($b = 5) + ($c = 6));"
" out($b); out($c);"
"}"
"test(0);"
"test('foo');");
MVCR("<?php "
"class A {"
" function __destruct() {"
" var_dump('done');"
" }"
"}"
""
"function foo() {"
" $a = 10;"
" if ($a == 11) {"
" return null;"
" }"
" return new A();"
"}"
""
"function bar() {"
" $a = foo();"
" var_dump('doing');"
"}"
""
"bar();");
MVCR("<?php "
"function foo($p) {"
" global $b;"
" for ($i = 0; $i < 5; $i++) {"
" if ($i > $p) {"
" $a = 10;"
" } else {"
" $a = &$b;"
" }"
" }"
"}"
"function bar() {"
" $a = foo(2);"
" var_dump($GLOBALS['b']);"
"}"
"bar();");
MVCR("<?php "
"function bar() {}"
"function foo() {"
" $foo = bar();"
" unset($foo);"
"}"
"foo();");
MVCR("<?php "
"function bug( $flag ) {"
" $tag = '';"
" if ($flag) {"
" $tag .= 'x';"
" }"
" $tag='33';"
" if ( $flag ) ; else var_dump($tag);"
"}"
"bug(false);");
return true;
}
bool TestCodeRun::TestTypes() {
MVCR("<?php "
"function foo($m, $n) {"
" $offset_change = 10;"
" $offset_change -= strlen($m) - strlen($n);"
" var_dump($offset_change);"
"}"
"foo('abc', 'efg');");
MVCR("<?php "
"function p(array $i = null) {"
" var_dump($i);"
" $i = array();"
"}"
"p();"
"function q() {"
" p(null);"
"}");
MVCR("<?php "
"function foo($p) {"
" if ($p) {"
" $a = array();"
" }"
" var_dump((string)$a);"
"}"
"foo(false);");
MVCR("<?php "
"class X {};"
"function bug() {"
" if (!$GLOBALS['x']) {"
" return;"
" }"
" return new X;"
"}"
"var_dump(bug());");
MVCR("<?php "
"function foo($a) {"
" return (int)$a;"
"}"
"function test() {"
" var_dump(foo(false));"
"}"
"test();");
return true;
}
bool TestCodeRun::TestSwitchStatement() {
MVCR("<?php class A {} $a = new A();"
"switch ($a) { "
"case 'foo': "
"default:"
"}");
MVCR("<?php class A {};"
"switch (new A()) { "
"case 'foo': "
"default:"
"}");
MVCR("<?php "
"function test() {"
" $a = 2;"
" switch ($a) {"
" case ++$a: var_dump('ok'); break;"
" case 2: var_dump('broken'); break;"
" case 3: var_dump('really broken'); break;"
" default: var_dump('fail'); break;"
" }"
" $a = 'b';"
" $b = 2;"
" switch ($$a) {"
" case ++$$a: var_dump('broken'); break;"
" case 2: var_dump('ok'); break;"
" case 3: var_dump('really broken'); break;"
" default: var_dump('fail'); break;"
" }"
"}"
"$a = 2;"
"switch ($a) {"
" case ++$a: var_dump('ok'); break;"
" case 2: var_dump('broken'); break;"
" case 3: var_dump('really broken'); break;"
" default: var_dump('fail'); break;"
"}"
"$a = 'b';"
"$b = 2;"
"switch ($$a) {"
" case ++$$a: var_dump('broken'); break;"
" case 2: var_dump('ok'); break;"
" case 3: var_dump('really broken'); break;"
" default: var_dump('fail'); break;"
"}"
"test();");
MVCR("<?php\n"
"function f_str($x) {\n"
" var_dump($x);\n"
" print ' goes to: ';\n"
" switch ($x) {\n"
" case -1:\n"
" print '-1';\n"
" break;\n"
" case 3:\n"
" print '3';\n"
" break;\n"
" case 0:\n"
" print '0';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" break;\n"
" }\n"
"}\n"
"function f_bool($x) {\n"
" var_dump($x);\n"
" print ' goes to: ';\n"
" switch ($x) {\n"
" case -10:\n"
" print '-10';\n"
" break;\n"
" case 3:\n"
" print '3';\n"
" break;\n"
" case 0:\n"
" print '0';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" break;\n"
" }\n"
"}\n"
"function f_dbl($x) {\n"
" var_dump($x);\n"
" print ' goes to: ';\n"
" switch ($x) {\n"
" case 5000000:\n"
" print '5000000';\n"
" break;\n"
" case 30:\n"
" print '30';\n"
" break;\n"
" case 0:\n"
" print '0';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" break;\n"
" }\n"
"}\n"
"function f_dbl_notpe($x) {\n"
" var_dump($x);\n"
" print ' goes to: ';\n"
" switch ($x) {\n"
" case 5000000:\n"
" print '5000000';\n"
" break;\n"
" case 30:\n"
" print '30';\n"
" break;\n"
" case 0:\n"
" print '0';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" break;\n"
" }\n"
"}\n"
"function f_int($x) {\n"
" var_dump($x);\n"
" print ' goes to: ';\n"
" switch ($x) {\n"
" case 5:\n"
" print '5';\n"
" break;\n"
" case 1:\n"
" print '1';\n"
" break;\n"
" case 0:\n"
" print '0';\n"
" break;\n"
" case 300:\n"
" print '300';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" break;\n"
" }\n"
"}\n"
"function f($x) {\n"
" var_dump($x);\n"
" print ' goes to: ';\n"
" switch ($x) {\n"
" case 5:\n"
" print '5';\n"
" break;\n"
" case 1:\n"
" print '1';\n"
" break;\n"
" case 0:\n"
" print '0';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" break;\n"
" }\n"
"}\n"
"function fcn($x) { if ($x) return 5; return 'bar'; }\n"
"function st($x) {\n"
" switch ($y = $x) {\n"
" case 0:\n"
" print '0';\n"
" }\n"
" switch (fcn(true)) {\n"
" case 3:\n"
" print '3';\n"
" break;\n"
" case 7:\n"
" case 5:\n"
" print '5 or 7';\n"
" break;\n"
" }\n"
" switch (++$x) {\n"
" case 1:\n"
" print '1';\n"
" }\n"
" switch ($x + $y + f(true)) {\n"
" case -30:\n"
" print '-30';\n"
" break;\n"
" default:\n"
" print 'default';\n"
" }\n"
" switch($x){}\n"
" switch($x){\n"
" default:\n"
" print 'default';\n"
" }\n"
"}\n"
"f(0);\n"
"f(-1);\n"
"f(1);\n"
"f(2);\n"
"f(true);\n"
"f(false);\n"
"f(null);\n"
"f(array());\n"
"f(1.0);\n"
"f('1abc');\n"
"f('3');\n"
"f('foo');\n"
"class M{}\n"
"f(new M());\n"
"f_str('0');\n"
"f_str('');\n"
"f_str('jazz');\n"
"f_str('-1');\n"
"f_str('1');\n"
"f_bool(true);\n"
"f_bool(false);\n"
"f_dbl(5000000.3920);\n"
"f_dbl(5000000.5);\n"
"f_dbl(5000000.5001);\n"
"f_dbl(5000000.0);\n"
"f_dbl(log(0));\n"
"f_dbl_notpe('5000000.3920');\n"
"f_dbl_notpe('5000000.5');\n"
"f_dbl_notpe('5000000.5001');\n"
"f_dbl_notpe('5000000.0');\n"
"f_int(0x7fffffffffffffff);\n"
"f_int(-120);\n"
"f_int(0);\n"
"st(10);\n");
MVCR("<?php\n"
"class Evil {\n"
" private $x;\n"
" public function __construct() { $this->x = 0; }\n"
" public function __toString() {\n"
" return sprintf(\"Evil%d\", $this->x++);\n"
" }\n"
"}\n"
"function f_1($x) {\n"
" switch ($x) {\n"
" case \"123\": print '\"123\"' . \"\n\"; break;\n"
" case \"4abc\": print '\"4abc\"' . \"\n\"; break;\n"
" default: print \"default\n\"; break;\n"
" case \"0\": print '\"0\"' . \"\n\"; break;\n"
" case \"\": print '\"\"' . \"\n\"; break; \n"
" case \"Evil4\": print '\"Evil4\"' . \"\n\"; break;\n"
" }\n"
"}\n"
"function f_2($x) {\n"
" var_dump($x); print \" goes to:\";\n"
" switch ($x) {\n"
" case \"foo\": print \"foo\n\"; break;\n"
" case \"1\": print \"1\n\"; break;\n"
" case \"2.0\": print \"2.0\n\"; break;\n"
" case \"2ab\": print \"2ab\n\"; break;\n"
" case \"3.212\": print \"3.212\n\"; break;\n"
" case \"0\": print \"0\n\"; break;\n"
" case \"\": print \"{empty str}\n\"; break;\n"
" default: print \"default\n\"; break;\n"
" }\n"
"}\n"
"function g_2($x) {\n"
" var_dump($x); print \" goes to:\";\n"
" switch ($x) {\n"
" case \"\": print \"{empty str}\n\"; break;\n"
" case \"0\": print \"0\n\"; break;\n"
" default: print \"default\n\"; break;\n"
" }\n"
"}\n"
"function h_2($x) {\n"
" var_dump($x); print \" goes to:\";\n"
" switch ($x) {\n"
" case \"3.0\": print \"3.0\n\"; break;\n"
" case \"3.0abc\": print \"3.0abc\n\"; break;\n"
" case \"3\": print \"3\n\"; break;\n"
" default: print \"\n\";\n"
" }\n"
"}\n"
"function f_3($x) {\n"
" switch ($x) {\n"
" default: print \"default\n\";\n"
" case \"bar\": print \"bar\n\";\n"
" case \"foo\": print \"foo\n\";\n"
" case \"baz\": print \"baz\n\";\n"
" }\n"
"}\n"
"f_1(\"\");\n"
"f_1(null);\n"
"f_1(false);\n"
"f_1(\"0\");\n"
"f_1(\"0eab\");\n"
"f_1(\"0.0\");\n"
"f_1(0.0);\n"
"f_1(0);\n"
"f_1(true);\n"
"f_1(false);\n"
"f_1(\"4abc\");\n"
"f_1(4);\n"
"f_1(\"4.0\");\n"
"f_1(new Evil());\n"
"f_2(1);\n"
"f_2(2);\n"
"f_2(2.0);\n"
"f_2(true);\n"
"f_2(false);\n"
"f_2(null);\n"
"f_2((object) null);\n"
"f_2(array());\n"
"f_2(3.21200);\n"
"g_2(0);\n"
"g_2(null);\n"
"g_2(false);\n"
"g_2(true);\n"
"h_2(\"3\");\n"
"h_2(\"3abc\");\n"
"h_2(\"3a\");\n"
"h_2(3);\n"
"h_2(3.0);\n"
"f_3(\"foo\");\n"
"f_3(\"bar\");\n"
"f_3(\"baz\");\n"
"f_3(\"def\");\n");
MVCR("<?php\n"
"function f($x) {\n"
" switch ($x) {\n"
" default:\n"
" print \"default-0\";\n"
" case \"foo\":\n"
" print \"foo-0\";\n"
" case \"3\":\n"
" print \"3-0\";\n"
" default:\n"
" print \"default-1\";\n"
" case \"3\":\n"
" print \"3-1\";\n"
" case \"foo\":\n"
" print \"foo-1\";\n"
" default:\n"
" print \"default-2\";\n"
" case \"bar\":\n"
" print \"bar\";\n"
" }\n"
"}\n"
"function g($x) {\n"
" switch ($x) {\n"
" case 'x': print 'x'; break;\n"
" case '0': print '0'; break;\n"
" }\n"
"}\n"
"f(\"foo\");\n"
"f(\"3\");\n"
"f(\"bar\");\n"
"f(null);\n"
"f(3);\n"
"f(0);\n"
"f(0.0);\n"
"f(3.0);\n"
"f(true);\n"
"f(false);\n"
"f(array());\n"
"f(new stdClass());\n"
"g(0);\n"
"g(0.0);\n");
{
HipHopSyntax w(this);
MVCRO("<?php\n"
"class X {\n"
" function foo() {\n"
" switch ($this) {\n"
" case 'foo': echo 'foo'; break;\n"
" case 'bar': echo 'bar'; break;\n"
" default: echo 'def';\n"
" }\n"
" }\n"
" function bar($arg) {\n"
" switch ($this) {\n"
" case $arg: echo 'arg'; break;\n"
" default: echo 'def';\n"
" }\n"
" }\n"
" function baz($arg) {\n"
" switch ($this) {\n"
" case $arg: echo 'arg'; break;\n"
" default: echo 'def';\n"
" }\n"
" yield $arg;\n"
" }\n"
"}\n"
"$x = new X;\n"
"$x->foo();\n"
"$x->bar(new stdClass);\n"
"$x->bar($x);\n"
"foreach ($x->baz($x) as $v) {\n"
" var_dump($v);\n"
"}\n",
"defdefargargobject(X)#1 (0) {\n"
"}\n");
}
MVCR("<?php\n"
"switch ($_POST) {\n"
"case array(): echo 'empty array'; break;\n"
"case $_GET: echo 'get'; break;\n"
"default: echo 'default';\n"
"}\n"
"switch ($GLOBALS) {\n"
"case array(): echo 'empty array'; break;\n"
"default: echo 'default';\n"
"}\n"
"function ret_true($x) { return true; }\n"
"switch ($GLOBALS) {\n"
"case ret_true($GLOBALS['foo'] = 10): echo '1'; break;\n"
"case array(); echo '2'; break;\n"
"default: echo '3';\n"
"}\n"
"var_dump($foo);\n");
MVCR("<?php\n"
"function id($x) { return $x; }\n"
"function ret_false($x) { return false; }\n"
"function f($x) {\n"
" switch ($x) {\n"
" case ret_false($x = 32); echo 'fail'; break;\n"
" case id($x = 5): echo 'here'; break;\n"
" default: echo 'default';\n"
" }\n"
"}\n"
"f(32);\n");
return true;
}
bool TestCodeRun::TestExtString() {
MVCR("<?php "
"var_dump(strtr(\"\", \"ll\", \"a\"));"
"var_dump(strtr(\"hello\", \"\", \"a\"));"
"var_dump(strtr(\"hello\", \"ll\", \"a\"));"
"var_dump(strtr(\"hello\", array(\"\" => \"a\")));"
"var_dump(strtr(\"hello\", array(\"ll\" => \"a\")));");
MVCR("<?php "
"var_dump(explode('', ''));"
"$str = 'Hello Friend';"
"var_dump(str_split($str, -3));"
"var_dump(chunk_split('-=blender=-', -3, '-=blender=-')); "
"var_dump(strpbrk('hello', ''));"
"var_dump(substr_count('hello', ''));"
"var_dump(substr_count('hello', 'o', -1));"
"var_dump(substr_count('hello', 'o', 2, -1));"
"var_dump(substr_count('hello', 'o', 2, 100));"
"var_dump(count_chars('hello', 100));"
"var_dump(str_word_count('hello', 100));"
"var_dump(strtr('hello', 100));"
"var_dump(implode('abcd', 'abcd'));");
MVCR("<?php "
"error_reporting(0);"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', array(0)));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', array(0), 3));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', array(0), 1.0));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', array(0), null));"
"$obj = new stdClass();"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', 0, $obj));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', '0', '1.0'));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', '0.0', 1.0));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', '0.0', 1));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob', 0.0, '1'));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', 'bob',"
" array(0), array(1)));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', array('bob'),"
" array(0), array(3,4)));"
"var_dump(substr_replace('ABCDEFGH:/MNRPQR/', array('bob'),"
" array(0), array(3)));"
"var_dump(substr_replace(array('ABCDEFGH:/MNRPQR/'), array(),"
" array(0,1), array(3, 4)));"
"var_dump(substr_replace(array('ABCDEFGH:/MNRPQR/'), array('bob'),"
" array(0,1), array(3)));"
"var_dump(substr_replace(array('ABCDEFGH:/MNRPQR/'),"
" array('bob', 'cat'), 0));"
"var_dump(substr_replace(array('ABCDEFGH:/MNRPQR/'),"
" array('bob'), array(0,1)));"
"var_dump(substr_replace('abc', 'xyz', 3, 0));"
"var_dump(sscanf(\"SN/2350001\", \"SN/%d\"));"
"var_dump(sscanf(\"SN/2350001\", \"SN/%d\", $out));"
"var_dump($out);"
"var_dump(sscanf(\"SN/abc\", \"SN/%d\", $out));"
"var_dump($out);"
"var_dump(sscanf(\"30\", \"%da\", $out));"
"var_dump($out);"
"var_dump(sscanf(\"-\", \"%da\", $out));"
"var_dump($out);");
MVCR("<?php\n"
"preg_replace(\"/(..)/e\", 'var_dump(\"$1\")', '\"\"');\n");
MVCR("<?php\n"
"var_dump(str_replace(array(65), array('a'), 'axAX'));\n"
"var_dump(str_ireplace(array(65), array('a'), 'axAX'));\n"
"echo \"**************************\\n\";\n"
"var_dump(strpos('aA', 65));\n"
"var_dump(strpos('aA', 'A'));\n"
"var_dump(strpos('aAaXA', 'A', 0));\n"
"var_dump(strpos('aAaXA', 'A', 1));\n"
"var_dump(strpos('aAaXA', 'A', 2));\n"
"var_dump(strpos('aAaXA', 'A', 3));\n"
"var_dump(strpos('aAaXA', 'A', 4));\n"
"var_dump(strpos('aAaXA', 'A', 5));\n"
"var_dump(strpos('aAaXA', 'A', 6));\n"
"var_dump(strpos('aAaXA', 'A', -1));\n"
"var_dump(strpos('aAaXA', 'A', -2));\n"
"var_dump(strpos('aAaXA', 'A', -3));\n"
"var_dump(strpos('aAaXA', 'A', -4));\n"
"var_dump(strpos('aAaXA', 'A', -5));\n"
"var_dump(strpos('aAaXA', 'A', -6));\n"
"echo \"**************************\\n\";\n"
"var_dump(strrpos('aA', 65));\n"
"var_dump(strrpos('aA', 'A'));\n"
"var_dump(strrpos('aAaXA', 'A', 0));\n"
"var_dump(strrpos('aAaXA', 'A', 1));\n"
"var_dump(strrpos('aAaXA', 'A', 2));\n"
"var_dump(strrpos('aAaXA', 'A', 3));\n"
"var_dump(strrpos('aAaXA', 'A', 4));\n"
"var_dump(strrpos('aAaXA', 'A', 5));\n"
"var_dump(strrpos('aAaXA', 'A', 6));\n"
"var_dump(strrpos('aAaXA', 'A', -1));\n"
"var_dump(strrpos('aAaXA', 'A', -2));\n"
"var_dump(strrpos('aAaXA', 'A', -3));\n"
"var_dump(strrpos('aAaXA', 'A', -4));\n"
"var_dump(strrpos('aAaXA', 'A', -5));\n"
"var_dump(strrpos('aAaXA', 'A', -6));\n"
"echo \"**************************\\n\";\n"
"var_dump(stripos('aA', 65));\n"
"var_dump(stripos('aA', 'A'));\n"
"var_dump(stripos('aAaXA', 'A', 0));\n"
"var_dump(stripos('aAaXA', 'A', 1));\n"
"var_dump(stripos('aAaXA', 'A', 2));\n"
"var_dump(stripos('aAaXA', 'A', 3));\n"
"var_dump(stripos('aAaXA', 'A', 4));\n"
"var_dump(stripos('aAaXA', 'A', 5));\n"
"var_dump(stripos('aAaXA', 'A', 6));\n"
"var_dump(stripos('aAaXA', 'A', -1));\n"
"var_dump(stripos('aAaXA', 'A', -2));\n"
"var_dump(stripos('aAaXA', 'A', -3));\n"
"var_dump(stripos('aAaXA', 'A', -4));\n"
"var_dump(stripos('aAaXA', 'A', -5));\n"
"var_dump(stripos('aAaXA', 'A', -6));\n"
"echo \"**************************\\n\";\n"
"var_dump(strripos('aA', 65));\n"
"var_dump(strripos('aA', 'A'));\n"
"var_dump(strripos('aAaXA', 'A', 0));\n"
"var_dump(strripos('aAaXA', 'A', 1));\n"
"var_dump(strripos('aAaXA', 'A', 2));\n"
"var_dump(strripos('aAaXA', 'A', 3));\n"
"var_dump(strripos('aAaXA', 'A', 4));\n"
"var_dump(strripos('aAaXA', 'A', 5));\n"
"var_dump(strripos('aAaXA', 'A', 6));\n"
"var_dump(strripos('aAaXA', 'A', -1));\n"
"var_dump(strripos('aAaXA', 'A', -2));\n"
"var_dump(strripos('aAaXA', 'A', -3));\n"
"var_dump(strripos('aAaXA', 'A', -4));\n"
"var_dump(strripos('aAaXA', 'A', -5));\n"
"var_dump(strripos('aAaXA', 'A', -6));\n");
return true;
}
bool TestCodeRun::TestExtArray() {
MVCR("<?php "
"error_reporting(0);"
"var_dump(range('', '', 1));"
"var_dump(range('', '', -1));"
"var_dump(range('9', '10', -1));"
"var_dump(range(9, 10, -1));"
"var_dump(range(9, 10, -1.5));"
"var_dump(range(9, 10, 33333333.33));"
"var_dump(range(9, 10, -33333333.33));"
"var_dump(range(9223372036854775807, 9223372036854775805, -1));"
"var_dump(range(9223372036854775807, 9223372036854775805,"
" 9223372036854775807));"
"var_dump(range(9223372036854775807, 9223372036854775805,"
" -9223372036854775807));"
"var_dump(range(9223372036854775807, 9223372036854775805,"
" 2147483648));"
"var_dump(range(9223372036854775807, 9223372036854775805,"
" -2147483648));"
"var_dump(range('9', '10', '-1'));"
"var_dump(range('9', '10', '-1.5'));"
"var_dump(range('9', '10', '33333333.33'));"
"var_dump(range('9', '10', '-33333333.33'));"
"var_dump(range('9223372036854775807', '9223372036854775805', '-1'));"
"var_dump(range('9223372036854775807', '9223372036854775805',"
" '9223372036854775807'));"
"var_dump(range('9223372036854775807', '9223372036854775805',"
" '-9223372036854775807'));"
"var_dump(range(null, null, -2.5));"
"var_dump(range(null, null, 3.5));"
"var_dump(range(null, null, null));"
"var_dump(range(3.5, -4.5, null));");
MVCR("<?php "
"var_dump(array_fill(-2, -2, 'pear'));"
"var_dump(array_combine(array(1, 2), array(3)));"
"var_dump(array_combine(array(), array()));"
"var_dump(array_chunk(1));"
"var_dump(array_chunk(array()));"
"$a = array(1, 2);"
"var_dump(asort($a, 100000));");
MVCR("<?php\n"
"function f(&$val,$key) {\n"
" echo \"k=$key v=$val\\n\";\n"
" $val = $val + 1;\n"
"}\n"
"$arr = array(0,1,2);\n"
"array_walk($arr,'f');\n"
"var_dump($arr);\n");
MVCR("<?php\n"
"function f($val,$key) {\n"
" echo \"k=$key v=$val\\n\";\n"
"}\n"
"$arr = array(0,1,2);\n"
"array_walk($arr,'f');\n");
MVCR("<?php\n"
"$arr = array(0,1,2);\n"
"function f($val,$key) {\n"
" global $arr;\n"
" echo \"k=$key v=$val\\n\";\n"
" if ($key == 0) {\n"
" unset($arr[1]);\n"
" }\n"
"}\n"
"array_walk($arr,'f');\n"
"var_dump($arr);\n");
MVCR("<?php\n"
"$a = array('foo'=>array('bar'=>1));\n"
"function fix(&$v, $k) { $v *= 2; }\n"
"array_walk_recursive($a, 'fix');\n"
"var_dump($a['foo']);\n");
MVCR("<?php "
"function xsort(&$a) {"
" $b = null;"
" $b->foo =& $a;"
" var_dump(is_object($b));"
" $b = false;"
" $b[0] =& $a;"
" uksort($a, function ($i, $j) use(&$b) {"
" if ($b[0][$i] == $b[0][$j]) return 0;"
" return $b[0][$i] < $b[0][$j] ? -1 : 1;"
" });"
"}"
"function test($x) {"
" $a = array(220,250,240,$x);"
" xsort($a);"
" var_dump($a);"
"}"
"test(230);");
MVCR("<?php "
"function cmp($a, $b) {"
" throw new Exception('Surprise!');"
"}"
"function test() {"
" $a = array(1,2,3);"
" try {"
" usort($a, 'cmp');"
" var_dump('unreached');"
" } catch (Exception $e) {"
" var_dump($e->getMessage());"
" }"
"}"
"test();");
return true;
}
bool TestCodeRun::TestExtFile() {
MVCR("<?php "
"error_reporting(0);"
"$fp = fopen('/tmp/lock.txt', 'w');"
"fclose($fp);"
"$fp = fopen('/tmp/lock.txt', 'r+');"
"var_dump(flock($fp, 0xf0));"
"fclose($fp);");
return true;
}
bool TestCodeRun::TestExtDate() {
MVCR("<?php "
"error_reporting(0);"
"var_dump(idate('@@'));"
"var_dump(idate('@'));"
"var_dump(date(''));"
"var_dump(date('@'));"
"var_dump(strftime(''));"
"setlocale(LC_ALL, 'nl_NL');"
"var_dump(strftime('%p'));");
return true;
}
bool TestCodeRun::TestExtImage() {
MVCR("<?php "
"$data = 'iVBORw0KGgoAAAANSUhEUgAAABwAAAASCAMAAAB/2U7WAAAABl'"
" . 'BMVEUAAAD///+l2Z/dAAAASUlEQVR4XqWQUQoAIAxC2/0vXZDr'"
" . 'EX4IJTRkb7lobNUStXsB0jIXIAMSsQnWlsV+wULF4Avk9fLq2r'"
" . '8a5HSE35Q3eO2XP1A1wQkZSgETvDtKdQAAAABJRU5ErkJggg==';"
"$data = base64_decode($data);"
""
"$im = imagecreatefromstring($data);"
"if ($im !== false) {"
" header('Content-Type: image/png');"
" imagepng($im);"
" imagedestroy($im);"
"}"
"else {"
" echo 'An error occurred.';"
"}");
MVCR("<?php "
"header ('Content-type: image/png');"
"$im = imagecreatetruecolor(120, 20);"
"$text_color = imagecolorallocate($im, 233, 14, 91);"
"imagestring($im, 1, 5, 5, 'A Simple Text String', $text_color);"
"imagepng($im);"
"imagedestroy($im);");
MVCR("<?php "
"// Create a 55x30 image"
"$im = imagecreatetruecolor(55, 30);"
"$red = imagecolorallocate($im, 255, 0, 0);"
"$black = imagecolorallocate($im, 0, 0, 0);"
""
"// Make the background transparent"
"imagecolortransparent($im, $black);"
""
"// Draw a red rectangle"
"imagefilledrectangle($im, 4, 4, 50, 25, $red);"
""
"// Save the image"
"imagepng($im, './imagecolortransparent.png');"
"imagedestroy($im);");
MVCR("<?php "
"$image = imagecreatefromgif('test/images/php.gif');"
""
"$emboss = array(array(2, 0, 0), array(0, -1, 0), array(0, 0, -1));"
"imageconvolution($image, $emboss, 1, 127);"
""
"header('Content-Type: image/png');"
"ob_start();imagepng($image, null, 9);"
"var_dump(substr(ob_get_clean(),0,10));");
MVCR("<?php "
"$image = imagecreatetruecolor(180,40);"
""
"// Writes the text and apply a gaussian blur on the image"
"imagestring($image, 5, 10, 8, 'Gaussian Blur Text', 0x00ff00);"
"$gaussian = array(array(1.0, 2.0, 1.0),"
" array(2.0, 4.0, 2.0),"
" array(1.0, 2.0, 1.0));"
"imageconvolution($image, $gaussian, 16, 0);"
""
"// Rewrites the text for comparison"
"imagestring($image, 5, 10, 18, 'Gaussian Blur Text', 0x00ff00);"
""
"header('Content-Type: image/png');"
"imagepng($image, null, 9);");
MVCR("<?php "
"// File and new size"
"$filename = 'test/images/simpletext.jpg';"
"$percent = 0.5;"
"// Content type"
"header('Content-type: image/jpeg');"
"// Get new sizes"
"list($width, $height) = getimagesize($filename, $nfo);"
"var_dump($nfo);"
"$newwidth = $width * $percent;"
"$newheight = $height * $percent;"
"// Load"
"$thumb = imagecreatetruecolor($newwidth, $newheight);"
"$source = imagecreatefromjpeg($filename);"
"// Resize"
"imagecopyresized($thumb, $source, 0, 0, 0, 0,"
" $newwidth, $newheight, $width, $height);"
"// Output"
"imagejpeg($thumb);");
MVCR("<?php "
"// create image"
"$image = imagecreatetruecolor(100, 100);"
""
"// allocate some solors"
"$white = imagecolorallocate($image, 0xFF, 0xFF, 0xFF);"
"$gray = imagecolorallocate($image, 0xC0, 0xC0, 0xC0);"
"$darkgray = imagecolorallocate($image, 0x90, 0x90, 0x90);"
"$navy = imagecolorallocate($image, 0x00, 0x00, 0x80);"
"$darknavy = imagecolorallocate($image, 0x00, 0x00, 0x50);"
"$red = imagecolorallocate($image, 0xFF, 0x00, 0x00);"
"$darkred = imagecolorallocate($image, 0x90, 0x00, 0x00);"
""
"// make the 3D effect"
"for ($i = 60; $i > 50; $i--) {"
" imagefilledarc($image, 50, $i, 100, 50, 0, 45,"
" $darknavy, IMG_ARC_PIE);"
" imagefilledarc($image, 50, $i, 100, 50, 45, 75,"
" $darkgray, IMG_ARC_PIE);"
" imagefilledarc($image, 50, $i, 100, 50, 75, 360,"
" $darkred, IMG_ARC_PIE);"
"}"
""
"imagefilledarc($image, 50, 50, 100, 50, 0, 45, $navy, IMG_ARC_PIE);"
"imagefilledarc($image, 50, 50, 100, 50, 45, 75 , $gray, IMG_ARC_PIE);"
"imagefilledarc($image, 50, 50, 100, 50, 75, 360 , $red, IMG_ARC_PIE);"
""
""
"// flush image"
"header('Content-type: image/png');"
"imagepng($image);"
"imagedestroy($image);");
MVCR("<?php "
"// Create a new image instance"
"$im = imagecreatetruecolor(100, 100);"
""
"// Make the background white"
"imagefilledrectangle($im, 0, 0, 99, 99, 0xFFFFFF);"
""
"// Draw a text string on the image"
"imagestring($im, 3, 40, 20, 'GD Library', 0xFFBA00);"
""
"// Output the image to browser"
"header('Content-type: image/gif');"
""
"imagegif($im);"
"imagedestroy($im);");
MVCR("<?php "
"$png = imagecreatefrompng('test/images/smile.happy.png');"
""
"// Save the image as a GIF"
"imagegif($png, '/tmp/php.gif');"
""
"// Free from memory"
"imagedestroy($png);");
MVCR("<?php "
"// Create an image instance"
"$im = imagecreatefromgif('test/images/php.gif');"
""
"// Enable interlancing"
"imageinterlace($im, true);"
""
"// Save the interfaced image"
"imagegif($im, './php_interlaced.gif');"
"imagedestroy($im);");
MVCR("<?php "
"// Create a blank image and add some text"
"$im = imagecreatetruecolor(120, 20);"
"$text_color = imagecolorallocate($im, 233, 14, 91);"
"imagestring($im, 1, 5, 5, 'A Simple Text String', $text_color);"
""
"// Save the image as 'simpletext.jpg'"
"imagejpeg($im, 'simpletext.jpg');"
""
"// Free up memory"
"imagedestroy($im);");
MVCR("<?php "
"// Create a blank image and add some text"
"$im = imagecreatetruecolor(120, 20);"
"$text_color = imagecolorallocate($im, 233, 14, 91);"
"imagestring($im, 1, 5, 5, 'A Simple Text String', $text_color);"
""
"// Set the content type header - in this case image/jpeg"
"header('Content-type: image/jpeg');"
""
"// Skip the filename parameter using NULL, then set the quality to 75%"
"imagejpeg($im, NULL, 75);"
""
"// Free up memory"
"imagedestroy($im);");
MVCR("<?php "
"// Create a blank image and add some text"
"$im = imagecreatetruecolor(120, 20);"
"$text_color = imagecolorallocate($im, 233, 14, 91);"
"imagestring($im, 1, 5, 5, 'A Simple Text String', $text_color);"
""
"// Set the content type header - in this case image/jpeg"
"header('Content-type: image/jpeg');"
""
"// Output the image"
"imagejpeg($im);"
""
"// Free up memory"
"imagedestroy($im);");
MVCR("<?php "
"// Create a 100*30 image"
"$im = imagecreate(100, 30);"
""
"// White background and blue text"
"$bg = imagecolorallocate($im, 255, 255, 255);"
"$textcolor = imagecolorallocate($im, 0, 0, 255);"
""
"// Write the string at the top left"
"imagestring($im, 5, 0, 0, 'Hello world!', $textcolor);"
""
"// Output the image"
"header('Content-type: image/png');"
""
"imagepng($im);"
"imagedestroy($im);");
MVCR("<?php "
"var_dump(image_type_to_mime_type(IMAGETYPE_GIF));"
"var_dump(image_type_to_mime_type(IMAGETYPE_JPEG));"
"var_dump(image_type_to_mime_type(IMAGETYPE_PNG));"
"var_dump(image_type_to_mime_type(IMAGETYPE_SWF));"
"var_dump(image_type_to_mime_type(IMAGETYPE_PSD));"
"var_dump(image_type_to_mime_type(IMAGETYPE_BMP));"
"var_dump(image_type_to_mime_type(IMAGETYPE_TIFF_II));"
"var_dump(image_type_to_mime_type(IMAGETYPE_TIFF_MM));"
"var_dump(image_type_to_mime_type(IMAGETYPE_JPC));"
"var_dump(image_type_to_mime_type(IMAGETYPE_JP2));"
"var_dump(image_type_to_mime_type(IMAGETYPE_JPX));"
"var_dump(image_type_to_mime_type(IMAGETYPE_JB2));"
"var_dump(image_type_to_mime_type(IMAGETYPE_SWC));"
"var_dump(image_type_to_mime_type(IMAGETYPE_IFF));"
"var_dump(image_type_to_mime_type(IMAGETYPE_WBMP));"
"var_dump(image_type_to_mime_type(IMAGETYPE_XBM));"
"var_dump(image_type_to_mime_type(IMAGETYPE_ICO));");
// The system libpng is a different version than what may be
// available in other externals trees (and can therefore produce
// different images). Since a local version of PHP (which uses
// system libs) will be used to generate a comparison point,
// only run this test if HPHP is built against a native externals
// tree. This also applies to the gated libjpeg test below.
#ifdef EXTERNALS_NATIVE
MVCR("<?php "
"function foo($text, $fsize) {"
""
" $font = 'test/tahoma.ttf';"
" $font_angle = 0;"
" $background1 = 125;"
" $background2 = 125;"
" $background3 = 125;"
" $font1 = 60;"
" $font2 = 60;"
" $font3 = 60;"
""
" $bbox = imagettfbbox($fsize, $font_angle, $font, $text);"
" $text_width = abs(max($bbox[2],"
" $bbox[4]) - min($bbox[0], $bbox[6]));"
" $text_height = abs(max($bbox[7],"
" $bbox[5]) - min($bbox[1], $bbox[3]));"
" $image_width = $text_width + 2;"
""
" $image_height = max($text_height, $fsize) + 2;"
""
" $image = imagecreate($image_width, $image_height);"
""
" imagecolorallocate($image,"
" $background1,"
" $background2,"
" $background3);"
""
" $black = imagecolorallocate($image,"
" $font1,"
" $font2,"
" $font3);"
""
" $y = $fsize + 1;"
" imagettftext($image, $fsize, $font_angle, 0,"
" $y, $black, $font, $text);"
" ob_start();imagepng($image, null, 9);"
" var_dump(substr(ob_get_clean(),0,10));"
" imagedestroy($image);"
"}"
""
"$text = 'foobar@yahoo.com';"
"$fsize = '9.8';"
"foo($text, $fsize);");
#endif
MVCR("<?php "
"for ($i = 0; $i < 100000; $i++) {"
" $str = exif_tagname($i);"
" if ($str) {"
" echo \"$i: $str\\n\";"
" }"
"}");
MVCR("<?php "
"$filename = 'test/images/test1pix.jpg';"
"$image = exif_thumbnail($filename, $width, $height, $type);"
"if ($image!==false) {"
" header('Content-type: ' .image_type_to_mime_type($type));"
" var_dump($width, $height, $type);"
"} else {"
" echo 'No thumbnail available';"
"}");
#ifdef EXTERNALS_NATIVE
MVCR("<?php "
"$filename = 'test/images/simpletext.jpg';"
"$degrees = 90;"
"header('Content-type: image/jpeg');"
"$source = imagecreatefromjpeg($filename);"
"$rotate = imagerotate($source, $degrees, 0);"
"imagejpeg($rotate);");
#endif
MVCR("<?php "
"$exif = exif_read_data('test/images/246x247.png');"
"print_r($exif);"
"$exif = exif_read_data('test/images/php.gif');"
"print_r($exif);"
"$exif = exif_read_data('test/images/simpletext.jpg');"
"print_r($exif);"
"$exif = exif_read_data('test/images/smile.happy.png');"
"print_r($exif);"
"$exif = exif_read_data('test/images/test1pix.jpg');"
"print_r($exif);"
"$exif = exif_read_data('test/images/test2.jpg');"
"print_r($exif);");
return true;
}
bool TestCodeRun::TestExtSplFile() {
MVCR("<?php "
"$info = new SplFileInfo('test');"
"if (!$info->isFile()) {"
" echo $info->getRealPath();"
"}"
"$info = new SplFileInfo('test/test_code_run.cpp');"
"var_dump($info->getbaseName());"
"var_dump($info->getbaseName('.cpp'));"
"echo 'Last changed at ' . date('g:i a', $info->getCTime());"
"var_dump($info->getGroup());"
"var_dump($info->getInode());"
"var_dump($info->getMTime());"
"var_dump($info->getOwner());"
"var_dump($info->getPerms());"
"var_dump($info->getSize());"
"var_dump($info->getType());"
"var_dump($info->isDir());"
"var_dump($info->isFile());"
"var_dump($info->isLink());"
"var_dump($info->isReadable());"
"var_dump($info->isWritable());");
MVCR("<?php "
"$info = new SplFileInfo('test');"
"var_dump($info->getRealPath());"
"var_dump($info->getPath());"
"var_dump($info->getPathName());"
"$info = new SplFileInfo('test/');"
"var_dump($info->getRealPath());"
"var_dump($info->getPath());"
"var_dump($info->getPathName());"
"$info = new SplFileInfo('test//../test');"
"var_dump($info->getRealPath());"
"var_dump($info->getPath());"
"var_dump($info->getPathName());"
"$p=realpath('test/..');"
"$info = new SplFileInfo($p.'/test_link');"
"var_dump($info->getLinkTarget());"
"var_dump($info->getRealPath());"
"var_dump($info->getPath());"
"var_dump($info->getPathName());");
MVCR("<?php "
"$info = new SplFileInfo('does-not-exist-will-fail-on-getLinkTarget');"
"//readlink('does-not-throw-but-warns');"
"try{"
" $info->getLinkTarget();"
"}"
"catch (Exception $e) {"
" echo 'Caught exception: ', $e->getMessage(), \"\\n\";"
" return;"
"}"
"echo \"failed to throw\\n\";"
" return true;"
"}");
return true;
}
bool TestCodeRun::TestExtIterator() {
MVCR("<?php "
"$files = array();"
"foreach (new DirectoryIterator('test/') as $file) {"
" $files[] = $file;"
"}"
"var_dump(count($files));"
"$dir = new DirectoryIterator(dirname('test/'));"
"foreach ($dir as $fileinfo) {"
" if (!$fileinfo->isDot()) {"
" var_dump($fileinfo->getFilename());"
" }"
"}"
"$iterator = new DirectoryIterator(\"test\");"
"foreach ($iterator as $fileinfo) {"
" if ($fileinfo->isFile()) {"
" echo \"BEGIN: \" . $fileinfo->getFilename() . \"\\n\";"
" echo $fileinfo->getCTime() . \"\\n\";"
" echo $fileinfo->getBasename() . \"\\n\";"
" echo $fileinfo->getBasename('.cpp') . \"\\n\";"
" echo $fileinfo->getGroup() . \"\\n\";"
" echo $fileinfo->getInode() . \"\\n\";"
" echo $fileinfo->getMTime() . \"\\n\";"
" echo $fileinfo->getOwner() . \"\\n\";"
" echo $fileinfo->getPerms() . \"\\n\";"
" echo $fileinfo->getSize() . \"\\n\";"
" echo $fileinfo->getType() . \"\\n\";"
" echo $fileinfo->isDir() . \"\\n\";"
" echo $fileinfo->isDot() . \"\\n\";"
" echo $fileinfo->isExecutable() . \"\\n\";"
" echo $fileinfo->isLink() . \"\\n\";"
" echo $fileinfo->isReadable() . \"\\n\";"
" echo $fileinfo->isWritable() . \"\\n\";"
" echo \"END\" . \"\\n\";"
" }"
"}"
"$iterator = new RecursiveDirectoryIterator(\"test\");"
"foreach ($iterator as $fileinfo) {"
" if ($fileinfo->isFile()) {"
" echo $fileinfo->getFilename() . \"\\n\";"
" echo $fileinfo->getCTime() . \"\\n\";"
" echo $fileinfo->getBasename() . \"\\n\";"
" echo $fileinfo->getBasename('.cpp') . \"\\n\";"
" echo $fileinfo->getFilename() . \"\\n\";"
" echo $fileinfo->getGroup() . \"\\n\";"
" echo $fileinfo->getInode() . \"\\n\";"
" echo $fileinfo->getMTime() . \"\\n\";"
" echo $fileinfo->getOwner() . \"\\n\";"
" echo $fileinfo->getPerms() . \"\\n\";"
" echo $fileinfo->getSize() . \"\\n\";"
" echo $fileinfo->getType() . \"\\n\";"
" echo $fileinfo->isDir() . \"\\n\";"
" echo $fileinfo->isExecutable() . \"\\n\";"
" echo $fileinfo->isLink() . \"\\n\";"
" echo $fileinfo->isReadable() . \"\\n\";"
" echo $fileinfo->isWritable() . \"\\n\";"
" }"
"}");
MVCR("<?php "
"$dir = new DirectoryIterator('test');"
"while($dir->valid()) {"
" if(!$dir->isDot()) {"
" print $dir->current().\"\\n\";"
" }"
" $dir->next();"
"}");
MVCR("<?php "
"$ite=new RecursiveDirectoryIterator('test/');"
"$bytestotal=0;"
"$nbfiles=0;"
"foreach ($ite as $filename=>$cur) {"
" $filesize=$cur->getSize();"
" $bytestotal+=$filesize;"
" $nbfiles++;"
" echo \"$filename => $filesize\\n\";"
"}"
"$bytestotal=number_format($bytestotal);"
"echo \"Total: $nbfiles files, $bytestotal bytes\\n\";");
MVCR("<?php "
"$ite=new RecursiveDirectoryIterator('test/');"
"$bytestotal=0;"
"$nbfiles=0;"
"foreach (new RecursiveIteratorIterator($ite) as $filename=>$cur) {"
" if (substr($filename,-1)=='.') continue;"
" $filesize=$cur->getSize();"
" $bytestotal+=$filesize;"
" $nbfiles++;"
" echo \"$filename => $filesize\\n\";"
"}"
"$bytestotal=number_format($bytestotal);"
"echo \"Total: $nbfiles files, $bytestotal bytes\\n\";");
MVCR("<?php "
"$path = \"test/\";"
"foreach (new RecursiveIteratorIterator("
" new RecursiveDirectoryIterator($path,"
" RecursiveDirectoryIterator::KEY_AS_PATHNAME),"
" RecursiveIteratorIterator::CHILD_FIRST) as $file => $info) {"
" if ($info->isDir() && substr($file,-1)!='.') {"
" echo $file.\"\\n\";"
" }"
"}");
MVCR("<?php "
"$directory = \"test\";"
"$fileSPLObjects = new RecursiveIteratorIterator("
" new RecursiveDirectoryIterator($directory),"
" RecursiveIteratorIterator::SELF_FIRST);"
"foreach( $fileSPLObjects as $fullFileName => $fileSPLObject ) {"
" if (substr($fullFileName,-1)=='.') continue;"
" print $fullFileName . \" \" .$fileSPLObject->getFilename(). \"\\n\";"
"}"
"$fileSPLObjects = new RecursiveIteratorIterator("
" new RecursiveDirectoryIterator($directory),"
" RecursiveIteratorIterator::CHILD_FIRST);"
"foreach( $fileSPLObjects as $fullFileName => $fileSPLObject ) {"
" if (substr($fullFileName,-1)=='.') continue;"
" print $fullFileName . \" \" .$fileSPLObject->getFilename(). \"\\n\";"
"}"
"$fileSPLObjects = new RecursiveIteratorIterator("
" new RecursiveDirectoryIterator($directory),"
" RecursiveIteratorIterator::LEAVES_ONLY);"
"foreach( $fileSPLObjects as $fullFileName => $fileSPLObject ) {"
" if (substr($fullFileName,-1)=='.') continue;"
" print $fullFileName . \" \" .$fileSPLObject->getFilename(). \"\\n\";"
"}"
"// invalid mode -100"
"$fileSPLObjects = new RecursiveIteratorIterator("
" new RecursiveDirectoryIterator($directory), -100);"
"foreach( $fileSPLObjects as $fullFileName => $fileSPLObject ) {"
" if (substr($fullFileName,-1)=='.') continue;"
" print $fullFileName . \" \" .$fileSPLObject->getFilename(). \"\\n\";"
"}");
MVCR("<?php "
"function getFiles(&$rdi,$depth=0) {"
" if (!is_object($rdi)) return;"
" for ($rdi->rewind();$rdi->valid();$rdi->next()) {"
" if ($rdi->isDot()) continue;"
" if ($rdi->isDir() || $rdi->isFile()) {"
" for ($i = 0; $i<=$depth;++$i) echo \" \";"
" echo $rdi->current().\"\\n\";"
" if ($rdi->hasChildren()) getFiles($rdi->getChildren(),1+$depth);"
" }"
" }"
"}"
"getFiles(new RecursiveDirectoryIterator('test'));");
MVCR("<?php "
"try {"
" $y = new RecursiveDirectoryIterator('/fake_path');"
" $z = new RecursiveIteratorIterator($y);"
" $z->next();"
"} catch (UnexpectedValueException $e) {"
"}"
"var_dump('ok');");
MVCR("<?php\n"
"class EvensOnly extends FilterIterator {\n"
" function __construct($it) {\n"
" parent::__construct($it);\n"
" }\n"
" public function accept() {\n"
" return $this->getInnerIterator()->current() % 2 == 0;\n"
" }\n"
"}\n"
"$i = new EvensOnly(new ArrayIterator(range(0, 10)));\n"
"foreach ($i as $v) {\n"
" var_dump($v);\n"
"}\n");
MVCR("<?php\n"
"class Proxy extends IteratorIterator {\n"
" function __construct($i) {\n"
" parent::__construct($i);\n"
" }\n"
"}\n"
"$i = new Proxy(new ArrayIterator(range(0, 5)));\n"
"foreach ($i as $v) { var_dump($v); }\n");
return true;
}
bool TestCodeRun::TestExtSoap() {
MVCR("<?php "
"function add($a, $b) { return $a + $b; }"
"$server = new SoapServer(NULL, array('uri' => 'http://test-uri'));"
"$str = '<?xml version=\"1.0\" '."
" 'encoding=\"ISO-8859-1\"?>'."
" '<SOAP-ENV:Envelope SOAP-ENV:encodingStyle='."
" '\"http://schemas.xmlsoap.org/soap/encoding/\"'."
" ' xmlns:SOAP-ENV='."
" '\"http://schemas.xmlsoap.org/soap/envelope/\"'."
" ' xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\"'."
" ' xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"'."
" ' xmlns:si=\"http://soapinterop.org/xsd\"><SOAP-ENV:Body>'."
" '<ns1:Add xmlns:ns1=\"http://testuri.org\">'."
" '<x xsi:type=\"xsd:hexBinary\">16</x>'."
" '<y xsi:type=\"xsd:hexBinary\">21</y>'."
" '</ns1:Add> </SOAP-ENV:Body></SOAP-ENV:Envelope>';"
"$server->addFunction('Add');"
"$server->handle($str);");
MVCR("<?php "
"class MySoap extends SoapClient {"
" public $pub = 1;"
" public function __doRequest("
" $request, $location, $action, $version, $one_way=0) {"
" $rp = parent::__doRequest($request, $location,"
" $action, $version, $one_way);"
" return $rp;"
" }"
"}"
"function test($options) {"
" return new MySoap('test/test.wsdl', $options);"
"}"
"var_dump(test(array('foo' => 'bar'))->pub);");
return true;
}
bool TestCodeRun::TestExtCollator() {
MVCR("<?php "
"function ut_run($mainFunc) {\n"
" $GLOBALS['oo-mode'] = true;\n"
" $oo_result = $mainFunc();\n"
" $GLOBALS['oo-mode'] = false;\n"
" $proc_result = $mainFunc();\n"
" if($proc_result !== $oo_result) {\n"
" echo \"ERROR: OO- and procedural APIs produce different results!\\n\";\n"
" echo \"OO API output:\\n\";\n"
" echo str_repeat( '=', 78 ) . \"\\n\";\n"
" echo $oo_result;\n"
" echo str_repeat( '=', 78 ) . \"\\n\";\n"
" echo \"procedural API output:\\n\";\n"
" echo str_repeat( '=', 78 ) . \"\\n\";\n"
" echo $proc_result;\n"
" echo str_repeat( '=', 78 ) . \"\\n\";\n"
" return;\n"
" }\n"
" echo $oo_result;\n"
"}\n"
"function dump($val) {\n"
" return var_export( $val, true );\n"
"}\n"
"function ut_coll_create( $locale )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? Collator::create( $locale ) : collator_create( $locale );\n"
"}\n"
"function ut_coll_compare( $coll, $str1, $str2 )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->compare( $str1, $str2 ) : collator_compare( $coll, $str1, $str2 );\n"
"}\n"
"function ut_coll_sort_with_sort_keys( $coll, &$arr )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->sortWithSortKeys( $arr ) : collator_sort_with_sort_keys( $coll, $arr );\n"
"}\n"
"function ut_coll_sort( $coll, &$arr, $sort_flag = Collator::SORT_REGULAR )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->sort( $arr, $sort_flag ) : collator_sort( $coll, $arr, $sort_flag );\n"
"}\n"
"function ut_coll_asort( $coll, &$arr, $sort_flag = Collator::SORT_REGULAR )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->asort( $arr, $sort_flag ) : collator_asort( $coll, $arr, $sort_flag );\n"
"}\n"
"function ut_coll_get_locale( $coll, $type )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->getLocale( $type ) : collator_get_locale( $coll, $type );\n"
"}\n"
"function ut_coll_set_strength( $coll, $strength )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->setStrength( $strength ) : collator_set_strength( $coll, $strength );\n"
"}\n"
"function ut_coll_set_attribute( $coll, $attr, $val )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? \n"
" $coll->setAttribute( $attr, $val ) : collator_set_attribute( $coll, $attr, $val );\n"
"}\n"
"function ut_coll_set_default( $coll )\n"
"{\n"
" return $GLOBALS['oo-mode'] ? Collator::setDefault( $coll ) : collator_set_default( $coll );\n"
"}\n"
"$test_num = 1;\n"
"function sort_arrays( $locale, $arrays, $sort_flag = Collator::SORT_REGULAR )\n"
"{\n"
" $res_str = '';\n"
" $coll = ut_coll_create( $locale );\n"
" foreach( $arrays as $array )\n"
" {\n"
" // Sort array values\n"
" $res_val = ut_coll_sort( $coll, $array, $sort_flag );\n"
" // Concatenate the sorted array and function result\n"
" // with output string.\n"
" $res_dump = \"\\n\" . dump( $array ) .\n"
" \"\\n Result: \" . dump( $res_val );\n"
" // Preppend test signature to output string\n"
" $md5 = md5( $res_dump );\n"
" global $test_num;\n"
" \n"
" $res_str .= \"\\n\\n\".\n"
" \"Test $test_num.$md5:\" .\n"
" $res_dump;\n"
" ++$test_num;\n"
" }\n"
" return $res_str;\n"
"}\n"
"function ut_main1()\n"
"{\n"
" global $test_num;\n"
" $test_num = 1;\n"
" $res_str = '';\n"
" // Sort an array in SORT_REGULAR mode using en_US locale.\n"
" $test_params = array(\n"
" array( 'abc', 'abd', 'aaa' ),\n"
" array( 'm' , '1' , '_' ),\n"
" array( 'a' , 'aaa', 'aa' ),\n"
" array( 'ba' , 'b' , 'ab' ),\n"
" array( 'e' , 'c' , 'a' ),\n"
" array( '100', '25' , '36' ), // test 6\n"
" array( 5 , '30' , 2 ),\n"
" array( 'd' , '' , ' a' ),\n"
" array( 'd ' , 'f ' , ' a' ),\n"
" array( 'a' , null , '3' ),\n"
" array( 'y' , 'k' , 'i' )\n"
" );\n"
" $res_str .= sort_arrays( 'en_US', $test_params );\n"
" $test_params = array(\n"
" array( '100', '25' , '36' ),\n"
" array( 5 , '30' , 2 ), // test 13\n"
" array( 'd' , '' , ' a' ),\n"
" array( 'y' , 'k' , 'i' )\n"
" );\n"
" // Sort in en_US locale with SORT_STRING flag\n"
" $res_str .= sort_arrays( 'en_US', $test_params, Collator::SORT_STRING );\n"
" // Sort a non-ASCII array using ru_RU locale.\n"
" $test_params = array(\n"
" array( '\xd0\xb0\xd0\xb1\xd0\xb3', "
" '\xd0\xb0\xd0\xb1\xd0\xb2', "
" '\xd0\xb0\xd0\xb0\xd0\xb0', "
" '\xd0\xb0\xd0\xb1\xd0\xb2' ),\n"
" array( '\xd0\xb0\xd0\xb0', '\xd0\xb0\xd0\xb0\xd0\xb0',"
" '\xd0\xb0' )\n"
" );\n"
" $res_str .= sort_arrays( 'ru_RU', $test_params );\n"
" // Sort an array using Lithuanian locale.\n"
" $test_params = array(\n"
" array( 'y' , 'k' , 'i' )\n"
" );\n"
" $res_str .= sort_arrays( 'lt_LT', $test_params );\n"
" return $res_str;\n"
"}\n"
"ut_run('ut_main1');\n"
"function ut_main2() {\n"
" $obj = ut_coll_create('en_US');\n"
" $arr0 = array( 100, 25, 36, '30.2', '30.12' ); // test 6\n"
" $arr1 = array( '100', '25', '36' ); // test 6\n"
" $arr2 = array( 11, 5, '2', 64, 17, '30', 10, 2, '54' );\n"
" // strcmp 17 and 30, ret = 1\n"
" // Comparing values 17 and 30, ret = 1\n"
" $arr3 = array( 11, 5, 2, 64, 17, 30, 10, 2, 54 );\n"
" $arrA = $arr0;\n"
" $arrB = $arr0;\n"
" $arrC = $arr0;\n"
" ut_coll_sort($obj, $arrA, Collator::SORT_REGULAR);\n"
" ut_coll_sort($obj, $arrB, Collator::SORT_STRING);\n"
" ut_coll_sort($obj, $arrC, Collator::SORT_NUMERIC);\n"
" var_dump($arrA, $arrB, $arrC);\n"
" $arrA = $arr1;\n"
" $arrB = $arr1;\n"
" $arrC = $arr1;\n"
" ut_coll_sort($obj, $arrA, Collator::SORT_REGULAR);\n"
" ut_coll_sort($obj, $arrB, Collator::SORT_STRING);\n"
" ut_coll_sort($obj, $arrC, Collator::SORT_NUMERIC);\n"
" var_dump($arrA, $arrB, $arrC);\n"
" $arrA = $arr2;\n"
" $arrB = $arr2;\n"
" $arrC = $arr2;\n"
" ut_coll_sort($obj, $arrA, Collator::SORT_REGULAR);\n"
" ut_coll_sort($obj, $arrB, Collator::SORT_STRING);\n"
" ut_coll_sort($obj, $arrC, Collator::SORT_NUMERIC);\n"
" var_dump($arrA, $arrB, $arrC);\n"
" $arrA = $arr3;\n"
" $arrB = $arr3;\n"
" $arrC = $arr3;\n"
" ut_coll_sort($obj, $arrA, Collator::SORT_REGULAR);\n"
" ut_coll_sort($obj, $arrB, Collator::SORT_STRING);\n"
" ut_coll_sort($obj, $arrC, Collator::SORT_NUMERIC);\n"
" var_dump($arrA, $arrB, $arrC);\n"
"}\n"
"ut_run('ut_main2');\n"
"function ut_main3()\n"
"{\n"
" $res_str = '';\n"
" $locales = array(\n"
" 'EN-US-ODESSA',\n"
" 'UK_UA_ODESSA',\n"
" 'uk-ua_CALIFORNIA@currency=;currency=GRN',\n"
" '',\n"
" 'root',\n"
" 'uk@currency=EURO'\n"
" );\n"
" foreach( $locales as $locale )\n"
" {\n"
" // Create Collator with the current locale.\n"
" $coll = ut_coll_create( $locale );\n"
" if( !is_object($coll) )\n"
" {\n"
" $res_str .= \"Error creating collator with '$locale' locale: \" .\n"
" intl_get_error_message() . \"\\n\";\n"
" continue;\n"
" }\n"
" // Get the requested, valid and actual locales.\n"
" $vloc = ut_coll_get_locale( $coll, Locale::VALID_LOCALE );\n"
" // Show them.\n"
" $res_str .= \"Locale: '$locale'\\n\" .\n"
" \" ULOC_VALID_LOCALE = '$vloc'\\n\";\n"
" }\n"
" return $res_str;\n"
"}\n"
"ut_run('ut_main3');\n"
"function test_COW( $locale, $test_array )\n"
"{\n"
" $res_str = '';\n"
" $coll = ut_coll_create( $locale );\n"
" // Create two copies of the given array.\n"
" $copy1 = $test_array;\n"
" $copy2 = $test_array;\n"
" // Sort given array and the first copy of it.\n"
" ut_coll_sort( $coll, $test_array );\n"
" ut_coll_sort( $coll, $copy1 );\n"
" // Return contents of all the arrays.\n"
" // The second copy should remain unsorted.\n"
" $res_str .= dump( $test_array ) . \"\\n\";\n"
" $res_str .= dump( $copy1 ) . \"\\n\";\n"
" $res_str .= dump( $copy2 ) . \"\\n\";\n"
" return $res_str;\n"
"}\n"
"function ut_main4()\n"
"{\n"
" $res_str = '';\n"
" $a1 = array( 'b', 'a', 'c' );\n"
" $a2 = array( '\xd0\xb1', '\xd0\xb0', '\xd0\xb2' );\n"
" $res_str .= test_COW( 'en_US', $a1 );\n"
" $res_str .= test_COW( 'ru_RU', $a2 );\n"
" return $res_str;\n"
"}\n"
"ut_run('ut_main4');\n"
"function cmp_array( &$coll, $a )\n"
"{\n"
" $res = '';\n"
" $prev = null;\n"
" foreach( $a as $i )\n"
" {\n"
" if( is_null( $prev ) )\n"
" $res .= \"$i\";\n"
" else\n"
" {\n"
" $eqrc = ut_coll_compare( $coll, $prev, $i );\n"
" $eq = $eqrc < 0 ? \"<\" : ( $eqrc > 0 ? \">\" : \"=\" );\n"
" $res .= \" $eq $i\";\n"
" }\n"
" $prev = $i;\n"
" }\n"
" $res .= \"\\n\";\n"
" return $res;\n"
"}\n"
"function check_alternate_handling( &$coll )\n"
"{\n"
" $res = '';\n"
" ut_coll_set_strength( $coll, Collator::TERTIARY );\n"
" ut_coll_set_attribute( $coll, Collator::ALTERNATE_HANDLING, Collator::NON_IGNORABLE );\n"
" $res .= cmp_array( $coll, array( 'di Silva', 'Di Silva', 'diSilva', 'U.S.A.', 'USA' ) );\n"
" ut_coll_set_attribute( $coll, Collator::ALTERNATE_HANDLING, Collator::SHIFTED );\n"
" $res .= cmp_array( $coll, array( 'di Silva', 'diSilva', 'Di Silva', 'U.S.A.', 'USA' ) );\n"
" ut_coll_set_strength( $coll, Collator::QUATERNARY );\n"
" $res .= cmp_array( $coll, array( 'di Silva', 'diSilva', 'Di Silva', 'U.S.A.', 'USA' ) );\n"
" $res .= \"\\n\";\n"
" return $res;\n"
"}\n"
"function ut_main5()\n"
"{\n"
" $coll = ut_coll_create( 'en_US' );\n"
" return\n"
" check_alternate_handling( $coll );\n"
"}\n"
"ut_run('ut_main5');\n"
"function sort_arrays_with_sort_keys( $locale, $arrays )\n"
"{\n"
" $res_str = '';\n"
" $coll = ut_coll_create( $locale );\n"
" foreach( $arrays as $array )\n"
" {\n"
" // Sort array values\n"
" $res_val = ut_coll_sort_with_sort_keys( $coll, $array );\n"
" // Concatenate the sorted array and function result\n"
" // with output string.\n"
" $res_dump = \"\\n\" . dump( $array ) .\n"
" \"\\n Result: \" . dump( $res_val );\n"
" \n"
" \n"
" // Preppend test signature to output string\n"
" $md5 = md5( $res_dump );\n"
" global $test_num;\n"
" $res_str .= \"\\n\\n\".\n"
" \"Test $test_num.$md5:\" .\n"
" $res_dump;\n"
" ++$test_num;\n"
" }\n"
" return $res_str;\n"
"}\n"
"function ut_main6()\n"
"{\n"
" global $test_num;\n"
" $test_num = 1;\n"
" $res_str = '';\n"
" // Sort an array in SORT_REGULAR mode using en_US locale.\n"
" $test_params = array(\n"
" array( 'abc', 'abd', 'aaa' ),\n"
" array( 'm' , '1' , '_' ),\n"
" array( 'a' , 'aaa', 'aa' ),\n"
" array( 'ba' , 'b' , 'ab' ),\n"
" array( 'e' , 'c' , 'a' ),\n"
" array( 'd' , '' , ' a' ),\n"
" array( 'd ' , 'f ' , ' a' ),\n"
" array( 'a' , null , '3' ),\n"
" array( 'y' , 'i' , 'k' )\n"
" );\n"
" $res_str .= sort_arrays_with_sort_keys( 'en_US', $test_params );\n"
" // Sort a non-ASCII array using ru_RU locale.\n"
" $test_params = array(\n"
" array( '\xd0\xb0\xd0\xb1\xd0\xb3', "
" '\xd0\xb0\xd0\xb1\xd0\xb2', "
" '\xd0\xb0\xd0\xb0\xd0\xb0', "
" '\xd0\xb0\xd0\xb1\xd0\xb2' ),\n"
" array( '\xd0\xb0\xd0\xb0', '\xd0\xb0\xd0\xb0\xd0\xb0',"
" '\xd0\xb0' )\n"
" );\n"
" $res_str .= sort_arrays_with_sort_keys( 'ru_RU', $test_params );\n"
" // Array with data for sorting.\n"
" $test_params = array(\n"
" array( 'y' , 'i' , 'k' )\n"
" );\n"
" // Sort an array using Lithuanian locale.\n"
" $res_str .= sort_arrays_with_sort_keys( 'lt_LT', $test_params );\n"
" return $res_str . \"\\n\";\n"
"}\n"
"ut_run('ut_main6');\n"
);
return true;
}
bool TestCodeRun::TestExtSocket() {
MVCR("<?php "
"$r = socket_create(AF_INET, SOCK_RAW, 0);"
"var_dump(socket_last_error());");
return true;
}
bool TestCodeRun::TestAPC() {
MVCR("<?php "
"$a = array();\n"
"$a[] =& $a;\n"
"print_r($a);\n"
"apc_store('table', $a);\n"
);
// PHP doesn't have APC for CLI mode, so have to use MVCRO
MVCRO("<?php "
"$a = array(1);\n"
"$a[] =& $a[0];\n"
"$a[0] = 2;\n"
"print_r($a);\n"
"\n"
"apc_store('table', $a);\n"
"$b = apc_fetch('table', $b);\n"
"print_r($b);\n"
"$b[0] = 3;\n"
"print_r($b);\n",
"Array\n"
"(\n"
" [0] => 2\n"
" [1] => 2\n"
")\n"
"Array\n"
"(\n"
" [0] => 2\n"
" [1] => 2\n"
")\n"
"Array\n"
"(\n"
" [0] => 3\n"
" [1] => 3\n"
")\n"
);
MVCRO("<?php\n"
"class A { var $v = 10; function f() { $this->v = 100; } }\n"
"$a = array(array(1, 2, 3), new A());\n"
"apc_store('0', $a);\n"
"$b = apc_fetch(0);\n"
"var_dump($b[1]->v);\n"
"$b[1]->f();\n" // SharedMap::get() needs caching
"var_dump($b[1]->v);\n"
"$b[2] = 1;\n" // SharedMap::escalate() needs caching
"var_dump($b[1]->v);\n",
"int(10)\n"
"int(100)\n"
"int(100)\n"
);
MVCRO("<?php\n"
"class A { private $b = 10; }\n"
"class B extends A { private $b = 100; }\n"
"apc_store('key', new B());\n"
"var_dump(apc_fetch('key'));\n",
"object(B)#1 (2) {\n"
" [\"b\":\"B\":private]=>\n"
" int(100)\n"
" [\"b\":\"A\":private]=>\n"
" int(10)\n"
"}\n"
);
MVCRO("<?php\n"
"class A { var $a, $b; }\n"
"$a = new A(); $a->a = 5; $a->b = &$a->a;\n"
"apc_store('key', $a);\n"
"var_dump(apc_fetch('key'));\n",
"object(A)#2 (2) {\n"
" [\"a\"]=>\n"
" &int(5)\n"
" [\"b\"]=>\n"
" &int(5)\n"
"}\n"
);
MVCRO("<?php\n"
"class a {"
" protected $foo = 10;"
"}"
"$x = new a;"
"apc_store('x', array($x));"
"$x = apc_fetch('x');"
"var_dump($x[0]);",
"object(a)#1 (1) {\n"
" [\"foo\":protected]=>\n"
" int(10)\n"
"}\n"
);
// objects in an apc array can be changed without escalating the array
MVCRO("<?php\n"
"class A { var $i = 10; }\n"
"$a = array(new A);\n"
"apc_store('key1', $a);\n"
"$b = apc_fetch('key1');\n"
"$c = $b[0];\n"
"$c->i = 100;\n"
"apc_store('key2', $b);\n"
"$t = apc_fetch('key2');\n"
"var_dump($t[0]->i);\n",
"int(100)\n");
// Serializable object in APC
MVCRO("<?php\n"
"class A implements Serializable {\n"
" var $a = 123;\n"
" function serialize() { return serialize($this->a); }\n"
" function unserialize($s) { $this->a = unserialize($s); }\n"
"}\n"
"$o = new A;\n"
"apc_store('key', $o);\n"
"$r = apc_fetch('key');\n"
"var_dump($r);\n",
"object(A)#2 (1) {\n"
" [\"a\"]=>\n"
" int(123)\n"
"}\n");
for (int i = 0; i < 2; i++) {
string cfg = "-vServer.APC.AllowObject=" + boost::lexical_cast<string>(i);
OptionSetter w(this, OptionSetter::RunTime, cfg.c_str());
// apc_fetch twice to trigger immutable object
MVCRO("<?php "
"class A {"
" public function __construct($i, $j, $k) {"
" $this->a = $i * $i;"
" $this->b = $j * $j;"
" $this->c = $k * $k;"
" }"
" public $a;"
" protected $b;"
" private $c;"
" public $aa = 'aa';"
" protected $bb = false;"
" private $cc = 1.22;"
"}"
"class B extends A {"
" public function __construct($i, $j, $k) {"
" $this->a = $i + $i;"
" $this->b = $j + $j;"
" $this->c = $k + $k;"
" }"
" public $a;"
" protected $b;"
" private $c;"
" public $aa = 'aaa';"
" protected $bb = 4;"
" private $cc = 1.222;"
"}"
"class C extends B {"
" public function __construct($i, $j, $k) {"
" $this->a = $i + $i + $i;"
" $this->b = $j + $j + $j;"
" $this->c = $k + $k + $k;"
" }"
" public $a;"
" protected $b;"
" private $c;"
" public $aa = 'aaaa';"
" protected $bb = 40;"
" private $cc = 1.333;"
"}"
"class D extends C {"
" public function __construct($i, $j, $k) {"
" $this->a = $i + $i + $i;"
" $this->b = $j + $j + $j;"
" $this->c = $k + $k + $k;"
" }"
" public $a;"
" public $b;"
" private $c;"
" public $aa = 'aaaaa';"
" public $bb = 400;"
" private $cc = 1.3333;"
"}"
"function foo() {"
" $obj = new A(111, 222, 333);"
" apc_store('foobar', $obj);"
" $obj = apc_fetch('foobar');"
" $obj = apc_fetch('foobar');"
" var_dump($obj);"
" $obj = new B(111, 222, 333);"
" apc_store('foobar', $obj);"
" $obj = apc_fetch('foobar');"
" $obj = apc_fetch('foobar');"
" var_dump($obj);"
" $obj = new C(111, 222, 333);"
" apc_store('foobar', $obj);"
" $obj = apc_fetch('foobar');"
" $obj = apc_fetch('foobar');"
" var_dump($obj);"
" $obj = new D(111, 222, 333);"
" apc_store('foobar', $obj);"
" $obj = apc_fetch('foobar');"
" $obj = apc_fetch('foobar');"
" var_dump($obj);"
"}"
"foo();",
"object(A)#3 (6) {\n"
" [\"a\"]=>\n"
" int(12321)\n"
" [\"b\":protected]=>\n"
" int(49284)\n"
" [\"c\":\"A\":private]=>\n"
" int(110889)\n"
" [\"aa\"]=>\n"
" string(2) \"aa\"\n"
" [\"bb\":protected]=>\n"
" bool(false)\n"
" [\"cc\":\"A\":private]=>\n"
" float(1.22)\n"
"}\n"
"object(B)#6 (8) {\n"
" [\"a\"]=>\n"
" int(222)\n"
" [\"b\":protected]=>\n"
" int(444)\n"
" [\"c\":\"B\":private]=>\n"
" int(666)\n"
" [\"aa\"]=>\n"
" string(3) \"aaa\"\n"
" [\"bb\":protected]=>\n"
" int(4)\n"
" [\"cc\":\"B\":private]=>\n"
" float(1.222)\n"
" [\"c\":\"A\":private]=>\n"
" NULL\n"
" [\"cc\":\"A\":private]=>\n"
" float(1.22)\n"
"}\n"
"object(C)#9 (10) {\n"
" [\"a\"]=>\n"
" int(333)\n"
" [\"b\":protected]=>\n"
" int(666)\n"
" [\"c\":\"C\":private]=>\n"
" int(999)\n"
" [\"aa\"]=>\n"
" string(4) \"aaaa\"\n"
" [\"bb\":protected]=>\n"
" int(40)\n"
" [\"cc\":\"C\":private]=>\n"
" float(1.333)\n"
" [\"c\":\"B\":private]=>\n"
" NULL\n"
" [\"cc\":\"B\":private]=>\n"
" float(1.222)\n"
" [\"c\":\"A\":private]=>\n"
" NULL\n"
" [\"cc\":\"A\":private]=>\n"
" float(1.22)\n"
"}\n"
"object(D)#12 (12) {\n"
" [\"a\"]=>\n"
" int(333)\n"
" [\"b\"]=>\n"
" int(666)\n"
" [\"c\":\"D\":private]=>\n"
" int(999)\n"
" [\"aa\"]=>\n"
" string(5) \"aaaaa\"\n"
" [\"bb\"]=>\n"
" int(400)\n"
" [\"cc\":\"D\":private]=>\n"
" float(1.3333)\n"
" [\"c\":\"C\":private]=>\n"
" NULL\n"
" [\"cc\":\"C\":private]=>\n"
" float(1.333)\n"
" [\"c\":\"B\":private]=>\n"
" NULL\n"
" [\"cc\":\"B\":private]=>\n"
" float(1.222)\n"
" [\"c\":\"A\":private]=>\n"
" NULL\n"
" [\"cc\":\"A\":private]=>\n"
" float(1.22)\n"
"}\n");
}
MVCRO("<?php\n"
"class C {}\n"
"class D {\n"
" public function __construct($f) {\n"
" $this->map = $f;\n"
" }\n"
"}\n"
"class E {\n"
" protected $map;\n"
" public function __construct($f) {\n"
" $this->map = $f;\n"
" }\n"
" public function getMap() {\n"
" return $this->map;\n"
" }\n"
"}\n"
"$f = new stdclass();\n"
"$arr = array(new E($f), new D($f));\n"
"apc_store('ggg', $arr);\n"
"$arr2 = apc_fetch('ggg');\n"
"var_dump($arr[0]->getMap());\n"
"var_dump($arr[1]->map);\n"
"var_dump($arr2[0]->getMap());\n"
"var_dump($arr2[1]->map);\n"
,
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#5 (0) {\n"
"}\n"
"object(stdClass)#5 (0) {\n"
"}\n"
);
MVCRO("<?php\n"
"$v = 42;\n"
"$o1 = new stdclass;\n"
"$o2 = new stdclass;\n"
"$o1->p = &$v;\n"
"$o2->p = &$v;\n"
"$arr1 = array($o1, $o2);\n"
"apc_store('foo', $arr1);\n"
"$arr2 = apc_fetch('foo');\n"
"var_dump($arr1);\n"
"var_dump($arr2);\n"
,
"array(2) {\n"
" [0]=>\n"
" object(stdClass)#1 (1) {\n"
" [\"p\"]=>\n"
" &int(42)\n"
" }\n"
" [1]=>\n"
" object(stdClass)#2 (1) {\n"
" [\"p\"]=>\n"
" &int(42)\n"
" }\n"
"}\n"
"array(2) {\n"
" [0]=>\n"
" object(stdClass)#3 (1) {\n"
" [\"p\"]=>\n"
" &int(42)\n"
" }\n"
" [1]=>\n"
" object(stdClass)#4 (1) {\n"
" [\"p\"]=>\n"
" &int(42)\n"
" }\n"
"}\n"
);
{
HipHopSyntax w(this);
MVCRO("<?php\n"
"class A {"
" public function gen($a, $b) { yield $a; yield $b; }"
"}\n"
"$x = new A; "
"$x->cache_gen = $x->gen('a', 'b'); "
"foreach ($x->cache_gen as $v) { var_dump($v); } "
"apc_store('key', $x); "
"$y = apc_fetch('key'); "
"print_r($y->cache_gen);",
"string(1) \"a\"\n"
"string(1) \"b\"\n"
"DummyContinuation Object\n"
"(\n"
")\n"
);
MVCRO("<?php\n"
"$f = function($a) { return $a; }; "
"var_dump($f('x')); "
"apc_store('key', $f); "
"$g = apc_fetch('key'); "
"print_r($g); ",
"string(1) \"x\"\n"
"DummyClosure Object\n"
"(\n"
")\n"
);
}
MVCRO("<?php "
"function test($x) {"
" apc_store('foo', array('a'.$x, array($x)));"
" $a = apc_fetch('foo');"
" $x = array_intersect($a, $a);"
" var_dump($x);"
"}"
"test('foo');",
"array(2) {\n"
" [0]=>\n"
" string(4) \"afoo\"\n"
" [1]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(3) \"foo\"\n"
" }\n"
"}\n");
MVCRO("<?php "
"class X implements Serializable {"
" public function serialize() {"
" return 'true';"
" }"
" public function unserialize($serialized ) {"
" }"
"}"
"function test() {"
" $a[] = $x = new X;"
" $a[] = $x;"
" $a[] = $x;"
" apc_store('foo', $a);"
" $a = apc_fetch('foo');"
" var_dump($a);"
" $a = apc_fetch('foo');"
" var_dump($a);"
"}"
"test();",
"array(3) {\n"
" [0]=>\n"
" object(X)#2 (0) {\n"
" }\n"
" [1]=>\n"
" object(X)#2 (0) {\n"
" }\n"
" [2]=>\n"
" object(X)#2 (0) {\n"
" }\n"
"}\n"
"array(3) {\n"
" [0]=>\n"
" object(X)#3 (0) {\n"
" }\n"
" [1]=>\n"
" object(X)#3 (0) {\n"
" }\n"
" [2]=>\n"
" object(X)#3 (0) {\n"
" }\n"
"}\n");
return true;
}
bool TestCodeRun::TestInlining() {
OptionSetter w(this, OptionSetter::CompileTime,
"-vAutoInline=5");
MVCR("<?php "
"function id($x) {"
" return $x;"
" }"
"class X {"
" public function f() { return 'hello'; }"
"}"
"function test($a, $b) {"
" return $a ? $b : id(new X)->f();"
"}"
"var_dump(test());");
MVCR("<?php "
"function foo($e='e') {"
" return '<a name=\"'.$e.'\" id=\"'.$e.'\"></a>';"
"}"
"function test() {"
" echo foo();"
"}"
"test();");
MVCR("<?php "
"function foo($e, $m) {"
" $_REQUEST['_foo'] = $e;"
" $_REQUEST['_bar'] = $m;"
" return $e;"
"}"
"function test($x) {"
" return foo('a', $x);"
"}"
"var_dump(test('b'));");
MVCR("<?php "
"function h() { class X{}; }"
"function f($a, $b, $c) { return h(); }"
"function g($a, $b, $c) {"
" return f($a++, $b++ + $a++, $c);"
"}");
MVCR("<?php "
"function f($name, $unique_id=false, $id=null) {"
" $id = $id ? $id : ($unique_id ? uniqid($name) : $name);"
" return $id;"
" }"
"function test($a, $b, $c) {"
" return f($name = 'status', $unique_id = true, $id = 'status_active');"
" }"
"var_dump(test(1,2,3));");
MVCR("<?php "
"function g($a) { function t(){}; return $a ? array(1,2,3) : 'foo'; }"
"function f($a) { return g($a); }"
"function test($a) {"
" return reset((f($a)));"
" }"
"var_dump(test(1));"
"function &h(&$a) { return $a['foo']; }"
"function i($a) { $x = &h($a); $x = 'hello'; return $a; }"
"var_dump(i(false));");
MVCR("<?php "
"function bar($name) {"
" $name = trim($name);"
" var_dump($name);"
"}"
"function f($x, $y) { if ($x) return $x; return $y; }"
"function foo() {"
" $name = 'ab.' . f('x', 'y');"
" bar($name);"
" bar($name);"
"}"
"foo();");
MVCR("<?php "
"function id($x) { return $x; }"
"class B { function __construct($x) { $this->x = $x; } }"
"class X extends B {"
" function __construct() { parent::__construct(array()); }"
" function foo() { echo \"foo\n\"; }"
"}"
"function bar($x=0) { if ($x) return 1; return ''; }"
"function test($foo) {"
" id(new X(bar()))->foo();"
" id(new $foo(bar()))->foo();"
"}"
"test('X');");
MVCR("<?php "
"function id($a) { return $a; }"
"class X {}"
"if (0) {"
" class X {}"
"}"
"class Y extends X { function t() {} }"
"function test() {"
" id(new Y)->t();"
"}");
MVCR("<?php "
"/* Compile only: verify no c++ compilation errors */"
"function foo($a) {"
" return $a[1];"
"}"
"function baz(&$x) { if ($x) $x++; }"
"function bar($a) {"
" baz(foo($a)[1]);"
" foo($a)->bar = 1;"
"}");
MVCR("<?php\n"
"/* Compile only: verify no c++ compilation errors */"
"function f($x) {\n"
" return function () use ($x) {\n"
" return $x;\n"
" };\n"
"}\n"
"function g($x) {\n"
" $c = f($x);\n"
" return $c();\n"
"}\n");
{
HipHopSyntax w(this);
MVCRO("<?php\n"
"function inline_me($x, $y, &$z) { return ($z = ($x + $y)); }\n"
"function gen($x, $y) {\n"
" yield inline_me($x, $y, $arg);\n"
" yield $arg;\n"
"}\n"
"foreach (gen(10, 20) as $x) { var_dump($x); }\n",
"int(30)\n"
"int(30)\n");
}
MVCR("<?php "
"function &test(&$x,$y) {"
" $GLOBALS['x'] = &$y;"
" return $x[0];"
"}"
"$x = array((object)1);"
"$y = &test($x,0);"
"$y++;"
"var_dump($x, $y);");
MVCR("<?php "
"function &test(&$x) {"
" $x = 1;"
" return $x;"
"}"
"$x = 0;"
"$y = &test($x);"
"$y++;"
"var_dump($x, $y);");
if (!hhvm) {
MVCRNW("<?php "
"function foo($u, $v, $w) {"
" $u = 10;"
" $v = 20;"
" $w = 20;"
"}"
"$u = 1;"
"$v = 2;"
"$w = 3;"
"foo(&$u, &$v, $w);"
"var_dump($u, $v, $w);");
}
MVCR("<?php "
"function foo() { return $GLOBALS['g']; }"
"$g = 0;"
"$a =& foo();"
"$a++;"
"var_dump($a, $g);");
MVCR("<?php "
"function pid($x) {"
" var_dump($x);"
" return $x;"
"}"
"function f($x) {"
" return $x;"
"}"
"function ttest() {"
" return f(pid('arg1'),pid('arg2'));"
"}"
"ttest();");
MVCR("<?php "
"class X {"
" function __destruct() { var_dump('done'); }"
"}"
"function f() { $x = new X; }"
"function g() {"
" var_dump('start');"
" f();"
" var_dump('end');"
"}"
"g();");
return true;
}
bool TestCodeRun::TestCopyProp() {
OptionSetter w1(this, OptionSetter::CompileTime, "-vCopyProp=1");
HipHopSyntax w2(this);
MVCR("<?php "
"function test($tr_data) {"
" $temp_tr = null;"
" foreach ($tr_data as $tr_id => $tr_row) {"
" if ($tr_row == 45) $temp_tr = $tr_id;"
" if ($tr_id == 0) {"
" continue;"
" } else {"
" return $tr_row;"
" }"
" }"
" if ($temp_tr) {"
" return $temp_tr;"
" }"
" return null;"
"}"
"var_dump(test(array('a' => 1, 'b' => 45)));");
MVCR("<?php "
"/* Compile only test. Used to crash hphp */ "
"class X {"
" protected $map;"
" protected $parents;"
" public function __construct(array $map, array $parents) {"
" $this->map = $map;"
" $this->parents = $parents;"
" }"
"}");
MVCR("<?php\n"
"function f($x, $y) {\n"
" $z = 32;\n"
" return $x && $y ?: $z;\n"
"}\n"
"var_dump(f(false, false));\n"
"var_dump(f(true, true));\n");
MVCRO("<?php"
"function foo() {"
" $a = &$b;"
" $b = 1;"
" yield $a;"
" $a = 3;"
" $b = 2;"
" yield $a;"
"}"
"foreach (foo() as $x) var_dump($x);",
"int(1)\n"
"int(2)\n");
return true;
}
bool TestCodeRun::TestSerialize() {
MVCR("<?php\n"
"function f() {\n"
" $a = array(123);\n"
" $b = $a;\n"
" $c = &$b;\n"
" $d = new stdClass();\n"
" $v = array(&$a, &$b, &$c, $d, $d);\n"
" $s = serialize($v);\n"
" echo $s;\n"
"}\n"
"f();\n");
MVCR("<?php "
"class X {"
" private $o, $a, $o2;"
" function foo() {"
" $this->o = $this;"
" $this->a = array(1,2,3);"
" $this->o2 = $this;"
" }"
"}"
"function test() {"
" $x = new X;"
" $x->foo();"
" $s = serialize($x);"
" var_dump($s);"
" $y = unserialize($s);"
" var_dump($y);"
"}"
"test();");
return true;
}
bool TestCodeRun::TestHoisting() {
MVCR("<?php\n"
"var_dump(class_exists('C'));\n"
"class C implements Countable { function count() { return 0; } }\n");
MVCR("<?php\n"
"class C implements Countable { function count() { return 0; } }\n"
"var_dump(class_exists('C'));\n");
MVCRO("<?php\n"
"var_dump(class_exists('C'));\n"
"trait t { }\n"
"class C { use t; }\n",
"bool(false)\n");
MVCRO("<?php\n"
"trait t { }\n"
"class C { use t; }\n"
"var_dump(class_exists('C'));\n",
"bool(true)\n");
return true;
}
bool TestCodeRun::TestVariableClassName() {
MVCR(
"<?php\n"
"class A {\n"
" const C = 123;\n"
" static public $foo = 456;\n"
" public function bar() {\n"
" return 789;\n"
" }\n"
"}\n"
"$cls = 'a';\n"
"\n"
"var_dump($cls::C); // ClassConstant\n"
"\n"
"var_dump($cls::$foo); // StaticMember\n"
"$cls::$foo = 'test';\n"
"var_dump($cls::$foo); // l-value\n"
"\n"
"var_dump($cls::bar()); // SimpleFunctionCall\n"
"\n"
"$func = 'bar';\n"
"var_dump($cls::$func()); // DynamicFunctionCall\n");
MVCR(
"<?php\n"
"class B {\n"
" function f4($arguments) {\n"
" var_dump($arguments);\n"
" }\n"
"}\n"
"class G extends B {\n"
" function f4($a) {\n"
" $b='B';\n"
" $b::f4(5); // __call\n"
" }\n"
"}\n"
"$g = new G(5);\n"
"$g->f4(3);\n");
MVCR("<?php\n"
"class B {\n"
" function __call($name, $arguments) {\n"
" echo \"Calling B object method '$name' \" . "
"implode(', ', $arguments). \"\n\";\n"
" }\n"
"}\n"
"class G extends B {\n"
" function __call($name, $arguments) {\n"
" echo \"Calling G object method '$name' \" . "
"implode(', ', $arguments). \"\n\";\n"
" }\n"
" function f4missing($a) {\n"
" $b=\"B\";\n"
" echo \"Calling G object method 'f4missing' 5 == \", "
"$b::f4missing(5);\n"
" }\n"
"}\n"
"\n"
"$g = new G();\n"
"$g->f4missing(3);\n"
"echo \"finish\n\";\n");
MVCR("<?php\n"
"function func() { return 'B';}\n"
"class B {\n"
" function foo() { var_dump(__CLASS__);}\n"
" function f4missing() { $this->foo();}\n"
"}\n"
"class G extends B {\n"
" function foo() { var_dump(__CLASS__);}\n"
" function f4missing() { $b = func(); $b::f4missing();}\n"
"}\n"
"$g = new G; $g->f4missing();\n");
return true;
}
bool TestCodeRun::TestLateStaticBinding() {
MVCR(
"<?php\n"
"class B {\n"
" public static $a = 100;\n"
" static function f() {\n"
" var_dump(static::$a);\n"
" }\n"
"}\n"
"class C extends B {\n"
" public static $a = 1000;\n"
"}\n"
"call_user_func(array('C', 'f'));\n"
);
MVCR(
"<?php\n"
"class A {\n"
" const NAME = 'A';\n"
" public static function test() {\n"
" $args = func_get_args();\n"
" echo static::NAME, \" \".join(',', $args).\" \\n\";\n"
" }\n"
"}\n"
"class B extends A {\n"
" const NAME = 'B';\n"
" public static function test() {\n"
" echo self::NAME, \"\\n\";\n"
" forward_static_call(array('A', 'test'), 'more', 'args');\n"
" forward_static_call( 'test', 'other', 'args');\n"
" }\n"
"}\n"
"B::test('foo');\n"
"function test() {\n"
" $args = func_get_args();\n"
" echo \"C \".join(',', $args).\" \\n\";\n"
"}\n"
);
MVCR(
"<?php\n"
"class X {\n"
" function f() {\n"
" $y = new Y;\n"
" $y->foo();\n"
" static::g();\n"
" $y->foo();\n"
" self::g();\n"
" Y::foo() && static::g();\n"
" }\n"
" static function g() { var_dump(__CLASS__); }\n"
"}\n"
"class Y extends X {\n"
" static function g() { var_dump(__CLASS__); }\n"
" static function foo() { return true; }\n"
"}\n"
"function test() {\n"
" $x = new X;\n"
" $y = new Y;\n"
" $x->f();\n"
" $y->f();\n"
"}\n"
"test();\n"
);
MVCR(
"<?php\n"
"class A {\n"
" static public function foo() {\n"
" static::bar();\n"
" }\n"
" public function bar() {\n"
" var_dump(__CLASS__);\n"
" }\n"
" public function foo2() {\n"
" B::foo(); // B always changes 'static'\n"
" self::foo(); // 'self' doesn't change 'static'\n"
" }\n"
"}\n"
"class B extends A {\n"
" public function bar() {\n"
" var_dump(__CLASS__);\n"
" }\n"
" public function foo3() {\n"
" $this->foo(); // $this changes 'static'\n"
" parent::foo(); // 'parent' doesn't change 'static'\n"
" }\n"
"}\n"
"\n"
"$a = new A();\n"
"$b = new B();\n"
"\n"
"B::foo(); // B\n"
"$b->foo(); // B\n"
"\n"
"$b->foo2(); // BB\n"
"$b->foo3(); // BB\n"
"\n"
"A::foo(); // A\n"
"$a->foo(); // A\n"
"\n"
"$a->foo2(); // BA\n"
);
MVCR("<?php "
"class X {"
" static function foo() { return false; }"
" static function bar() { return 5.5; }"
" static function baz() { return time(); }"
" }"
"var_dump(X::foo());"
"var_dump(X::bar());"
"var_dump(gettype(X::baz()));");
MVCR("<?php\n"
"class X {\n"
" static function foo() { echo \"X::foo\\n\"; }\n"
" function bar() { static::foo(); }\n"
"}\n"
"class Y extends X {\n"
" static function foo() { echo \"Y::foo\\n\"; }\n"
" function baz() { X::bar(); }\n"
"}\n"
"$y = new Y;\n"
"$y->baz();\n"
"Y::baz();\n");
MVCR("<?php\n"
"function f() { return true; }\n"
"if (f()) {\n"
" class A {\n"
" static $a = 'A';\n"
" static function f() { echo static::$a; }\n"
" function g() { $this->f(); }\n"
" }\n"
"} else {\n"
" class A { }\n"
"}\n"
"class B extends A { static $a = 'B'; }\n"
"$b = new B;\n"
"$b->g();\n");
// instanceof static and new static
MVCR("<?php\n"
"class A {\n"
" static function f() { return new static; }\n"
" static function g($o) { return $o instanceof static; }\n"
"}\n"
"class B extends A { }\n"
"var_dump(A::g(A::f()));\n"
"var_dump(A::g(B::f()));\n"
"var_dump(B::g(A::f()));\n"
"var_dump(B::g(B::f()));\n");
MVCR("<?php\n"
"class TestA {\n"
"protected static function doSomething() {\n"
"echo \"TestA::doSomething\\n\";\n"
"}\n"
"protected static function test() {\n"
"static::doSomething();\n"
"}\n"
"public static function nativeTest($obj) {\n"
"$obj->bar();\n"
"self::test();\n"
"}\n"
"}\n"
"class Foo {\n"
"public function bar() {}\n"
"}\n"
"$obj = new Foo();\n"
"TestA::nativeTest($obj);\n");
MVCR("<?php "
"class X {"
" public function foo($y) {"
" call_user_func(array($y, 'foo'));"
" $y::foo();"
" }"
"}"
"class Y {"
" public static function foo() {"
" var_dump(__METHOD__);"
" static::bar();"
" }"
" public static function bar() {"
" var_dump(__METHOD__);"
" }"
"}"
"$x = new X;"
"$x->foo('y');"
"$x->foo(new Y);");
MVCR("<?php "
"class S {"
" public static function t() {"
" echo func_get_arg(0);"
" }"
"}"
"class C {"
" public static function d() {"
" echo get_called_class();"
" S::t(get_called_class());"
" echo get_called_class();"
" }"
"}"
"C::d();");
MVCR("<?php\n"
"class A {\n"
" public static function foo() {\n"
" var_dump(get_called_class());\n"
" }\n"
" public static function bar() {\n"
" $x = new B;\n"
" $x->fiz(self::foo());\n"
" }\n"
" function fiz($x) {}\n"
"}\n"
"class B extends A {}\n"
"$array = array('foo');\n"
"array_map('B::foo', $array);\n"
"call_user_func('B::foo');\n"
"call_user_func(array('B', 'foo'));\n"
"A::bar();\n");
if (!hhvm) {
MVCR("<?php "
"class X {"
" function foo() { var_dump(__METHOD__, get_called_class()); }"
" static function bar($obj, $meth) {"
" call_user_func(array($obj, $meth));"
" }"
" function buz() { var_dump(get_called_class()); }"
" function baz($a) { forward_static_call($a); }"
"};"
"class Y extends X {"
" function foo() { var_dump(__METHOD__); }"
" static function boo($obj, $meth) {"
" call_user_func(array($obj, $meth));"
" }"
"}"
"class YY extends Y {}"
"class Z {}"
"call_user_func(array('YY', 'buz'));"
"call_user_func(array('YY', 'parent::buz'));"
"Y::boo('YY', 'parent::buz');"
"$obj = new Y;"
"X::bar($obj, 'static::foo');"
"Y::bar($obj, 'static::foo');"
"X::bar($obj, 'self::foo');"
"Y::bar($obj, 'self::foo');"
"X::bar($obj, 'parent::foo');"
"Y::bar($obj, 'parent::foo');"
"X::bar($obj, 'X::foo');"
"Y::bar($obj, 'X::foo');"
"$obj = new X;"
"Y::boo($obj, 'parent::foo');"
"$obj = 'Y';"
"X::bar($obj, 'static::foo');"
"Y::bar($obj, 'static::foo');"
"X::bar($obj, 'self::foo');"
"Y::bar($obj, 'self::foo');"
"X::bar($obj, 'parent::foo');"
"Y::bar($obj, 'parent::foo');"
"X::bar($obj, 'X::foo');"
"Y::bar($obj, 'X::foo');"
"$obj = 'X';"
"X::bar($obj, 'static::foo');"
"Y::bar($obj, 'static::foo');"
"X::bar($obj, 'self::foo');"
"Y::bar($obj, 'self::foo');"
"X::bar($obj, 'parent::foo');"
"Y::bar($obj, 'parent::foo');"
"X::bar($obj, 'X::foo');"
"Y::bar($obj, 'X::foo');"
"$obj = 'Z';"
"X::bar($obj, 'X::foo');"
"X::bar($obj, 'static::foo');"
"X::baz('X::buz');"
"Y::baz('X::buz');"
"X::baz(array('X', 'buz'));"
"Y::baz(array('X', 'buz'));");
}
MVCR("<?php\n"
"class X {\n"
" function bar() {\n"
" var_dump(get_called_class());\n"
" }\n"
"};\n"
"class Y extends X {\n"
" function foo() {\n"
" call_user_func(array('SELF', 'bar'));\n"
" call_user_func(array('PARENT', 'bar'));\n"
" call_user_func(array('STATIC', 'bar'));\n"
" call_user_func('SELF::bar');\n"
" call_user_func('PARENT::bar');\n"
" call_user_func('STATIC::bar');\n"
" }\n"
"}\n"
"Y::foo();");
MVCR("<?php "
"class X {"
" static function foo() {"
" var_dump(__METHOD__, get_called_class());"
" }"
" function bar() {"
" var_dump(__METHOD__, get_called_class());"
" }"
"}"
"class Y extends X {}"
"class Z extends X {"
" static function foo() {"
" var_dump(__METHOD__, get_called_class());"
" }"
"}"
"function test($x, $o) {"
" $x->getMethod('foo')->invoke($o);"
" $x->getMethod('foo')->invoke(null);"
" $x->getMethod('bar')->invoke($o);"
"}"
"test(new ReflectionClass('X'), new X);"
"test(new ReflectionClass('Y'), new X);"
// "test(new ReflectionClass('X'), new Y);"
// "test(new ReflectionClass('Y'), new Y);"
"test(new ReflectionClass('X'), new X);"
// "test(new ReflectionClass('X'), new Z);"
"test(new ReflectionClass('Z'), new Z);"
"call_user_func(array(new Y, 'X::foo'));"
"call_user_func(array(new Z, 'X::foo'));");
MVCR("<?php "
"class Y {"
" static function baz($a) { var_dump(get_called_class()); }"
"}"
"class X {"
" function foo() {"
" Y::baz(static::bar());"
" }"
" static function bar() {"
" var_dump(get_called_class());"
" }"
"}"
"$x = new X;"
"$x->foo();");
return true;
}
bool TestCodeRun::TestCallStatic() {
MVCRO("<?php\n"
"class c2 {\n"
" public static function __callStatic($func, $args) {\n"
" echo \"c2::__callStatic\n\";\n"
" }\n"
"}\n"
"class d2 extends c2 {\n"
" public function __call($func, $args) {\n"
" echo \"d2::__call\n\";\n"
" }\n"
" public function test1a() {\n"
" c2::foo();\n"
" }\n"
"}\n"
"$obj = new d2;\n"
"$obj->test1a();\n",
"d2::__call\n"
// "c2::__callStatic\n" <--- PHP 5.3 returns this
);
MVCRO("<?php\n"
"class b2 { }\n"
"class c2 extends b2 {\n"
" public static function __callStatic($func, $args) {\n"
" echo \"c2::__callStatic\n\"; }\n"
"}\n"
"class d2 extends c2 {\n"
" public function __call($func, $args) {\n"
" echo \"d2::__call\n\";\n"
" }\n"
" public function test1a() {\n"
" b2::foo();\n"
" }\n"
"}\n"
"set_error_handler('h');\n"
"function h() { var_dump('errored');}"
"$obj = new d2;\n"
"$obj->test1a();\n"
"var_dump('end');\n",
"d2::__call\n"
"string(3) \"end\"\n"
// "string(7) \"errored\"\n" <--- PHP 5.3 returns this
);
MVCRO("<?php\n"
"class b2 {}\n"
"class c2 extends b2 {\n"
" public function __call($func, $args) {\n"
" echo \"c2::__call\n\";\n"
" }\n"
" public function test1a() {\n"
" b2::foo();\n"
" }\n"
"}\n"
"set_error_handler('h');\n"
"function h() { var_dump('errored');}"
"$obj = new c2;\n"
"$obj->test1a();\n"
"var_dump('end');\n",
"c2::__call\n"
"string(3) \"end\"\n"
// "string(7) \"errored\"\n" <--- PHP 5.3 returns this
);
MVCR("<?php\n"
"class c3 {\n"
" public function __call($func, $args) {\n"
" echo \"c3::__call\n\";\n"
" }\n"
" public static function __callStatic($func, $args) {\n"
" echo \"c3::__callStatic\n\";\n"
" }\n"
" public function test1b() {\n"
" c3::foo(); // invokes c3::__callStatic\n"
" }\n"
"}\n"
"class d3 extends c3 {\n"
" public function test1b() {\n"
" c3::foo(); // invokes c3::__callStatic\n"
" }\n"
"}\n"
"\n"
"c3::test1b();\n"
"d3::test1b();\n");
MVCR("<?php\n"
"class a1 {\n"
" public function __call($func, $args) {\n"
" var_dump('a1::__call');\n"
" }\n"
" public function test() {\n"
" a1::foo();\n"
" }\n"
"}\n"
"$obj = new a1;\n"
"$obj->test();\n");
MVCRO("<?php\n"
"class a1 {\n"
" public function __call($func, $args) {\n"
" var_dump('a1::__call');\n"
" }\n"
"}\n"
"class b1 {\n"
" public function test() {\n"
" a1::foo();\n"
" }\n"
"}\n"
"set_error_handler('h'); function h() { var_dump('errored');}"
"$obj = new b1;\n"
"$obj->test();\n"
"var_dump('end');\n",
"string(7) \"errored\"\n"
);
MVCR("<?php\n"
"class a2 {\n"
" public function __call($func, $args) {\n"
" var_dump('a2::__call');\n"
" }\n"
" public function test() {\n"
" a2::foo();\n"
" }\n"
"}\n"
"class b2 extends a2 {\n"
" public function test() {\n"
" a2::foo();\n"
" b2::foo();\n"
" }\n"
"}\n"
"$obj = new a2;\n"
"$obj->test();\n"
"$obj = new b2;\n"
"$obj->test();\n");
MVCR("<?php\n"
"class a1 {\n"
" public function __call($func, $args) {\n"
" var_dump('a1::__call');\n"
" }\n"
" public static function __callStatic($func, $args) {\n"
" var_dump('a1::__callStatic');\n"
" }\n"
" public function test() {\n"
" a1::foo();\n"
" }\n"
"}\n"
"class b1 {\n"
" public function test() {\n"
" a1::foo();\n"
" }\n"
"}\n"
"$obj = new a1;\n"
"$obj->test();\n"
"$obj = new b1;\n"
"$obj->test();\n");
MVCR("<?php\n"
"class a2 {\n"
" public function __call($func, $args) {\n"
" var_dump('a2::__call');\n"
" }\n"
" public static function __callStatic($func, $args) {\n"
" var_dump('a2::__callStatic');\n"
" }\n"
" public function test() {\n"
" a2::foo();\n"
" }\n"
"}\n"
"class b2 extends a2 {\n"
" public function test() {\n"
" a2::foo();\n"
" b2::foo();\n"
" }\n"
"}\n"
"$obj = new a2;\n"
"$obj->test();\n"
"$obj = new b2;\n"
"$obj->test();\n");
MVCR("<?php\n"
"class a1 {\n"
" public static function __callStatic($func, $args) {\n"
" var_dump('a1::__callStatic');\n"
" }\n"
" public function test() {\n"
" a1::foo();\n"
" }\n"
"}\n"
"class b1 {\n"
" public function test() {\n"
" a1::foo();\n"
" }\n"
"}\n"
"$obj = new a1;\n"
"$obj->test();\n"
"$obj = new b1;\n"
"$obj->test();\n");
MVCR("<?php\n"
"class a2 {\n"
" public static function __callStatic($func, $args) {\n"
" var_dump('a2::__callStatic');\n"
" }\n"
" public function test() {\n"
" a2::foo();\n"
" }\n"
"}\n"
"class b2 extends a2 {\n"
" public function test() {\n"
" a2::foo();\n"
" b2::foo();\n"
" }\n"
"}\n"
"$obj = new a2;\n"
"$obj->test();\n"
"$obj = new b2;\n"
"$obj->test();\n");
MVCR("<?php\n"
"class MethodTest {\n"
" public function __call($name, $arguments) {\n"
" var_dump($name, implode(', ', $arguments));\n"
" }\n"
" public static function __callStatic($name, $arguments) {\n"
" var_dump($name, implode(', ', $arguments));\n"
" }\n"
"}\n"
"$obj = new MethodTest;\n"
"$obj->runTest('in object context');\n"
"MethodTest::runTest('in static context');\n");
MVCR("<?php\n"
"abstract class BaseClass {"
" public static function __callStatic($name, $arguments) {"
" echo \"Calling static method '$name' \""
" . implode(', ', $arguments). \"\\n\";"
" }"
"}"
"BaseClass::foo();");
MVCR("<?php\n"
"abstract class BaseClass {"
"}"
"class SubClass extends BaseClass {"
" public static function __callStatic($name, $arguments) {"
" echo \"Calling static method '$name' \""
" . implode(', ', $arguments). \"\\n\";"
" }"
"}"
"SubClass::foo();");
MVCR("<?php\n"
"abstract class BaseClass {"
" public static function __callStatic($name, $arguments) {"
" echo \"Calling static method '$name' \""
" . implode(', ', $arguments). \"\\n\";"
" }"
"}"
"class SubClass extends BaseClass {"
"}"
"SubClass::foo();");
MVCR("<?php\n"
"abstract class BaseClass {"
" public static function __callStatic($name, $arguments) {"
" echo \"Calling BaseClass static method '$name' \""
" . implode(', ', $arguments). \"\\n\";"
" }"
"}"
"class SubClass extends BaseClass {"
" public static function __callStatic($name, $arguments) {"
" echo \"Calling SubClass static method '$name' \""
" . implode(', ', $arguments). \"\\n\";"
" }"
"}"
"SubClass::foo();"
"BaseClass::foo();");
MVCRO("<?php\n"
"class Base {"
" public static function __callStatic($method, $args) {"
" $klass = get_called_class();"
" echo \"class $klass\\n\";"
" }"
"}"
""
"class Derived extends Base {"
"}"
""
"Base::foo();"
"Derived::foo();",
"class Base\n"
"class Derived\n");
return true;
}
bool TestCodeRun::TestNowDoc() {
MVCR("<?php\n"
"$b = 'bad';\n"
"$a = <<<'NOWDOC'\n"
"$b\n"
"NOWDOC;\n"
"var_dump($a);\n"
"$a = <<<\"NOWDOC\"\n"
"$b\n"
"NOWDOC;\n"
"var_dump($a);\n"
"$a = <<<NOWDOC\n"
"$b\n"
"NOWDOC;\n"
"var_dump($a);\n");
MVCR("<?php\n"
"$a = <<<NOWDOC\n"
"\"'\\t\n"
"NOWDOC;\n"
"var_dump($a);\n"
"$a = <<<'NOWDOC'\n"
"\"'\\t\n"
"NOWDOC;\n"
"var_dump($a);\n"
"$a = <<<\"NOWDOC\"\n"
"\"'\\t\n"
"NOWDOC;\n"
"var_dump($a);\n");
return true;
}
bool TestCodeRun::TestTernaryShortcut() {
MVCR("<?php\n"
"function foo() { var_dump('hello'); return 789;}\n"
"$a = 123 ?: 456;\n"
"var_dump($a);\n"
"$b[123] = 456;\n"
"var_dump(isset($b[123]) ?: false);\n"
"var_dump(foo()?:123);\n");
return true;
}
bool TestCodeRun::TestGoto() {
MVCR("<?php goto a; echo 'Foo'; a: echo 'Bar';");
MVCR("<?php function foo() { goto a; echo 'Foo'; a: echo 'Bar';} foo();");
MVCR("<?php function foo() { "
"goto a; b: echo 'Foo'; return;a: echo 'Bar'; goto b;} foo();");
MVCR("<?php for($i=0,$j=50; $i<100; $i++) { "
" while($j--) { if($j==17) goto end; }"
"} "
"echo 'no'; end: echo 'yes';");
MVCR("<?php goto a; if (false) { a: print 'here';} ");
MVCR("<?php my_lbl: print 'here';");
MVCR("<?php\n"
"function fcn() { return true; }\n"
"class X {\n"
" function f($x) {\n"
" goto over_switch;\n"
" switch ($this) {\n"
" case fcn(): echo 'fcn';\n"
" default: echo 'fun';\n"
" }\n"
" over_switch: var_dump($x);\n"
" }\n"
"}\n"
"$x = new X;\n"
"$x->f(42);\n");
MVCR("<?php "
"class MyException extends Exception {}"
"class MyOtherException extends Exception {}"
"function baz($x) {"
" var_dump('baz: ' . $x);"
" if (($x & 7) == 5) throw new Exception('regular');"
" if (($x & 7) == 6) throw new MyException('mine');"
" if (($x & 7) == 7) throw new MyOtherException('other');"
"}"
"function foo($t) {"
" $e = $m = $q = new Exception('none');"
" if ($t & 8) {"
" switch ($t & 3) {"
" case 0: goto l0;"
" case 1: goto l1;"
" case 2: goto l2;"
" case 3: goto l3;"
" }"
" }"
" try {"
" var_dump('begin try1');"
" l0: var_dump('l0');"
" try {"
" var_dump('begin try2');"
" l1: var_dump('l1');"
" baz($t);"
" var_dump('after baz');"
" } catch (MyOtherException $q) {"
" var_dump($q->getMessage());"
" }"
" var_dump('after try2');"
" } catch (Exception $e) {"
" l2: var_dump($e->getMessage());"
" } catch (MyException $m) {"
" l3: var_dump($m->getMessage());"
" }"
" var_dump('after try1');"
"}"
"for ($i = 0; $i < 16; $i++) foo($i);");
MVCR("<?php "
"function g($x) {"
" var_dump($x);"
" if ($x == 123) {"
" throw new Exception();"
" }"
"}"
"function f($x) {"
" if ($x == 1) {"
" goto mylabel1;"
" } else if ($x == 2) {"
" goto mylabel2;"
" } else if ($x == 3) {"
" goto mylabel3;"
" } else if ($x == 4) {"
" goto mylabel4;"
" }"
" try {"
" g($x);"
" echo \"Should not get here\\n\";"
" try {"
" try {"
" mylabel1:"
" g($x);"
" } catch (exception $e) {"
" echo \"1a\\n\";"
" }"
" try {"
" mylabel2:"
" g($x);"
" } catch (exception $e) {"
" echo \"1b\\n\";"
" }"
" } catch (exception $e) {"
" echo \"1\\n\";"
" }"
" try {"
" try {"
" mylabel3:"
" g($x);"
" } catch (exception $e) {"
" echo \"2a\\n\";"
" }"
" try {"
" mylabel4:"
" g($x);"
" } catch (exception $e) {"
" echo \"2b\\n\";"
" }"
" } catch (exception $e) {"
" echo \"2\\n\";"
" }"
" } catch (Exception $e) {"
" echo \"0\\n\";"
" }"
"}"
"f(1);"
"f(2);"
"f(3);"
"f(4);"
"f(123);");
return true;
}
bool TestCodeRun::TestClosure() {
MVCR("<?php $a = function ($v) { return $v > 2; }; echo $a(4).\"\n\";"
" echo call_user_func_array($a, array(4));");
MVCR("<?php $a = function ($a) { return $a;}; var_dump($a(123));");
MVCR("<?php $abc = 123; $a = function () use ($abc) { var_dump($abc);}; "
"$a();");
MVCR("<?php\n"
"function foo() {\n"
" $var = 123;\n"
" $ref = 456;\n"
" $abc = 789;\n"
" $a = function () use ($var, &$ref) {\n"
" var_dump($abc, $var, $ref);\n"
" $abc = $var = $ref = 333;\n"
" };\n"
" var_dump($a());\n"
" var_dump($abc, $var, $ref);\n"
"}\n"
"foo();\n");
MVCR("<?php\n"
"$x = false;\n"
"$f = function ($arg0) use (&$x) { $x = $arg0; };\n"
"$f(32);\n"
"var_dump($x);\n");
MVCR("<?php\n"
"function f() {\n"
" $test = false;\n"
" $f = function ($p) use (&$test) {\n"
" if ($p) $test = true;\n"
" };\n"
" $f(true);\n"
" var_dump($test);\n"
"}\n"
"f();\n");
MVCR("<?php\n"
"class Foo {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($abc) use ($abc) {\n"
" var_dump($abc);\n"
" };\n"
" return $a;\n"
" }\n"
"}\n"
"$a = Foo::bar();\n"
"$a(456);\n");
MVCR("<?php\n"
"class Foo {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($abc) use ($abc, $abc) {\n"
" var_dump($abc);\n"
" };\n"
" return $a;\n"
" }\n"
"}\n"
"$a = Foo::bar();\n"
"$a(456);\n");
MVCR("<?php\n"
"class Foo {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($abc) use (&$abc, &$abc) {\n"
" var_dump($abc);\n"
" };\n"
" return $a;\n"
" }\n"
"}\n"
"$a = Foo::bar();\n"
"$a(456);\n");
MVCR("<?php\n"
"class Foo {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($x) use ($abc) {\n"
" $n = func_num_args();\n"
" $args = func_get_args();\n"
" var_dump($n, $args);\n"
" };\n"
" return $a;\n"
" }\n"
"\n"
" function baz($obj) {\n"
" $abc = 456;\n"
" $obj(789);\n"
" }\n"
"}\n"
"$a = Foo::bar();\n"
"Foo::baz($a);\n");
MVCR("<?php\n"
"class Foo {\n"
" function bar() {\n"
" $a = function () { var_dump(__CLASS__, __FUNCTION__);};\n"
" $a();\n"
" }\n"
"}\n"
"Foo::bar();\n");
MVCR("<?php\n"
"function h() {\n"
" return array_filter(array(1, 2, 3),\n"
" function($e) { return !($e & 1); });\n"
"}\n"
"h();\n"
"var_dump(h());\n");
MVCR("<?php\n"
"$v=5;"
"call_user_func("
" function() use($v) "
" { echo $v; }"
");"
"$f = function() use($v) { echo $v; };"
"call_user_func($f);"
"call_user_func_array("
" function() use($v) "
" { echo $v; }, array()"
");"
"call_user_func($f, array());");
MVCR("<?php\n"
"$myfunc = function() {"
" echo \"hello, world!\\n\";"
"};"
"$myfunc();"
"call_user_func($myfunc);"
"call_user_func_array($myfunc, array());"
"$isc = is_callable($myfunc, false, &$p);"
"echo \"is_callable(\\$myfunc) = $isc\\n\";"
"var_dump($p);");
MVCR("<?php\n"
"function f() {"
"$someVar = 456;"
"$closure = function($param) use ($someVar) {"
"echo $param . ' ' . $someVar . \"\\n\";"
"};"
"return $closure;"
"}"
"$x = f();"
"$x(2);"
"call_user_func($x, 2);");
MVCR("<?php\n"
"$my_array = array(7, 1, 5, 6);\n"
"$some_value = 6;\n"
"usort($my_array,\n"
" function($a, $b) use ($some_value) {\n"
" if ($a === $some_value) {\n"
" if ($b === $some_value) {\n"
" return 0;\n"
" } else {\n"
" return -1;\n"
" }\n"
" } else if ($b === $some_value) {\n"
" return 1;\n"
" }\n"
" if ($a < $b) return -1;\n"
" if ($a <= $b) return 0;\n"
" return 1;\n"
" }\n"
");\n");
MVCR("<?php\n"
"function f() {"
" $someVar = 456;"
" $closure = function($param) use (&$someVar) {"
" echo $param . ' ' . $someVar . \"\\n\";"
" $param = 7;"
" $someVar = 11;"
" };"
" return $closure;"
"}"
"$x = f();"
"$x(2);"
"$x(2);");
MVCR("<?php\n"
"function f() {"
" $someVar = 456;"
" $closure = function($param) use ($someVar) {"
" echo $param . ' ' . $someVar . \"\\n\";"
" $param = 7;"
" $someVar = 11;"
" };"
" return $closure;"
"}"
"$x = f();"
"$x(2);"
"$x(2);");
MVCR("<?php "
"function test($x) {"
" $s_path = serialize($x);"
" $filter = function ($rel) use ($s_path) {"
" return $s_path;"
" };"
" var_dump($filter(0));"
"}"
"test('hello');"
"test(array(1,2,'foo'=>'bar'));");
MVCR("<?php "
"function test($a, $b) {"
" return array_map(function (array $x) use ($b) {"
" var_dump($x,$b);"
" }, $a);"
"}"
"test(array(array(1), array(2)), 5);");
MVCR("<?php\n"
"function f(&$u0) {\n"
" return function () use (&$u0, $u0) { $u0++; };\n"
"}\n"
"function g(&$u0) {\n"
" return function () use ($u0, &$u0) { $u0++; };\n"
"}\n"
"$x1 = 0;\n"
"$f = f($x1);\n"
"var_dump($x1);\n"
"$f();\n"
"var_dump($x1);\n"
"\n"
"$x2 = 0;\n"
"$g = g($x2);\n"
"var_dump($x2);\n"
"$g();\n"
"var_dump($x2);\n");
MVCR("<?php\n"
"function get() { return true; }\n"
"if (get()) {\n"
" function f($x) {\n"
" return function () use ($x) { return $x; };\n"
" }\n"
"} else {\n"
" function f($x) {\n"
" return function () use ($x) { return $x + 1; };\n"
" }\n"
"}\n"
"$f = f(32);\n"
"var_dump($f());\n");
MVCR("<?php\n"
"function mkC() {\n"
" return function () {\n"
" static $x = 0;\n"
" return $x++;\n"
" };\n"
"}\n"
"$c0 = mkC();\n"
"var_dump($c0());\n"
"var_dump($c0());\n"
"\n"
"$c1 = mkC();\n"
"var_dump($c1());\n"
"var_dump($c1());\n");
MVCRO("<?php\n"
"class A {"
" public function foo() {"
" $values = array(1, 2, 3);"
" $values = array_map(function($p) use ($this) {"
" return $this->goo($p);"
" }, $values);"
" var_dump($values);"
" }"
" public function bar() { return $this; }"
" public function goo($p) { return $p; }"
"}"
"$obj = new A;"
"var_dump($obj->bar());"
"$obj->foo();",
"object(A)#1 (0) {\n"
"}\n"
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
" [2]=>\n"
" int(3)\n"
"}\n");
return true;
}
bool TestCodeRun::TestNamespace() {
MVCR("<?php\n"
"namespace my\\name;\n"
"class MyClass {}\n"
"function myfunction() {}\n"
"const MYCONST = 123;\n"
"\n"
"$a = new MyClass; var_dump(get_class($a));\n"
"$c = new \\my\\name\\MyClass; var_dump(get_class($a));\n"
"$a = strlen('hi'); var_dump($a);\n"
"$d = namespace\\MYCONST; var_dump($d);\n"
"$d = __NAMESPACE__ . '\\MYCONST'; var_dump(constant($d));\n"
"var_dump(defined('MYCONST'));\n");
MVCR("<?php\n"
"namespace foo\\baz {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace bar\\baz {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace {\n"
" use foo\\baz as baz;\n"
" baz\\foo();\n"
"}\n");
MVCR("<?php\n"
"namespace foo\\baz {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace bar\\baz {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace bar {\n"
" use foo\\baz as baz;\n"
" baz\\foo();\n"
"}\n");
MVCR("<?php\n"
" namespace foo\\baz {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace bar\\baz {\n"
" function foo() { var_dump(__NAMESPACE__);}}\n"
"namespace bar {\n"
" baz\\foo();\n"
"}\n");
MVCR("<?php\n"
"namespace {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
"}\n"
"namespace B {\n"
" foo();\n"
"}\n");
MVCR("<?php\n"
"namespace {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" foo();\n"
"}\n");
MVCR("<?php\n"
"namespace {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" \\B\\foo();\n"
"}\n");
MVCR("<?php\n"
"namespace {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" \\foo();\n"
"}\n");
MVCR("<?php\n"
"namespace {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" $a = 'foo';\n"
" $a();\n"
"}\n");
MVCR("<?php\n"
"namespace {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" function foo() { var_dump(__NAMESPACE__);}\n"
"}\n"
"namespace B {\n"
" call_user_func('foo');\n"
"}\n");
MVCR("<?php "
"namespace {"
" function fiz() { var_dump(__METHOD__); }"
" const FIZ = 25;"
" const FUZ = 1;"
"}"
"namespace foo {"
" class bar {"
" public function test() { echo __CLASS__ . PHP_EOL; }"
" }"
" const FUZ = 2;"
" class baz extends bar {"
" public function fiz() {"
" self::test();"
" parent::test();"
" static::test();"
" bar::test();"
" }"
" }"
" $x = new baz();"
" $x->fiz();"
" var_dump(true);"
" var_dump(false);"
" var_dump(null);"
" var_dump(INF);"
" var_dump(FIZ);"
" var_dump(FUZ);"
" var_dump(\\FUZ);"
"}");
MVCR("<?php\n"
"namespace A\\B;\n"
"class Foo {\n"
" static $baz = 32;\n"
" function __construct(array $a) {\n"
" var_dump($a);\n"
" }\n"
" function callUnknownClassMethod($method) {\n"
" return SomeUnknownClass::$method();\n"
" }\n"
" function unsetStaticProperty() {\n"
" unset(Foo::$baz);\n"
" }\n"
"}\n"
"if (rand(0, 1)) {\n"
" class B {\n"
" static $baz = 'baz';\n"
" const FOO = 30;\n"
" function f() {\n"
" return Foo::NoSuchConstant;\n"
" }\n"
" }\n"
"} else {\n"
" class B {\n"
" static $baz = 'baz';\n"
" const FOO = 30;\n"
" function f() {\n"
" return Foo::NoSuchConstant;\n"
" }\n"
" }\n"
"}\n"
"$f = new Foo(array(0));\n"
"var_dump(Foo::$baz);\n"
"var_dump(B::FOO);\n"
"var_dump(B::$baz);\n");
return true;
}
bool TestCodeRun::TestYield() {
HipHopSyntax w(this);
MVCRO("<?php function fruit() { yield 'apple'; yield 'banana';} "
"foreach (fruit() as $fruit) { var_dump($fruit);} ",
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
);
MVCRO("<?php class F { function fruit() { yield 'apple'; yield 'banana';} }"
"foreach (F::fruit() as $fruit) { var_dump($fruit);} ",
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
);
MVCRO("<?php class F { function fruit() { yield 'apple'; yield 'banana';} }"
"$f = new F; foreach ($f->fruit() as $fruit) { var_dump($fruit);} ",
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
);
MVCRO("<?php function fruit() { $a = 123; yield $a; yield ++$a;} "
"foreach (fruit() as $fruit) { var_dump($fruit);} ",
"int(123)\n"
"int(124)\n"
);
MVCRO("<?php function fruit() { echo \"sadpanda, no fruit\"; yield break; } "
"foreach (fruit() as $fruit) { var_dump($fruit);} ",
"sadpanda, no fruit"
);
MVCRO("<?php function fruit() { $a = 123; yield $a;yield break;yield ++$a;} "
"foreach (fruit() as $fruit) { var_dump($fruit);} ",
"int(123)\n"
);
MVCRO("<?php function nums() { for ($i = 0; $i < 3; $i++) yield $i;} "
"foreach (nums() as $num) { var_dump($num);} ",
"int(0)\n"
"int(1)\n"
"int(2)\n"
);
MVCRO("<?php function nums() { $i = 0; while ($i < 3) yield $i++;} "
"foreach (nums() as $num) { var_dump($num);} ",
"int(0)\n"
"int(1)\n"
"int(2)\n"
);
MVCRO("<?php function nums() { $i = 0; do yield $i++; while ($i < 3);} "
"foreach (nums() as $num) { var_dump($num);} ",
"int(0)\n"
"int(1)\n"
"int(2)\n"
);
MVCRO("<?php function nums() { $i = 0; foo: switch ($i) { "
"case 0: yield $i; $i = 1; case 999: yield $i; break; $i = -1; "
"case 1: $i = 2; yield $i; yield break;} goto foo;} "
"foreach (nums() as $num) { var_dump($num);} ",
"int(0)\n"
"int(1)\n"
"int(2)\n"
);
MVCRO("<?php\n"
"function f() { yield func_num_args(); yield func_get_arg(1); }\n"
"foreach (f(1, 2, 3) as $v) { var_dump($v); }\n",
"int(3)\n"
"int(2)\n"
);
MVCRO("<?php\n"
"function f($a1, &$a2) {\n"
" foreach ($a1 as $k1 => $v1) {\n"
" foreach ($a2 as $k2 => &$v2) {\n"
" $v2 += $v1; yield $v2;\n"
" }\n"
" }\n"
"}\n"
"$a1 = array(1, 2);\n"
"$a2 = array(1, 2);\n"
"foreach (f($a1, $a2) as $v) { var_dump($v); }\n"
"var_dump($a2[0], $a2[1]);\n",
"int(2)\n"
"int(3)\n"
"int(4)\n"
"int(5)\n"
"int(4)\n"
"int(5)\n");
// yield within anonymous function
MVCRO("<?php\n"
"$a = function() { yield 1; yield 2; };\n"
"foreach ($a() as $v) { var_dump($v); }\n",
"int(1)\n"
"int(2)\n");
MVCRO("<?php\n"
"function f() {\n"
" $a = function() { yield 1; yield 2; };\n"
" return $a;\n"
"}\n"
"$f = f();\n"
"foreach ($f() as $v) { var_dump($v); }\n",
"int(1)\n"
"int(2)\n");
MVCRO("<?php\n"
"class A {\n"
" function f() {\n"
" $a = function() { yield 1; yield 2; };\n"
" return $a;\n"
" }\n"
"}\n"
"$a = new A;\n"
"$f = $a->f();\n"
"foreach ($f() as $v) { var_dump($v); }\n",
"int(1)\n"
"int(2)\n");
// Continuatin::send()
MVCRO("<?php\n"
"function f() {\n"
" $a = yield 1; list($a, $b) = yield $a; yield $b;\n"
"}\n"
"$c = f();\n"
"$c->next();\n"
"var_dump($c->current());\n"
"$c->send(2);\n"
"var_dump($c->current());\n"
"$c->send(array(3, 4));\n"
"var_dump($c->current());\n",
"int(1)\n"
"int(2)\n"
"int(4)\n");
MVCRO("<?php\n"
"class A {"
" public function foo() {"
" $this->bar(function() {yield 1; yield 2; yield 3;});"
" }"
" public function bar(Closure $c) {"
" $a = $c();"
" foreach ($a as $b) {"
" echo $b.\"\\n\";"
" }"
" }"
"}"
"$a = new A();"
"$a->foo();",
"1\n"
"2\n"
"3\n");
MVCRO("<?php "
"function foo($t) {"
" $x = function() use ($t) {"
" var_dump($t);"
" yield 1;"
" };"
" foreach ($x() as $y) {"
" var_dump($y);"
" }"
"}"
"foo(42);",
"int(42)\n"
"int(1)\n");
MVCRO("<?php\n"
"function f($x) {\n"
" switch ($x++ + ++$x) {\n"
" case 1:\n"
" yield 1;\n"
" case 2:\n"
" yield 2;\n"
" case 3:\n"
" yield 3;\n"
" case 4:\n"
" yield 4;\n"
" }\n"
"}\n"
"foreach (f(0) as $x) { var_dump($x); }\n"
"foreach (f(1) as $x) { var_dump($x); }\n",
"int(2)\n"
"int(3)\n"
"int(4)\n"
"int(4)\n");
MVCRO("<?php "
"function f($x) { return $x; }"
"function foo($a) {"
" yield 1;"
" foreach ((array)f($a) as $x) {"
" var_dump('i:'.$x);"
" }"
"}"
"foreach (foo(array(1)) as $x) {"
" var_dump('o:'.$x);"
"}",
"string(3) \"o:1\"\n"
"string(3) \"i:1\"\n");
// closure generator w/ use var by ref
MVCRO("<?php\n"
"$env = 3;\n"
"$f = function ($arg0) use (&$env) {\n"
" yield $arg0;\n"
" yield $arg0 + ($env++);\n"
" yield $arg0 + ($env++) + 1;\n"
"};\n"
"foreach ($f(32) as $x) { var_dump($x); }\n"
"var_dump($env);\n",
"int(32)\n"
"int(35)\n"
"int(37)\n"
"int(5)\n");
// closure generator w/ arg by ref
MVCRO("<?php\n"
"$env = 3;\n"
"$f = function (&$arg0) use ($env) {\n"
" yield $arg0++ + $env;\n"
" yield $arg0++ + $env;\n"
"};\n"
"foreach ($f($env) as $x) {\n"
" var_dump($x);\n"
"}\n"
"var_dump($env);\n",
"int(6)\n"
"int(7)\n"
"int(5)\n");
MVCRO("<?php\n"
"class X {\n"
" public function doIt() {\n"
" throw new Exception('foobar');\n"
" }\n"
"}\n"
"function f($obj) {\n"
" $res = null;\n"
" try {\n"
" $res = $obj->doIt();\n"
" } catch (Exception $e) {\n"
" $res = $e->getMessage();\n"
" }\n"
" yield $res;\n"
"}\n"
"$x = new X;\n"
"foreach (f($x) as $i) { var_dump($i); }\n",
"string(6) \"foobar\"\n");
MVCRO("<?php\n"
"function f($x, $y) {\n"
" yield $x; \n"
" yield $$y;\n"
"}\n"
"foreach (f(10, 'x') as $x) { var_dump($x); }\n"
"function g() {\n"
" extract(func_get_args(), EXTR_PREFIX_ALL, 'foo');\n"
" yield $foo_0;\n"
" yield $foo_1;\n"
"}\n"
"foreach (g('hello', 'world') as $x) { var_dump($x); }\n"
"function h($x, $y) {\n"
" $z = 16;\n"
" $arr = compact('x', 'y', 'z');\n"
" yield $arr['z'];\n"
" yield $arr['x'];\n"
" yield $arr['y'];\n"
"}\n"
"foreach (h(32, 64) as $x) { var_dump($x); }\n"
"function i($x, $y) {\n"
" $arr = compact($x);\n"
" yield $arr[$x];\n"
"}\n"
"foreach (i('y', 32) as $x) { var_dump($x); }\n",
"int(10)\n"
"int(10)\n"
"string(5) \"hello\"\n"
"string(5) \"world\"\n"
"int(16)\n"
"int(32)\n"
"int(64)\n"
"int(32)\n");
MVCRO("<?php\n"
"// redec class gen\n"
"function get() { return true; }\n"
"if (get()) {\n"
" class X { \n"
" public function yielder() { yield 'first'; }\n"
" }\n"
"} else {\n"
" class X { \n"
" public function yielder() { yield 'second'; }\n"
" }\n"
"}\n"
"$x = new X;\n"
"foreach ($x->yielder() as $foo) { var_dump($foo); }\n"
"\n"
"// derive from redec gen\n"
"class Foo {\n"
" public function fooMsg() { return 'foo'; }\n"
" public function fooGen() { yield $this->fooMsg(); }\n"
"}\n"
"if (get()) {\n"
" class Bar extends Foo {\n"
" public function fooMsg() { return 'bar'; }\n"
" public function barMsg() { return 'bar'; }\n"
" public function barGen() { yield $this->barMsg(); }\n"
" }\n"
"} else {\n"
" class Bar extends Foo {}\n"
"}\n"
"$f = new Foo;\n"
"foreach ($f->fooGen() as $foo) { var_dump($foo); }\n"
"$b = new Bar;\n"
"foreach ($b->fooGen() as $foo) { var_dump($foo); }\n"
"foreach ($b->barGen() as $foo) { var_dump($foo); }\n"
"\n"
"// conditional derive from redec gen\n"
"function get0() { return false; }\n"
"function f($x) {\n"
" if ($x) {\n"
" if (get0()) {\n"
" class X1 {\n"
" public function msg() { return 'first, first'; }\n"
" public function gen() { yield $this->msg(); }\n"
" } \n"
" } else {\n"
" class X1 {\n"
" public function msg() { return 'first, second'; }\n"
" public function gen() { yield $this->msg(); }\n"
" } \n"
" } \n"
" } else {\n"
" if (get()) {\n"
" class Y extends X1 {\n"
" public function msg() { return 'second, first'; }\n"
" public function gen() { yield $this->msg(); }\n"
" } \n"
" } else {\n"
" class Y extends X1 {\n"
" public function msg() { return 'second, second'; }\n"
" public function gen() { yield $this->msg(); }\n"
" } \n"
" } \n"
" }\n"
" $x = $x ? new X1 : new Y;\n"
" foreach ($x->gen() as $foo) { var_dump($foo); }\n"
"}\n"
"f(true);\n"
"f(false);\n",
"string(5) \"first\"\n"
"string(3) \"foo\"\n"
"string(3) \"bar\"\n"
"string(3) \"bar\"\n"
"string(13) \"first, second\"\n"
"string(13) \"second, first\"\n");
MVCRO("<?php\n"
"function get() { return true; }\n"
"if (get()) {\n"
" function gen($i) {\n"
" yield $i;\n"
" yield $i + 1;\n"
" }\n"
"} else {\n"
" function gen($i) {\n"
" yield $i + 1;\n"
" yield $i + 2;\n"
" }\n"
"}\n"
"foreach (gen(3) as $x) { var_dump($x); }\n",
"int(3)\n"
"int(4)\n");
MVCRO("<?php\n"
"class X {\n"
" function foo($t) {\n"
" $$t = 5;\n"
" yield $this;\n"
" }\n"
"}\n"
"$x = new X;\n"
"foreach ($x->foo('this') as $v) { var_dump($v); }\n",
"int(5)\n");
// Test passing null to hphp_get_iterator()
MVCRO("<?php \n"
"function f() {\n"
" $var = hphp_get_iterator(null);\n"
" var_dump(is_null($var));\n"
" var_dump(is_object($var));\n"
" var_dump(get_class($var));\n"
"}\n"
"f();\n",
"bool(false)\n"
"bool(true)\n"
"string(13) \"ArrayIterator\"\n"
);
MVCRO("<?php "
"function foo($x = null) {"
" if ($x) $x = 'foo';"
" var_dump($x);"
" yield 1;"
" }"
"foreach(foo() as $x) {}",
"NULL\n" );
MVCRO("<?php "
"function bar($x) { return $x ? $x + 1 : false; }"
"function foo($a) {"
" $x = bar($a);"
" switch ($x) {"
" case 'hello': echo 1; break;"
" case bar(3): echo 2; break;"
" }"
" yield $x;"
"}"
"foreach(foo(3) as $x) { var_dump($x); }",
"2int(4)\n");
MVCRO("<?php\n"
"$x = 32;\n"
"$SOME_VAR = 'foo';\n"
"function f($a0, $a1, $a2, $a3) {\n"
" var_dump($a0['SOME_VAR'], $a1, $a2, $a3);\n"
"}\n"
"function g($a0, $a1, $a2, $a3) {\n"
" var_dump($a0['SOME_VAR'], $a1, $a2, $a3);\n"
"}\n"
"function h($fcn) {\n"
" global $x;\n"
" $fcn($GLOBALS, $_POST, $x, $x++);\n"
" yield 64;\n"
"}\n"
"foreach (h(rand(0, 1) ? 'f' : 'g') as $v) {\n"
" var_dump($v);\n"
"}\n",
"string(3) \"foo\"\n"
"array(0) {\n"
"}\n"
"int(32)\n"
"int(32)\n"
"int(64)\n");
// globals and statics
MVCRO("<?php\n"
"$x = 0;\n"
"function f() {\n"
" global $x;\n"
" static $y = 0;\n"
" yield $x++;\n"
" yield $y++;\n"
"}\n"
"for ($i = 0; $i < 5; $i++) {\n"
" foreach (f() as $value) {\n"
" var_dump($value);\n"
" }\n"
"}\n"
"var_dump($x);\n",
"int(0)\n"
"int(0)\n"
"int(1)\n"
"int(1)\n"
"int(2)\n"
"int(2)\n"
"int(3)\n"
"int(3)\n"
"int(4)\n"
"int(4)\n"
"int(5)\n");
MVCRO("<?php "
"class A {"
" public static function sgen() {"
" $class = get_called_class();"
" yield $class;"
" }"
" public static function sfoo() {"
" return self::gen();"
" }"
" public function gen() {"
" $class = get_called_class();"
" yield $class;"
" }"
" public function foo() {"
" return self::gen();"
" }"
"}"
"class B extends A {}"
"function t($x) { foreach ($x as $v) { var_dump($v); } }"
"t(B::sgen());"
"t(B::sfoo());"
"t(A::sgen());"
"t(A::sfoo());"
"t(B::gen());"
"t(B::foo());"
"t(A::gen());"
"t(A::foo());"
"$b = new B;"
"t($b->gen());"
"t($b->foo());"
"$a = new A;"
"t($a->gen());"
"t($a->foo());"
,
"string(1) \"B\"\n"
"string(1) \"B\"\n"
"string(1) \"A\"\n"
"string(1) \"A\"\n"
"string(1) \"B\"\n"
"string(1) \"B\"\n"
"string(1) \"A\"\n"
"string(1) \"A\"\n"
"string(1) \"B\"\n"
"string(1) \"B\"\n"
"string(1) \"A\"\n"
"string(1) \"A\"\n");
// getting the original function
MVCRO("<?php\n"
"function f($x) {\n"
" yield $x;\n"
"}\n"
"$c = f(32);\n"
"var_dump($c->getOrigFuncName());\n"
"class X {\n"
" function f($x) { yield $x; }\n"
" static function g($x) { yield get_called_class(); }\n"
"}\n"
"class Y extends X {}\n"
"$x = new X;\n"
"$c = $x->f(32);\n"
"var_dump($c->getOrigFuncName());\n"
"$c = X::g(32);\n"
"var_dump($c->getOrigFuncName());\n"
"$c = Y::g(32);\n"
"var_dump($c->getOrigFuncName());\n"
"$fcn = function ($x) { yield $x; };\n"
"$c = $fcn(32);\n"
"var_dump($c->getOrigFuncName());\n",
"string(1) \"f\"\n"
"string(4) \"X::f\"\n"
"string(4) \"X::g\"\n"
"string(4) \"Y::g\"\n"
"string(9) \"{closure}\"\n");
MVCRO("<?php "
"function gen() {"
" yield 1;"
" yield 2;"
" try {"
" $a = yield 3;"
" } catch (Exception $e) {"
" var_dump($e->getMessage());"
" yield 4;"
" }"
" yield 5;"
"}"
"foreach (gen() as $x) { var_dump($x); }"
"$g = gen();"
"$g->next();"
"var_dump($g->current());"
"$g->next();"
"var_dump($g->current());"
"$g->next();"
"var_dump($g->current());"
"$g->raise(new Exception('foobar'));"
"var_dump($g->current());"
"$g->next();"
"var_dump($g->current());"
,
"int(1)\n"
"int(2)\n"
"int(3)\n"
"int(5)\n"
"int(1)\n"
"int(2)\n"
"int(3)\n"
"string(6) \"foobar\"\n"
"int(4)\n"
"int(5)\n");
MVCRO("<?php "
"class YieldedException extends Exception {}"
"class ReflectedException extends Exception {}"
"function throwYieldedException() {"
" throw new YieldedException();"
"}"
"function gen() {"
" try {"
" $a = yield throwYieldedException();"
" echo 'Gen got '.$a;"
" } catch (YieldedException $e) {"
" var_dump('Got yieldedException, re-raising.');"
" throw $e;"
" } catch (ReflectedException $e) {"
" var_dump('Got Reflected Exception');"
" }"
"}"
"try {"
" $g = gen();"
" $g->next();"
"} catch(YieldedException $e) {"
" try {"
" $g->raise(new ReflectedException());"
" } catch (Exception $e) {"
" var_dump($e->getMessage());"
" }"
"}"
,
"string(33) \"Got yieldedException, re-raising.\"\n"
"string(32) \"Continuation is already finished\"\n");
MVCRO("<?php\n"
"function makeClosureCont() {\n"
" return function () {\n"
" static $x = 0;\n"
" yield $x++;\n"
" yield $x++;\n"
" };\n"
"}\n"
"function gen() {\n"
" static $x = 0;\n"
" yield $x++;\n"
" yield $x++;\n"
"}\n"
"$cc = makeClosureCont();\n"
"foreach ($cc() as $v) { var_dump($v); }\n"
"$cc1 = makeClosureCont();\n"
"foreach ($cc1() as $v) { var_dump($v); }\n"
"foreach (gen() as $v) { var_dump($v); }\n"
"foreach (gen() as $v) { var_dump($v); }\n",
"int(0)\n"
"int(1)\n"
"int(0)\n"
"int(1)\n"
"int(0)\n"
"int(1)\n"
"int(2)\n"
"int(3)\n");
MVCRO("<?php "
"class X {"
" public static function gen() {"
" static $x;"
" yield ++$x;"
" yield 2;"
" yield ++$x;"
" }"
"}"
"class Y extends X {}"
"$g = X::gen();"
"foreach ($g as $i) var_dump($i);"
,
"int(1)\n"
"int(2)\n"
"int(2)\n");
MVCRO("<?php "
"trait DY {"
" private $drc = array();"
""
" public function dty($key) {"
" $this->drc[$key] = true;"
" yield (true);"
" }"
" public function edd($key) {"
" if (array_key_exists($key, $this->drc)) {"
" var_dump(true);"
" } "
" }"
"}"
"class C { use DY; }"
"class D extends C { }"
"$obj = new D;"
"foreach($obj->dty('foo') as $var) {"
" var_dump($var);"
"}"
"$obj->edd('foo');",
"bool(true)\n"
"bool(true)\n");
MVCRO("<?php\n"
"trait T {"
" abstract protected function gpc();"
" public function gen() {"
" yield $this->gpc();"
" }"
"}"
"class C1 {"
" use T;"
" protected function gpc() {"
" return 1;"
" }"
"}"
"class C2 {"
" use T;"
" protected function gpc() {"
" return 2;"
" }"
"}"
"$obj1 = new C1();"
"$obj2 = new C2();"
"$c1 = $obj1->gen();"
"$c2 = $obj2->gen();"
"$c1->next();"
"var_dump($c1->current());"
"$c2->next();"
"var_dump($c2->current());",
"int(1)\n"
"int(2)\n");
MVCRO("<?php "
"function foo($results) {"
" yield 0;"
" foreach ($results as &$result) {"
" $result->foo = 1;"
" }"
" var_dump($results);"
" yield 1;"
"}"
"function bar() {"
" foreach (foo(array()) as $r) {"
" var_dump($r);"
" }"
"}"
"bar();",
"int(0)\n"
"array(0) {\n"
"}\n"
"int(1)\n");
MVCRO("<?php"
"class X {"
" private $a = array(1,2,3);"
" function foo() { yield $this->a; }"
"}"
"if (isset($g)) {"
" class Y {}"
"} else {"
" class Y extends X {}"
"}"
"class Z extends Y {}"
"function test() {"
" $z = new Z;"
" foreach ($z->foo() as $v) {"
" var_dump($v);"
" }"
"}"
"test();",
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
" [2]=>\n"
" int(3)\n"
"}\n");
// Testing destructor/assignment corner cases
MVCRO("<?php\n"
"\n"
"class Evil {\n"
" public function __destruct() {\n"
" echo \"in __destruct()\\n\";\n"
" try {\n"
" dumpCurrent();\n"
" } catch (Exception $e) {\n"
" printf(\"Caught: %s\\n\", $e->getMessage());\n"
" }\n"
" }\n"
"}\n"
"function dumpCurrent() {\n"
" var_dump($GLOBALS['cont']->current());\n"
" if (isset($GLOBALS['gonext'])) {\n"
" $GLOBALS['cont']->next();\n"
" }\n"
"}\n"
"function gen() {\n"
" yield new Evil;\n"
" yield null;\n"
" yield null;\n"
" yield null;\n"
"}\n"
"function main() {\n"
" $GLOBALS['cont'] = $c = gen();\n"
" $c->next();\n"
"\n"
" $c->send(new Evil);\n"
" $GLOBALS['gonext'] = true;\n"
" $c->next();\n"
" $c->send(new Evil);\n"
" $c->send(null);\n"
" echo \"Finished!\\n\";\n"
"}\n"
"main();\n"
"echo \"Returned from main safely\\n\";\n"
,
"in __destruct()\n"
"NULL\n"
"in __destruct()\n"
"NULL\n"
"Caught: Continuation is already running\n"
"in __destruct()\n"
"NULL\n"
"Caught: Continuation is already running\n"
"Finished!\n"
"Returned from main safely\n");
MVCRO("<?php\n"
"class Foo implements Iterator {\n"
" private $data = array(1, 2, 3);\n"
"\n"
" public function current() {\n"
" return current($this->data);\n"
" }\n"
" public function key() {\n"
" return key($this->data);\n"
" }\n"
" public function next() {\n"
" next($this->data);\n"
" }\n"
" public function rewind() {\n"
" echo \"hagfish\\n\";\n"
" reset($this->data);\n"
" }\n"
" public function valid() {\n"
" return current($this->data);\n"
" }\n"
"}\n"
"\n"
"function run_test() {\n"
" $f = new Foo();\n"
"\n"
" foreach ($f as $value) {\n"
" echo $value . \"\\n\";\n"
" }\n"
"\n"
" yield 1230;\n"
"\n"
" foreach($f as $value) {\n"
" echo $value . \"\\n\";\n"
" }\n"
"}\n"
"\n"
"foreach (run_test() as $_) {}\n",
"hagfish\n1\n2\n3\nhagfish\n1\n2\n3\n");
MVCRO("<?php\n"
"function gen(int $mode) {\n"
" yield $mode;\n"
" switch ($mode) {\n"
" case 0: break;\n"
" case 1: yield break;\n"
" case 2: throw new Exception();\n"
" }\n"
" yield 47;\n"
"}\n"
"\n"
"for ($mode = 0; $mode < 3; ++$mode) {\n"
" echo \"Testing mode $mode:\\n\";\n"
" $gen = gen($mode);\n"
" try {\n"
" $gen->next();\n"
" while ($gen->valid()) {\n"
" var_dump($gen->current());\n"
" $gen->next();\n"
" }\n"
" } catch (Exception $ex) {\n"
" echo \"EXCEPTION\\n\";\n"
" }\n"
" var_dump($gen->valid());\n"
" var_dump($gen->current());\n"
"}\n",
"Testing mode 0:\n"
"int(0)\n"
"int(47)\n"
"bool(false)\n"
"NULL\n"
"Testing mode 1:\n"
"int(1)\n"
"bool(false)\n"
"NULL\n"
"Testing mode 2:\n"
"int(2)\n"
"EXCEPTION\n"
"bool(false)\n"
"NULL\n");
return true;
}
bool TestCodeRun::TestHint() {
MVCR("<?php "
"class bool{}"
"class boolean{}"
"class int{}"
"class integer{}"
"class double{}"
"class float{}"
"class real{}"
"class string {}"
"function foo(bool $b1, boolean $b2,"
" int $i1, integer $i2,"
" double $d1, float $d2, real $d3,"
" string $s) {"
" var_dump(func_get_args());"
"}"
"foo(new bool, new boolean,"
" new int, new integer,"
" new double, new float, new real,"
" new string);");
HipHopSyntax w(this);
MVCRO("<?php\n"
"function f1(int $i = 1) { var_dump($i); }\n"
"function f2(double $d = 5.5) { var_dump($d); }\n"
"function f3(bool $b = true) { var_dump($b); }\n"
"function f4(string $s = 'hello') { var_dump($s); }\n"
"f1(); f2(); f3(); f4();\n",
"int(1)\n"
"float(5.5)\n"
"bool(true)\n"
"string(5) \"hello\"\n");
MVCRO("<?php "
"g(DATE_COOKIE);"
"f(count(array()));"
"function f(int $i) {"
" var_dump($i);"
"}"
"function g(string $s) {"
" var_dump($s);"
"}",
"string(16) \"l, d-M-y H:i:s T\"\n"
"int(0)\n");
MVCRO("<?php\n"
"class Foo {"
" const BAR = 1;"
"}"
"function test(int $a = -Foo::BAR) {"
"return $a;"
"}"
"var_dump(test());"
"var_dump(test(2));",
"int(-1)\n"
"int(2)\n");
MVCRO("<?php\n"
"class C{}\n"
"function f1(string $x = null) {"
"$y = (string) $x; var_dump($y); return $y; }\n"
"function f2(array $x = null) {"
"$y = (array) $x; var_dump($y); return $y; }\n"
"function f3(C $x = null) {"
"$y = (object) $x; var_dump($y); return $y; }\n"
"function f4(int $x = null) {"
"$y = (int) $x; var_dump($y); return $y; }\n"
"function f5(bool $x = null) {"
"$y = (bool) $x; var_dump($y); return $y; }\n"
"function f6(double $x = null) {"
"$y = (double) $x; var_dump($y); return $y; }\n"
"var_dump(f1()); var_dump(f2()); var_dump(f3()); \n"
"var_dump(f4()); var_dump(f5()); var_dump(f6());\n"
"var_dump(f1(null)); var_dump(f2(null)); var_dump(f3(null));\n"
"var_dump(f4(null)); var_dump(f5(null)); var_dump(f6(null));\n"
"function rf1($x) { if ($x) return 'f1'; return 0; }\n"
"function rf2($x) { if ($x) return 'f2'; return 0; }\n"
"function rf3($x) { if ($x) return 'f3'; return 0; }\n"
"function rf4($x) { if ($x) return 'f4'; return 0; }\n"
"function rf5($x) { if ($x) return 'f5'; return 0; }\n"
"function rf6($x) { if ($x) return 'f6'; return 0; }\n"
"var_dump(call_user_func(rf1(true)));\n"
"var_dump(call_user_func(rf2(true)));\n"
"var_dump(call_user_func(rf3(true)));\n"
"var_dump(call_user_func(rf4(true)));\n"
"var_dump(call_user_func(rf5(true)));\n"
"var_dump(call_user_func(rf6(true)));\n"
"var_dump(call_user_func(rf1(true), null));\n"
"var_dump(call_user_func(rf2(true), null));\n"
"var_dump(call_user_func(rf3(true), null));\n"
"var_dump(call_user_func(rf4(true), null));\n"
"var_dump(call_user_func(rf5(true), null));\n"
"var_dump(call_user_func(rf6(true), null));\n"
"var_dump(call_user_func_array(rf1(true), array()));\n"
"var_dump(call_user_func_array(rf2(true), array()));\n"
"var_dump(call_user_func_array(rf3(true), array()));\n"
"var_dump(call_user_func_array(rf4(true), array()));\n"
"var_dump(call_user_func_array(rf5(true), array()));\n"
"var_dump(call_user_func_array(rf6(true), array()));\n"
"var_dump(call_user_func_array(rf1(true), array(null)));\n"
"var_dump(call_user_func_array(rf2(true), array(null)));\n"
"var_dump(call_user_func_array(rf3(true), array(null)));\n"
"var_dump(call_user_func_array(rf4(true), array(null)));\n"
"var_dump(call_user_func_array(rf5(true), array(null)));\n"
"var_dump(call_user_func_array(rf6(true), array(null)));\n",
"string(0) \"\"\n"
"string(0) \"\"\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"bool(false)\n"
"bool(false)\n"
"float(0)\n"
"float(0)\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"bool(false)\n"
"bool(false)\n"
"float(0)\n"
"float(0)\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"bool(false)\n"
"bool(false)\n"
"float(0)\n"
"float(0)\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"bool(false)\n"
"bool(false)\n"
"float(0)\n"
"float(0)\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"bool(false)\n"
"bool(false)\n"
"float(0)\n"
"float(0)\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"object(stdClass)#1 (0) {\n"
"}\n"
"int(0)\n"
"int(0)\n"
"bool(false)\n"
"bool(false)\n"
"float(0)\n"
"float(0)\n");
MVCRO("<?php\n"
"$WHICH = 0;\n"
"function decide() {\n"
" global $WHICH;\n"
" return $WHICH;\n"
"}\n"
"if (decide()) {\n"
" class X {\n"
" public function generator() {\n"
" yield 0;\n"
" yield 1;\n"
" }\n"
" }\n"
"} else {\n"
" class X {\n"
" public function generator() {\n"
" yield 1;\n"
" yield 2;\n"
" }\n"
" }\n"
"}\n"
"$x = new X;\n"
"foreach ($x->generator() as $v) {\n"
" var_dump($v);\n"
"}\n",
"int(1)\n"
"int(2)\n");
MVCRO("<?php\n"
"class C {}\n"
"class D {}\n"
"class X {\n"
" public function f($x1, $x2 = null, $x3 = 123, string $x4,\n"
" string $x5 = null, string $x6 = \"abc\",\n"
" array $x7, array $x8 = null, C $x9, \n"
" D $x10 = null, bool $x11, boolean $x12 = true, \n"
" int $x13, integer $x14 = 73, real $x15, \n"
" double $x16 = 1.5, float $x17) {}\n"
"}\n"
"function main() {\n"
" $rc = new ReflectionClass('X');\n"
" $rf = $rc->getMethod('f');\n"
" $params = $rf->getParameters();\n"
" $first = true;\n"
"\n"
" $clsDecl = \"class Y extends X {\npublic function f(\";\n"
" foreach ($params as $rp) {\n"
" if (!$first) $clsDecl .= ', ';\n"
" $first = false;\n"
" $th = $rp->getTypehintText();\n"
" if ($th) {\n"
" $clsDecl .= ($th . ' ');\n"
" }\n"
" $clsDecl .= ('$' . $rp->getName());\n"
" if ($rp->isDefaultValueAvailable()) {\n"
" $clsDecl .= (' = ' . $rp->getDefaultValueText());\n"
" }\n"
" }\n"
" $clsDecl .= \") {}\n}\n\";\n"
" echo $clsDecl;\n"
"}\n"
"main();\n"
,
"class Y extends X {\n"
"public function f($x1, $x2 = NULL, $x3 = 123, string $x4, "
"string $x5 = NULL, string $x6 = \"abc\", array $x7, array $x8 = NULL, "
"C $x9, D $x10 = NULL, bool $x11, boolean $x12 = true, int $x13, "
"integer $x14 = 73, real $x15, double $x16 = 1.5, float $x17) {}\n"
"}\n"
);
return true;
}
bool TestCodeRun::TestUserAttributes() {
HipHopSyntax w(this);
MVCRO("<?php\n"
"final class B {\n"
" final public function foo() { echo \"B::foo\\n\"; }\n"
" final public static function bar() { echo \"B::bar\\n\"; }\n"
"}\n"
"<< __MockClass >>\n"
"class C extends B {\n"
" public function foo() { echo \"C::foo\\n\"; }\n"
" public static function bar() { echo \"C::bar\\n\"; }\n"
"}\n"
"function test() {\n"
" $obj = new C;\n"
" $obj->foo();\n"
" C::bar();\n"
"}\n"
"test();\n"
,
"C::foo\n"
"C::bar\n");
MVCRO("<?php\n"
"<< Foo1, Bar1(), Baz1('blah',array(1,2)) >> interface I {}\n"
"<< Foo2, Bar2(), Baz2('blah',array(1,2)) >> trait T {}\n"
"<< Foo3, Bar3(), Baz3('blah',array(1,2)) >> function f() {}\n"
"<< Foo4, Bar4(), Baz4('blah',array(1,2)) >>\n"
"function g() { yield null; }\n"
"class C {\n"
" << Foo5, Bar5(), Baz5('blah',array(1,2)) >>\n"
" public function f() {}\n"
" << Foo6, Bar6(), Baz6('blah',array(1,2)) >>\n"
" public function g() { yield null; }\n"
"}\n"
"echo \"Done\\n\";\n"
,
"Done\n");
MVCRO("<?php\n"
"<<A(1),B('foo',array(42,73))>>\n"
"class C {\n"
" <<A(2),B('bar',array(43,74))>>\n"
" function f() {}\n"
"}\n"
"$rc = new ReflectionClass('C');\n"
"$attrs = $rc->getAttributes();\n"
"ksort($attrs);\n"
"var_dump($attrs);\n"
"$rm = $rc->getMethod('f');\n"
"$attrs = $rm->getAttributes();\n"
"ksort($attrs);\n"
"var_dump($attrs);\n"
"\n"
"<<A(3),B('bar',array(44,75))>>\n"
"function f() {}\n"
"$rf = new ReflectionFunction('f');\n"
"$attrs = $rf->getAttributes();\n"
"ksort($attrs);\n"
"var_dump($attrs);\n"
,
"array(2) {\n"
" [\"A\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(1)\n"
" }\n"
" [\"B\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(3) \"foo\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" int(42)\n"
" [1]=>\n"
" int(73)\n"
" }\n"
" }\n"
"}\n"
"array(2) {\n"
" [\"A\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(2)\n"
" }\n"
" [\"B\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(3) \"bar\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" int(43)\n"
" [1]=>\n"
" int(74)\n"
" }\n"
" }\n"
"}\n"
"array(2) {\n"
" [\"A\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(3)\n"
" }\n"
" [\"B\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(3) \"bar\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" int(44)\n"
" [1]=>\n"
" int(75)\n"
" }\n"
" }\n"
"}\n");
MVCRO("<?php\n"
"<<A(1)>>\n"
"function f() {}\n"
"$rf = new ReflectionFunction('f');\n"
"var_dump($rf->getAttribute('A'));\n"
"var_dump($rf->getAttribute('B'));\n"
"var_dump($rf->getAttributes());\n"
"var_dump($rf->getAttributeRecursive('A'));\n"
"var_dump($rf->getAttributeRecursive('B'));\n"
"var_dump($rf->getAttributesRecursive());\n"
,
"array(1) {\n"
" [0]=>\n"
" int(1)\n"
"}\n"
"NULL\n"
"array(1) {\n"
" [\"A\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(1)\n"
" }\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" int(1)\n"
"}\n"
"NULL\n"
"array(1) {\n"
" [\"A\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(1)\n"
" }\n"
"}\n");
MVCRO("<?php\n"
"class A {\n"
" <<W(1),X(2)>>\n"
" private function foo() {}\n"
"}\n"
"class B extends A {}\n"
"class C extends B {\n"
" <<X(3),Y(4)>>\n"
" protected function foo() {}\n"
"}\n"
"class D extends C {}\n"
"class E extends D {\n"
" <<Y(5),Z(6)>>\n"
" public function foo() {}\n"
"}\n"
"class F extends E {}\n"
"\n"
"$rm = new ReflectionMethod('F', 'foo');\n"
"\n"
"var_dump($rm->getAttribute('W'));\n"
"var_dump($rm->getAttribute('X'));\n"
"var_dump($rm->getAttribute('Y'));\n"
"var_dump($rm->getAttribute('Z'));\n"
"\n"
"$attrs = $rm->getAttributes();\n"
"ksort($attrs);\n"
"var_dump($attrs);\n"
"\n"
"var_dump($rm->getAttributeRecursive('W'));\n"
"var_dump($rm->getAttributeRecursive('X'));\n"
"var_dump($rm->getAttributeRecursive('Y'));\n"
"var_dump($rm->getAttributeRecursive('Z'));\n"
"\n"
"$attrs = $rm->getAttributesRecursive();\n"
"ksort($attrs);\n"
"var_dump($attrs);\n"
,
"NULL\n"
"NULL\n"
"array(1) {\n"
" [0]=>\n"
" int(5)\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" int(6)\n"
"}\n"
"array(2) {\n"
" [\"Y\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(5)\n"
" }\n"
" [\"Z\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(6)\n"
" }\n"
"}\n"
"NULL\n"
"array(1) {\n"
" [0]=>\n"
" int(3)\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" int(5)\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" int(6)\n"
"}\n"
"array(3) {\n"
" [\"X\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(3)\n"
" }\n"
" [\"Y\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(5)\n"
" }\n"
" [\"Z\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" int(6)\n"
" }\n"
"}\n");
MVCRO("<?php\n"
"function get_rf_for_method($fn, $class) {\n"
" $rc = new ReflectionClass($class);\n"
" return $rc->getMethod($fn);\n"
"}\n"
"\n"
"function show($fn, $class=null) {\n"
" $rf = null;\n"
" if ($class) {\n"
" $rf = get_rf_for_method($fn, $class);\n"
" } else {\n"
" $rf = new ReflectionFunction($fn);\n"
" }\n"
" $params = $rf->getParameters();\n"
" foreach ($params as $param) {\n"
" echo \"{$param->getName()}:\\n\";\n"
" $attrs = $param->getAttributes();\n"
" ksort($attrs);\n"
" var_dump($attrs);\n"
" }\n"
"}\n"
"\n"
"function showr($fn, $class=null) {\n"
" $rf = null;\n"
" if ($class) {\n"
" $rf = get_rf_for_method($fn, $class);\n"
" } else {\n"
" $rf = new ReflectionFunction($fn);\n"
" }\n"
" $params = $rf->getParameters();\n"
" foreach ($params as $param) {\n"
" echo \"{$param->getName()}:\\n\";\n"
" $attrs = $param->getAttributesRecursive();\n"
" ksort($attrs);\n"
" var_dump($attrs);\n"
" }\n"
"}\n"
"\n"
"function doboth($fn, $class=null) {\n"
" echo \">>> \";\n"
" if ($class) echo \"$class::\";\n"
" echo \"$fn =>\\n---- non-recursive: ----\\n\";\n"
" show($fn, $class);\n"
" echo \"\\n---- recursive: ----\\n\";\n"
" showr($fn, $class);\n"
" echo \"\\n\";\n"
"}\n"
"\n"
"//------------------------\n"
"\n"
"function no_attrs($p1, $p2) {}\n"
"function simple_attr(<<Attribute>> $param) {}\n"
"function two_attrs(<<Attr1>> $p1, <<Attr2>> $p2) {}\n"
"\n"
"class C {\n"
" public static function m(<<Attr(1,2,3)>> $param) {}\n"
" public static function n(<<Foo, Bar>> $param) {}\n"
" public function o(<<Hi('bye')>> $param) {}\n"
" public function p(<<A('b', array('c', 'd')), E('fg')>> $param) {}\n"
" public function q(<<RS>> $tuv) {}\n"
" public function wxy(<<And_>> $z, <<NextTime>> $wont_you_sing_with_me) {}\n"
"}\n"
"\n"
"class D extends C {\n"
" // Static functions shouldn't care about the parent class\n"
" public static function m($param) {}\n"
"\n"
" // TODO: should we include n, and should m's attrs inherit from C::m?\n"
"\n"
" // Changing the value of the attribute\n"
" public function o(<<Hi('hello')>> $param) {}\n"
"\n"
" // Changing the name of the parameter\n"
" public function q($rstuv) {}\n"
"\n"
" // Adding an attribute and leaving one off\n"
" public function wxy(<<EnglishPeopleCallThisZed>> $z, $wont_you_sing_with_me) {}\n"
"}\n"
"\n"
"//------------------------\n"
"\n"
"doboth('no_attrs');\n"
"doboth('simple_attr');\n"
"doboth('two_attrs');\n"
"doboth('m', 'C');\n"
"doboth('n', 'C');\n"
"doboth('o', 'C');\n"
"doboth('p', 'C');\n"
"doboth('q', 'C');\n"
"doboth('wxy', 'C');\n"
"doboth('m', 'D');\n"
"doboth('n', 'D');\n"
"doboth('o', 'D');\n"
"doboth('p', 'D');\n"
"doboth('q', 'D');\n"
"doboth('wxy', 'D');"
,
">>> no_attrs =>\n"
"---- non-recursive: ----\n"
"p1:\n"
"array(0) {\n"
"}\n"
"p2:\n"
"array(0) {\n"
"}\n"
"\n"
"---- recursive: ----\n"
"p1:\n"
"array(0) {\n"
"}\n"
"p2:\n"
"array(0) {\n"
"}\n"
"\n"
">>> simple_attr =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Attribute\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Attribute\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> two_attrs =>\n"
"---- non-recursive: ----\n"
"p1:\n"
"array(1) {\n"
" [\"Attr1\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"p2:\n"
"array(1) {\n"
" [\"Attr2\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"p1:\n"
"array(1) {\n"
" [\"Attr1\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"p2:\n"
"array(1) {\n"
" [\"Attr2\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> C::m =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Attr\"]=>\n"
" array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
" [2]=>\n"
" int(3)\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Attr\"]=>\n"
" array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
" [2]=>\n"
" int(3)\n"
" }\n"
"}\n"
"\n"
">>> C::n =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"Bar\"]=>\n"
" array(0) {\n"
" }\n"
" [\"Foo\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"Bar\"]=>\n"
" array(0) {\n"
" }\n"
" [\"Foo\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> C::o =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Hi\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(3) \"bye\"\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Hi\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(3) \"bye\"\n"
" }\n"
"}\n"
"\n"
">>> C::p =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"A\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"b\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"c\"\n"
" [1]=>\n"
" string(1) \"d\"\n"
" }\n"
" }\n"
" [\"E\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(2) \"fg\"\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"A\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"b\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"c\"\n"
" [1]=>\n"
" string(1) \"d\"\n"
" }\n"
" }\n"
" [\"E\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(2) \"fg\"\n"
" }\n"
"}\n"
"\n"
">>> C::q =>\n"
"---- non-recursive: ----\n"
"tuv:\n"
"array(1) {\n"
" [\"RS\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"tuv:\n"
"array(1) {\n"
" [\"RS\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> C::wxy =>\n"
"---- non-recursive: ----\n"
"z:\n"
"array(1) {\n"
" [\"And_\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"wont_you_sing_with_me:\n"
"array(1) {\n"
" [\"NextTime\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"z:\n"
"array(1) {\n"
" [\"And_\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"wont_you_sing_with_me:\n"
"array(1) {\n"
" [\"NextTime\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> D::m =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(0) {\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Attr\"]=>\n"
" array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
" [2]=>\n"
" int(3)\n"
" }\n"
"}\n"
"\n"
">>> D::n =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"Bar\"]=>\n"
" array(0) {\n"
" }\n"
" [\"Foo\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"Bar\"]=>\n"
" array(0) {\n"
" }\n"
" [\"Foo\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> D::o =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Hi\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(5) \"hello\"\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(1) {\n"
" [\"Hi\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(5) \"hello\"\n"
" }\n"
"}\n"
"\n"
">>> D::p =>\n"
"---- non-recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"A\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"b\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"c\"\n"
" [1]=>\n"
" string(1) \"d\"\n"
" }\n"
" }\n"
" [\"E\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(2) \"fg\"\n"
" }\n"
"}\n"
"\n"
"---- recursive: ----\n"
"param:\n"
"array(2) {\n"
" [\"A\"]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"b\"\n"
" [1]=>\n"
" array(2) {\n"
" [0]=>\n"
" string(1) \"c\"\n"
" [1]=>\n"
" string(1) \"d\"\n"
" }\n"
" }\n"
" [\"E\"]=>\n"
" array(1) {\n"
" [0]=>\n"
" string(2) \"fg\"\n"
" }\n"
"}\n"
"\n"
">>> D::q =>\n"
"---- non-recursive: ----\n"
"rstuv:\n"
"array(0) {\n"
"}\n"
"\n"
"---- recursive: ----\n"
"rstuv:\n"
"array(1) {\n"
" [\"RS\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n"
">>> D::wxy =>\n"
"---- non-recursive: ----\n"
"z:\n"
"array(1) {\n"
" [\"EnglishPeopleCallThisZed\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"wont_you_sing_with_me:\n"
"array(0) {\n"
"}\n"
"\n"
"---- recursive: ----\n"
"z:\n"
"array(2) {\n"
" [\"And_\"]=>\n"
" array(0) {\n"
" }\n"
" [\"EnglishPeopleCallThisZed\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"wont_you_sing_with_me:\n"
"array(1) {\n"
" [\"NextTime\"]=>\n"
" array(0) {\n"
" }\n"
"}\n"
"\n");
return true;
}
#ifdef TAINTED
#define INIT_TEST_TAINT_HELPERS \
"$taint_counter = 0;\n" \
"function assert_tainted($str, $taint) {\n" \
" global $taint_counter;\n" \
" if (!fb_get_taint($str, $taint)) {\n" \
" var_dump($taint_counter);\n" \
" }\n" \
" $taint_counter++;" \
"}\n" \
"function assert_not_tainted($str, $taint) {\n" \
" global $taint_counter;\n" \
" if (fb_get_taint($str, $taint)) {\n" \
" var_dump($taint_counter);\n" \
" }\n" \
" $taint_counter++;" \
"}\n"
// We reconstruct our strings to ensure they aren't ever treated as
// literals by hphp.
#define INIT_TEST_TAINT_STRINGS \
"$tmp = \"heLlO\\nworld\\ntoto\\narent\\ntaTa\";\n" \
"$good1 = '';\n" \
"for ($i = 0; $i < strlen($tmp); $i++) {\n" \
" $good1 .= $tmp[$i];\n" \
"}\n" \
"$tmp = 'world';\n" \
"$good2 = '';\n" \
"for ($i = 0; $i < strlen($tmp); $i++) {\n" \
" $good2 .= $tmp[$i];\n" \
"}\n" \
"$tmp = \"eViL\\nsTring\\nare\\tfun\\narent\\tworld?\";\n" \
"$bad1 = '';\n" \
"for ($i = 0; $i < strlen($tmp); $i++) {\n" \
" $bad1 .= $tmp[$i];\n" \
"}\n" \
"$tmp = 'arent';\n" \
"$bad2 = '';\n" \
"for ($i = 0; $i < strlen($tmp); $i++) {\n" \
" $bad2 .= $tmp[$i];\n" \
"}\n" \
"unset($tmp);\n" \
"fb_set_taint($bad1, TAINT_ALL);\n" \
"fb_set_taint($bad2, TAINT_ALL);\n"
bool TestCodeRun::TestTaint() {
HipHopSyntax w(this);
// Literals and assignments
MVCRO("<?php\n"
"var_dump(fb_get_taint('foostr', TAINT_ALL));\n"
"$a = 'foostr';\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"$b = $a;\n"
"var_dump(fb_get_taint($b, TAINT_ALL));\n",
"bool(false)\n"
"bool(false)\n"
"bool(false)\n");
// Functions and classes
MVCRO("<?php\n"
"$tmp = 'foostr';\n"
"$a = '';\n"
"$b = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
"}\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $b .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($b, TAINT_ALL);\n"
"function foo($a, $b) {\n"
" var_dump(fb_get_taint($a, TAINT_ALL));\n"
" var_dump(fb_get_taint($b, TAINT_ALL));\n"
" $a .= $b;\n"
" return $a;\n"
"}\n"
"foo($a, $b);"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint($b, TAINT_ALL));\n"
"class Foo {\n"
" const FOO = 'foostr';\n"
" public $m_a, $m_b;\n"
" function __construct($a, $b) {\n"
" $this->m_a = $a;\n"
" $this->m_b = $b;\n"
" }\n"
" function test() {\n"
" var_dump(fb_get_taint($this->m_a, TAINT_ALL));\n"
" var_dump(fb_get_taint($this->m_b, TAINT_ALL));\n"
" }\n"
"}\n"
"$foo = new Foo($a, $b);\n"
"$foo->test();\n"
"var_dump(fb_get_taint(Foo::FOO, TAINT_ALL));\n" ,
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n");
// Copy-on-taint and taint independence
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$a = 'foostr';\n"
"$b = 'foostr';\n"
"$c = $b;\n"
"assert_not_tainted('foostr', TAINT_ALL);\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"assert_not_tainted($b, TAINT_ALL);\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"fb_set_taint($a, TAINT_ALL);\n"
"assert_not_tainted('foostr', TAINT_ALL);\n"
"assert_tainted($a, TAINT_ALL);\n"
"assert_not_tainted($b, TAINT_ALL);\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"fb_set_taint($b, TAINT_ALL);\n"
"assert_not_tainted('foostr', TAINT_ALL);\n"
"assert_tainted($a, TAINT_ALL);\n"
"assert_tainted($b, TAINT_ALL);\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"fb_unset_taint($a, TAINT_ALL);\n"
"assert_not_tainted('foostr', TAINT_ALL);\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"assert_tainted($b, TAINT_ALL);\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"fb_set_taint($c, TAINT_ALL);\n"
"fb_unset_taint($b, TAINT_ALL);\n"
"assert_not_tainted('foostr', TAINT_ALL);\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"assert_not_tainted($b, TAINT_ALL);\n"
"assert_tainted($c, TAINT_ALL);\n"
"if ($a === $c) {\n"
" $a = $b;\n"
"}\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"$c = 'barstr';\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"$a = 'foostr';\n"
"fb_set_taint($a, TAINT_HTML);\n"
"$b = $a;\n"
"fb_set_taint($b, TAINT_MUTATED);\n"
"assert_not_tainted('foostr', TAINT_HTML);\n"
"assert_tainted($a, TAINT_HTML);\n"
"assert_tainted($b, TAINT_HTML);\n"
"assert_not_tainted('foostr', TAINT_MUTATED);\n"
"assert_not_tainted($a, TAINT_MUTATED);\n"
"assert_tainted($b, TAINT_MUTATED);\n",
"");
// Clean concatenations
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$tmp = 'foo';\n"
"$a = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
"}\n"
"$tmp = 'str';\n"
"$b = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $b .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"$c = 'foo' . 'str';\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"$c = 'foo' . $b;\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"$c = $a . 'str';\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"$c = $a . $b;\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"$c = '';\n"
"$c .= 'foostr';\n"
"assert_not_tainted($c, TAINT_ALL);\n"
"$c = '';\n"
"$c .= $a;\n"
"assert_not_tainted($c, TAINT_ALL);\n",
"");
// Taint propagation in concatenations
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"$a = $good1 . $good2;\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"$a = $good1 . $bad1;\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = $bad1 . $good1;\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = $bad1 . $bad2;\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = $good1;\n"
"$a .= $good2;\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"$a = $good1;\n"
"$a .= $bad1;\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = $bad1;\n"
"$a .= $good1;\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = $bad1;\n"
"$a .= $bad2;\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = \"$good1$good2\";\n"
"assert_not_tainted($a, TAINT_ALL);\n"
"$a = \"$good1$bad1\";\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = \"$bad1$good1\";\n"
"assert_tainted($a, TAINT_ALL);\n"
"$a = \"$bad1$bad2\";\n"
"assert_tainted($a, TAINT_ALL);\n",
"");
// Long concatenations
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$tmp = 'foostr';\n"
"$a = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
"}\n"
"$tmp = 'badstr';\n"
"$b = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $b .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($b, TAINT_ALL);\n"
"$c = $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $b . $a . $a;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $b . $a;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $a . $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $a . $a . $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $a . $a . $a . $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $a . $a . $a . $a . $a . $b;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = $a . $a . $b . $a . $a . $a . $a . $a;\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$b$a$a\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$b$a\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$a$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$a$a$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$a$a$a$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$a$a$a$a$a$b\";\n"
"assert_tainted($c, TAINT_ALL);\n"
"$c = \"$a$a$b$a$a$a$a$a\";\n"
"assert_tainted($c, TAINT_ALL);\n",
"");
// Complex concatenations (adapted from TestString)
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$a = array('x'=>'foo');\n"
"$tmp = 'qqq';\n"
"$b = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $b .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"class c {}\n"
"$c = new c;\n"
"$c->p = 'zzz';\n"
"assert_not_tainted(\"AAA ${a['x']} $a[x] $b $c->p\", TAINT_ALL);\n"
"fb_set_taint($b, TAINT_ALL);\n"
"assert_tainted(\"AAA ${a['x']} $a[x] $b $c->p\", TAINT_ALL);\n"
"class X {\n"
" static function g() {}\n"
"};\n"
"$tmp = 'efg';\n"
"$a = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"$b = rand() % 42;\n"
"assert_tainted('abc' . X::g() . $b . $a, TAINT_ALL);\n"
"fb_set_taint($a, TAINT_ALL);\n"
"assert_tainted('abc' . X::g() . 42 . $a, TAINT_ALL);\n"
"assert_tainted('abc' . X::g() . $b . $a, TAINT_ALL);\n"
"function f() {\n"
" $tmp = 'x';\n"
" $a = '';\n"
" for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
" }\n"
" unset($tmp);\n"
" fb_set_taint($a, TAINT_ALL);\n"
" return $a;\n"
"}\n"
"function g() {}\n"
"function test1($a) {\n"
" $buf = '';\n"
" foreach ($a as $s) {\n"
" $buf .= f() . g() . 'h' . f() . 'h' . g();\n"
" }\n"
" foreach ($a as $s) {\n"
" $buf .= ($s . 'h' . $s);\n"
" }\n"
" return $buf;\n"
"}\n"
"assert_tainted(test1(array(1)), TAINT_ALL);\n"
"function test2() {\n"
" return f() . g() . f() . g();\n"
"}\n"
"assert_tainted(test2(), TAINT_ALL);\n"
"function test3() {\n"
" return f() . g() . f() . g() . f() . g() . f() . g() . f();\n"
"}\n"
"assert_tainted(test3(), TAINT_ALL);\n"
"function test4() {\n"
" $s = f();\n"
" $s .=\n"
" ('foo'.\n"
" 'bar'.\n"
" f().\n"
" 'foo'.\n"
" 'baz'.\n"
" f().\n"
" 'fuz'.\n"
" 'boo'.\n"
" f().\n"
" 'fiz'.\n"
" 'faz');\n"
" $s .= f();\n"
" return $s;\n"
"}\n"
"assert_tainted(test4(), TAINT_ALL);\n"
"function test6() {\n"
" return g().f().g();\n"
"}\n"
"assert_tainted(test6(), TAINT_ALL);\n",
"");
// Arrays
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"$tmp = 'toto';\n"
"$good3 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good3 .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"$arrg = array($good1);\n"
"$arrb = array($bad1);\n"
"assert_not_tainted($arrg[0], TAINT_ALL);\n"
"assert_tainted($arrb[0], TAINT_ALL);\n"
"$arr = array(\n"
" $good1 => $good2,\n"
" $bad1 => $bad2,\n"
" $bad2 => array(\n"
" $good2 => $bad2,\n"
" $bad2 => $good3,\n"
" ),\n"
");\n"
"assert_not_tainted($arr, TAINT_ALL);\n"
"assert_tainted(print_r($arr, true), TAINT_ALL);\n"
"assert_not_tainted($arr[$good1], TAINT_ALL);\n"
"assert_tainted($arr[$bad1], TAINT_ALL);\n"
"assert_not_tainted($arr[$bad2], TAINT_ALL);\n"
"assert_tainted(print_r($arr[$bad2], true), TAINT_ALL);\n"
"assert_tainted($arr[$bad2][$good2], TAINT_ALL);\n"
"assert_not_tainted($arr[$bad2][$bad2], TAINT_ALL);\n"
"$keys = array_keys($arr);\n"
"assert_not_tainted($keys[0], TAINT_ALL);\n"
"assert_tainted($keys[1], TAINT_ALL);\n"
"assert_tainted($keys[2], TAINT_ALL);\n",
"");
// Typecasts
MVCRO("<?php\n"
"var_dump(fb_get_taint(NULL, TAINT_ALL));\n"
"var_dump(fb_get_taint(true, TAINT_ALL));\n"
"var_dump(fb_get_taint(false, TAINT_ALL));\n"
"var_dump(fb_get_taint(rand(), TAINT_ALL));\n"
"var_dump(fb_get_taint((rand() / rand()), TAINT_ALL));\n"
"$a = NULL;\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint((string)$a, TAINT_ALL));\n"
"$a = true;\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint((string)$a, TAINT_ALL));\n"
"$a = false;\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint((string)$a, TAINT_ALL));\n"
"$a = rand();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint((string)$a, TAINT_ALL));\n"
"$a = rand() / rand();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint((string)$a, TAINT_ALL));\n"
"$a = rand();\n"
"$arr = array(\n"
" 'foostr' => rand(),\n"
" $a => 'barbaz',\n"
");\n"
"var_dump(fb_get_taint($arr, TAINT_ALL));\n"
"var_dump(fb_get_taint($arr['foostr'], TAINT_ALL));\n"
"var_dump(fb_get_taint($arr[$a], TAINT_ALL));\n"
"class CleanObj {\n"
" function __toString() { return 'obj'; }\n"
"}\n"
"class TaintedObj {\n"
" function __toString() {\n"
" $bad1 = \"eViL\\nsTring\\nare\\tfun\\narent\\tthey?\";\n"
" fb_set_taint($bad1, TAINT_MUTATED);\n"
" return 'obj' . $bad1;\n"
" }\n"
"}\n"
"$obj1 = new CleanObj();\n"
"var_dump(fb_get_taint($obj1, TAINT_MUTATED));\n"
"$obj2 = new TaintedObj();\n"
"var_dump(fb_get_taint($obj2, TAINT_MUTATED));\n",
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n");
// Tokens
MVCRO("<?php\n"
"$tmp = 'goodname';\n"
"$goodtok = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $goodtok .= $tmp[$i];\n"
"}\n"
"$tmp = 'badname';\n"
"$badtok = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $badtok .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($badtok, TAINT_ALL);\n"
"$$goodtok = 'goodval';\n"
"$vars = array_keys(get_defined_vars(), 'goodval');\n"
"var_dump(fb_get_taint($vars[0], TAINT_ALL));\n"
"$$badtok = 'badval';\n"
"$vars = array_keys(get_defined_vars(), 'badval');\n"
"var_dump(fb_get_taint($vars[0], TAINT_ALL));\n"
"function foostr() {\n"
" var_dump(fb_get_taint(__FUNCTION__, TAINT_ALL));\n"
"}\n"
"foostr();\n"
"class foostr {\n"
" public function __construct() { }\n"
" public function foostr() {\n"
" var_dump(fb_get_taint(__CLASS__, TAINT_ALL));\n"
" var_dump(fb_get_taint(__METHOD__, TAINT_ALL));\n"
" }\n"
" public static function staticFoostr() {\n"
" var_dump(fb_get_taint(__CLASS__, TAINT_ALL));\n"
" var_dump(fb_get_taint(__METHOD__, TAINT_ALL));\n"
" }\n"
"}\n"
"$a = new foostr();\n"
"$a->foostr();\n"
"foostr::staticFoostr();\n",
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n");
// Closures
MVCRO("<?php\n"
"$tmp = 'foostr';\n"
"$a = '';\n"
"$b = '';\n"
"$c = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
"}\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $b .= $tmp[$i];\n"
"}\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $c .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($b, TAINT_ALL);\n"
"$closure =\n"
" function($a) use ($c) {\n"
" var_dump(fb_get_taint($a, TAINT_ALL));\n"
" var_dump(fb_get_taint($c, TAINT_ALL));\n"
" };\n"
"$closure($a);\n"
"$closure($b);\n"
"$closure($c);\n"
"fb_set_taint($c, TAINT_ALL);\n"
"$closure =\n"
" function($a) use ($c) {\n"
" var_dump(fb_get_taint($a, TAINT_ALL));\n"
" var_dump(fb_get_taint($c, TAINT_ALL));\n"
" };\n"
"$closure($a);\n"
"$closure($b);\n"
"$closure($c);\n"
"function make_closure($c) {\n"
" $closure =\n"
" function($a) use ($c) {\n"
" var_dump(fb_get_taint($a, TAINT_ALL));\n"
" var_dump(fb_get_taint($c, TAINT_ALL));\n"
" };\n"
" return $closure;\n"
"}\n"
"$closure = make_closure($c);\n"
"$closure($a);\n"
"$closure($b);\n"
"$closure($c);\n",
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n");
// Generators
MVCRO("<?php\n"
"function foo($b) {\n"
" $tmp = 'foostr';\n"
" $a = '';\n"
" for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $a .= $tmp[$i];\n"
" }\n"
" unset($tmp);\n"
" fb_set_taint($a, TAINT_ALL);\n"
" var_dump(fb_get_taint($b, TAINT_ALL));\n"
" yield fb_get_taint($a, TAINT_ALL);\n"
" var_dump(fb_get_taint($b, TAINT_ALL));\n"
" yield fb_get_taint($a, TAINT_ALL);\n"
"}\n"
"$tmp = 'foostr';\n"
"$b = '';\n"
"$c = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $b .= $tmp[$i];\n"
"}\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $c .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($c, TAINT_ALL);\n"
"foreach (foo($b) as $a) { var_dump($a); }\n"
"foreach (foo($c) as $a) { var_dump($a); }\n",
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n");
return true;
}
bool TestCodeRun::TestTaintExt() {
HipHopSyntax w(this);
/**
* Apache
*
* apache_note: Should maintain taint on strings as they are passed
* in and out and does so without the use of TaintObservers.
*
* The remaining apache functions either fully taint (those retrieving
* headers) or are control functions which don't require taint.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"apache_note($good1, $good2);\n"
"assert_not_tainted(apache_note($good1), TAINT_ALL);\n"
"apache_note($good1, $bad2);\n"
"assert_tainted(apache_note($good1), TAINT_ALL);\n"
"apache_note($bad1, $good2);\n"
"assert_not_tainted(apache_note($bad1), TAINT_ALL);\n"
"apache_note($bad1, $bad2);\n"
"assert_tainted(apache_note($bad1), TAINT_ALL);\n",
"");
/**
* APC
*
* apc_add, apc_store, apc_fetch: These should maintain taint on
* strings as they are passed in and out of APC. This is done so
* using TaintObservers and hence there is no distinction made
* between taints on keys and values.
*
* To implement the semantics of only passing the taint of values,
* we would have either to make sweeping assumptions about the use
* cases of SharedVariant or to make heavy-handed alterations to
* all SharedStore classes, neither of which we really want.
*
* In general, though, it seems rather unwise to use user-controlled
* strings as APC keys, so this is probably fine.
*
* No taint is required for the remaining functions.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"apc_add($good2, $bad1);\n"
"apc_add($bad2, $good1);\n"
"apc_add($bad2, $bad1, 0, 1);\n"
"apc_add($good2, $good1, 0, 1);\n"
"assert_tainted(apc_fetch($good2), TAINT_ALL);\n"
"assert_tainted(apc_fetch($bad2), TAINT_ALL);\n"
"$foo = false;\n"
"assert_not_tainted(apc_fetch($good2, $foo, 1), TAINT_ALL);\n"
"assert_tainted(apc_fetch($bad2, $foo, 1), TAINT_ALL);\n"
"apc_store($good2, $good1);\n"
"apc_store($bad2, $bad1);\n"
"assert_not_tainted(apc_fetch($good2), TAINT_ALL);\n"
"assert_tainted(apc_fetch($bad2), TAINT_ALL);\n"
"apc_delete($bad2);\n"
"assert_not_tainted(apc_fetch($good2), TAINT_ALL);\n"
"apc_clear_cache(1);\n"
"apc_add($good2, $good1, 0, 1);\n"
"apc_add($bad2, $bad1, 0, 1);\n"
"assert_not_tainted(apc_fetch($good2, $foo, 1), TAINT_ALL);\n"
"assert_tainted(apc_fetch($bad2, $foo, 1), TAINT_ALL);\n"
"apc_clear_cache();\n",
"");
/**
* APD
*
* These functions are not supported in hphp and are hence untainted.
*/
/**
* Array
*/
#define TEST_TAINT_EXT_ARRAY_STD_TAINTS \
"bool(true)\n" \
"bool(false)\n" \
"bool(false)\n" \
"bool(true)\n" \
"bool(false)\n" \
"bool(false)\n" \
"bool(true)\n" \
"bool(true)\n"
#define TEST_TAINT_EXT_ARRAY_KEY_TAINTS \
"bool(true)\n" \
"bool(false)\n" \
"bool(false)\n" \
"bool(true)\n" \
#define TEST_TAINT_EXT_ARRAY_VAL_TAINTS \
"bool(false)\n" \
"bool(true)\n" \
"bool(false)\n" \
"bool(true)\n"
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"$good3 = '';\n"
"$good4 = '';\n"
"$bad3 = '';\n"
"$bad4 = '';\n"
"$tmp = 'frenchonion';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good3 .= $tmp[$i];\n"
"}\n"
"$tmp = 'udon';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good4 .= $tmp[$i];\n"
"}\n"
"$tmp = 'splitpea';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad3 .= $tmp[$i];\n"
"}\n"
"$tmp = 'creamofmanure';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad4 .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($bad3, TAINT_ALL);\n"
"fb_set_taint($bad4, TAINT_ALL);\n"
"function check_array($arr, $check_key = true, $check_val = true) {\n"
" foreach ($arr as $k => $v) {\n"
" if ($check_key) {\n"
" var_dump(fb_get_taint($k, TAINT_ALL));\n"
" }\n"
" if ($check_val) {\n"
" var_dump(fb_get_taint($v, TAINT_ALL));\n"
" }\n"
" }\n"
"}\n"
"$mixed_arr = array(\n"
" $bad3 => $good1,\n"
" $good3 => $bad1,\n"
" $good4 => $good2,\n"
" $bad4 => $bad2,\n"
");\n"
"$num_arr = array($good1, $bad1, $good2, $bad2);\n"
"$arr = array_change_key_case($mixed_arr);\n"
"foreach ($arr as $k => $v) {\n"
" var_dump(fb_get_taint($k, TAINT_HTML));\n"
" var_dump(fb_get_taint($k, TAINT_MUTATED));\n"
" var_dump(fb_get_taint($v, TAINT_ALL));\n"
"}\n"
"$arr = array_chunk($mixed_arr, 2, true);\n"
"check_array($arr[0]);\n"
"check_array($arr[1]);\n"
"check_array(array_combine(\n"
" array($bad3, $good3, $good4, $bad4),\n"
" $num_arr\n"
"));\n"
"check_array(array_count_values($mixed_arr), true, false);\n"
"check_array(array_fill_keys($num_arr, $bad1));\n"
"check_array(array_fill(0, 2, $good1), false);\n"
"check_array(array_fill(0, 2, $bad1), false);\n"
"check_array(array_filter(\n"
" $mixed_arr,\n"
" function($str) { return strlen($str) < 42; }\n"
"));\n"
"check_array(array_flip($mixed_arr));\n"
"check_array(array_keys($mixed_arr), false);\n"
"check_array(array_map(\n"
" function($str) { return $str . $str; },\n"
" $mixed_arr\n"
"));\n"
"$arr = array_chunk($mixed_arr, 2, true);\n"
"check_array(array_merge($arr[0], $arr[1]));\n"
"check_array(array_replace(\n"
" $mixed_arr,\n"
" array(\n"
" $bad3 => $bad1,\n"
" $good3 => $bad2,\n"
" $good4 => $good1,\n"
" $bad4 => $good2,\n"
" )\n"
"));\n"
"check_array(array_pad($mixed_arr, 5, $good1));\n"
"check_array(array_pad($mixed_arr, 5, $bad1));\n"
"$arr = $num_arr;\n"
"$v = array_pop($arr);\n"
"$u = array_pop($arr);\n"
"check_array($arr, false);\n"
"var_dump(fb_get_taint($u, TAINT_ALL));\n"
"var_dump(fb_get_taint($v, TAINT_ALL));\n"
"array_push($arr, $u);\n"
"array_push($arr, $v);\n"
"check_array($arr, false);\n"
"var_dump(fb_get_taint(array_reduce(\n"
" $mixed_arr,\n"
" function($a, $b) { return $a . $b; },\n"
" ''\n"
"), TAINT_ALL));\n"
"check_array(array_reverse($mixed_arr));\n"
"var_dump(fb_get_taint(array_search($good1, $mixed_arr), TAINT_ALL));\n"
"var_dump(fb_get_taint(array_search($bad1, $mixed_arr), TAINT_ALL));\n"
"var_dump(fb_get_taint(array_search($good2, $mixed_arr), TAINT_ALL));\n"
"var_dump(fb_get_taint(array_search($bad2, $mixed_arr), TAINT_ALL));\n"
"$arr = $num_arr;\n"
"$v = array_shift($arr);\n"
"$u = array_shift($arr);\n"
"var_dump(fb_get_taint($v, TAINT_ALL));\n"
"var_dump(fb_get_taint($u, TAINT_ALL));\n"
"check_array($arr, false);\n"
"array_unshift($arr, $u);\n"
"array_unshift($arr, $v);\n"
"check_array($arr, false);\n"
"check_array(array_slice($mixed_arr, 0, 4), false);\n"
"check_array(array_slice($mixed_arr, 0, 4, true));\n"
"$arr = $mixed_arr;\n"
"$ins = array_splice($arr, 1, 2);\n"
"array_splice($arr, 1, 0, $ins);\n"
"check_array($arr, false);\n"
"check_array(array_values($mixed_arr), false);\n"
"$arr = $mixed_arr;\n"
"array_walk(\n"
" $arr,\n"
" function ($v, $k, $x) { $v .= $x; $k .= $x; },\n"
" 'foobar'\n"
");\n"
"check_array($arr);\n"
"check_array(compact('bad3', 'good3', 'good4', 'bad4'), false);\n"
"check_array(array_diff($num_arr, array_slice($num_arr, 0, 2)), false);\n"
"check_array(array_diff($num_arr, array_slice($num_arr, 2, 2)), false);\n"
"check_array(array_diff_key(\n"
" array_flip($mixed_arr),\n"
" array_flip(array_slice($mixed_arr, 2, 2))\n"
"), false);\n"
"check_array(array_diff_key(\n"
" array_flip($mixed_arr),\n"
" array_flip(array_slice($mixed_arr, 0, 2))\n"
"), false);\n"
"check_array(array_intersect($mixed_arr, $num_arr), false);\n"
"check_array(array_intersect_key(\n"
" array_flip($mixed_arr),\n"
" array_flip($num_arr)\n"
"), false);\n"
"$arr = $mixed_arr;\n"
"sort($arr);\n"
"check_array($arr, false);\n"
"asort($mixed_arr);\n"
"check_array($mixed_arr);\n"
"ksort($mixed_arr);\n"
"check_array($mixed_arr);\n",
// array_change_key_case
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
// array_chunk
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// array_combine
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// array_count_values
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_fill_keys
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
// array_fill
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
// array_filter
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// array_flip
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
// array_keys
TEST_TAINT_EXT_ARRAY_KEY_TAINTS
// array_map
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// array_merge
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// array_replace
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
// array_pad
TEST_TAINT_EXT_ARRAY_STD_TAINTS
"bool(true)\n"
"bool(false)\n"
TEST_TAINT_EXT_ARRAY_STD_TAINTS
"bool(true)\n"
"bool(true)\n"
// array_pop
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_push
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_reduce
"bool(true)\n"
// array_reverse
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
// array_search
TEST_TAINT_EXT_ARRAY_KEY_TAINTS
// array_shift
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_unshift
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_slice
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// array_splice
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_values
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_walk
TEST_TAINT_EXT_ARRAY_STD_TAINTS
// compact
TEST_TAINT_EXT_ARRAY_KEY_TAINTS
// array_diff
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_diff_key
TEST_TAINT_EXT_ARRAY_KEY_TAINTS
// array_intersect
TEST_TAINT_EXT_ARRAY_VAL_TAINTS
// array_intersect_key
TEST_TAINT_EXT_ARRAY_KEY_TAINTS
// sort
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
// asort
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
// ksort
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n");
#undef TEST_TAINT_EXT_ARRAY_VAL_RESULT
#undef TEST_TAINT_EXT_ARRAY_KEY_RESULT
#undef TEST_TAINT_EXT_ARRAY_STD_RESULT
/**
* BC Math
*
* bc{add, sub, mul, div, pow, mod, powmod, sqrt}: These taint with the
* same semantics as concatenation; that is, they propagate taint only
* and do not mutate.
*
* The remaining functions, bcscale and bccomp, have no need for taint.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$tmp = '3141592653589793238462';\n"
"$good1 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good1 .= $tmp[$i];\n"
"}\n"
"$tmp = '2';\n"
"$good2 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good2 .= $tmp[$i];\n"
"}\n"
"$tmp = '2718281828459045235360';\n"
"$bad1 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad1 .= $tmp[$i];\n"
"}\n"
"$tmp = '3';\n"
"$bad2 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad2 .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($bad1, TAINT_ALL);\n"
"fb_set_taint($bad2, TAINT_ALL);\n"
"$binary_ops = array(\n"
" 'bcadd',\n"
" 'bcsub',\n"
" 'bcmul',\n"
" 'bcdiv',\n"
" 'bcmod',\n"
" 'bcpow',\n"
");\n"
"foreach($binary_ops as $func) {\n"
" assert_not_tainted($func($good1, $good2), TAINT_ALL);\n"
" assert_tainted($func($good1, $bad2), TAINT_ALL);\n"
" assert_tainted($func($bad1, $good2), TAINT_ALL);\n"
" assert_tainted($func($bad1, $bad2), TAINT_ALL);\n"
"}\n"
"assert_not_tainted(bcpowmod($good1, $good2, $good2), TAINT_ALL);\n"
"assert_tainted(bcpowmod($good1, $good2, $bad2), TAINT_ALL);\n"
"assert_tainted(bcpowmod($good1, $bad2, $good2), TAINT_ALL);\n"
"assert_tainted(bcpowmod($bad1, $good2, $bad2), TAINT_ALL);\n"
"assert_tainted(bcpowmod($bad1, $bad2, $good2), TAINT_ALL);\n"
"assert_tainted(bcpowmod($bad1, $bad2, $bad2), TAINT_ALL);\n"
"assert_not_tainted(bcsqrt($good1), TAINT_ALL);\n"
"assert_tainted(bcsqrt($bad1), TAINT_ALL);\n",
"");
/**
* bzip: no tests
*
* Functions which read from files fully taint but their outputs are
* never traced.
*/
/**
* Class
*
* No TaintObservers are declared for any class extension functions;
* we test get_object_vars() to ensure that taint will still be passed
* out by reference.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"class Foo {\n"
" public $good;\n"
" public $bad;\n"
" public function __construct() {\n"
" global $good1, $bad1;\n"
" $this->good = $good1;\n"
" $this->bad = $bad1;\n"
" }\n"
" public function foo() { }\n"
"}\n"
"$a = new Foo();\n"
"$arr = get_object_vars($a);\n"
"assert_not_tainted($arr['good'], TAINT_ALL);\n"
"assert_tainted($arr['bad'], TAINT_ALL);\n",
"");
/**
* Closure
* Continuation
* Ctype
*
* No functions are defined in closure, only object creation helpers
* are defined in continuation, and character typing doesn't produce
* any output; none of these need taint.
*/
/**
* Curl
*
* Functions such as curl_exec() and curl_getinfo() return fully tainted
* strings; all remaining functions have no need for taint.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$c = curl_init('http://www.steal-my.info');\n"
"curl_setopt($c, CURLOPT_RETURNTRANSFER, true);\n"
"assert_tainted(curl_exec($c), TAINT_ALL);\n"
"$info = curl_getinfo($c);\n"
"foreach ($info as $v) {\n"
//" assert_tainted($v, TAINT_ALL);\n"
"}\n"
"assert_tainted(curl_multi_getcontent($c), TAINT_ALL);\n"
"$r = evhttp_get('http://www.steal-my.info');\n"
"assert_tainted($r['response'], TAINT_ALL);\n"
"foreach ($r['headers'] as $h) {\n"
" assert_tainted($h, TAINT_ALL);\n"
"}\n"
"$r = evhttp_post('http://www.steal-my.info', '');\n"
"assert_tainted($r['response'], TAINT_ALL);\n"
"foreach ($r['headers'] as $h) {\n"
" assert_tainted($h, TAINT_ALL);\n"
"}\n",
"");
/**
* Datetime (TODO)
*/
/**
* Debugger
* DOMDocument (TODO)
* Error
*
* Debugger and error both contain only control functions and do not
* require taint (error does include some passing around of strings, but
* we elect not to taint there). DOMDocument tainting could use more
* investigation.
*/
/**
* FB
*
* fb_rename_function: Although we rename the function, the rename is
* superficial in the sense that __FUNCTION__ still yields the original
* name; we sanity check this to make sure taint doesn't leak.
*
* All other functions are control functions which do not require taint.
*/
{
OptionSetter w(this, OptionSetter::CompileTime,
"-vDynamicInvokeFunctions.*=foo");
MVCRO("<?php\n"
INIT_TEST_TAINT_STRINGS
"function foo() { "
"var_dump(fb_get_taint(__FUNCTION__, TAINT_ALL)); }\n"
"foo();\n"
"fb_rename_function('foo', $bad2);\n"
"$bad2();\n"
"fb_rename_function($bad2, $good2);\n"
"$good2();\n",
"bool(false)\n"
"bool(false)\n"
"bool(false)\n");
}
/**
* FBML (TODO)
*
* We elect to ignore FBML for taint purposes for the time being.
*/
/**
* File (TODO)
*/
/**
* Function
*
* func_get_arg*(): These should pass taint by reference.
* call_user_func*(): These should pass the taint of arguments by
* reference but should not leak any taint into the normal codepath
* of the callback.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_STRINGS
// Ensure that falling into the callback doesn't drop taint.
"function callback_check_propagation($a, $b) {\n"
" var_dump(fb_get_taint($a, TAINT_ALL));\n"
" var_dump(fb_get_taint($b, TAINT_ALL));\n"
"}\n"
// Ensure that the call_user_func*() family is not scoping in any
// TaintObservers. To do this check, we do an access on the variable
// we've passed in, we create a String object without scoping in new
// TaintObservers by making a new variable, then we check that said
// variable's name is not tainted.
"function callback_check_independence($a) {\n"
" if ($a === 'foobarbaz') {\n"
" $var = 'something';\n"
" }\n"
" var_dump(fb_get_taint($var, TAINT_ALL));\n"
" var_dump(fb_get_taint(\n"
" array_keys(get_defined_vars(), 'something'),\n"
" TAINT_ALL\n"
" ));\n"
"}\n"
// Check taint of arguments
"function check_args() {\n"
" $arr = func_get_args();\n"
" for ($i = 0; $i < count($arr); $i++) {\n"
" var_dump(fb_get_taint(func_get_arg($i), TAINT_ALL));\n"
" }\n"
" for ($i = 0; $i < count($arr); $i++) {\n"
" var_dump(fb_get_taint($arr[$i], TAINT_ALL));\n"
" }\n"
" foreach ($arr as $arg) {\n"
" var_dump(fb_get_taint($arg, TAINT_ALL));\n"
" }\n"
"}\n"
"$arr_good = array($good1, $good2);\n"
"$arr_mixed = array($good1, $bad1);\n"
"$arr_bad = array($bad1, $bad2);\n"
"call_user_func('callback_check_propagation', $good1, $good2);\n"
"call_user_func('callback_check_propagation', $good1, $bad1);\n"
"call_user_func('callback_check_propagation', $bad1, $bad2);\n"
"call_user_func_array('callback_check_propagation', $arr_good);\n"
"call_user_func_array('callback_check_propagation', $arr_mixed);\n"
"call_user_func_array('callback_check_propagation', $arr_bad);\n"
"$a = 'foobarbaz';\n"
"fb_set_taint($a, TAINT_ALL);\n"
"call_user_func('callback_check_independence', $a);\n"
"call_user_func_array('callback_check_independence', array($a));\n"
"check_args($bad1, $good1);\n"
"call_user_func('check_args', $bad1, $good1);\n",
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n");
/**
* Hash: no tests
*
* We mutate on all hashing functions; the remaining functions do not
* require taint. In particular, for hash_file(), we mutate only and
* do not apply other taints.
*
* Unfortunately, we are unable to preserve taint that enters the
* hash context system since it is implemented with raw char *'s.
* Since we are hashing, this probably isn't the end of the world...
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"assert_not_tainted(hash('sha1', $good1), TAINT_HTML);\n"
"assert_tainted(hash('sha1', $bad1), TAINT_HTML);\n"
"assert_tainted(hash('sha1', $good1), TAINT_MUTATED);\n"
"assert_tainted(hash('sha1', $bad1), TAINT_MUTATED);\n",
"");
/**
* iconv: no tests
*
* Any function performing encoding or decoding should mutate; the rest
* do not need taint.
*/
/**
* ICU
*
* Both icu.idl.php functions should mutate and propagate taint; the
* functions in icu_*.idl.php do not require taint.
*/
MVCRO("<?php\n"
"$tmp = \"\\xe5\\x9b\\x9b\n"
" \\xe5\\x8d\\x81\\xe5\\x9b\\x9b\\xe7\n"
" \\x9f\\xb3\\xe7\\x8d\\x85\\xe5\\xad\\x90\";\n"
"$good1 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good1 .= $tmp[$i];\n"
"}\n"
"$tmp = \"\\xd1\\x84\\xd0\\xb5\\xd0\\xb9\\xd1\n"
" \\x81\\xd0\\xb1\\xd1\\x83\\xc5\\x93\\xd0\\xba\";\n"
"$bad1 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad1 .= $tmp[$i];\n"
"}\n"
"$tmp = 'Hello world';\n"
"$good2 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good2 .= $tmp[$i];\n"
"}\n"
"$tmp = 'Hello evil';\n"
"$bad2 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad2 .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($bad1, TAINT_ALL);\n"
"fb_set_taint($bad2, TAINT_ALL);\n"
"var_dump(fb_get_taint(icu_transliterate($good1, false), TAINT_HTML));\n"
"var_dump(fb_get_taint(icu_transliterate($good1, false), TAINT_MUTATED));\n"
"var_dump(fb_get_taint(icu_transliterate($bad1, false), TAINT_HTML));\n"
"var_dump(fb_get_taint(icu_transliterate($bad1, false), TAINT_MUTATED));\n"
"$good_arr = icu_tokenize($good2);\n"
"$bad_arr = icu_tokenize($bad2);\n"
"foreach ($good_arr as $token) {\n"
" var_dump(fb_get_taint($token, TAINT_HTML));\n"
" var_dump(fb_get_taint($token, TAINT_MUTATED));\n"
"}\n"
"foreach ($bad_arr as $token) {\n"
" var_dump(fb_get_taint($token, TAINT_HTML));\n"
" var_dump(fb_get_taint($token, TAINT_MUTATED));\n"
"}\n",
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n");
/**
* Image
* Imagesprite
*
* These libraries only include image manipulation files (along with exif
* data handlers, which we presume safe); we do not inject taint.
*/
/**
* IMAP (TODO)
*/
/**
* Intl: no tests
*
* We mutate in string translation functions; the remaining functions
* do not require taint.
*/
/**
* IPC
*
* We would like IPC functions to maintain the following taint semantics;
* however, since message passing and shared memory are both implemented
* at the char * level, we can't.
*
* This has the potential to be pretty bad since IPC functions allow
* user-controlled to spread quite far, but unless someone is willing to
* change the implementations, we have to live with it.
*
* MVCRO("<?php\n"
* INIT_TEST_TAINT_STRINGS
* "$q = msg_get_queue(0);\n"
* "msg_send($q, 1, $bad1);\n"
* "msg_send($q, 1, $good1);\n"
* "$str = '';\n"
* "msg_receive($q, 0, $str);\n"
* "var_dump(fb_get_taint($str, TAINT_ALL));\n"
* "msg_receive($q, 0, $str);\n"
* "var_dump(fb_get_taint($str, TAINT_ALL));\n"
* "msg_remove_queue($q);\n"
* "$shm = shm_attach(0);\n"
* "shm_put_var($shm, $good2, $bad1);\n"
* "shm_put_var($shm, $bad2, $good1);\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $good2), TAINT_ALL));\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $bad2), TAINT_ALL));\n"
* "shm_remove_var($shm, $good2);\n"
* "shm_remove_var($shm, $bad2);\n"
* "shm_put_var($shm, $good2, $good1);\n"
* "shm_put_var($shm, $bad2, $bad1);\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $good2), TAINT_ALL));\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $bad2), TAINT_ALL));\n"
* "shm_remove_var($shm, $bad2);\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $good2), TAINT_ALL));\n"
* "shm_put_var($shm, $bad2, $bad1);\n"
* "shm_detach($shm);\n"
* "$shm = shm_attach(0);\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $good2), TAINT_ALL));\n"
* "var_dump(fb_get_taint(shm_get_var($shm, $bad2), TAINT_ALL));\n"
* "shm_remove($shm);\n",
* "bool(true)\n"
* "bool(false)\n"
* "bool(true)\n"
* "bool(false)\n"
* "bool(false)\n"
* "bool(true)\n"
* "bool(false)\n"
* "bool(false)\n"
* "bool(true)\n");
*/
/**
* Iterator
*
* This library only includes hphp-specific control functions, which do
* not require taint.
*/
/**
* LDAP (TODO)
*/
/**
* Magick
*
* This is an image manipulation library which does not require taint.
*/
/**
* Mailparse (TODO)
*/
/**
* Math
*
* Base conversion functions that return non-numbers mutate; the remaining
* functions operate on numerics only and do not need taint.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$tmp = '42';\n"
"$good42 = '';\n"
"$bad42 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good42 .= $tmp[$i];\n"
"}\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad42 .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($bad42, TAINT_ALL);\n"
"assert_not_tainted(decbin(42), TAINT_HTML);\n"
"assert_tainted(decbin(42), TAINT_MUTATED);\n"
"assert_not_tainted(dechex(42), TAINT_HTML);\n"
"assert_tainted(dechex(42), TAINT_MUTATED);\n"
"assert_not_tainted(decoct(42), TAINT_HTML);\n"
"assert_tainted(decoct(42), TAINT_MUTATED);\n"
"assert_not_tainted(base_convert(rand(), 10, 3), TAINT_HTML);\n"
"assert_tainted(base_convert(rand(), 10, 3), TAINT_MUTATED);\n"
"assert_not_tainted(base_convert($good42, 10, 3), TAINT_HTML);\n"
"assert_tainted(base_convert($good42, 10, 3), TAINT_MUTATED);\n"
"assert_tainted(base_convert($bad42, 10, 3), TAINT_HTML);\n"
"assert_tainted(base_convert($bad42, 10, 3), TAINT_MUTATED);\n",
"");
/**
* MB: no tests
*
* TODO: regex functions
*
* We do not taint control functions; the remaining functions we taint
* much like their string extension counterparts.
*/
/**
* Mcrypt: no tests
*/
/**
* Memcached: no tests
* Memcache: no tests
*
* All get() and fetch() functions and methods fully taint; remaining
* functions do not require taint.
*/
/**
* Misc
*
* define, constant: Taint is passed by reference.
*
* No other misc functions require taint.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"define('GOOD', $good2);\n"
"define('BAD', $bad2);\n"
"assert_not_tainted(GOOD, TAINT_ALL);\n"
"assert_not_tainted(constant('GOOD'), TAINT_ALL);\n"
"assert_tainted(BAD, TAINT_ALL);\n"
// It may be worth investigating why the following does not hold:
// "assert_tainted(constant('BAD'), TAINT_ALL);\n"
,
"");
/**
* MySQL
*
* Any strings coming from MySQL queries should be fully tainted; we
* instantiate TaintObservers as necessary to preserver these
* semantics.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$conn = mysql_connect("
"'" TEST_HOSTNAME "', "
"'" TEST_USERNAME "', "
"'" TEST_PASSWORD "'"
");\n"
"mysql_select_db('" TEST_DATABASE "');\n"
"mysql_query(\n"
" 'CREATE TABLE test ('.\n"
" 'id int not null auto_increment, '.\n"
" 'name varchar(255) not null, '.\n"
" 'primary key (id)) '.\n"
" 'engine=innodb'\n"
");\n"
"assert_tainted(mysql_stat(), TAINT_MUTATED);\n"
"mysql_query(\"INSERT INTO test (name) VALUES ('test'), ('test2')\");\n"
"assert_tainted(mysql_info(), TAINT_MUTATED);\n"
"$res = mysql_query('SELECT * FROM test');\n"
"$row = mysql_fetch_row($res);\n"
"assert_tainted($row[1], TAINT_HTML);\n"
"$res = mysql_query('SELECT * FROM test');\n"
"$row = mysql_fetch_assoc($res);\n"
"assert_tainted($row['name'], TAINT_HTML);\n"
"$keys = array_keys($row);\n"
"assert_tainted($keys[0], TAINT_HTML);\n"
"assert_tainted($keys[1], TAINT_HTML);\n"
"$row = mysql_fetch_assoc($res);\n"
"assert_tainted($row['name'], TAINT_HTML);\n"
"$keys = array_keys($row);\n"
"assert_tainted($keys[0], TAINT_HTML);\n"
"assert_tainted($keys[1], TAINT_HTML);\n"
"$res = mysql_query('SELECT * FROM test');\n"
"$row = mysql_fetch_array($res);\n"
"assert_tainted($row[1], TAINT_HTML);\n"
"assert_tainted($row['name'], TAINT_HTML);\n"
"$keys = array_keys($row);\n"
"assert_tainted($keys[1], TAINT_HTML);\n"
"assert_tainted($keys[3], TAINT_HTML);\n"
"$res = mysql_query('SELECT * FROM test');\n"
"$row = mysql_fetch_object($res);\n"
"assert_tainted($row->name, TAINT_HTML);\n"
"$res = mysql_query('SELECT * FROM test');\n"
"$ret = mysql_result($res, 0, 'name');\n"
"assert_tainted($ret, TAINT_HTML);\n"
"$ret = mysql_result($res, 0, 'name');\n"
"assert_tainted($ret, TAINT_HTML);\n"
"$ret = mysql_fetch_field($res, 1);\n"
"assert_tainted($ret->name, TAINT_HTML);\n"
"$ret = mysql_field_name($res, 1);\n"
"assert_tainted($ret, TAINT_HTML);\n"
"$ret = mysql_field_table($res, 1);\n"
"assert_tainted($ret, TAINT_HTML);\n"
"mysql_query('DROP TABLE test');\n",
"");
/**
* Network (TODO)
*/
/**
* OpenSSL (TODO)
*/
/**
* Option
*
* get_defined_constants: Taint is passed by reference.
*
* The remaining functions are control functions not requiring taint.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"define('GOOD', $good1);\n"
"define('BAD', $bad1);\n"
"assert_not_tainted(GOOD, TAINT_ALL);\n"
"assert_tainted(BAD, TAINT_ALL);\n"
"$arr = get_defined_constants();\n"
"assert_not_tainted($arr['GOOD'], TAINT_ALL);\n"
"assert_tainted($arr['BAD'], TAINT_ALL);\n"
"define($good2, $bad1);\n"
"define($bad2, $good1);\n"
"assert_tainted(world, TAINT_ALL);\n"
"assert_not_tainted(arent, TAINT_ALL);\n"
"$arr = get_defined_constants();\n"
"assert_tainted($arr[$good2], TAINT_ALL);\n"
"assert_not_tainted($arr[$bad2], TAINT_ALL);\n",
"");
/**
* Oracle (TODO)
*/
/**
* Output
*
* The output buffering system as a whole must propagate taint correctly.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
// ob_start
"ob_start();\n"
"ob_start();\n"
"echo $good1;\n"
"$a = ob_get_clean();\n"
"echo $a;\n"
"$b = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint($b, TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $bad1;\n"
"$a = ob_get_clean();\n"
"echo $a;\n"
"$b = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint($b, TAINT_ALL));\n"
// ob_clean
"ob_start();\n"
"echo $good1;\n"
"ob_clean();\n"
"echo $good2;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"echo $bad1;\n"
"ob_clean();\n"
"echo $good1;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"echo $good1;\n"
"ob_clean();\n"
"echo $bad1;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"echo $bad1;\n"
"ob_clean();\n"
"echo $bad2;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
// ob_flush
"ob_start();\n"
"ob_start();\n"
"echo $good1;\n"
"ob_flush();\n"
"ob_end_clean();\n"
"$a = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $bad1;\n"
"ob_flush();\n"
"ob_end_clean();\n"
"$a = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
// ob_end_clean
"ob_start();\n"
"ob_start();\n"
"echo $good1;\n"
"ob_end_clean();\n"
"echo $good2;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $bad1;\n"
"ob_end_clean();\n"
"echo $good1;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $good1;\n"
"ob_end_clean();\n"
"echo $bad1;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $bad1;\n"
"ob_end_clean();\n"
"echo $bad2;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
// ob_end_flush
"ob_start();\n"
"ob_start();\n"
"echo $good1;\n"
"ob_end_flush();\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $bad1;\n"
"ob_end_flush();\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
// ob_get_clean
"ob_start();\n"
"echo $good1;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"echo $bad1;\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
// ob_get_contents
"ob_start();\n"
"echo $good1;\n"
"$a = ob_get_contents();\n"
"ob_end_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"ob_start();\n"
"echo $bad1;\n"
"$a = ob_get_contents();\n"
"ob_end_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
// ob_get_flush
"ob_start();\n"
"ob_start();\n"
"echo $good1;\n"
"$a = ob_get_flush();\n"
"ob_end_clean();\n"
"$b = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint($b, TAINT_ALL));\n"
"ob_start();\n"
"ob_start();\n"
"echo $bad1;\n"
"$a = ob_get_flush();\n"
"ob_end_clean();\n"
"$b = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"var_dump(fb_get_taint($b, TAINT_ALL));\n"
// ob concatenation semantics
"ob_start();\n"
"echo $good1;\n"
"echo $good2;\n"
"$a = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"ob_start();\n"
"echo $good1;\n"
"echo $bad1;\n"
"$a = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"ob_start();\n"
"echo $bad1;\n"
"echo $good1;\n"
"$a = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n"
"ob_start();\n"
"echo $bad1;\n"
"echo $bad2;\n"
"$a = ob_get_clean();\n"
"var_dump(fb_get_taint($a, TAINT_ALL));\n",
// ob_start
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
// ob_clean
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
// ob_flush
"bool(false)\n"
"bool(true)\n"
// ob_end_clean
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
// ob_end_flush
"bool(false)\n"
"bool(true)\n"
// ob_get_clean
"bool(false)\n"
"bool(true)\n"
// ob_get_contents
"bool(false)\n"
"bool(true)\n"
// ob_get_flush
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
// ob concatenations semantics
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n");
/**
* PDO
* php_mcc
*
* Neither of these libraries define functions (only methods), so for now
* we do not taint.
*/
/**
* Posix
*
* Although in theory, functions like posix_getcwd() could be user-
* controlled, we avoid tainting for simplicity.
*/
/**
* Preg
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
"$tmp = 'The quick brown fox jumped over the lazy dog.';\n"
"$good = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good .= $tmp[$i];\n"
"}\n"
"$bad = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $bad .= $tmp[$i];\n"
"}\n"
"$p1b = '';\n"
"$p2g = '';\n"
"$p3g = '';\n"
"$tmp = '/quick/';\n"
"for($i = 0; $i < strlen($tmp); $i++) {\n"
" $p1b .= $tmp[$i];\n"
"}\n"
"$tmp = '/brown/';\n"
"for($i = 0; $i < strlen($tmp); $i++) {\n"
" $p2g .= $tmp[$i];\n"
"}\n"
"$tmp = '/fox/';\n"
"for($i = 0; $i < strlen($tmp); $i++) {\n"
" $p3g .= $tmp[$i];\n"
"}\n"
"$r1g = '';\n"
"$r2b = '';\n"
"$r3g = '';\n"
"$tmp = 'slow';\n"
"for($i = 0; $i < strlen($tmp); $i++) {\n"
" $r1g .= $tmp[$i];\n"
"}\n"
"$tmp = 'black';\n"
"for($i = 0; $i < strlen($tmp); $i++) {\n"
" $r2b .= $tmp[$i];\n"
"}\n"
"$tmp = 'bear';\n"
"for($i = 0; $i < strlen($tmp); $i++) {\n"
" $r3g .= $tmp[$i];\n"
"}\n"
"fb_set_taint($bad, TAINT_HTML);\n"
"fb_set_taint($p1b, TAINT_HTML);\n"
"fb_set_taint($r2b, TAINT_MUTATED);\n"
"$res = preg_grep('/.*/', array($r1g, $r2b, $r3g));\n"
"assert_not_tainted($res[0], TAINT_MUTATED);\n"
"assert_tainted($res[1], TAINT_MUTATED);\n"
"assert_not_tainted($res[2], TAINT_MUTATED);\n"
"$res = preg_replace(\n"
" array($p1b, $p2g, $p3g),\n"
" array($r1g, $r2b, $r3g),\n"
" $good\n"
");\n"
"assert_tainted($res, TAINT_HTML);\n"
"assert_tainted($res, TAINT_MUTATED);\n"
"$res = preg_split('/ /', $bad);\n"
"foreach ($res as $str) {\n"
" assert_tainted($str, TAINT_HTML);\n"
" assert_tainted($str, TAINT_MUTATED);\n"
"}\n",
"");
/**
* Process: no tests
*
* shellescapeargs, shellescapecmd: These functions mutate but clear
* TAINT_BIT_SHELL.
*
* The remaining functions do not require taint.
*/
/**
* Reflection
*
* These functions are FFI's or are metadata getters, so we elect not
* to taint.
*/
/**
* Server (TODO)
*/
/**
* Session (TODO)
*/
/**
* SimpleXML: no tests
*
* simplexml_load_string: We propagate the input string's taints to the
* strings of the created XML object.
* simplexml_load_file: We assume the file is safe.
*
* The remaining functions are control functions which don't require
* taint.
*/
/**
* SOAP
*
* The only functions defined are a very few control functions, which do
* not require taint.
*/
/**
* SPLFile (TODO)
* SPL (TODO)
*/
/**
* SQLLite3 (TODO)
*/
/**
* Stream (TODO)
*/
/**
* String
*
* A very important class to taint semantics. In general, string functions
* with output should mutate and should otherwise propagate taint. There
* are a few exceptions which do not mutate for convenience, namely:
* - rtrim
* - implode
* - join
* - str_repeat
* - str_pad
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_HELPERS
INIT_TEST_TAINT_STRINGS
"$tmp = 'toto';\n"
"$good3 = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $good3 .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"$common_suite_funcs = array(\n"
" 'stripcslashes',\n"
" 'addslashes',\n"
" 'stripslashes',\n"
" 'nl2br',\n"
" 'quotemeta',\n"
" 'str_shuffle',\n"
" 'strrev',\n"
" 'strtolower',\n"
" 'strtoupper',\n"
" 'ucfirst',\n"
" 'ucwords',\n"
" 'strip_tags',\n"
" 'trim',\n"
" 'ltrim',\n"
" 'html_entity_decode',\n"
" 'htmlentities',\n"
" 'htmlspecialchars_decode',\n"
" 'htmlspecialchars',\n"
" 'quoted_printable_encode',\n"
" 'quoted_printable_decode',\n"
" 'convert_uudecode',\n"
" 'convert_uuencode',\n"
" 'str_rot13',\n"
" 'crypt',\n"
" 'md5',\n"
" 'sha1',\n"
");\n"
"function test_common_suite($func) {\n"
" global $good1, $bad1;\n"
" assert_not_tainted($func($good1), TAINT_HTML);\n"
" assert_tainted($func($bad1), TAINT_HTML);\n"
" assert_tainted($func($good1), TAINT_MUTATED);\n"
" assert_tainted($func($bad1), TAINT_MUTATED);\n"
"}\n"
"foreach ($common_suite_funcs as $func) {\n"
" test_common_suite($func);\n"
"}\n"
"assert_not_tainted(addcslashes($good1, $good2), TAINT_HTML);\n"
"assert_tainted(addcslashes($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(addcslashes($bad1, $good2), TAINT_HTML);\n"
"assert_tainted(addcslashes($bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(addcslashes($good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(addcslashes($good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(addcslashes($bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(addcslashes($bad1, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(rtrim($good1), TAINT_HTML);\n"
"assert_tainted(rtrim($bad1), TAINT_HTML);\n"
"assert_not_tainted(rtrim($good1), TAINT_MUTATED);\n"
"assert_tainted(rtrim($bad1), TAINT_MUTATED);\n"
"assert_not_tainted(rtrim($good1, $good2), TAINT_HTML);\n"
"assert_tainted(rtrim($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(rtrim($bad1, $good2), TAINT_HTML);\n"
"assert_tainted(rtrim($bad1, $bad2), TAINT_HTML);\n"
"assert_not_tainted(rtrim($good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(rtrim($good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(rtrim($bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(rtrim($bad1, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(chop($good1), TAINT_HTML);\n"
"assert_tainted(chop($bad1), TAINT_HTML);\n"
"assert_not_tainted(chop($good1), TAINT_MUTATED);\n"
"assert_tainted(chop($bad1), TAINT_MUTATED);\n"
"$arr = explode(\"\\n\", $good1);\n"
"assert_not_tainted($arr[0], TAINT_HTML);\n"
"assert_not_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"$arr = explode(\"\\n\", $bad1);\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"$arr = array();\n"
"$arr[] = $good1;\n"
"$arr[] = $good2;\n"
"assert_not_tainted(implode(\"\\t\", $arr), TAINT_HTML);\n"
"assert_not_tainted(implode(\"\\t\", $arr), TAINT_MUTATED);\n"
"assert_tainted(implode($bad2, $arr), TAINT_HTML);\n"
"assert_tainted(implode($bad2, $arr), TAINT_MUTATED);\n"
"$arr[] = $bad1;\n"
"assert_tainted(implode(\"\\t\", $arr), TAINT_HTML);\n"
"assert_tainted(implode(\"\\t\", $arr), TAINT_MUTATED);\n"
"$arr = array();\n"
"$arr[] = $good1;\n"
"$arr[] = $good2;\n"
"assert_not_tainted(join(\"\\t\", $arr), TAINT_HTML);\n"
"assert_not_tainted(join(\"\\t\", $arr), TAINT_MUTATED);\n"
"assert_tainted(join($bad2, $arr), TAINT_HTML);\n"
"assert_tainted(join($bad2, $arr), TAINT_MUTATED);\n"
"$arr[] = $bad1;\n"
"assert_tainted(join(\"\\t\", $arr), TAINT_HTML);\n"
"assert_tainted(join(\"\\t\", $arr), TAINT_MUTATED);\n"
"$arr = str_split($good1, 2);\n"
"assert_not_tainted($arr[0], TAINT_HTML);\n"
"assert_not_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"$arr = str_split($bad1, 2);\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"assert_not_tainted(chunk_split($good1, 3, $good2), TAINT_HTML);\n"
"assert_tainted(chunk_split($bad1, 3, $good1), TAINT_HTML);\n"
"assert_tainted(chunk_split($good1, 3, $bad1), TAINT_HTML);\n"
"assert_tainted(chunk_split($good1, 3, $good2), TAINT_MUTATED);\n"
"assert_tainted(chunk_split($bad1, 3, $good1), TAINT_MUTATED);\n"
"assert_tainted(chunk_split($good1, 3, $bad1), TAINT_MUTATED);\n"
"assert_not_tainted(strtok($good1, \"\\n\"), TAINT_HTML);\n"
"assert_not_tainted(strtok(\"\\n\"), TAINT_HTML);\n"
"assert_tainted(strtok($good1, \"\\n\"), TAINT_MUTATED);\n"
"assert_tainted(strtok(\"\\n\"), TAINT_MUTATED);\n"
"assert_tainted(strtok($bad1, \"\\n\"), TAINT_HTML);\n"
"assert_tainted(strtok(\"\\n\"), TAINT_HTML);\n"
"assert_tainted(strtok($bad1, \"\\n\"), TAINT_MUTATED);\n"
"assert_tainted(strtok(\"\\n\"), TAINT_MUTATED);\n"
"assert_not_tainted(str_replace($good2, $good3, $good1), TAINT_HTML);\n"
"assert_tainted(str_replace($bad2, $good3, $good1), TAINT_HTML);\n"
"assert_tainted(str_replace($good2, $bad1, $good1), TAINT_HTML);\n"
"assert_tainted(str_replace($bad2, $bad1, $good1), TAINT_HTML);\n"
"assert_tainted(str_replace($good2, $good3, $bad1), TAINT_HTML);\n"
"assert_tainted(str_replace($bad2, $good3, $bad1), TAINT_HTML);\n"
"assert_tainted(str_replace($good2, $bad1, $bad1), TAINT_HTML);\n"
"assert_tainted(str_replace($bad2, $bad1, $bad1), TAINT_HTML);\n"
"assert_tainted(str_replace($good2, $good3, $good1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($bad2, $good3, $good1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($good2, $bad1, $good1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($bad2, $bad1, $good1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($good2, $good3, $bad1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($bad2, $good3, $bad1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($good2, $bad1, $bad1), TAINT_MUTATED);\n"
"assert_tainted(str_replace($bad2, $bad1, $bad1), TAINT_MUTATED);\n"
"$bad3 = $good2;\n"
"$bad4 = $good3;\n"
"fb_set_taint($bad3, TAINT_HTML);\n"
"fb_set_taint($bad4, TAINT_SQL);\n"
"$arr = str_replace(\n"
" array($good3, $bad3, 'toto'),\n"
" array($good2, $good3, $bad4),\n"
" array($bad1, $good1)\n"
");\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_SQL);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_SQL);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
// If a replacement is not made, no taint, not even MUTATED, is passed.
"assert_not_tainted(str_replace('soup', $good3, $good1), TAINT_MUTATED);\n"
"assert_tainted(str_replace('soup', $good3, $bad1), TAINT_MUTATED);\n"
"$arr = str_replace(\n"
" array($good3, $bad4, 'toto'),\n"
" array($good2, $good3, $bad3),\n"
" array($bad1, $good1)\n"
");\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_SQL);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_not_tainted($arr[1], TAINT_HTML);\n"
"assert_not_tainted($arr[1], TAINT_SQL);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"$arr = str_replace(\n"
" array($bad4, $good2, 'bobo'),\n"
" array($good3, $good3, $bad3),\n"
" array($bad1, $good1)\n"
");\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_SQL);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_not_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_SQL);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"assert_not_tainted(substr_replace($good1, $good2, 2, 3), TAINT_HTML);\n"
"assert_not_tainted(substr_replace($good1, $good2, 2), TAINT_HTML);\n"
"assert_tainted(substr_replace($good1, $bad2, 2, 3), TAINT_HTML);\n"
"assert_tainted(substr_replace($good1, $bad2, 2), TAINT_HTML);\n"
"assert_tainted(substr_replace($bad1, $good2, 2, 3), TAINT_HTML);\n"
"assert_tainted(substr_replace($bad1, $good2, 2), TAINT_HTML);\n"
"assert_tainted(substr_replace($bad1, $bad2, 2, 3), TAINT_HTML);\n"
"assert_tainted(substr_replace($bad1, $bad2, 2), TAINT_HTML);\n"
"assert_tainted(substr_replace($good1, $good2, 2, 3), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($good1, $good2, 2), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($good1, $bad2, 2, 3), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($good1, $bad2, 2), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($bad1, $good2, 2, 3), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($bad1, $good2, 2), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($bad1, $bad2, 2, 3), TAINT_MUTATED);\n"
"assert_tainted(substr_replace($bad1, $bad2, 2), TAINT_MUTATED);\n"
/*
"$arr = substr_replace(\n"
" array($bad1, $good1),\n"
" $bad2, 2, 3\n"
");\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"$arr = substr_replace(\n"
" array($bad1, $good1),\n"
" array($bad2, $good2),\n"
" 2, 3\n"
");\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_not_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
"$arr = substr_replace(\n"
" array($bad1, $good1),\n"
" array($good2, $bad2),\n"
" 2, 3\n"
");\n"
"assert_tainted($arr[0], TAINT_HTML);\n"
"assert_tainted($arr[0], TAINT_MUTATED);\n"
"assert_tainted($arr[1], TAINT_HTML);\n"
"assert_tainted($arr[1], TAINT_MUTATED);\n"
*/
"assert_not_tainted(substr($good1, 5, 5), TAINT_HTML);\n"
"assert_tainted(substr($bad1, 5, 5), TAINT_HTML);\n"
"assert_tainted(substr($good1, 5, 5), TAINT_MUTATED);\n"
"assert_tainted(substr($bad1, 5, 5), TAINT_MUTATED);\n"
"assert_not_tainted(str_pad($good1, 5, $good2), TAINT_HTML);\n"
"assert_tainted(str_pad($bad1, 5, $good1), TAINT_HTML);\n"
"assert_tainted(str_pad($good1, 5, $bad1), TAINT_HTML);\n"
"assert_tainted(str_pad($bad1, 5, $bad2), TAINT_HTML);\n"
"assert_not_tainted(str_pad($good1, 5, $good2), TAINT_MUTATED);\n"
"assert_tainted(str_pad($bad1, 5, $good1), TAINT_MUTATED);\n"
"assert_tainted(str_pad($good1, 5, $bad1), TAINT_MUTATED);\n"
"assert_tainted(str_pad($bad1, 5, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(str_repeat($good1, 5), TAINT_HTML);\n"
"assert_tainted(str_repeat($bad1, 13), TAINT_HTML);\n"
"assert_not_tainted(str_repeat($good1, 5), TAINT_MUTATED);\n"
"assert_tainted(str_repeat($bad1, 13), TAINT_MUTATED);\n"
"assert_not_tainted(wordwrap($good1, 5, $good2, true), TAINT_HTML);\n"
"assert_tainted(wordwrap($bad1, 5, $good1, true), TAINT_HTML);\n"
"assert_tainted(wordwrap($good1, 5, $bad1, true), TAINT_HTML);\n"
"assert_tainted(wordwrap($bad1, 5, $bad2, true), TAINT_HTML);\n"
"assert_tainted(wordwrap($good1, 5, $good2, true), TAINT_MUTATED);\n"
"assert_tainted(wordwrap($bad1, 5, $good1, true), TAINT_MUTATED);\n"
"assert_tainted(wordwrap($good1, 5, $bad1, true), TAINT_MUTATED);\n"
"assert_tainted(wordwrap($bad1, 5, $bad2, true), TAINT_MUTATED);\n"
"fb_set_taint($bad3, TAINT_ALL);\n"
"assert_not_tainted(strtr($good1, $good2, $good3), TAINT_HTML);\n"
"assert_tainted(strtr($good1, $good2, $bad3), TAINT_HTML);\n"
"assert_tainted(strtr($good1, $bad2, $good3), TAINT_HTML);\n"
"assert_tainted(strtr($good1, $bad2, $bad3), TAINT_HTML);\n"
"assert_tainted(strtr($bad1, $good2, $good3), TAINT_HTML);\n"
"assert_tainted(strtr($bad1, $good2, $bad3), TAINT_HTML);\n"
"assert_tainted(strtr($bad1, $bad2, $good3), TAINT_HTML);\n"
"assert_tainted(strtr($bad1, $bad2, $bad3), TAINT_HTML);\n"
"assert_tainted(strtr($good1, $good2, $good3), TAINT_MUTATED);\n"
"assert_tainted(strtr($good1, $good2, $bad3), TAINT_MUTATED);\n"
"assert_tainted(strtr($good1, $bad2, $good3), TAINT_MUTATED);\n"
"assert_tainted(strtr($good1, $bad2, $bad3), TAINT_MUTATED);\n"
"assert_tainted(strtr($bad1, $good2, $good3), TAINT_MUTATED);\n"
"assert_tainted(strtr($bad1, $good2, $bad3), TAINT_MUTATED);\n"
"assert_tainted(strtr($bad1, $bad2, $good3), TAINT_MUTATED);\n"
"assert_tainted(strtr($bad1, $bad2, $bad3), TAINT_MUTATED);\n"
// TODO: Test the other strtr()
"assert_not_tainted(chr(69), TAINT_HTML);\n"
"assert_tainted(chr(69), TAINT_MUTATED);\n"
"assert_not_tainted(strstr($good1, $good2), TAINT_HTML);\n"
"assert_not_tainted(strstr($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(strstr($bad1, $good2), TAINT_HTML);\n"
"assert_tainted(strstr($bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(strstr($good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strstr($good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(strstr($bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strstr($bad1, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(strchr($good1, $good2), TAINT_HTML);\n"
"assert_not_tainted(strchr($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(strchr($bad1, $good2), TAINT_HTML);\n"
"assert_tainted(strchr($bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(strchr($good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strchr($good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(strchr($bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strchr($bad1, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(strrchr($good1, $good2), TAINT_HTML);\n"
"assert_not_tainted(strrchr($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(strrchr($bad1, $good2), TAINT_HTML);\n"
"assert_tainted(strrchr($bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(strrchr($good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strrchr($good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(strrchr($bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strrchr($bad1, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(strpbrk($good1, $good2), TAINT_HTML);\n"
// We'd like this to be
// "assert_not_tainted(strpbrk($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(strpbrk($good1, $bad2), TAINT_HTML);\n"
"assert_tainted(strpbrk($bad1, $good2), TAINT_HTML);\n"
"assert_tainted(strpbrk($bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(strpbrk($good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strpbrk($good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(strpbrk($bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(strpbrk($bad1, $bad2), TAINT_MUTATED);\n"
"$tmp = '%s %s';\n"
"$badpat = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $badpat .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($badpat, TAINT_ALL);\n"
"assert_not_tainted(sprintf('%s %s', $good1, $good2), TAINT_HTML);\n"
"assert_tainted(sprintf('%s %s', $good1, $bad2), TAINT_HTML);\n"
"assert_tainted(sprintf('%s %s', $bad1, $good2), TAINT_HTML);\n"
"assert_tainted(sprintf('%s %s', $bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(sprintf('%s %s', $good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(sprintf('%s %s', $good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(sprintf('%s %s', $bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(sprintf('%s %s', $bad1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(sprintf($badpat, $good1, $good2), TAINT_HTML);\n"
"assert_tainted(sprintf($badpat, $good1, $bad2), TAINT_HTML);\n"
"assert_tainted(sprintf($badpat, $bad1, $good2), TAINT_HTML);\n"
"assert_tainted(sprintf($badpat, $bad1, $bad2), TAINT_HTML);\n"
"assert_tainted(sprintf($badpat, $good1, $good2), TAINT_MUTATED);\n"
"assert_tainted(sprintf($badpat, $good1, $bad2), TAINT_MUTATED);\n"
"assert_tainted(sprintf($badpat, $bad1, $good2), TAINT_MUTATED);\n"
"assert_tainted(sprintf($badpat, $bad1, $bad2), TAINT_MUTATED);\n"
"assert_not_tainted(vsprintf('%s %s', array($good1, $good2)), TAINT_HTML);\n"
"assert_tainted(vsprintf('%s %s', array($good1, $bad2)), TAINT_HTML);\n"
"assert_tainted(vsprintf('%s %s', array($bad1, $good2)), TAINT_HTML);\n"
"assert_tainted(vsprintf('%s %s', array($bad1, $bad2)), TAINT_HTML);\n"
"assert_tainted(vsprintf('%s %s', array($good1, $good2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf('%s %s', array($good1, $bad2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf('%s %s', array($bad1, $good2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf('%s %s', array($bad1, $bad2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf($badpat, array($good1, $good2)), TAINT_HTML);\n"
"assert_tainted(vsprintf($badpat, array($good1, $bad2)), TAINT_HTML);\n"
"assert_tainted(vsprintf($badpat, array($bad1, $good2)), TAINT_HTML);\n"
"assert_tainted(vsprintf($badpat, array($bad1, $bad2)), TAINT_HTML);\n"
"assert_tainted(vsprintf($badpat, array($good1, $good2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf($badpat, array($good1, $bad2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf($badpat, array($bad1, $good2)), TAINT_MUTATED);\n"
"assert_tainted(vsprintf($badpat, array($bad1, $bad2)), TAINT_MUTATED);\n"
"ob_start();\n"
"printf('%s %s', $good1, $good2);\n"
"assert_not_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf('%s %s', $good1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf('%s %s', $bad1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf('%s %s', $bad1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf('%s %s', $good1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf('%s %s', $good1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf('%s %s', $bad1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf('%s %s', $bad1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf($badpat, $good1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf($badpat, $good1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf($badpat, $bad1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf($badpat, $bad1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"printf($badpat, $good1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf($badpat, $good1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf($badpat, $bad1, $good2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"printf($badpat, $bad1, $bad2);\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf('%s %s', array($good1, $good2));\n"
"assert_not_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf('%s %s', array($good1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf('%s %s', array($bad1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf('%s %s', array($bad1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf('%s %s', array($good1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf('%s %s', array($good1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf('%s %s', array($bad1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf('%s %s', array($bad1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf($badpat, array($good1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf($badpat, array($good1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf($badpat, array($bad1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf($badpat, array($bad1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_HTML);\n"
"ob_start();\n"
"vprintf($badpat, array($good1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf($badpat, array($good1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf($badpat, array($bad1, $good2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n"
"ob_start();\n"
"vprintf($badpat, array($bad1, $bad2));\n"
"assert_tainted(ob_get_clean(), TAINT_MUTATED);\n",
"");
/**
* Thread
*
* This is an hphp-specific thread-control library which does not require
* taint.
*/
/**
* Thrift
*
* We currently do not taint thrift calls.
*/
/**
* URL: no tests
*
* Currently all functions mutate. Mutating get_headers() currently causes
* segfaults when tracing and requires further investigation (TODO).
*/
/**
* Variable
*
* serialize, unserialize: These two functions both mutate their outputs.
*
* Most other variable functions propagate taint, but do so by reference
* without the need of TaintObservers.
*/
MVCRO("<?php\n"
INIT_TEST_TAINT_STRINGS
"$tmp = 's:5:\"hello\";';\n"
"$serialized_good = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $serialized_good .= $tmp[$i];\n"
"}\n"
"$tmp = 's:11:\"evil string\";';\n"
"$serialized_bad = '';\n"
"for ($i = 0; $i < strlen($tmp); $i++) {\n"
" $serialized_bad .= $tmp[$i];\n"
"}\n"
"unset($tmp);\n"
"fb_set_taint($serialized_bad, TAINT_ALL);\n"
"$good_arr = array($good2 => $good1);\n"
"$mixed_arr = array($good2 => $bad1, $bad2 => $good1);\n"
"$bad_arr = array($bad2 => $bad1);\n"
"var_dump(fb_get_taint(strval($good1), TAINT_ALL));\n"
"var_dump(fb_get_taint(strval($bad1), TAINT_ALL));\n"
"var_dump(fb_get_taint(print_r($good1, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(print_r($bad1, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(print_r($good_arr, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(print_r($mixed_arr, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(print_r($bad_arr, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(var_export($good1, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(var_export($bad1, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(var_export($good_arr, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(var_export($mixed_arr, true), TAINT_ALL));\n"
"var_dump(fb_get_taint(var_export($bad_arr, true), TAINT_ALL));\n"
"ob_start();\n"
"var_export($good1);\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"var_export($bad1);\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"var_dump($good1);\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"var_dump($bad1);\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"debug_zval_dump($good1);\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"ob_start();\n"
"debug_zval_dump($bad1);\n"
"var_dump(fb_get_taint(ob_get_clean(), TAINT_ALL));\n"
"var_dump(fb_get_taint(serialize($good1), TAINT_HTML));\n"
"var_dump(fb_get_taint(serialize($good1), TAINT_MUTATED));\n"
"var_dump(fb_get_taint(serialize($bad1), TAINT_HTML));\n"
"var_dump(fb_get_taint(serialize($bad1), TAINT_MUTATED));\n"
"var_dump(fb_get_taint(unserialize($serialized_good), TAINT_HTML));\n"
"var_dump(fb_get_taint(unserialize($serialized_good), TAINT_MUTATED));\n"
"var_dump(fb_get_taint(unserialize($serialized_bad), TAINT_HTML));\n"
"var_dump(fb_get_taint(unserialize($serialized_bad), TAINT_MUTATED));\n"
"$arr = get_defined_vars();\n"
"var_dump(fb_get_taint($arr['good1'], TAINT_ALL));\n"
"var_dump(fb_get_taint($arr['bad1'], TAINT_ALL));\n"
"$arr = array(\n"
" 'good1' => $good1,\n"
" 'bad1' => $bad1,\n"
");\n"
"extract($arr, EXTR_PREFIX_ALL, 'extract');\n"
"var_dump(fb_get_taint($extract_good1, TAINT_ALL));\n"
"var_dump(fb_get_taint($extract_bad1, TAINT_ALL));\n",
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(true)\n");
/**
* XML (TODO)
* XMLReader (TODO)
* XMLWriter (TODO)
*/
/**
* zlib (TODO)
*/
return true;
}
#endif
bool TestCodeRun::TestParser() {
MVCRO("<?php function foo() { return array(1, 2, 3);} var_dump(foo()[2]);"
,
"int(3)\n"
);
MVCRO("<?php "
":test::go();"
"class :test {"
" static function go() {"
" echo \"Everything's cool\\n\";"
" }"
"}"
,
"Everything's cool\n"
);
MVCRO("<?php\n"
"class Foo {\n"
" public $a;\n"
" static public $b;\n"
" static public $c;\n"
"}\n"
"$foo = new Foo;\n"
"$foo->a = function ($x) { echo '!' . $x; };\n"
"($foo->a)(\"foo\\n\");\n"
"Foo::$b = function ($x) { echo '?' . $x; };\n"
"(Foo::$b)(\"bar\\n\");\n"
"Foo::$c[0] = function ($x) { echo '.' . $x; };\n"
"(Foo::$c[0])(\"baz\\n\");\n"
,
"!foo\n"
"?bar\n"
".baz\n"
);
MVCRO("<?php\n"
"($a) = 1;\n"
"var_dump($a);\n"
"$b = array();\n"
"($b)[0] = 2;\n"
"var_dump($b[0]);\n"
"$c = new stdClass;\n"
"($c)->prop = 3;\n"
"var_dump($c->prop);\n"
,
"int(1)\n"
"int(2)\n"
"int(3)\n"
);
return true;
}
bool TestCodeRun::TestTypeAssertions() {
MVCR("<?php\n"
"function g(&$x) { var_dump($x); }\n"
"function f($x) {\n"
" if (is_array($x)) { \n"
" var_dump($x);\n"
" var_dump($x[0]);\n"
" var_dump($x[0][1]);\n"
" }\n"
" if (is_array($x) && $x) { \n"
" g($x);\n"
" g($x[0]);\n"
" g($x[0][1]);\n"
" }\n"
"}\n"
"f(null);\n"
"f(array());\n"
"f(array(0, 1));\n"
"f(array(array(1 => 1)));\n");
MVCR("<?php\n"
"function f($x) {\n"
" if (is_array($x) && isset($x[0])) { var_dump($x[0]); }\n"
" else if (is_string($x) && $x && $x[0]) { var_dump($x[0]); }\n"
" else if (is_integer($x)) { var_dump($x); }\n"
"}\n"
"f(array(32));\n"
"f('foobar');\n"
"f(32);\n");
MVCR("<?php\n"
"function f($x) {\n"
" $r = is_array($x) ? $x[0] : false;\n"
" var_dump($r);\n"
" $x = is_string($x) && isset($x[0]) ? $x[0] : false;\n"
" var_dump($x);\n"
" $x = is_string($x) && isset($x[1]) ? "
" $x[1] : isset($x[0]) ? $x[0] : false;\n"
" var_dump($x);\n"
"}\n"
"f('');\n"
"f('foo');\n"
"f('f');\n"
"f(array());\n"
"f(array(32));\n");
MVCR("<?php\n"
"class X {\n"
" public $x = 'foo';\n"
"}\n"
"class Y {\n"
" public $y = 'bar';\n"
"}\n"
"class X1 extends X {\n"
" public $x = 'baz';\n"
"}\n"
"function f($x) {\n"
" if ($x instanceof X && isset($x->x)) {\n"
" var_dump($x->x);\n"
" }\n"
" if ($x instanceof Y && isset($x->y)) {\n"
" var_dump($x->y);\n"
" }\n"
" if (is_a($x, 'X1')) {\n"
" var_dump($x->x);\n"
" }\n"
"}\n"
"f(null);\n"
"f(new X);\n"
"f(new Y);\n"
"f(new X1);\n"
"f(new stdClass());\n");
MVCR("<?php\n"
"function f($x) {\n"
" while (is_array($x) && isset($x[0])) $x = $x[0];\n"
" var_dump($x);\n"
"}\n"
"function g($x) {\n"
" for (; is_array($x) && isset($x[0]); $x = $x[0]);\n"
" var_dump($x);\n"
"}\n"
"function h($x) {\n"
" if (!is_array($x) || !isset($x[0])) return;\n"
" do {\n"
" $x = $x[0];\n"
" } while (is_array($x) && isset($x[0]));\n"
" var_dump($x);\n"
"}\n"
"f(array(array(array(array('hello')))));\n"
"g(array(array(array(array('hello')))));\n"
"h(array(array(array(array('hello')))));\n");
MVCR("<?php\n"
"function block() {}\n"
"function f($x) {\n"
" if (is_int($x) || is_array($x)) {\n"
" var_dump($x[0]);\n"
" }\n"
"}\n"
"function g($x) {\n"
" $x = (array) $x;\n"
" block();\n"
" var_dump($x[0]);\n"
"}\n"
"f(array(10));\n"
"g(array(10));\n");
MVCR("<?php\n"
"function f($x) {\n"
" if (!is_array($x)) {\n"
" var_dump($x[0]);\n"
" } else if (isset($x[0])) {\n"
" var_dump($x[0]);\n"
" }\n"
" if (!!!is_array($x)) {\n"
" var_dump($x[0]);\n"
" } else if (isset($x[0])) {\n"
" var_dump($x[0]);\n"
" }\n"
"}\n"
"function g($x) {\n"
" if (!is_array($x)) return;\n"
" var_dump($x[0]);\n"
"}\n"
"function h($x) {\n"
" if (!is_array($x) && !is_string($x)) {\n"
" var_dump('1');\n"
" } else {\n"
" var_dump($x[0]);\n"
" }\n"
"}\n"
"function i($x) {\n"
" return !is_array($x) ? $x[0] : $x[0];\n"
"}\n"
"class X implements arrayaccess {\n"
" private $container = array();\n"
" public function __construct($container) {\n"
" $this->container = $container;\n"
" }\n"
" public function offsetSet($offset, $value) {\n"
" if (is_null($offset)) {\n"
" $this->container[] = $value;\n"
" } else {\n"
" $this->container[$offset] = $value;\n"
" } \n"
" }\n"
" public function offsetExists($offset) {\n"
" return isset($this->container[$offset]);\n"
" }\n"
" public function offsetUnset($offset) {\n"
" unset($this->container[$offset]);\n"
" }\n"
" public function offsetGet($offset) {\n"
" return isset($this->container[$offset]) ?\n"
" $this->container[$offset] : null;\n"
" }\n"
"}\n"
"$x = new X(array(0, 1, 2));\n"
"f($x);\n"
"f(array(0, 1, 2));\n"
"g($x);\n"
"g(array(0, 1, 2));\n"
"h(array(0, 1, 2));\n"
"h('foobar');\n"
"h(new stdClass());\n"
"var_dump(i($x));\n"
"var_dump(i(array(0, 1, 2)));\n");
MVCR("<?php\n"
"class Base {\n"
" public function f() {\n"
" var_dump('Base::f');\n"
" }\n"
"}\n"
"function get() { return true; }\n"
"if (get()) {\n"
" class X {\n"
" public function f() {\n"
" var_dump('X1::f');\n"
" }\n"
" }\n"
"} else {\n"
" class X {\n"
" public function f() {\n"
" var_dump('X2::f');\n"
" }\n"
" }\n"
"}\n"
"class Y extends X {}\n"
"function f($x) {\n"
" if ($x instanceof Base) {\n"
" $x->f();\n"
" }\n"
" if ($x instanceof X) {\n"
" $x->f();\n"
" }\n"
" if ($x instanceof Y) {\n"
" $x->f();\n"
" }\n"
"}\n"
"f(new Base);\n"
"f(new X);\n"
"f(new Y);\n");
MVCR("<?php\n"
"function f($x) {\n"
" var_dump(is_array($x), $x[0]);\n"
"}\n"
"f(array(0));\n"
"f('foo');\n");
MVCR("<?php\n"
"class X {\n"
" public $propX;\n"
" function baz() {\n"
" echo 'X';\n"
" }\n"
" function foo() {\n"
" if ($this instanceof Y) {\n"
" $this->bar();\n"
" $this->baz();\n"
" var_dump($this->propX);\n"
" return $this->propY;\n"
" }\n"
" return null;\n"
" }\n"
"}\n"
"class Y extends X {\n"
" public $propY;\n"
" function bar(){\n"
" echo 'Y';\n"
" }\n"
"}\n"
"$y = new Y;\n"
"$y->propX = 16;\n"
"$y->propY = 32;\n"
"var_dump($y->foo());\n"
"class A1 {\n"
" public $a1prop;\n"
" function a1method() {\n"
" return 0;\n"
" }\n"
" function doStuff() {\n"
" if ($this instanceof D1) {\n"
" var_dump($this->d1prop);\n"
" var_dump($this->d1method());\n"
" } else if ($this instanceof C1) {\n"
" var_dump($this->c1prop);\n"
" var_dump($this->c1method());\n"
" } else if ($this instanceof B1) {\n"
" var_dump($this->b1prop);\n"
" var_dump($this->b1method());\n"
" } else if ($this instanceof A1) {\n"
" var_dump($this->a1prop);\n"
" var_dump($this->a1method());\n"
" }\n"
" }\n"
"}\n"
"class B1 extends A1 {\n"
" public $b1prop;\n"
" function b1method() {\n"
" return 1;\n"
" }\n"
"}\n"
"if (rand(0, 1)) {\n"
" class C1 extends B1 {\n"
" public $c1prop;\n"
" function c1method() {\n"
" return 2;\n"
" }\n"
" }\n"
"} else {\n"
" class C1 extends B1 {\n"
" public $c1prop;\n"
" function c1method() {\n"
" return 2;\n"
" }\n"
" }\n"
"}\n"
"class D1 extends C1 {\n"
" public $d1prop;\n"
" function d1method() {\n"
" return 3;\n"
" }\n"
"}\n"
"$a1 = new A1;\n"
"$a1->a1prop = 0;\n"
"$a1->doStuff();\n"
"$b1 = new B1;\n"
"$b1->b1prop = 1;\n"
"$b1->doStuff();\n"
"$c1 = new C1;\n"
"$c1->c1prop = 2;\n"
"$c1->doStuff();\n"
"$d1 = new D1;\n"
"$d1->d1prop = 3;\n"
"$d1->doStuff();\n");
MVCR("<?php\n"
" function foo() {\n"
" }\n"
" function main() {\n"
" var_dump(is_null(foo()));\n"
" }\n"
" main();\n");
return true;
}
bool TestCodeRun::TestTraits() {
MVCRO(
"<?php\n"
"trait this_is_a_trait { }\n"
"?>\n"
,
""
);
MVCRO(
"<?php\n"
"class Base {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"trait SayWorld {\n"
" public function sayHello() {\n"
" parent::sayHello();\n"
" echo 'World!';\n"
" }\n"
"}\n"
"class MyHelloWorld extends Base {\n"
" use SayWorld;\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait HelloWorld {\n"
" public function sayHello() {\n"
" echo \"Hello World!\\n\";\n"
" }\n"
"}\n"
"class TheWorldIsNotEnough {\n"
" use HelloWorld;\n"
" public function sayHello() {\n"
" echo \"Hello Universe!\\n\";\n"
" }\n"
"}\n"
"$o = new TheWorldIsNotEnough();\n"
"$o->sayHello();\n"
"?>\n"
,
"Hello Universe!\n"
);
MVCRO(
"<?php\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"trait World {\n"
" public function sayWorld() {\n"
" echo 'World';\n"
" }\n"
"}\n"
"class MyHelloWorld {\n"
" use Hello, World;\n"
" public function sayExclamationMark() {\n"
" echo \"!\\n\";\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"$o->sayWorld();\n"
"$o->sayExclamationMark();\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"trait World {\n"
" public function sayWorld() {\n"
" echo 'World';\n"
" }\n"
" use Hello;\n"
"}\n"
"class MyHelloWorld {\n"
" use World;\n"
" public function sayExclamationMark() {\n"
" echo \"!\\n\";\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"$o->sayWorld();\n"
"$o->sayExclamationMark();\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait SayWorld {\n"
" public function sayHelloWorld() {\n"
" $this->sayHello();\n"
" echo 'World!';\n"
" }\n"
"}\n"
"class MyHelloWorld {\n"
" use SayWorld;\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHelloWorld();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait SayWorld {\n"
" public function sayHello() {\n"
" echo 'Hello from trait!';\n"
" }\n"
"}\n"
"class MyHelloWorld {\n"
" public function sayHello() {\n"
" echo 'Hello from class!';\n"
" }\n"
" use SayWorld;\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"Hello from class!\n"
);
MVCRO(
"<?php\n"
"trait SayWorld {\n"
" public function sayHello() {\n"
" echo 'Hello from trait!';\n"
" }\n"
"}\n"
"class Base {\n"
" public function sayHello() {\n"
" echo 'Hello from Base!';\n"
" }\n"
"}\n"
"class MyHelloWorld extends Base{\n"
" use SayWorld;\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"Hello from trait!\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT1 {\n"
" public function sayHello() {\n"
" echo 'Hello from MY_TRAIT1!';\n"
" }\n"
"}\n"
"trait MY_TRAIT2 {\n"
" public function sayHello() {\n"
" echo 'Hello from MY_TRAIT2!';\n"
" }\n"
"}\n"
"trait MY_TRAIT3 {\n"
" public function sayHello() {\n"
" echo 'Hello from MY_TRAIT3!';\n"
" }\n"
"}\n"
"class MyHelloWorld{\n"
" use MY_TRAIT1, MY_TRAIT2, MY_TRAIT3 {\n"
" MY_TRAIT2::sayHello insteadof MY_TRAIT1, MY_TRAIT3;\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"Hello from MY_TRAIT2!\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT1 {\n"
" public function sayHello() {\n"
" echo 'Hello from MY_TRAIT1!';\n"
" }\n"
"}\n"
"class MyHelloWorld{\n"
" use MY_TRAIT1 {\n"
" MY_TRAIT1::sayHello as falaOi;\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->falaOi();\n"
"?>\n\n"
,
"Hello from MY_TRAIT1!\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT1 {\n"
" public function sayHello() {\n"
" echo \"Hello from MY_TRAIT1!\\n\";\n"
" }\n"
"}\n"
"trait MY_TRAIT2 {\n"
" use MY_TRAIT1;\n"
" public function sayGoodbye() {\n"
" echo \"Goodbye from MY_TRAIT2!\\n\";\n"
" }\n"
"}\n"
"class MyHelloWorld{\n"
" use MY_TRAIT2 {\n"
" MY_TRAIT2::sayHello as falaOi;\n"
" MY_TRAIT2::sayGoodbye as falaTchau;\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->falaOi();\n"
"$o->falaTchau();\n"
"$o->sayHello();\n"
"$o->sayGoodbye();\n"
"?>\n"
,
"Hello from MY_TRAIT1!\n"
"Goodbye from MY_TRAIT2!\n"
"Hello from MY_TRAIT1!\n"
"Goodbye from MY_TRAIT2!\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT2 {\n"
" protected function sayGoodbye() {\n"
" echo \"Goodbye from MY_TRAIT2!\\n\";\n"
" }\n"
"}\n"
"class MyHelloWorld{\n"
" use MY_TRAIT2 {\n"
" MY_TRAIT2::sayGoodbye as public falaTchau;\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->falaTchau();\n"
"?>\n"
,
"Goodbye from MY_TRAIT2!\n"
);
MVCRO(
"<?php\n"
"trait Company {\n"
" public function getName() {\n"
" return 'Facebook';\n"
" }\n"
"}\n"
"trait Person {\n"
" public function getName() {\n"
" return 'Ottoni';\n"
" }\n"
"}\n"
"class Language{}\n"
"class English extends Language {\n"
" use Company, Person {\n"
" Person::getName insteadof Company;\n"
" Company::getName as getCompanyName;\n"
" }\n"
" public function sayHello() {\n"
" echo \"Hello \" . $this->getCompanyName() . \"\\n\";\n"
" echo \"I'm \" . $this->getName() . \"\\n\";\n"
" }\n"
"}\n"
"class Portuguese extends Language {\n"
" use Company, Person {\n"
" Person::getName insteadof Company;\n"
" Company::getName as getCompanyName;\n"
" }\n"
" public function sayHello() {\n"
" echo \"Oi \" . $this->getCompanyName() . \"\\n\";\n"
" echo \"Eu sou \" . $this->getName() . \"\\n\";\n"
" }\n"
"}\n"
"$e = new English();\n"
"$e->sayHello();\n"
"$p = new Portuguese();\n"
"$p->sayHello();\n"
,
"Hello Facebook\n"
"I'm Ottoni\n"
"Oi Facebook\n"
"Eu sou Ottoni\n"
);
MVCRO(
"<?php\n"
"trait A {\n"
" public function say() {\n"
" echo \"Hello\\n\";\n"
" }\n"
"}\n"
"trait B {\n"
" use A {\n"
" A::say as fala;\n"
" }\n"
"}\n"
"class Talker {\n"
" use B;\n"
"}\n"
"$talker = new Talker();\n"
"$talker->fala();\n"
"?>\n"
,
"Hello\n"
);
MVCRO(
"<?php\n"
"trait English {\n"
" public function say() {\n"
" echo \"Banana\\n\";\n"
" }\n"
"}\n"
"trait Portugues {\n"
" use English {\n"
" English::say as fala;\n"
" }\n"
"}\n"
"trait Italiano {\n"
" use Portugues {\n"
" Portugues::fala as parla;\n"
" }\n"
"}\n"
"class Talker {\n"
" use Italiano;\n"
"}\n"
"$talker = new Talker();\n"
"$talker->say();\n"
"$talker->fala();\n"
"$talker->parla();\n"
"?>\n"
,
"Banana\n"
"Banana\n"
"Banana\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT {\n"
" public function sayHello() {\n"
" echo 'World!';\n"
" }\n"
"}\n"
"class MY_CLASS {\n"
" use MY_TRAIT;\n"
"}\n"
"$MY_OBJ = new MY_CLASS();\n"
"$MY_OBJ->sayHello();\n"
"?>\n\n"
,
"World!\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT1 {\n"
" public function sayHello() {\n"
" echo \"Hello from MY_TRAIT1\\n\";\n"
" }\n"
"}\n"
"trait MY_TRAIT2 {\n"
" use MY_TRAIT1;\n"
" public function sayHello() {\n"
" echo \"Hello from MY_TRAIT2\\n\";\n"
" }\n"
"}\n"
"class MY_CLASS {\n"
" use MY_TRAIT2;\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->sayHello();\n"
"?>\n"
,
"Hello from MY_TRAIT2\n"
);
MVCRO(
"<?php\n"
"trait Company {\n"
" public function getName() {\n"
" return 'Facebook';\n"
" }\n"
"}\n"
"class English {\n"
" use Company;\n"
" public function getHi() {\n"
" return \"Hi \";\n"
" }\n"
" public function sayHello() {\n"
" echo $this->getHi() . $this->getName();\n"
" }\n"
"}\n"
"$e = new English();\n"
"$e->sayHello();\n"
"?>\n\n"
,
"Hi Facebook\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" function foo() {\n"
" echo \"Foo\";\n"
" $this->bar();\n"
" }\n"
" abstract function bar();\n"
"}\n"
"class C {\n"
" use T;\n"
" function bar() {\n"
" echo \"BAR!\\n\";\n"
" }\n"
"}\n"
"$x = new C();\n"
"$x->foo();\n"
"?>\n"
,
"FooBAR!\n"
);
MVCRO(
"<?php\n"
"trait SayWorld {\n"
" public function sayHelloWorld() {\n"
" self::sayHello();\n"
" echo 'World!';\n"
" }\n"
"}\n"
"class MyHelloWorld {\n"
" use SayWorld;\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHelloWorld();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"class A {\n"
" public static function who() {\n"
" echo \"A: \" . __CLASS__;\n"
" }\n"
" use T;\n"
"}\n"
"trait T {\n"
" public static function test() {\n"
" static::who(); // Here comes Late Static Bindings\n"
" }\n"
"}\n"
"class B extends A {\n"
" public static function who() {\n"
" echo \"B: \" . __CLASS__;\n"
" }\n"
"}\n"
"B::test();\n"
"?>\n\n"
,
"B: B\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" private function Func1() { echo \"Hello\"; }\n"
"}\n"
"class C {\n"
" use T1 {\n"
" T1::Func1 as public;\n"
" }\n"
"}\n"
"$o = new C;\n"
"$o->Func1();\n"
"?>\n\n"
,
"Hello\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" public $y = 3;\n"
"}\n"
"class C {\n"
" public $x = 10;\n"
" use T;\n"
" public function printY() {\n"
" echo \"x = \" . $this->x . \"\\n\";\n"
" echo \"y = \" . $this->y . \"\\n\";\n"
" }\n"
"}\n"
"class D {\n"
" public $y = 4;\n"
"}\n"
"$o = new C;\n"
"$o->printY();\n"
"?>\n"
,
"x = 10\n"
"y = 3\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" public $y = 3;\n"
"}\n"
"trait T2 {\n"
" public $x = 4;\n"
"}\n"
"class C {\n"
" use T1, T2;\n"
" public function printProps() {\n"
" var_dump($this->y);\n"
" var_dump($this->x);\n"
" }\n"
"}\n"
"$o = new C;\n"
"$o->printProps();\n"
"?>\n"
,
"int(3)\n"
"int(4)\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" var $x = 1977;\n"
"}\n"
"trait T2 {\n"
" var $x = 1977;\n"
"}\n"
"class MY_CLASS {\n"
" use T1, T2;\n"
" var $abc = 1;\n"
" public function printProps() {\n"
" var_dump($this->x);\n"
" }\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->printProps();\n"
"?>\n"
,
"int(1977)\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" public $x = 3;\n"
"}\n"
"trait T2 {\n"
" use T1;\n"
"}\n"
"trait T3 {\n"
" use T1;\n"
"}\n"
"class C {\n"
" use T2, T3;\n"
" public function printProps() {\n"
" var_dump($this->x);\n"
" }\n"
"}\n"
"$o = new C;\n"
"$o->printProps();\n"
"?>\n"
,
"int(3)\n"
);
MVCRO(
"<?php\n"
"class MY_BASE {\n"
" static public $x = 3;\n"
"}\n"
"trait MY_TRAIT {\n"
" static public $x = 3;\n"
"}\n"
"class MY_CLASS extends MY_BASE {\n"
" use MY_TRAIT;\n"
" public function printX() {\n"
" var_dump(self::$x);\n"
" self::$x = 4;\n"
" }\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->printX();\n"
"var_dump(MY_BASE::$x);\n"
"var_dump(MY_CLASS::$x);\n"
"?>\n"
,
"int(3)\n"
"int(3)\n"
"int(4)\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT {\n"
" static public $x = 3;\n"
"}\n"
"class MY_CLASS{\n"
" use MY_TRAIT;\n"
" public function printX() {\n"
" var_dump(self::$x);\n"
" }\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->printX();\n"
"?>\n"
,
"int(3)\n"
);
MVCRO(
"<?php\n"
"class MY_BASE {\n"
" public $x = 3;\n"
"}\n"
"trait MY_TRAIT {\n"
" public $x = 4;\n"
"}\n"
"class MY_CLASS extends MY_BASE {\n"
" use MY_TRAIT;\n"
" public $x = 4;\n"
" public function printX() {\n"
" var_dump($this->x);\n"
" }\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->printX();\n"
"?>\n"
,
"int(4)\n"
);
MVCRO(
"<?php\n"
"class MY_BASE {\n"
" public $x = \"123\";\n"
"}\n"
"trait MY_TRAIT {\n"
" public $x = \"123\";\n"
"}\n"
"class MY_CLASS extends MY_BASE {\n"
" use MY_TRAIT;\n"
" public function printX() {\n"
" var_dump($this->x);\n"
" }\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->printX();\n"
"?>\n"
,
"string(3) \"123\"\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT {\n"
" public $x;\n"
"}\n"
"class MY_CLASS{\n"
" use MY_TRAIT;\n"
" public $x;\n"
" public function printX() {\n"
" var_dump($this->x);\n"
" $this->x = 10;\n"
" var_dump($this->x);\n"
" }\n"
"}\n"
"$o = new MY_CLASS;\n"
"$o->printX();\n"
"?>\n"
,
"NULL\n"
"int(10)\n"
);
MVCRO(
"<?php\n"
"trait A {\n"
" public function smallTalk() {\n"
" echo \"a\\n\";\n"
" }\n"
" public function bigTalk($n) {\n"
" if ($n == 0) return;\n"
" echo \"A$n\\n\";\n"
" $m = $n - 1;\n"
" $this->bigTalk($m);\n"
" }\n"
"}\n"
"trait B {\n"
" public function smallTalk() {\n"
" echo \"b\\n\";\n"
" }\n"
" public function bigTalk($n) {\n"
" if ($n == 0) return;\n"
" echo \"B$n\\n\";\n"
" $this->bigTalk($n - 1);\n"
" }\n"
"}\n"
"class Talker {\n"
" use A, B {\n"
" B::smallTalk insteadof A;\n"
" A::bigTalk insteadof B;\n"
" B::bigTalk as bTalk;\n"
" }\n"
"}\n"
"$talker = new Talker();\n"
"$talker->smallTalk();\n"
"$talker->bigTalk(1);\n"
"$talker->bTalk(2);\n"
"?>\n"
,
"b\n"
"A1\n"
"B2\n"
"A1\n"
);
MVCRO(
"<?php\n"
"trait A {\n"
" function p() {\n"
" echo \"A\\n\";\n"
" }\n"
"}\n"
"trait B {\n"
" function p() {\n"
" echo \"B\\n\";\n"
" }\n"
"}\n"
"trait C {\n"
" function p() {\n"
" echo \"C\\n\";\n"
" }\n"
"}\n"
"class ABC {\n"
" use A, B, C {\n"
" A::p insteadof B, C;\n"
" }\n"
"}\n"
"$abc = new ABC();\n"
"$abc->p();\n"
"?>\n"
,
"A\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" function foo() {\n"
" echo \"Foo\";\n"
" parent::bar();\n"
" echo \"__class__: \" . __class__ . \"\\n\";\n"
" }\n"
"}\n"
"class C {\n"
" function bar() {\n"
" echo \"BAR!\\n\";\n"
" }\n"
"}\n"
"class D extends C {\n"
" use T;\n"
"}\n"
"$x = new D();\n"
"$x->foo();\n"
"?>\n"
,
"FooBAR!\n"
"__class__: D\n"
);
MVCRO(
"<?php\n"
"trait Counter {\n"
" public function inc() {\n"
" static $c = 0;\n"
" $c = $c + 1;\n"
" echo \"$c\\n\";\n"
" }\n"
"}\n"
"class C1 {\n"
" use Counter;\n"
"}\n"
"class C2 {\n"
" use Counter;\n"
"}\n"
"$o = new C1();\n"
"$o->inc();\n"
"$p = new C2();\n"
"$p->inc();\n"
"$o->inc();\n"
"$p->inc();\n"
"?>\n"
,
"1\n"
"1\n"
"2\n"
"2\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" public static function F() {\n"
" echo \"Hello from static function!\\n\";\n"
" }\n"
"}\n"
"class C {\n"
" use T;\n"
"}\n"
"C::F();\n"
"?>\n"
,
"Hello from static function!\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" static function hello() {\n"
" echo \"Hello \";\n"
" }\n"
"}\n"
"trait T2 {\n"
" use T1;\n"
" static function world() {\n"
" echo \"World!\\n\";\n"
" }\n"
"}\n"
"class C {\n"
" use T2;\n"
" static function p() {\n"
" self::hello();\n"
" self::world();\n"
" }\n"
"}\n"
"C::p();\n"
"?>\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" static function hello() {\n"
" echo \"Hello \";\n"
" self::world();\n"
" }\n"
"}\n"
"trait T2 {\n"
" use T1;\n"
" static function world() {\n"
" echo \"World!\\n\";\n"
" }\n"
"}\n"
"class C {\n"
" use T2;\n"
" static function p() {\n"
" self::hello();\n"
" self::world();\n"
" }\n"
"}\n"
"C::p();\n"
"?>\n"
,
"Hello World!\n"
"World!\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" function foo() {\n"
" echo \"Foo\";\n"
" parent::bar();\n"
" echo \"I'm in class \" . get_class() . \"\\n\";\n"
" }\n"
"}\n"
"class C {\n"
" function bar() {\n"
" echo \"BAR!\\n\";\n"
" }\n"
"}\n"
"class D extends C {\n"
" use T;\n"
"}\n"
"$x = new D();\n"
"$x->foo();\n"
"?>\n"
,
"FooBAR!\n"
"I'm in class D\n"
);
MVCRO(
"<?php\n"
"trait HelloWorld {\n"
" private function sayHello() {\n"
" echo \"Hello World!\\n\";\n"
" }\n"
"}\n"
"class MyClass1 {\n"
" use HelloWorld {\n"
" sayHello as public;\n"
" }\n"
"}\n"
"class MyClass2 {\n"
" use HelloWorld {\n"
" sayHello as final;\n"
" }\n"
"}\n"
"$a = new MyClass1;\n"
"$a->sayHello();\n"
"$a = new MyClass2;\n"
"$a->sayHello();\n"
"?>\n"
,
"Hello World!\n"
"Hello World!\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"trait THello1 {\n"
" public $hello = \"Hello\";\n"
"}\n"
"trait THello2 {\n"
" private $world = \"World!\\n\";\n"
"}\n"
"class TraitsTest {\n"
" use THello1;\n"
" use THello2;\n"
" function test() {\n"
" echo $this->hello . ' ' . $this->world;\n"
" }\n"
"}\n"
"var_dump(property_exists('TraitsTest', 'hello'));\n"
"var_dump(property_exists('TraitsTest', 'world'));\n"
"$t = new TraitsTest;\n"
"$t->test();\n"
"?>\n"
,
"bool(true)\n"
"bool(true)\n"
"Hello World!\n"
);
MVCRO(
"<?php\n"
"class Base {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"class MyHelloWorld extends Base {\n"
" use SayWorld;\n"
"}\n"
"trait SayWorld {\n"
" public function sayHello() {\n"
" parent::sayHello();\n"
" echo 'World!';\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait Hello {\n"
" public function say() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"trait World {\n"
" public function say() {\n"
" echo 'World';\n"
" }\n"
"}\n"
"class MyHelloWorld {\n"
" use Hello {\n"
" Hello::say as sayHello;\n"
" }\n"
" public function say() {\n"
" $this->sayHello();\n"
" $this->sayWorld();\n"
" echo \"!\\n\";\n"
" }\n"
" use World {\n"
" World::say as sayWorld;\n"
" }\n"
"}\n"
"$o = new MyHelloWorld();\n"
"$o->say();\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo \"Hello\\n\";\n"
" }\n"
"}\n"
"trait Hello1 {\n"
" use Hello;\n"
"}\n"
"trait Hello2 {\n"
" use Hello;\n"
"}\n"
"class MyClass {\n"
" use Hello1, Hello2 {\n"
" Hello1::sayHello insteadof Hello2;\n"
" }\n"
"}\n"
"$o = new MyClass();\n"
"$o->sayHello();\n"
,
"Hello\n"
);
MVCRO(
"<?php\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo \"Hello\\n\";\n"
" }\n"
"}\n"
"trait Hello1 {\n"
" public function sayNum() {\n"
" echo \"1\\n\";\n"
" }\n"
"}\n"
"trait Hello2 {\n"
" public function sayNum() {\n"
" echo \"2\\n\";\n"
" }\n"
"}\n"
"class MyClass {\n"
" use Hello1, Hello2 {\n"
" Hello1::sayNum insteadof Hello2;\n"
" }\n"
" use Hello2 {\n"
" }\n"
"}\n"
"$o = new MyClass();\n"
"$o->sayNum();\n"
,
"1\n"
);
MVCRO(
"<?php\n"
"trait Hello1 {\n"
" public function sayNum() {\n"
" echo \"1\\n\";\n"
" }\n"
"}\n"
"trait Hello2 {\n"
" public function sayNum() {\n"
" echo \"2\\n\";\n"
" }\n"
"}\n"
"class MyClass {\n"
" use Hello1 {\n"
" Hello1::sayNum insteadof Hello2;\n"
" }\n"
" use Hello2;\n"
"}\n"
"$o = new MyClass();\n"
"$o->sayNum();\n"
,
"1\n"
);
MVCRO(
"<?php\n"
"trait MyTrait {\n"
" public function say_meth() {\n"
" echo \"meth: MyTrait\\n\";\n"
" }\n"
"}\n"
"class MyBase {\n"
" public function say_meth() {\n"
" echo \"meth: MyBase\\n\";\n"
" }\n"
"}\n"
"class MyClass {\n"
" use MyTrait;\n"
" public function print_meth() {\n"
" echo \"meth: MyClass\\n\";\n"
" }\n"
"}\n"
"$o = new MyClass();\n"
"$o->print_meth();\n"
,
"meth: MyClass\n"
);
MVCRO(
"<?php\n"
"trait A {\n"
" public function say() {\n"
" echo \"Hello\";\n"
" }\n"
"}\n"
"trait B {\n"
" use A {\n"
" A::say as fala;\n"
" }\n"
"}\n"
"class Talker {\n"
" use B;\n"
"}\n"
"$talker = new Talker();\n"
"$talker->fala();\n"
"?>\n\n"
,
"Hello\n"
);
MVCRO(
"<?php\n"
"class Direct {\n"
" use TestTrait;\n"
"}\n"
"class IndirectInheritance extends Direct {\n"
"}\n"
"trait TestTraitIndirect {\n"
" use TestTrait;\n"
"}\n"
"class Indirect {\n"
" use TestTraitIndirect;\n"
"}\n"
"function test() {\n"
" return \"__TRAIT__: <\" . __TRAIT__ .\n"
" \"> __CLASS__: <\" . __CLASS__ .\n"
" \"> __METHOD__: <\" . __METHOD__ . \">\";\n"
"}\n"
"class NoTraitUsed {\n"
" public static function test() {\n"
" return \"__TRAIT__: <\" . __TRAIT__ .\n"
" \"> __CLASS__: <\" . __CLASS__ .\n"
" \"> __METHOD__: <\" . __METHOD__ . \">\";\n"
" }\n"
"}\n"
"trait TestTrait {\n"
" public static function test() {\n"
" return \"__TRAIT__: <\" . __TRAIT__ .\n"
" \"> __CLASS__: <\" . __CLASS__ .\n"
" \"> __METHOD__: <\" . __METHOD__ . \">\";\n"
" }\n"
"}\n"
"echo Direct::test().\"\\n\";\n"
"echo IndirectInheritance::test().\"\\n\";\n"
"echo Indirect::test().\"\\n\";\n"
"echo NoTraitUsed::test().\"\\n\";\n"
"echo test().\"\\n\";\n"
,
"__TRAIT__: <TestTrait> __CLASS__: <Direct> __METHOD__: <TestTrait::test>\n"
"__TRAIT__: <TestTrait> __CLASS__: <Direct> __METHOD__: <TestTrait::test>\n"
"__TRAIT__: <TestTrait> __CLASS__: <Indirect> __METHOD__: <TestTrait::test>\n"
"__TRAIT__: <> __CLASS__: <NoTraitUsed> __METHOD__: <NoTraitUsed::test>\n"
"__TRAIT__: <> __CLASS__: <> __METHOD__: <test>\n"
);
MVCRO(
"<?php\n"
"trait HelloWorld {\n"
" private function sayHello() {\n"
" echo \"Hello World 1!\\n\";\n"
" }\n"
"}\n"
"trait HelloWorld2 {\n"
" public function sayHello2() {\n"
" echo \"Hello World 2!\\n\";\n"
" }\n"
"}\n"
"class MyClass1 {\n"
" use HelloWorld2 {\n"
" sayHello as public;\n"
" }\n"
" use HelloWorld;\n"
"}\n"
"$a = new MyClass1;\n"
"$a->sayHello();\n"
"$a->sayHello2();\n"
"?>\n"
,
"Hello World 1!\n"
"Hello World 2!\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT {\n"
" public function sayHello() {\n"
" echo \"Hello World!\\n\";\n"
" }\n"
"}\n"
"class MY_CLASS {\n"
" use MY_TRAIT {\n"
" sayHello as falaOi;\n"
" }\n"
"}\n"
"$a = new MY_CLASS;\n"
"$a->falaOi();\n"
"?>\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"class this_is_a_class { }\n"
"interface this_is_an_interface {\n"
" public function this_is_an_interface_method();\n"
"}\n"
"trait this_is_a_trait { }\n"
"abstract class this_is_an_abstract_class { }\n"
"final class this_is_a_final_class { }\n"
"var_dump(get_declared_traits());\n"
"?>\n"
,
"array(1) {\n"
" [0]=>\n"
" string(15) \"this_is_a_trait\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"class this_is_a_class {\n"
" function class_func() {}\n"
"}\n"
"trait this_is_a_trait {\n"
" function trait_func() {}\n"
"}\n"
"interface this_is_an_interface {\n"
" function interface_func();\n"
"}\n"
"$rclass = new ReflectionClass('this_is_a_class');\n"
"var_dump($rclass->isTrait());\n"
"$rtrait = new ReflectionClass('this_is_a_trait');\n"
"var_dump($rtrait->isTrait());\n"
"$rinterface = new ReflectionClass('this_is_an_interface');\n"
"var_dump($rinterface->isTrait());\n"
,
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
);
if (!hhvm) {
MVCRO(
"<?php\n"
"namespace test {\n"
" class a { }\n"
" interface b { }\n"
" trait c { }\n"
" abstract class d { }\n"
" final class e { }\n"
" var_dump(get_declared_traits());\n"
"}\n"
,
"array(1) {\n"
" [0]=>\n"
" string(6) \"test\\c\"\n"
"}\n"
);
}
MVCRO(
"<?php\n"
"class MY_CLASS { }\n"
"interface MY_INTERFACE { }\n"
"trait MY_TRAIT { }\n"
"abstract class MY_ABSTRCT_CLASS { }\n"
"final class MY_FINAL_CLASS { }\n"
"var_dump(get_declared_traits());\n"
"?>\n"
,
"array(1) {\n"
" [0]=>\n"
" string(8) \"MY_TRAIT\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"class MY_CLASS {}\n"
"trait MY_TRAIT {}\n"
"interface MY_INTERFACE {}\n"
"var_dump(trait_exists('MY_CLASS'));\n"
"var_dump(trait_exists('MY_INTERFACE'));\n"
"var_dump(trait_exists('MY_TRAIT'));\n"
"var_dump(trait_exists('UNDECLARED'));\n"
"var_dump(trait_exists(1));\n"
"var_dump(trait_exists(NULL));\n"
,
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
);
if (!hhvm) {
MVCRO(
"<?php\n"
"namespace foo;\n"
"trait IFoo { }\n"
"trait ITest { }\n"
"var_dump(trait_exists('IFoo'));\n"
"var_dump(trait_exists('foo\\\\IFoo'));\n"
"var_dump(trait_exists('FOO\\\\ITEST'));\n"
"?>\n"
,
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
);
}
MVCRO(
"<?php\n"
"trait Foo {\n"
" public function Foo() {\n"
" }\n"
"}\n"
"class Bar {\n"
" use Foo;\n"
" public function Bar() {\n"
" }\n"
"}\n"
"$rfoofoo = new ReflectionMethod('Foo::Foo');\n"
"var_dump($rfoofoo->isConstructor());\n"
"$rbarfoo = new ReflectionMethod('Bar::Foo');\n"
"var_dump($rbarfoo->isConstructor());\n"
"$rbarbar = new ReflectionMethod('Bar::Bar');\n"
"var_dump($rbarbar->isConstructor());\n"
,
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
);
MVCRO(
"<?php\n"
"trait Test {\n"
" public function __construct() { }\n"
" public function __destruct() { }\n"
" public function func() { }\n"
"}\n"
"$rconstr = new ReflectionMethod('Test::__construct');\n"
"$rdestr = new ReflectionMethod('Test::__destruct');\n"
"$rfunc = new ReflectionMethod('Test::func');\n"
"var_dump($rconstr->isConstructor());\n"
"var_dump($rconstr->isDestructor());\n"
"var_dump($rdestr->isConstructor());\n"
"var_dump($rdestr->isDestructor());\n"
"var_dump($rfunc->isConstructor());\n"
"var_dump($rfunc->isDestructor());\n"
,
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
);
if (!hhvm) {
MVCRO(
"<?php\n"
"namespace N1 {\n"
" trait T1 {\n"
" public function hello() { return 'hello from t1'; }\n"
" }\n"
" trait T2 {\n"
" public function hello() { return 'hello from t2'; }\n"
" }\n"
"}\n"
"namespace N2 {\n"
" use N1\\T1;\n"
" use N1\\T2;\n"
" class A {\n"
" use T1, T2 {\n"
" T1::hello insteadof T2;\n"
" T2::hello as foo;\n"
" }\n"
" }\n"
" $a = new A;\n"
" echo $a->hello(), PHP_EOL;\n"
" echo $a->foo(), PHP_EOL;\n"
"}\n"
,
"hello from t1\n"
"hello from t2\n"
);
}
MVCRO(
"<?php\n"
"/* Prototype : proto array get_declared_traits()\n"
" * Description: Returns an array of all declared traits.\n"
" * Source code: Zend/zend_builtin_functions.c\n"
" * Alias to functions:\n"
" */\n"
"$traits = get_declared_traits();\n"
"var_dump($traits);\n"
"var_dump(in_array('T1', $traits));\n"
"var_dump(in_array('T1', get_declared_traits()));\n"
,
"array(0) {\n"
"}\n"
"bool(false)\n"
"bool(false)\n"
);
MVCRO(
"<?php\n"
"trait MY_TRAIT { }\n"
"class MY_CLASS { use MY_TRAIT; }\n"
"$r = new ReflectionClass('MY_CLASS');\n"
"var_dump($r->getTraitNames());\n"
"?>\n"
,
"array(1) {\n"
" [0]=>\n"
" string(8) \"MY_TRAIT\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"trait T1 {}\n"
"trait T2 {}\n"
"trait T3 { use T2; }\n"
"class C1 {}\n"
"class C2 { use T1; }\n"
"class C3 { use T1, T2; }\n"
"class C4 { use T3; }\n"
"class C5 extends C4 {}\n"
"interface I1 {}\n"
"echo \"T1:\\n\";\n"
"var_dump(class_uses('T1'));\n"
"$rt1 = new ReflectionClass('T1');\n"
"var_dump($rt1->getTraitNames());\n"
"echo \"\\nT3:\\n\";\n"
"var_dump(class_uses('T3'));\n"
"$rt3 = new ReflectionClass('T3');\n"
"var_dump($rt3->getTraitNames());\n"
"echo \"\\nC1:\\n\";\n"
"var_dump(class_uses('C1'));\n"
"$rc1 = new ReflectionClass('C1');\n"
"var_dump($rc1->getTraitNames());\n"
"echo \"\\nC2:\\n\";\n"
"var_dump(class_uses('C2'));\n"
"$rc2 = new ReflectionClass('C2');\n"
"var_dump($rc2->getTraitNames());\n"
"echo \"\\nC3:\\n\";\n"
"var_dump(class_uses('C3'));\n"
"$rc3 = new ReflectionClass('C3');\n"
"var_dump($rc3->getTraitNames());\n"
"echo \"\\nC4:\\n\";\n"
"var_dump(class_uses('C4'));\n"
"$rc4 = new ReflectionClass('C4');\n"
"var_dump($rc4->getTraitNames());\n"
"echo \"\\nC5:\\n\";\n"
"var_dump(class_uses('C5'));\n"
"$rc5 = new ReflectionClass('C5');\n"
"var_dump($rc5->getTraitNames());\n"
"echo \"\\nI1:\\n\";\n"
"var_dump(class_uses('I1'));\n"
"$ri1 = new ReflectionClass('I1');\n"
"var_dump($ri1->getTraitNames());\n"
"?>\n"
,
"T1:\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n\n"
"T3:\n"
"array(1) {\n"
" [\"T2\"]=>\n"
" string(2) \"T2\"\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" string(2) \"T2\"\n"
"}\n\n"
"C1:\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n\n"
"C2:\n"
"array(1) {\n"
" [\"T1\"]=>\n"
" string(2) \"T1\"\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" string(2) \"T1\"\n"
"}\n\n"
"C3:\n"
"array(2) {\n"
" [\"T1\"]=>\n"
" string(2) \"T1\"\n"
" [\"T2\"]=>\n"
" string(2) \"T2\"\n"
"}\n"
"array(2) {\n"
" [0]=>\n"
" string(2) \"T1\"\n"
" [1]=>\n"
" string(2) \"T2\"\n"
"}\n\n"
"C4:\n"
"array(1) {\n"
" [\"T3\"]=>\n"
" string(2) \"T3\"\n"
"}\n"
"array(1) {\n"
" [0]=>\n"
" string(2) \"T3\"\n"
"}\n\n"
"C5:\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n\n"
"I1:\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
);
MVCRO(
"<?php\n"
"trait T2 {}\n"
"trait T3 { use T2; }\n"
"trait T1 {}\n"
"class C1 { }\n"
"class C2 { use T2; }\n"
"class C3 { use T3, T1; }\n"
"var_dump(class_uses(new C1));\n"
"var_dump(class_uses(new C2));\n"
"var_dump(class_uses(new C3));\n"
,
"array(0) {\n"
"}\n"
"array(1) {\n"
" [\"T2\"]=>\n"
" string(2) \"T2\"\n"
"}\n"
"array(2) {\n"
" [\"T3\"]=>\n"
" string(2) \"T3\"\n"
" [\"T1\"]=>\n"
" string(2) \"T1\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"trait Hello1 {\n"
" public function sayNum() {\n"
" echo \"1\\n\";\n"
" }\n"
"}\n"
"trait Hello2 {\n"
" public function sayNum() {\n"
" echo \"2\\n\";\n"
" }\n"
"}\n"
"class MyClass {\n"
" use Hello1, Hello2 {\n"
" Hello1::sayNum insteadof Hello2;\n"
" }\n"
" use Hello2 {\n"
" }\n"
"}\n"
"var_dump(class_uses('MyClass'));\n"
,
"array(2) {\n"
" [\"Hello1\"]=>\n"
" string(6) \"Hello1\"\n"
" [\"Hello2\"]=>\n"
" string(6) \"Hello2\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"trait T1 { function F() {} }\n"
"trait T2 { function F() {} }\n"
"trait T3 { use T2 { F as G; } }\n"
"class C1 {\n"
" use T1, T2 {\n"
" T1::F insteadof T2;\n"
" T2::F as G;\n"
" }\n"
"}\n"
"class C2 {\n"
" use T3;\n"
"}\n"
"$rc1 = new ReflectionClass('C1');\n"
"var_dump($rc1->getTraitAliases());\n"
"$rc2 = new ReflectionClass('C2');\n"
"var_dump($rc2->getTraitAliases());\n"
"$rc3 = new ReflectionClass('T3');\n"
"var_dump($rc3->getTraitAliases());\n"
,
"array(1) {\n"
" [\"G\"]=>\n"
" string(5) \"T2::F\"\n"
"}\n"
"array(0) {\n"
"}\n"
"array(1) {\n"
" [\"G\"]=>\n"
" string(9) \"(null)::F\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"class C1 {}\n"
"trait T1 {}\n"
"interface I1 {}\n"
"var_dump(class_implements('C1'));\n"
"var_dump(class_parents('C1'));\n"
"var_dump(class_uses('C1'));\n"
"var_dump(class_implements('I1'));\n"
"var_dump(class_parents('I1'));\n"
"var_dump(class_uses('I1'));\n"
"var_dump(class_implements('T1'));\n"
"var_dump(class_parents('T1'));\n"
"var_dump(class_uses('T1'));\n"
,
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" function F(&$a, $b=\"default\") {\n"
" $a .= \" = \" . $b;\n"
" }\n"
"}\n"
"class C {\n"
" use T;\n"
"}\n"
"$o = new C;\n"
"$x = \"value\";\n"
"$o->F($x);\n"
"echo $x;\n"
"echo \"\\n\";\n"
"$y = \"zero\";\n"
"$o->F($y, \"0\");\n"
"echo $y;\n"
"?>\n\n"
,
"value = default\n"
"zero = 0\n"
);
// Zend tests
MVCRO(
"<?php\n"
"echo \"*** Testing class_uses() : basic ***\\n\";\n"
"\n"
"\n"
"trait foo { }\n"
"class fooUser { use foo; }\n"
"\n"
"trait bar { }\n"
"class barUser { use bar; }\n"
"\n"
"class foobarUser { use foo, bar; }\n"
"\n"
"/** There is no semantics for traits in the inheritance chain.\n"
" Traits are flattend into a class, and that semantics is nothing\n"
" like a type, or interface, and thus, not propergated. */\n"
"class fooViaBarUser extends barUser { use foo; }\n"
"\n"
"class fooExtended extends fooUser {}\n"
"\n"
"s_var_dump(class_uses(new foobarUser));\n"
"s_var_dump(class_uses('foobarUser'));\n"
"s_var_dump(class_uses(new fooViaBarUser));\n"
"s_var_dump(class_uses('fooViaBarUser'));\n"
"s_var_dump(class_uses(new fooExtended));\n"
"s_var_dump(class_uses('fooExtended'));\n"
"\n"
"\n"
"function s_var_dump($arr) {\n"
" krsort($arr);\n"
" var_dump($arr);\n"
"}\n"
"?>\n"
"===DONE===\n"
,
"*** Testing class_uses() : basic ***\n"
"array(2) {\n"
" [\"foo\"]=>\n"
" string(3) \"foo\"\n"
" [\"bar\"]=>\n"
" string(3) \"bar\"\n"
"}\n"
"array(2) {\n"
" [\"foo\"]=>\n"
" string(3) \"foo\"\n"
" [\"bar\"]=>\n"
" string(3) \"bar\"\n"
"}\n"
"array(1) {\n"
" [\"foo\"]=>\n"
" string(3) \"foo\"\n"
"}\n"
"array(1) {\n"
" [\"foo\"]=>\n"
" string(3) \"foo\"\n"
"}\n"
"array(0) {\n"
"}\n"
"array(0) {\n"
"}\n"
"===DONE===\n"
);
MVCRO(
"<?php\n"
"\n"
"interface a { }\n"
"\n"
"abstract class b { }\n"
"\n"
"final class c { }\n"
"\n"
"trait d {}\n"
"\n"
"var_dump(class_exists('a'));\n"
"var_dump(class_exists('b'));\n"
"var_dump(class_exists('c'));\n"
"var_dump(class_exists('d'));\n"
"\n"
"?>\n"
,
"bool(false)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Hello {\n"
" public function saySomething() {\n"
" echo 'Hello';\n"
" }\n"
"}\n"
"\n"
"trait World {\n"
" public function saySomething() {\n"
" echo 'World';\n"
" }\n"
"}\n"
" \n"
"class MyHelloWorld {\n"
" use Hello, World {\n"
" Hello::saySomething insteadof World;\n"
" }\n"
"}\n"
" \n"
"$o = new MyHelloWorld();\n"
"$o->saySomething();\n"
"?>\n\n"
,
"Hello\n"
);
MVCRO(
"<?php\n"
"\n"
"trait Singleton {\n"
" protected static $instances=array();\n"
" abstract protected function __construct($config);\n"
" public static function getInstance($config) {\n"
" if (!isset(self::$instances[$serialize = serialize($config)])) {\n"
" self::$instances[$serialize] = new self($config);\n"
" }\n"
" return self::$instances[$serialize];\n"
" }\n"
"}\n"
"\n"
"class MyHelloWorld {\n"
" use Singleton;\n"
" public function __construct($config)\n"
" {\n"
" var_dump( $config);\n"
" }\n"
"}\n"
"\n"
"\n"
"$o= myHelloWorld::getInstance(1);\n"
"$o= myHelloWorld::getInstance(1);\n"
"$o= myHelloWorld::getInstance(2);\n"
"$o= myHelloWorld::getInstance(array(1=>2));\n"
"$o= myHelloWorld::getInstance(array(1=>2));\n"
"\n"
"?>\n"
,
"int(1)\n"
"int(2)\n"
"array(1) {\n"
" [1]=>\n"
" int(2)\n"
"}\n"
);
MVCRO(
"<?php\n"
"\n"
"trait foo { \n"
" public function __construct() {\n"
" var_dump(__FUNCTION__);\n"
" }\n"
" public function __destruct() {\n"
" var_dump(__FUNCTION__);\n"
" }\n"
"}\n"
"\n"
"class bar {\n"
" use foo;\n"
"}\n"
"\n"
"new bar;\n"
"\n"
"?>\n"
,
"string(11) \"__construct\"\n"
"string(10) \"__destruct\"\n"
);
MVCRO(
"<?php\n"
"\n"
" trait TestTrait {\n"
" public static function test() {\n"
" return 'Test';\n"
" }\n"
" }\n"
"\n"
" class A {\n"
" use TestTrait;\n"
" }\n"
"\n"
" $class = \"A\";\n"
" echo $class::test();\n"
"\n"
"?>\n\n"
,
"Test\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"\n"
"trait World {\n"
" public function sayWorld() {\n"
" echo 'World!';\n"
" }\n"
"}\n"
"\n"
"trait HelloWorld {\n"
" use Hello, World;\n"
"}\n"
"\n"
"class MyHelloWorld {\n"
" use HelloWorld;\n"
"}\n"
"\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"$o->sayWorld();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Counter {\n"
" public function inc() {\n"
" static $c = 0;\n"
" $c = $c + 1;\n"
" echo \"$c\\n\";\n"
" }\n"
"}\n"
"\n"
"\n"
"class C1 {\n"
" use Counter;\n"
"}\n"
"\n"
"$o = new C1();\n"
"$o->inc();\n"
"$o->inc();\n"
"\n"
"?>\n"
,
"1\n"
"2\n"
);
MVCRO(
"<?php\n"
"trait T1 { function m1() { } function m2() { } }\n"
"\n"
"class C1 { }\n"
"class C2 { use T1; }\n"
"class C3 { use T1 { m1 as a1; } }\n"
"class C4 { use T1 { m1 as a1; m2 as a2; } }\n"
"\n"
"for ($c = \"C1\"; $c <= \"C4\"; $c++) {\n"
" echo \"class $c:\\n\";\n"
" $r = new ReflectionClass($c);\n"
" var_dump($r->getTraitAliases());\n"
" echo \"\\n\";\n"
"}\n"
"?>\n"
,
"class C1:\n"
"array(0) {\n"
"}\n"
"\n"
"class C2:\n"
"array(0) {\n"
"}\n"
"\n"
"class C3:\n"
"array(1) {\n"
" [\"a1\"]=>\n"
" string(10) \"(null)::m1\"\n"
"}\n"
"\n"
"class C4:\n"
"array(2) {\n"
" [\"a1\"]=>\n"
" string(10) \"(null)::m1\"\n"
" [\"a2\"]=>\n"
" string(10) \"(null)::m2\"\n"
"}\n"
"\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Hello {\n"
" public function saySomething() {\n"
" echo 'Hello';\n"
" }\n"
"}\n"
"\n"
"trait World {\n"
" public function saySomething() {\n"
" echo ' World';\n"
" }\n"
"}\n"
" \n"
"class MyHelloWorld {\n"
" use Hello, World {\n"
" Hello::saySomething insteadof World;\n"
" World::saySomething as sayWorld;\n"
" }\n"
"}\n"
" \n"
"$o = new MyHelloWorld();\n"
"$o->saySomething();\n"
"$o->sayWorld();\n"
"?>\n\n"
,
"Hello World\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait THello1 {\n"
" public $hello = \"hello\";\n"
"}\n"
"\n"
"trait THello2 {\n"
" private $world = \"World!\";\n"
"}\n"
"\n"
"class TraitsTest {\n"
" use THello1;\n"
" use THello2;\n"
" function test() {\n"
" echo $this->hello . ' ' . $this->world;\n"
" }\n"
"}\n"
"\n"
"var_dump(property_exists('TraitsTest', 'hello'));\n"
"var_dump(property_exists('TraitsTest', 'world'));\n"
"\n"
"$t = new TraitsTest;\n"
"$t->test();\n"
"?>\n\n"
,
"bool(true)\n"
"bool(true)\n"
"hello World!\n"
);
MVCRO(
"<?php\n"
"\n"
"interface a { }\n"
"\n"
"abstract class b { }\n"
"\n"
"final class c { }\n"
"\n"
"trait d {}\n"
"\n"
"var_dump(trait_exists('a'));\n"
"var_dump(trait_exists('b'));\n"
"var_dump(trait_exists('c'));\n"
"var_dump(trait_exists('d'));\n"
"\n"
"?>\n"
,
"bool(false)\n"
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
);
MVCRO(
"<?php\n"
"\n"
" trait TestTrait {\n"
" public static function test() {\n"
" return get_called_class();\n"
" }\n"
" }\n"
"\n"
" class A {\n"
" use TestTrait;\n"
" }\n"
"\n"
" class B extends A { }\n"
"\n"
" echo B::test();\n"
"\n"
"?>\n\n"
,
"B\n"
);
MVCRO(
"<?php\n"
"\n"
"trait foo { \n"
" public function __toString() {\n"
" return '123';\n"
" }\n"
" \n"
" public function __get($x) {\n"
" var_dump($x);\n"
" }\n"
" \n"
" public function __set($attr, $val) {\n"
" var_dump($attr .'==='. $val);\n"
" }\n"
" \n"
" public function __clone() {\n"
" var_dump(__FUNCTION__);\n"
" }\n"
"}\n"
"\n"
"class bar {\n"
" use foo;\n"
"}\n"
"\n"
"$o = new bar;\n"
"echo $o, PHP_EOL;\n"
"$o->xyz;\n"
"$o->xyz = 2;\n"
"clone $o;\n"
"\n"
"?>\n"
,
"123\n"
"string(3) \"xyz\"\n"
"string(7) \"xyz===2\"\n"
"string(7) \"__clone\"\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait HelloWorld {\n"
" public function sayHello() {\n"
" echo 'Hello World!';\n"
" }\n"
"}\n"
"\n"
"class TheWorldIsNotEnough {\n"
" use HelloWorld;\n"
" public function sayHello() {\n"
" echo 'Hello Universe!';\n"
" }\n"
"}\n"
"\n"
"$o = new TheWorldIsNotEnough();\n"
"$o->sayHello(); // echos Hello Universe!\n"
"?>\n\n"
,
"Hello Universe!\n"
);
MVCRO(
"<?php\n"
"/* Prototype : proto array get_declared_traits()\n"
" * Description: Returns an array of all declared traits. \n"
" * Source code: Zend/zend_builtin_functions.c\n"
" * Alias to functions: \n"
" */\n"
"\n"
"\n"
"echo \"*** Testing get_declared_traits() : basic functionality ***\\n\";\n"
"\n"
"trait MyTrait {}\n"
"\n"
"// Zero arguments\n"
"echo \"\\n-- Testing get_declared_traits() function with Zero arguments --\\n\";\n"
"var_dump(get_declared_traits());\n"
"\n"
"foreach (get_declared_traits() as $trait) {\n"
" if (!trait_exists($trait)) {\n"
" echo \"Error: $trait is not a valid trait.\\n\"; \n"
" }\n"
"}\n"
"\n"
"echo \"\\n-- Ensure trait is listed --\\n\";\n"
"var_dump(in_array('MyTrait', get_declared_traits()));\n"
"\n"
"echo \"\\n-- Ensure userspace interfaces are not listed --\\n\";\n"
"interface I {}\n"
"var_dump(in_array( 'I', get_declared_traits()));\n"
"\n"
"echo \"\\n-- Ensure userspace classes are not listed --\\n\";\n"
"class MyClass {}\n"
"var_dump(in_array( 'MyClass', get_declared_traits()));\n"
"\n"
"\n"
"echo \"Done\";\n"
"?>\n\n"
,
"*** Testing get_declared_traits() : basic functionality ***\n"
"\n"
"-- Testing get_declared_traits() function with Zero arguments --\n"
"array(1) {\n"
" [0]=>\n"
" string(7) \"MyTrait\"\n"
"}\n"
"\n"
"-- Ensure trait is listed --\n"
"bool(true)\n"
"\n"
"-- Ensure userspace interfaces are not listed --\n"
"bool(false)\n"
"\n"
"-- Ensure userspace classes are not listed --\n"
"bool(false)\n"
"Done\n"
);
MVCRO(
"<?php\n"
"\n"
" class MyClass {\n"
" static function test() {\n"
" return __TRAIT__;\n"
" }\n"
" }\n"
" \n"
" function someFun() {\n"
" return __TRAIT__;\n"
" }\n"
" \n"
"\n"
" $t = __TRAIT__;\n"
" var_dump($t);\n"
" $t = MyClass::test();\n"
" var_dump($t);\n"
" $t = someFun();\n"
" var_dump($t);\n"
"?>\n"
,
"string(0) \"\"\n"
"string(0) \"\"\n"
"string(0) \"\"\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"class Base {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
" \n"
"trait SayWorld {\n"
" public function sayHello() {\n"
" parent::sayHello();\n"
" echo 'World!';\n"
" }\n"
"}\n"
"\n"
"class MyHelloWorld extends Base {\n"
" use SayWorld;\n"
"}\n"
"\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait THello {\n"
" public function hello() {\n"
" echo 'Hello';\n"
" }\n"
"}\n"
"\n"
"class TraitsTest {\n"
" use THello;\n"
"}\n"
"\n"
"$test = new TraitsTest();\n"
"$test->hello();\n"
"?>\n\n"
,
"Hello\n"
);
MVCRO(
"<?php\n"
"trait Foo {\n"
" public function Foo() {\n"
" }\n"
"}\n"
"\n"
"class Bar {\n"
" use Foo;\n"
" public function Bar() {\n"
" }\n"
"}\n"
"\n"
"$rfoofoo = new ReflectionMethod('Foo::Foo');\n"
"var_dump($rfoofoo->isConstructor());\n"
"\n"
"$rbarfoo = new ReflectionMethod('Bar::Foo');\n"
"var_dump($rbarfoo->isConstructor());\n"
"\n"
"$rbarbar = new ReflectionMethod('Bar::Bar');\n"
"var_dump($rbarbar->isConstructor());\n"
"?>\n"
,
"bool(false)\n"
"bool(false)\n"
"bool(true)\n"
);
MVCRO(
"<?php\n"
"/* Prototype : proto bool trait_exists(string traitname [, bool autoload])\n"
" * Description: Checks if the trait exists \n"
" * Source code: Zend/zend_builtin_functions.c\n"
" * Alias to functions: \n"
" */\n"
"\n"
"trait caseSensitivityTest {}\n"
"var_dump(trait_exists('casesensitivitytest'));\n"
"\n"
"echo \"Done\"\n"
"?>\n\n"
,
"bool(true)\n"
"Done\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"abstract class Base {\n"
" abstract function sayWorld();\n"
"}\n"
"\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo 'Hello';\n"
" }\n"
" public function sayWorld() {\n"
" echo ' World!';\n"
" }\n"
" }\n"
"\n"
"class MyHelloWorld extends Base {\n"
" use Hello;\n"
"}\n"
"\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"$o->sayWorld();\n"
"\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"\n"
" trait TestTrait {\n"
" public static function test() {\n"
" return 'Test';\n"
" }\n"
" }\n"
"\n"
" class A {\n"
" use TestTrait;\n"
" }\n"
"\n"
" echo A::test();\n"
"\n"
"?>\n\n"
,
"Test\n"
);
MVCRO(
"<?php\n"
"\n"
"trait ATrait {\n"
" public static function get_class_name() {\n"
" return __CLASS__;\n"
" }\n"
" \n"
" public function get_class_name_obj() {\n"
" return __CLASS__;\n"
" }\n"
"}\n"
"\n"
"trait Indirect {\n"
" use ATrait;\n"
"}\n"
"\n"
"class SomeClass {\n"
" use ATrait;\n"
"}\n"
"\n"
"class UsingIndirect {\n"
" use Indirect;\n"
"}\n"
"\n"
"$r = SomeClass::get_class_name();\n"
"var_dump($r);\n"
"\n"
"$o = new SomeClass();\n"
"$r = $o->get_class_name_obj();\n"
"var_dump($r);\n"
"\n"
"$r = UsingIndirect::get_class_name();\n"
"var_dump($r);\n"
"\n"
"$o = new UsingIndirect();\n"
"$r = $o->get_class_name_obj();\n"
"var_dump($r);\n"
"\n"
"\n"
"?>\n"
,
"string(9) \"SomeClass\"\n"
"string(9) \"SomeClass\"\n"
"string(13) \"UsingIndirect\"\n"
"string(13) \"UsingIndirect\"\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Hello {\n"
" public function sayHelloWorld() {\n"
" echo 'Hello'.$this->getWorld();\n"
" }\n"
" abstract public function getWorld();\n"
" }\n"
"\n"
"class MyHelloWorld {\n"
" private $world;\n"
" use Hello;\n"
" public function getWorld() {\n"
" return $this->world;\n"
" }\n"
" public function setWorld($val) {\n"
" $this->world = $val;\n"
" }\n"
"}\n"
"\n"
"$o = new MyHelloWorld();\n"
"$o->setWorld(' World!');\n"
"$o->sayHelloWorld();\n"
"\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Hello {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
"\n"
"trait World {\n"
" public function sayWorld() {\n"
" echo 'World';\n"
" }\n"
"}\n"
" \n"
"class MyHelloWorld {\n"
" use Hello, World;\n"
" public function sayExclamationMark() {\n"
" echo '!';\n"
" }\n"
"}\n"
" \n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"$o->sayWorld();\n"
"$o->sayExclamationMark();\n"
"?>\n\n"
,
"Hello World!\n"
);
MVCRO(
"<?php\n"
"\n"
" trait TestTrait {\n"
" public static function test() {\n"
" return static::$test;\n"
" }\n"
" }\n"
"\n"
" class A {\n"
" use TestTrait;\n"
" protected static $test = \"Test A\";\n"
" }\n"
"\n"
" class B extends A {\n"
" protected static $test = \"Test B\";\n"
" }\n"
"\n"
" echo B::test();\n"
"\n"
"?>\n\n"
,
"Test B\n"
);
MVCRO(
"<?php\n"
"/* Prototype : proto bool trait_exists(string traitname [, bool autoload])\n"
" * Description: Checks if the trait exists \n"
" * Source code: Zend/zend_builtin_functions.c\n"
" * Alias to functions: \n"
" */\n"
"\n"
"echo \"*** Testing trait_exists() : basic functionality ***\\n\";\n"
"\n"
"function __autoload($traitName) {\n"
" echo \"In __autoload($traitName)\\n\";\n"
"}\n"
"\n"
"trait MyTrait {}\n"
"\n"
"echo \"Calling trait_exists() on non-existent trait with autoload explicitly enabled:\\n\";\n"
"var_dump( trait_exists('C', true) );\n"
"echo \"\\nCalling trait_exists() on existing trait with autoload explicitly enabled:\\n\";\n"
"var_dump( trait_exists('MyTrait', true) );\n"
"\n"
"echo \"\\nCalling trait_exists() on non-existent trait with autoload explicitly enabled:\\n\";\n"
"var_dump( trait_exists('D', false) );\n"
"echo \"\\nCalling trait_exists() on existing trait with autoload explicitly disabled:\\n\";\n"
"var_dump( trait_exists('MyTrait', false) );\n"
"\n"
"echo \"\\nCalling trait_exists() on non-existent trait with autoload unspecified:\\n\";\n"
"var_dump( trait_exists('E') );\n"
"echo \"\\nCalling trait_exists() on existing trait with autoload unspecified:\\n\";\n"
"var_dump( trait_exists('MyTrait') );\n"
"\n"
"echo \"Done\";\n"
"?>\n\n"
,
"*** Testing trait_exists() : basic functionality ***\n"
"Calling trait_exists() on non-existent trait with autoload explicitly enabled:\n"
"In __autoload(C)\n"
"bool(false)\n"
"\n"
"Calling trait_exists() on existing trait with autoload explicitly enabled:\n"
"bool(true)\n"
"\n"
"Calling trait_exists() on non-existent trait with autoload explicitly enabled:\n"
"bool(false)\n"
"\n"
"Calling trait_exists() on existing trait with autoload explicitly disabled:\n"
"bool(true)\n"
"\n"
"Calling trait_exists() on non-existent trait with autoload unspecified:\n"
"In __autoload(E)\n"
"bool(false)\n"
"\n"
"Calling trait_exists() on existing trait with autoload unspecified:\n"
"bool(true)\n"
"Done\n"
);
MVCRO(
"<?php\n"
"\n"
"trait TestTrait {\n"
" public static function test() {\n"
" return __TRAIT__;\n"
" }\n"
"}\n"
"\n"
"class Direct {\n"
" use TestTrait;\n"
"}\n"
"\n"
"class IndirectInheritance extends Direct {\n"
" \n"
"}\n"
"\n"
"trait TestTraitIndirect {\n"
" use TestTrait;\n"
"}\n"
"\n"
"class Indirect {\n"
" use TestTraitIndirect;\n"
"}\n"
"\n"
"echo Direct::test().\"\\n\";\n"
"echo IndirectInheritance::test().\"\\n\";\n"
"echo Indirect::test().\"\\n\";\n"
"\n"
"?>\n"
,
"TestTrait\n"
"TestTrait\n"
"TestTrait\n"
);
MVCRO(
"<?php\n"
"\n"
" trait TestTrait {\n"
" public static function test() {\n"
" return 'Forwarded '.forward_static_call(array('A', 'test'));\n"
" }\n"
" }\n"
"\n"
" class A {\n"
" public static function test() {\n"
" return \"Test A\";\n"
" }\n"
" }\n"
"\n"
" class B extends A {\n"
" use TestTrait;\n"
" }\n"
"\n"
" echo B::test();\n"
"\n"
"?>\n\n"
,
"Forwarded Test A\n"
);
MVCRO(
"<?php\n"
"\n"
"trait foo {\n"
" public function abc() {\n"
" }\n"
"}\n"
"\n"
"interface baz {\n"
" public function abc();\n"
"}\n"
"\n"
"class bar implements baz {\n"
" use foo;\n"
"\n"
"}\n"
"\n"
"new bar;\n"
"print \"OK\\n\";\n"
"\n"
"?>\n"
,
"OK\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait Counter {\n"
" public function inc() {\n"
" static $c = 0;\n"
" $c = $c + 1;\n"
" echo \"$c\\n\";\n"
" }\n"
"}\n"
"\n"
"\n"
"class C1 {\n"
" use Counter;\n"
"}\n"
"\n"
"class C2 {\n"
" use Counter;\n"
"}\n"
"\n"
"$o = new C1();\n"
"$o->inc();\n"
"$o->inc();\n"
"\n"
"$p = new C2();\n"
"$p->inc();\n"
"$p->inc();\n"
"\n"
"?>\n"
,
"1\n"
"2\n"
"1\n"
"2\n"
);
MVCRO(
"<?php\n"
"\n"
"trait foo {\n"
" public function serialize() {\n"
" return 'foobar';\n"
" }\n"
" public function unserialize($x) {\n"
" var_dump($x);\n"
" }\n"
"}\n"
"\n"
"class bar implements Serializable {\n"
" use foo;\n"
"}\n"
"\n"
"var_dump($o = serialize(new bar));\n"
"var_dump(unserialize($o));\n"
"\n"
"?>\n"
,
"string(20) \"C:3:\"bar\":6:{foobar}\"\n"
"string(6) \"foobar\"\n"
"object(bar)#1 (0) {\n"
"}\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait A {\n"
" public function smallTalk() {\n"
" echo 'a';\n"
" }\n"
" public function bigTalk() {\n"
" echo 'A';\n"
" }\n"
"}\n"
"\n"
"trait B {\n"
" public function smallTalk() {\n"
" echo 'b';\n"
" }\n"
" public function bigTalk() {\n"
" echo 'B';\n"
" }\n"
"}\n"
"\n"
"class Talker {\n"
" use A, B {\n"
" B::smallTalk insteadof A; \n"
" A::bigTalk insteadof B;\n"
" B::bigTalk as talk;\n"
" }\n"
"}\n"
"\n"
"$t = new Talker;\n"
"$t->smallTalk();\n"
"$t->bigTalk();\n"
"$t->talk();\n"
"\n"
"?>\n\n"
,
"bAB\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait HelloWorld {\n"
" public function sayHello() {\n"
" echo 'Hello World!';\n"
" }\n"
"}\n"
"\n"
"trait HelloWorld2 {\n"
" public function sayHello() {\n"
" echo 'Hello World2!';\n"
" }\n"
"}\n"
"\n"
"\n"
"class TheWorldIsNotEnough {\n"
" use HelloWorld;\n"
" use HelloWorld2;\n"
" public function sayHello() {\n"
" echo 'Hello Universe!';\n"
" }\n"
"}\n"
"\n"
"$o = new TheWorldIsNotEnough();\n"
"$o->sayHello(); // echos Hello Universe!\n"
"?>\n\n"
,
"Hello Universe!\n"
);
MVCRO(
"<?php\n"
"\n"
"class a { }\n"
"interface b { }\n"
"trait c { }\n"
"abstract class d { }\n"
"final class e { }\n"
"\n"
"var_dump(get_declared_traits());\n"
"\n"
"?>\n"
,
"array(1) {\n"
" [0]=>\n"
" string(1) \"c\"\n"
"}\n"
);
MVCRO(
"<?php\n"
"\n"
"abstract class foo {\n"
"}\n"
"\n"
"trait bar {\n"
" \n"
"}\n"
"\n"
"final class baz {\n"
" \n"
"}\n"
"\n"
"$x = new ReflectionClass('foo');\n"
"var_dump($x->isTrait());\n"
"\n"
"$x = new ReflectionClass('bar');\n"
"var_dump($x->isTrait());\n"
"\n"
"$x = new ReflectionClass('baz');\n"
"var_dump($x->isTrait());\n"
"\n"
"?>\n"
,
"bool(false)\n"
"bool(true)\n"
"bool(false)\n"
);
MVCRO(
"<?php\n"
"\n"
"trait A {\n"
" protected static function foo() { echo \"abc\\n\"; }\n"
" private static function bar() { echo \"def\\n\"; }\n"
"}\n"
"\n"
"\n"
"class B {\n"
" use A {\n"
" A::foo as public;\n"
" A::bar as public baz;\n"
" }\n"
"}\n"
"\n"
"B::foo();\n"
"B::baz();\n"
"\n"
"\n"
"?>\n"
,
"abc\n"
"def\n"
);
MVCRO(
"<?php\n"
"/* Prototype : array class_uses(mixed what [, bool autoload ])\n"
" * Description: Return all traits used by a class\n"
" * Source code: ext/spl/php_spl.c\n"
" * Alias to functions: \n"
" */\n"
"\n"
"echo \"*** Testing class_uses() : basic ***\\n\";\n"
"\n"
"\n"
"trait foo { }\n"
"class bar { use foo; }\n"
"\n"
"var_dump(class_uses(new bar));\n"
"var_dump(class_uses('bar'));\n"
"\n"
"\n"
"?>\n"
"===DONE===\n"
,
"*** Testing class_uses() : basic ***\n"
"array(1) {\n"
" [\"foo\"]=>\n"
" string(3) \"foo\"\n"
"}\n"
"array(1) {\n"
" [\"foo\"]=>\n"
" string(3) \"foo\"\n"
"}\n"
"===DONE===\n"
);
MVCRO(
"<?php\n"
"\n"
" trait TestTrait {\n"
" public static function __callStatic($name, $arguments) {\n"
" return $name;\n"
" }\n"
" }\n"
"\n"
" class A {\n"
" use TestTrait;\n"
" }\n"
"\n"
" echo A::Test();\n"
"\n"
"?>\n\n"
,
"Test\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"class Base {\n"
" public function sayHello() {\n"
" echo 'Hello ';\n"
" }\n"
"}\n"
" \n"
"trait SayWorld {\n"
" public function sayHello() {\n"
" echo 'World!';\n"
" }\n"
"}\n"
"\n"
"class MyHelloWorld extends Base {\n"
" use SayWorld;\n"
"}\n"
"\n"
"$o = new MyHelloWorld();\n"
"$o->sayHello();\n"
"?>\n\n"
,
"World!\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait A {\n"
" public function foo() {\n"
" echo 'a';\n"
" }\n"
"}\n"
"\n"
"trait B {\n"
" public function foo() {\n"
" echo 'b';\n"
" }\n"
"}\n"
"\n"
"trait C {\n"
" public function foo() {\n"
" echo 'c';\n"
" }\n"
"}\n"
"\n"
"class Foo {\n"
" use C, A, B {\n"
" B::foo insteadof A, C; \n"
" }\n"
"}\n"
"\n"
"$t = new Foo;\n"
"$t->foo();\n"
"\n"
"?>\n\n"
,
"b\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL);\n"
"\n"
"trait T1 {\n"
" public function getText() {\n"
" return $this->text;\n"
" }\n"
"}\n"
"\n"
"trait T2 {\n"
" public function setTextT2($val) {\n"
" $this->text = $val;\n"
" }\n"
"}\n"
"\n"
"class TraitsTest {\n"
" use T1;\n"
" use T2;\n"
" private $text = 'test';\n"
" public function setText($val) {\n"
" $this->text = $val;\n"
" }\n"
"}\n"
"\n"
"$o = new TraitsTest();\n"
"var_dump($o->getText());\n"
"\n"
"$o->setText('foo');\n"
"\n"
"var_dump($o->getText());\n"
"\n"
"$o->setText('bar');\n"
"\n"
"var_dump($o->getText());\n"
"?>\n"
,
"string(4) \"test\"\n"
"string(3) \"foo\"\n"
"string(3) \"bar\"\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" static function foo() {\n"
" echo \"I'm in class \" . get_class() . \"\\n\";"
" }\n"
"}\n"
"class C { use T; }\n"
"class D extends C {}\n"
"trait T2 { use T; }\n"
"trait T3 { use T2; }\n"
"$x = new D();\n"
"$x->foo();\n"
"C::foo();\n"
"D::foo();\n"
"T::foo();\n"
"T2::foo();\n"
"T3::foo();\n"
"?>"
,
"I'm in class C\n"
"I'm in class C\n"
"I'm in class C\n"
"I'm in class T\n"
"I'm in class T2\n"
"I'm in class T3\n"
);
MVCRO(
"<?php\n"
"class Base {}\n"
"trait T {\n"
" public function sayClass() {\n"
" echo get_class() . \"\\n\";\n"
" }\n"
" public function sayParent() {\n"
" echo get_parent_class();\n"
" }\n"
"}\n"
"class Cls extends Base { use T; }\n"
"$o = new Cls();\n"
"$o->sayClass(); // echo Cls\n"
"$o->sayParent(); // echos Base\n"
"?>\n"
"\n"
,
"Cls\n"
"Base\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" public static $x=1;\n"
" public function printX() { var_dump(self::$x); }\n"
"}\n"
"class C1 { use T; }\n"
"class C2 { use T; }\n"
"$o1 = new C1;\n"
"$o2 = new C2;\n"
"var_dump(T::$x);\n"
"var_dump(C1::$x);\n"
"var_dump(C2::$x);\n"
"$o1->printX();\n"
"$o2->printX();\n"
"T::$x++;\n"
"var_dump(T::$x);\n"
"var_dump(C1::$x);\n"
"var_dump(C2::$x);\n"
"$o1->printX();\n"
"$o2->printX();\n"
"C1::$x++;\n"
"var_dump(T::$x);\n"
"var_dump(C1::$x);\n"
"var_dump(C2::$x);\n"
"$o1->printX();\n"
"$o2->printX();\n"
"C2::$x++;\n"
"var_dump(T::$x);\n"
"var_dump(C1::$x);\n"
"var_dump(C2::$x);\n"
"$o1->printX();\n"
"$o2->printX();\n"
"$o1->x++;\n"
"var_dump(T::$x);\n"
"var_dump(C1::$x);\n"
"var_dump(C2::$x);\n"
"$o1->printX();\n"
"$o2->printX();\n"
,
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(2)\n"
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(2)\n"
"int(2)\n"
"int(1)\n"
"int(2)\n"
"int(1)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
);
MVCRO(
"<?php\n"
"trait MyTrait {\n"
" public static function callNew() {\n"
" new self(\"called via SELF\");\n"
" new parent(\"called via PARENT\");\n"
" }\n"
"}\n"
"class MyBaseClass {\n"
" public function __construct($arg) {\n"
" echo __class__ . \": \" . $arg . \"\\n\";\n"
" }\n"
"}\n"
"class MyDerivedClass extends MyBaseClass {\n"
" use MyTrait;\n"
" public function __construct($arg) {\n"
" echo __class__ . \": \" . $arg . \"\\n\";\n"
" }\n"
"}\n"
"$o= MyDerivedClass::callNew();\n"
,
"MyDerivedClass: called via SELF\n"
"MyBaseClass: called via PARENT\n"
);
MVCRO(
"<?php\n"
"trait my_trait {\n"
" abstract function foo();\n"
" public function bar() {\n"
" echo \"I am bar\\n\";\n"
" self::foo();\n"
" }\n"
"}\n"
"class my_class {\n"
" use my_trait;\n"
" private function foo() {\n"
" echo \"I am foo\\n\";\n"
" }\n"
"}\n"
"$o = new my_class;\n"
"$o->bar();\n"
,
"I am bar\n"
"I am foo\n"
);
MVCRO(
"<?php\n"
"trait T1 {\n"
" public function inc($who) {\n"
" static $x=0;\n"
" $x++;\n"
" echo $who . \" (\" . __class__ . \"): \" . $x . \"\\n\";\n"
" }\n"
"}\n"
"class B { use T1; }\n"
"class C { use T1; }\n"
"class D extends C {}\n"
"$c1 = new C;\n"
"$c2 = new C;\n"
"$d1 = new D;\n"
"$b1 = new B;\n"
"$c1->inc(\"c1\");\n"
"$c2->inc(\"c2\");\n"
"$d1->inc(\"d1\");\n"
"$b1->inc(\"b1\");\n"
"$b1->inc(\"b1\");\n"
"$c2->inc(\"c2\");\n"
"$d1->inc(\"d1\");\n"
"$c1->inc(\"c1\");\n"
,
"c1 (C): 1\n"
"c2 (C): 2\n"
"d1 (C): 1\n"
"b1 (B): 1\n"
"b1 (B): 2\n"
"c2 (C): 3\n"
"d1 (C): 2\n"
"c1 (C): 4\n"
);
MVCRO(
"<?php\n"
"trait T {\n"
" abstract public function bar();\n"
" public function foo() {\n"
" $this->bar();\n"
" }\n"
"}\n"
"class B {\n"
" public function bar() {\n"
" echo \"I'm bar\\n\";\n"
" }\n"
"}\n"
"class C extends B {\n"
" use T;\n"
"}\n"
"$o = new C;\n"
"$o->foo();\n"
"\n"
,
"I'm bar\n"
);
MVCRO(
"<?php\n"
"\n"
"trait T1 {\n"
" abstract function bar();\n"
" public function foo() {\n"
" $this->bar();\n"
" }\n"
"}\n"
"\n"
"trait T2 {\n"
" public function bar() {\n"
" echo \"Hello from bar()\\n\";\n"
" }\n"
"}\n"
"\n"
"class C {\n"
" use T1, T2;\n"
"}\n"
"\n"
"$o = new C;\n"
"$o->foo();\n"
"\n"
"\n"
,
"Hello from bar()\n"
);
MVCRO(
"<?php\n"
"error_reporting(E_ALL | E_STRICT);"
"trait T {"
" protected function f() {"
" return 1;"
" }"
" private function p() {"
" return 2;"
" }"
" function g() {"
" return $this->f();"
" }"
" function h() {"
" return $this->p();"
" }"
"}"
"class C {"
" use T;"
"}"
"$c = new C;"
"echo $c->g();"
"echo $c->h();",
"12");
MVCRO(
"<?php\n"
"trait A {"
" function test() {"
" static $x;"
" return ++$x;"
" }"
" function test8($a, $b, $c, $d, $e, $f, $g, $h) {"
" static $x;"
" return ++$x;"
" }"
"}"
"trait X {"
" use A;"
"}"
"trait Y {"
" use A;"
"}"
"class T {"
" use X, Y {"
" X::test insteadof Y;"
" X::test as test1;"
" Y::test as test2;"
" X::test8 insteadof Y;"
" X::test8 as test81;"
" Y::test8 as test82;"
" }"
"}"
"var_dump(T::test());"
"var_dump(T::test1());"
"var_dump(T::test2());"
"var_dump(call_user_func(\"T::test\"));"
"var_dump(call_user_func(\"T::test1\"));"
"var_dump(call_user_func(\"T::test2\"));"
"$obj = new T;"
"var_dump($obj->test());"
"var_dump($obj->test1());"
"var_dump($obj->test2());"
"var_dump(call_user_func(array($obj, \"test\")));"
"var_dump(call_user_func(array($obj, \"test1\")));"
"var_dump(call_user_func(array($obj, \"test2\")));"
"var_dump(T::test8(1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(T::test81(1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(T::test82(1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(call_user_func(\"T::test8\", 1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(call_user_func(\"T::test81\", 1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(call_user_func(\"T::test82\", 1, 2, 3, 4, 5, 6, 7, 8));"
"$obj = new T;"
"var_dump($obj->test8(1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump($obj->test81(1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump($obj->test82(1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(call_user_func(array($obj, \"test8\"), "
"1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(call_user_func(array($obj, \"test81\"), "
"1, 2, 3, 4, 5, 6, 7, 8));"
"var_dump(call_user_func(array($obj, \"test82\"), "
"1, 2, 3, 4, 5, 6, 7, 8));",
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(3)\n"
"int(3)\n"
"int(3)\n"
"int(4)\n"
"int(4)\n"
"int(4)\n"
"int(1)\n"
"int(1)\n"
"int(1)\n"
"int(2)\n"
"int(2)\n"
"int(2)\n"
"int(3)\n"
"int(3)\n"
"int(3)\n"
"int(4)\n"
"int(4)\n"
"int(4)\n"
);
MVCRO("<?php "
"define('MUST_PREPARE', 0);"
"function must_prepare($x) {"
" if ($x == MUST_PREPARE) {"
" $x = 2;"
" }"
" return $x;"
"}"
"trait EntWithViewerComments {"
" public $entCanComment = 1;"
" public function canViewerComment() {"
" var_dump($this->entCanComment);"
" var_dump(must_prepare($this->entCanComment));"
" }"
"}"
"class EntShare {"
" use EntWithViewerComments;"
"}"
"$obj1 = new EntShare;"
"$obj1->canViewerComment();"
,
"int(1)\nint(1)\n");
MVCROF(
"<?php\n"
"trait T {"
" private $x = 'init from T';"
" function useT() { $this->x = 'set from trait'; } }"
""
"class A {"
" function useA() { $this->x = 'set from A'; }"
"}"
"class B extends A {"
" use T;"
" function useB() { $this->x = 'set from B'; }"
"}"
"class C extends B {"
" function useC() { $this->x = 'set from C'; }"
"}"
"class D extends C {"
" function useD() { $this->x = 'set from D'; }"
"}"
"$x = new D(); echo serialize($x), \"\\n\";"
"$x = new D(); $x->useT(); echo serialize($x), \"\\n\";"
"$x = new D(); $x->useA(); echo serialize($x), \"\\n\";"
"$x = new D(); $x->useB(); echo serialize($x), \"\\n\";"
"$x = new D(); $x->useC(); echo serialize($x), \"\\n\";"
"$x = new D(); $x->useD(); echo serialize($x), \"\\n\";",
"test/output/trait1.out");
MVCRO("<?php\n"
"trait T1 { public $xT1 = 'xT1'; }\n"
"trait T2 { public $xT2 = 'xT2'; }\n"
"trait T3 { public $xT3 = 'xT3'; }\n"
"class B {\n"
" use T1;\n"
" public $xB = 'xB';\n"
" use T2;\n"
"}\n"
"class A extends B {\n"
" public $xA = 'xA';\n"
" use T3;\n"
"}\n"
"$x = new A();\n"
"$s = serialize($x);\n"
"echo $s . \"\\n\";\n"
"$y = unserialize($s);\n"
"var_dump($y->xT1);\n"
"var_dump($y->xT2);\n"
"var_dump($y->xT3);\n"
"var_dump($y->xA);\n"
"var_dump($y->xB);\n"
,
"O:1:\"A\":5:{s:2:\"xA\";s:2:\"xA\";s:3:\"xT3\";s:3:\"xT3\";"
"s:2:\"xB\";s:2:\"xB\";s:3:\"xT1\";s:3:\"xT1\";s:3:\"xT2\";"
"s:3:\"xT2\";}\n"
"string(3) \"xT1\"\n"
"string(3) \"xT2\"\n"
"string(3) \"xT3\"\n"
"string(2) \"xA\"\n"
"string(2) \"xB\"\n"
);
MVCRO(
"<?php\n"
"trait T { private $x = 0;}"
"class X { use T; function x() { return ++$this->x; } }"
"class Y extends X { use T; function y() { return ++$this->x; } }"
"class Z extends Y { function z() { return ++$this->x; } }"
"$a = new Z();"
"echo join(\" \", array($a->x(), $a->x(), $a->y(), $a->y(), "
"$a->z(), $a->z())), \"\\n\";",
"1 2 1 2 2 3\n");
MVCRO("<?php\n"
"trait T {\n"
" public function goo() {\n"
" return get_called_class();\n"
" }\n"
" public function foo() {\n"
" return self::goo();\n"
" }\n"
"}\n"
"class A { use T; }\n"
"var_dump(A::goo());\n"
"var_dump(A::foo());\n"
,
"string(1) \"A\"\n"
"string(1) \"A\"\n"
);
MVCRO("<?php\n"
"trait TraitFoo {"
" public function getStringThroughProtectedMethod() {"
" return $this->protectedMethod();"
" }"
" protected function protectedMethod() {"
" return 'fallback protected method';"
" }"
" public function getStringThroughPrivateMethod() {"
" return $this->privateMethod();"
" }"
" private function privateMethod() {"
" return 'fallback private method';"
" }"
"}"
""
"class A {"
" use TraitFoo;"
" protected function protectedMethod() {"
" return 'in a protectedMethod';"
" }"
" private function privateMethod() {"
" return 'in a privateMethod';"
" }"
"}"
"$a = new A();"
"echo $a->getStringThroughProtectedMethod().\"\\n\";"
"echo $a->getStringThroughPrivateMethod().\"\\n\";",
"in a protectedMethod\n"
"in a privateMethod\n");
{ // begin trait tests requiring EnableHipHopSyntax
HipHopSyntax w(this);
MVCRO("<?php\n"
"trait T {\n"
" function fruit() {\n"
" yield 'apple';\n"
" yield 'banana';\n"
" }\n"
"}\n"
"class C1 { use T; }\n"
"class C2 { use T; }\n"
"$o = new C1;\n"
"foreach ($o->fruit() as $fruit) {\n"
" var_dump($fruit);\n"
"}\n"
,
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
);
MVCRO("<?php\n"
"trait T1 {\n"
" function fruit() {\n"
" yield 'apple';\n"
" yield 'banana';\n"
" }\n"
"}\n"
"trait T2 {\n"
" function fruit() {\n"
" yield 'pear';\n"
" yield 'grape';\n"
" }\n"
"}\n"
"class C1 {\n"
" use T1, T2 {\n"
" T1::fruit insteadof T2;\n"
" T2::fruit as fruit2;\n"
" }\n"
"}\n"
"$o = new C1;\n"
"foreach ($o->fruit() as $fruit) {\n"
" var_dump($fruit);\n"
"}\n"
"foreach ($o->fruit2() as $fruit) {\n"
" var_dump($fruit);\n"
"}\n"
,
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
"string(4) \"pear\"\n"
"string(5) \"grape\"\n"
);
MVCRO("<?php trait T { function fruit() { yield 'apple'; yield 'banana';} }"
"class F { use T; }\n"
"foreach (F::fruit() as $fruit) { var_dump($fruit);} ",
"string(5) \"apple\"\n"
"string(6) \"banana\"\n"
);
MVCRO("<?php\n"
"trait T {\n"
" public function doIt() {\n"
" throw new Exception('foobar');\n"
" }\n"
"}\n"
"class X { use T; }\n"
"function f($obj) {\n"
" $res = null;\n"
" try {\n"
" $res = $obj->doIt();\n"
" } catch (Exception $e) {\n"
" $res = $e->getMessage();\n"
" }\n"
" yield $res;\n"
"}\n"
"$x = new X;\n"
"foreach (f($x) as $i) { var_dump($i); }\n"
,
"string(6) \"foobar\"\n"
);
MVCRO("<?php\n"
"trait T {\n"
" function foo($t) {\n"
" $$t = 5;\n"
" yield $this;\n"
" }\n"
"}\n"
"class X { use T; }\n"
"$x = new X;\n"
"foreach ($x->foo('this') as $v) { var_dump($v); }\n"
,
"int(5)\n"
);
MVCRO("<?php\n"
"function f($x) {\n"
" yield $x;\n"
"}\n"
"$c = f(32);\n"
"var_dump($c->getOrigFuncName());\n"
"trait T {\n"
" function f($x) { yield get_called_class(); }\n"
"}\n"
"class X { use T; }\n"
"$x = new X;\n"
"$c = $x->f(32);\n"
"var_dump($c->getOrigFuncName());\n"
"$fcn = function ($x) { yield $x; };\n"
"$c = $fcn(32);\n"
"var_dump($c->getOrigFuncName());\n"
,
"string(1) \"f\"\n"
"string(4) \"X::f\"\n"
"string(9) \"{closure}\"\n"
);
MVCRO("<?php "
"trait T {"
" public static function gen() {"
" static $x;"
" yield ++$x;"
" yield 2;"
" yield ++$x;"
" }"
"}"
"class X { use T; }\n"
"class Y extends X {}"
"$g = X::gen();"
"foreach ($g as $i) var_dump($i);"
,
"int(1)\n"
"int(2)\n"
"int(2)\n"
);
MVCRO("<?php\n"
"trait T {\n"
" function info() {\n"
" yield __METHOD__;\n"
" yield __CLASS__;\n"
" yield __TRAIT__;\n"
" }\n"
"}\n"
"class C1 { use T; }\n"
"class C2 { use T; }\n"
"$o1 = new C1;\n"
"foreach ($o1->info() as $info) {\n"
" var_dump($info);\n"
"}\n"
"$o2 = new C2;\n"
"foreach ($o2->info() as $info) {\n"
" var_dump($info);\n"
"}\n"
,
"string(7) \"T::info\"\n"
"string(2) \"C1\"\n"
"string(1) \"T\"\n"
"string(7) \"T::info\"\n"
"string(2) \"C2\"\n"
"string(1) \"T\"\n"
);
MVCRO("<?php\n"
"trait T {\n"
" function f() {\n"
" $a = function() { yield 1; yield 2; };\n"
" return $a;\n"
" }\n"
"}\n"
"class A { use T; }\n"
"$a = new A;\n"
"$f = $a->f();\n"
"foreach ($f() as $v) { var_dump($v); }\n"
,
"int(1)\n"
"int(2)\n"
);
MVCRO("<?php\n"
"trait T {"
" public function foo() {"
" $this->bar(function() {yield 1; yield 2; yield 3;});"
" }"
" public function bar(Closure $c) {"
" $a = $c();"
" foreach ($a as $b) {"
" echo $b.\"\\n\";"
" }"
" }"
"}"
"class A { use T; }"
"$a = new A();"
"$a->foo();"
,
"1\n"
"2\n"
"3\n"
);
MVCRO("<?php\n"
"trait U {\n"
" public function test() {\n"
" echo __CLASS__ . \"\\n\";\n"
" $this->foo();\n"
" yield null;\n"
" }\n"
"}\n"
"class D {\n"
" use U;\n"
" protected function foo() {\n"
" echo \"U::foo\\n\";\n"
" }\n"
"}\n"
"$obj = new D;\n"
"$x = $obj->test();\n"
"foreach ($x as $v) {}\n"
,
"D\n"
"U::foo\n"
);
MVCRO("<?php"
"trait baz {"
" public function bar() { yield 1; }"
"}"
"class foo {"
" use baz;"
" public function bar() {}"
"}",
"");
OptionSetter w1(this, OptionSetter::Env, "ENABLE_INTERCEPT=1");
OptionSetter w2(this, OptionSetter::RunTime,
"-vEval.JitEnableRenameFunction=true");
MVCRO("<?php\n"
"trait T {\n"
" public function m() { echo \"original\n\"; }\n"
"}\n"
"class A { use T; }\n"
"class B { use T; }\n"
"$a1 = new A;\n"
"$a1->m();\n"
"fb_intercept(\"A::m\", function() { echo \"new\n\"; });\n"
"$a2 = new A;\n"
"$a2->m();\n"
"$b1 = new B;\n"
"$b1->m();\n"
"T::m();\n"
,
"original\n"
"new\n"
"original\n"
"original\n");
MVCRO("<?php\n"
"trait T {\n"
" public function m() { echo \"original\n\"; }\n"
"}\n"
"class A { use T; }\n"
"class B { use T; }\n"
"T::m();\n"
"$a1 = new A;\n"
"$a1->m();\n"
"fb_intercept(\"T::m\", function() { echo \"new\n\"; });\n"
"$a2 = new A;\n"
"$a2->m();\n"
"$b1 = new B;\n"
"$b1->m();\n"
"T::m();\n"
,
"original\n"
"original\n"
"original\n"
"original\n"
"new\n");
MVCRONW("<?php "
"trait T1 { function foo() { yield 1; } }"
"class C { use T1 { T1::foo as static; } }",
"");
MVCRO("<?php"
"trait T1 { function foo() { yield 1; } }"
"trait T2 {"
" use T1 {"
" foo as bar;"
" }"
" function foo() { return bar(); }"
"}"
"class C { use T2; }"
"foreach (C::bar() as $x) var_dump($x);",
"int(1)\n");
} // end trait tests with EnableHipHopSyntax
MVCRO("<?php\n"
"trait Too {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($abc) use ($abc) {\n"
" var_dump($abc);\n"
" };\n"
" return $a;\n"
" }\n"
"}\n"
"class Foo { use Too; }\n"
"$a = Foo::bar();\n"
"$a(456);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"trait Too {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($abc) use ($abc, $abc) {\n"
" var_dump($abc);\n"
" };\n"
" return $a;\n"
" }\n"
"}\n"
"class Foo { use Too; }\n"
"$a = Foo::bar();\n"
"$a(456);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"trait Too {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($abc) use (&$abc, &$abc) {\n"
" var_dump($abc);\n"
" };\n"
" return $a;\n"
" }\n"
"}\n"
"class Foo { use Too; }\n"
"$a = Foo::bar();\n"
"$a(456);\n"
,
"int(123)\n");
MVCRO("<?php\n"
"trait Too {\n"
" function bar() {\n"
" $abc = 123;\n"
" $a = function ($x) use ($abc) {\n"
" $n = func_num_args();\n"
" $args = func_get_args();\n"
" var_dump($n, $args);\n"
" };\n"
" return $a;\n"
" }\n"
"\n"
" function baz($obj) {\n"
" $abc = 456;\n"
" $obj(789);\n"
" }\n"
"}\n"
"class Foo { use Too; }\n"
"$a = Foo::bar();\n"
"Foo::baz($a);\n"
,
"int(1)\n"
"array(1) {\n"
" [0]=>\n"
" int(789)\n"
"}\n"
);
MVCRO("<?php\n"
"trait Too {\n"
" function bar() {\n"
" $a = function () { var_dump(__CLASS__, __FUNCTION__);};\n"
" $a();\n"
" }\n"
"}\n"
"class Foo { use Too; }\n"
"Foo::bar();\n"
,
"string(0) \"\"\n"
"string(9) \"{closure}\"\n"
);
MVCRO("<?php\n"
"trait T {"
" public function foo() {"
" $values = array(1, 2, 3);"
" $values = array_map(function($p) use ($this) {"
" return $this->goo($p);"
" }, $values);"
" var_dump($values);"
" }"
" public function bar() { return $this; }"
" public function goo($p) { return $p; }"
"}"
"class A { use T;}\n"
"$obj = new A;"
"var_dump($obj->bar());"
"$obj->foo();",
"object(A)#1 (0) {\n"
"}\n"
"array(3) {\n"
" [0]=>\n"
" int(1)\n"
" [1]=>\n"
" int(2)\n"
" [2]=>\n"
" int(3)\n"
"}\n");
MVCRO("<?php\n"
"trait Too {\n"
" function gen() {\n"
" $abc = $this->input();\n"
" $a = function ($arg) use ($abc, $this) {\n"
" var_dump($arg);\n"
" var_dump($abc);\n"
" return $this->output();\n"
" };\n"
" return $a;\n"
" }\n"
" function input() { return 1; }\n"
" function output() { return 2; }\n"
"}\n"
"class Foo {\n"
" use Too;\n"
" function input() { return \"str1\"; }\n"
" function output() { return \"str2\"; }\n"
"}\n"
"class Goo {\n"
" use Too;\n"
" function input() { return false; }\n"
" function output() { return true; }\n"
"}\n"
"$of = new Foo;\n"
"$f = $of->gen();\n"
"var_dump($f(1000));\n"
"$og = new Goo;\n"
"$g = $og->gen();\n"
"var_dump($g(2000));\n"
,
"int(1000)\n"
"string(4) \"str1\"\n"
"string(4) \"str2\"\n"
"int(2000)\n"
"bool(false)\n"
"bool(true)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t1 { public $x = INIT1; }\n"
"class c { use t1; }\n"
"$obj = new c;\n"
"var_dump($obj->x);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"define('INIT1', \"1\");\n"
"define('INIT2', \"2\");\n"
"trait t1 { public $x = INIT1; }\n"
"trait t2 { public $y = INIT2; }\n"
"trait t { use t1, t2; }\n"
"class c { use t; }\n"
"$obj = new c;\n"
"var_dump($obj->x);\n"
"var_dump($obj->y);\n"
,
"string(1) \"1\"\n"
"string(1) \"2\"\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t1 {}\n"
"class c { use t1; public $x = INIT1; }\n"
"$obj = new c;\n"
"var_dump($obj->x);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"define('INIT2', 456);\n"
"trait t1 { public $x = INIT1; }\n"
"class c { use t1; public $y = INIT2; }\n"
"$obj = new c;\n"
"var_dump($obj->x);\n"
"var_dump($obj->y);\n"
,
"int(123)\n"
"int(456)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t2 { public $x = INIT1; }\n"
"trait t1 { use t2; }\n"
"class c { use t1; }\n"
"$obj = new c;\n"
"var_dump($obj->x);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"define('INIT2', 456);\n"
"trait t2 { public $y = INIT2; }\n"
"trait t1 { use t2; public $x = INIT1; }\n"
"class c { use t1; }\n"
"$obj = new c;\n"
"var_dump($obj->x);\n"
"var_dump($obj->y);\n"
,
"int(123)\n"
"int(456)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t1 { static public $x = INIT1; }\n"
"class c { use t1; }\n"
"var_dump(c::$x);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t1 { static public $x = INIT1; }\n"
"class c { use t1; }\n"
"var_dump(c::$x++);\n"
"var_dump(t1::$x++);\n"
"var_dump(c::$x++);\n"
"var_dump(t1::$x++);\n"
,
"int(123)\n"
"int(123)\n"
"int(124)\n"
"int(124)\n"
);
MVCRO("<?php\n"
"define('INIT1', \"1\");\n"
"define('INIT2', \"2\");\n"
"trait t1 { static public $x = INIT1; }\n"
"trait t2 { static public $y = INIT2; }\n"
"trait t { use t1, t2; }\n"
"class c { use t; }\n"
"var_dump(c::$x);\n"
"var_dump(c::$y);\n"
,
"string(1) \"1\"\n"
"string(1) \"2\"\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t1 {}\n"
"class c { use t1; static public $x = INIT1; }\n"
"var_dump(c::$x);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"define('INIT2', 456);\n"
"trait t1 { static public $x = INIT1; }\n"
"class c { use t1; static public $y = INIT2; }\n"
"var_dump(c::$x);\n"
"var_dump(c::$y);\n"
,
"int(123)\n"
"int(456)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"trait t2 { static public $x = INIT1; }\n"
"trait t1 { use t2; }\n"
"class c { use t1; }\n"
"var_dump(c::$x);\n"
,
"int(123)\n"
);
MVCRO("<?php\n"
"define('INIT1', 123);\n"
"define('INIT2', 456);\n"
"trait t2 { static public $y = INIT2; }\n"
"trait t1 { use t2; static public $x = INIT1; }\n"
"class c { use t1; }\n"
"var_dump(c::$x);\n"
"var_dump(c::$y);\n"
,
"int(123)\n"
"int(456)\n"
);
MVCRO("<?\n"
"define('INIT1', 1000);\n"
"trait t { static public $x = INIT1; }\n"
"class c { use t; }\n"
"class d { use t; }\n"
"class e extends d {}\n"
"var_dump(t::$x++);\n"
"var_dump(c::$x++);\n"
"var_dump(d::$x++);\n"
"var_dump(e::$x++);\n"
"var_dump(t::$x++);\n"
"var_dump(c::$x++);\n"
"var_dump(d::$x++);\n"
"var_dump(e::$x++);\n"
,
"int(1000)\n"
"int(1000)\n"
"int(1000)\n"
"int(1001)\n"
"int(1001)\n"
"int(1001)\n"
"int(1002)\n"
"int(1003)\n"
);
MVCRO("<?php\n"
"trait TraitFoo {\n"
" public function testDoSomethingInTrait() {\n"
" return call_user_func(array($this, 'doSomethingInTrait'));\n"
" }\n"
" public function testDoSomethingPublicInTrait() {\n"
" return call_user_func(array($this, 'doSomethingPublicInTrait'));\n"
" }\n"
"}\n"
"class A {\n"
" use TraitFoo;\n"
" public function testDoSomething() {\n"
" return call_user_func(array($this, 'doSomething'));\n"
" }\n"
" public function __call($name, $args) {\n"
" echo \"**calling __call $name**\";\n"
" }\n"
" protected function doSomething() {\n"
" return 'doSomething';\n"
" }\n"
" protected function doSomethingInTrait() {\n"
" return 'doSomethingInTrait';\n"
" }\n"
" public function doSomethingPublicInTrait() {\n"
" return 'doSomethingPublicInTrait';\n"
" }\n"
"}\n"
"$a = new A();\n"
"echo $a->testDoSomething().\"\n\";\n"
"echo $a->testDoSomethingInTrait().\"\n\";\n"
"echo $a->testDoSomethingPublicInTrait().\"\n\";\n"
,
"doSomething\n"
"doSomethingInTrait\n"
"doSomethingPublicInTrait\n"
);
MVCRO("<?php\n"
"trait T {\n"
" public $x=1;\n"
" function dump_vars() {\n"
" var_dump(get_class_vars('C'));\n"
" }\n"
"}\n"
"class C {\n"
" private $y=2;\n"
" use T;\n"
"}\n"
"$o = new C;\n"
"$o->dump_vars();\n"
,
"array(2) {\n"
" [\"y\"]=>\n"
" int(2)\n"
" [\"x\"]=>\n"
" int(1)\n"
"}\n"
);
MVCRO("<?php\n"
"trait T {"
" public function foo() {"
" $this->bar();"
" }"
" private function bar() {"
" echo \"in bar...\\n\";"
" }"
"}"
"class B { use T; }"
"class C extends B { }"
"$obj = new C;"
"$obj->foo();",
"in bar...\n");
MVCRO("<?php\n"
"trait PrivateState {"
" private $foo = 2;"
""
" public function getFoo() {"
" return $this->foo;"
" }"
"}"
""
"class Base {"
" public static function create() {"
" return new static();"
" }"
"}"
""
"class UsePrivateState extends Base {"
" use PrivateState;"
"}"
""
"class DerivedUsePrivateState extends UsePrivateState {"
""
"}"
""
""
"$state = new DerivedUsePrivateState();"
"$method = new ReflectionMethod('DerivedUsePrivateState', 'getFoo');"
"echo $method->invoke($state).\"\\n\";"
"",
"2\n");
MVCRO("<?php\n"
"trait T {\n"
" public static function foo() {\n"
" $bt = debug_backtrace();\n"
" echo $bt[0]['function'] . \"\\n\";\n"
" }\n"
"}\n"
"class C {\n"
" use T {\n"
" T::foo as public bar1;\n"
" T::foo as public bar2;\n"
" }\n"
"}\n"
"C::bar1();\n"
"C::bar2();\n"
,
"bar1\n"
"bar2\n"
);
MVCRO("<?php\n"
"trait T {\n"
" abstract public function foo($x);\n"
"}\n"
"interface I {\n"
" public function foo($x);\n"
"}\n"
"abstract class B implements I {\n"
" use T;\n"
"}\n"
"class C extends B {\n"
" public function foo($x){ echo \"$x \\n\";}\n"
"}\n"
"$obj = new C;\n"
"$obj->foo(1);\n"
,
"1 \n"
);
MVCRO("<?php\n"
"trait T {"
" public function init() {"
" parent::init();"
" }"
"}"
"class A {"
" public function init() {"
" echo 'A::init';"
" }"
"}"
"class B extends A {"
" use T;"
"}"
"class C extends B {"
" public function init() {"
" parent::init();"
" }"
"}"
"$obj = new C;"
"$obj->init();",
"A::init");
MVCRO("<?php\n"
"trait T {\n"
" private function foo() {}\n"
"}\n"
"class C {\n"
" protected function foo() {}\n"
"}\n"
"class D extends C {\n"
" use T;\n"
" protected function foo() {}\n"
"}\n"
"class E extends C {\n"
" public static function test($obj) {\n"
" $obj->foo();\n"
" }\n"
"}\n"
"$d = new D;\n"
"E::test($d);\n"
"echo \"Done\\n\";\n"
,
"Done\n"
);
MVCRO("<?php\n"
"class C {\n"
" protected function foo() { echo \"C::foo\\n\"; }\n"
"}\n"
"trait T {\n"
" protected function foo() { echo \"T::foo\\n\"; }\n"
"}\n"
"class D extends C {\n"
" use T;\n"
"}\n"
"class E extends C {\n"
" public static function test($obj) {\n"
" $obj->foo();\n"
" }\n"
"}\n"
"$d = new D;\n"
"E::test($d);\n"
"echo \"Done\\n\";\n"
,
"T::foo\n"
"Done\n"
);
MVCRO("<?php\n"
"trait T {\n"
" private static function blarg() {\n"
" echo \"T::blarg\\n\";\n"
" }\n"
" private static function test() {\n"
" echo __CLASS__ . \"\\n\";\n"
" echo get_called_class() . \"\\n\";\n"
" self::blarg();\n"
" }\n"
" public static function doTest() {\n"
" self::test();\n"
" }\n"
"}\n"
"class C {\n"
" use T;\n"
"}\n"
"class D extends C {\n"
" protected static function test() {\n"
" echo \"D::test\\n\";\n"
" }\n"
" public static function doTest() {\n"
" parent::doTest();\n"
" }\n"
"}\n"
"D::doTest();\n"
"echo \"Done\\n\";\n"
,
"C\n"
"D\n"
"T::blarg\n"
"Done\n"
);
MVCRO("<?php\n"
"trait T {\n"
" final public function foo() {\n"
" return 'Bar';\n"
" }\n"
"}\n"
"class Bar {\n"
" use T;\n"
" final public function foo() {\n"
" return 'Foo';\n"
" }\n"
"}\n"
"$bar = new Bar();\n"
"echo $bar->foo().\"\\n\";\n"
,
"Foo\n");
MVCRO("<?php\n"
"class Foo {\n"
" protected function f() {\n"
" return 'Foo';\n"
" }\n"
"}\n"
"trait T {\n"
" public function f() {\n"
" return 'Bar';\n"
" }\n"
"}\n"
"class Bar extends Foo {\n"
" use T;\n"
"}\n"
"$b = new Bar();\n"
"echo $b->f().\"\\n\";\n"
,
"Bar\n");
MVCRO("<?php\n"
"class Foo {\n"
" private function f() {\n"
" return 'Foo';\n"
" }\n"
"}\n"
"trait T {\n"
" private function f() {\n"
" return 'Bar';\n"
" }\n"
"}\n"
"class Bar extends Foo {\n"
" use T;\n"
" function inv() {\n"
" return $this->f();\n"
" }\n"
"}\n"
"$b = new Bar();\n"
"echo $b->inv().\"\\n\";\n"
,
"Bar\n");
MVCRO("<?php\n"
"class Foo {\n"
" private function f() {\n"
" return 'Foo';\n"
" }\n"
"}\n"
"trait T {\n"
" protected function f() {\n"
" return 'Bar';\n"
" }\n"
"}\n"
"class Bar extends Foo {\n"
" use T;\n"
" function inv() {\n"
" return $this->f();\n"
" }\n"
"}\n"
"$b = new Bar();\n"
"echo $b->inv().\"\\n\";\n"
,
"Bar\n");
MVCRO("<?php\n"
"class Foo {\n"
" protected function f() {\n"
" return 'Foo';\n"
" }\n"
"}\n"
"trait T {\n"
" protected function f() {\n"
" return 'Bar';\n"
" }\n"
"}\n"
"class Bar extends Foo {\n"
" use T;\n"
" function inv() {\n"
" return $this->f();\n"
" }\n"
"}\n"
"$b = new Bar();\n"
"echo $b->inv().\"\\n\";\n"
,
"Bar\n");
MVCRO("<?php\n"
"trait T {\n"
" abstract static function f();\n"
"}\n"
"abstract class Foo {\n"
" abstract static function f();\n"
"}\n"
"class Bar extends Foo {\n"
" use T;\n"
" static function f() {\n"
" echo \"Foo\\n\";\n"
" }\n"
"}\n"
"Bar::f();\n"
,
"Foo\n");
MVCRO("<?php\n"
"trait T {\n"
" function hello() { echo \"Hello from T!\n\"; }\n"
"}\n"
"class B {\n"
" use T;\n"
" function hello() { echo \"Hello from B!\n\"; }\n"
"}\n"
"class C extends B {}\n"
"class D extends C {}\n"
"$ob = new B();\n"
"$ob->hello();\n"
"$oc = new C();\n"
"$oc->hello();\n"
"$od = new D();\n"
"$od->hello();\n"
,
"Hello from B!\n"
"Hello from B!\n"
"Hello from B!\n"
);
MVCRO("<?php\n"
"trait T1 { abstract function foo(); }\n"
"trait T2 { abstract function foo(); }\n"
"class B {\n"
" function foo() { return \"hello\\n\"; }\n"
"}\n"
"class C extends B {\n"
" use T1, T2;\n"
"}\n"
"$o = new C;\n"
"echo $o->foo();\n"
,
"hello\n");
MVCRO("<?php\n"
"trait T1 { abstract function foo(); }\n"
"trait T2 { abstract function foo(); }\n"
"abstract class B {\n"
" use T1, T2;\n"
"}\n"
"class C extends B {\n"
" function foo() { return \"hello\\n\"; }\n"
"}\n"
"$o = new C;\n"
"echo $o->foo();\n"
,
"hello\n");
MVCRO("<?php\n"
"class A {\n"
" static public $bp = \"hello\\n\";\n"
"}\n"
"trait T {\n"
" function foo() {\n"
" echo A::$bp;\n"
" }\n"
"}\n"
"class C { use T; }\n"
"$o = new C;\n"
"$o->foo();\n"
,
"hello\n");
MVCRO("<?php\n"
"class B {\n"
" static public $bp = \"B::hello\\n\";\n"
"}\n"
"trait T {\n"
" function foo() {\n"
" echo self::$bp;\n"
" }\n"
"}\n"
"class C extends B {\n"
" static public $bp = \"C::hello\\n\";\n"
" use T;\n"
"}\n"
"$o = new C;\n"
"$o->foo();\n"
,
"C::hello\n");
MVCRO("<?php\n"
"class B {\n"
" static public $bp = \"B::hello\\n\";\n"
"}\n"
"trait T {\n"
" function foo() {\n"
" echo parent::$bp;\n"
" }\n"
"}\n"
"class C extends B {\n"
" static public $bp = \"C::hello\\n\";\n"
" use T;\n"
"}\n"
"$o = new C;\n"
"$o->foo();\n"
,
"B::hello\n");
MVCRO("<?php "
"class A {"
" function foo() { var_dump('fail'); }"
" function bar() { $this->foo(); }"
"}"
"trait BT {"
" function foo() { var_dump('ok'); }"
"}"
"class B extends A {"
" use BT;"
"}"
"function test() {"
" $b = new B;"
" $b->bar();"
"}"
"test();",
"string(2) \"ok\"\n");
MVCRO("<?php\n"
"trait T { public function y() {} }\n"
"interface I { public function y();}\n"
"class C { use T ; }\n"
"var_dump(method_exists('T', 'y'));\n"
"var_dump(method_exists('C', 'y'));\n"
"var_dump(method_exists('I', 'y'));\n"
"var_dump(method_exists('T', 'x'));\n"
"var_dump(method_exists('C', 'x'));\n"
"var_dump(method_exists('I', 'x'));\n"
,
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(false)\n"
"bool(false)\n"
"bool(false)\n");
MVCRO("<?php\n"
"if (true) {\n"
" trait T { public static function foo() { echo \"Foo\\n\"; } }\n"
" class C { use T; }\n"
"}\n"
"C::foo();\n"
,
"Foo\n"
);
MVCRO("<?php\n"
"final class Foo {\n"
" use Bar;\n"
" private static $a = 3;\n"
"}\n"
"trait Bar {\n"
" private static $a = 3;\n"
"}\n"
"echo \"Done\\n\";\n"
,
"Done\n"
);
MVCRO("<?php\n"
"function show_without_extra_vardump_nonsense($arr) {\n"
" echo 'array (' . count($arr) . \") {\\n\";\n"
" foreach ($arr as $val) {\n"
" echo \" $val\\n\";\n"
" }\n"
" echo \"}\\n\";\n"
"}\n"
"function do_wonderful_things_with($r) {\n"
" echo \"yall know what time it is. time to show you some properties\\n\";\n"
" $props = array();\n"
" foreach ($r->getProperties() as $prop) {\n"
" $props[] = $prop->getName();\n"
" }\n"
" asort($props);\n"
" show_without_extra_vardump_nonsense($props);\n"
" $meths = array();\n"
" echo \"yall know what time it is now too. time to show you some methods\\n\";\n"
" foreach ($r->getMethods() as $meth) {\n"
" $meths[] = $meth->getName();\n"
" }\n"
" asort($meths);\n"
" show_without_extra_vardump_nonsense($meths);\n"
"}\n"
"\n"
"trait T {\n"
" private $priv;\n"
" protected $prot;\n"
" public $pub;\n"
"\n"
" private static $priv_st;\n"
" protected static $prot_st;\n"
" public static $pub_st;\n"
"\n"
" private function fpriv() {}\n"
" protected function fprot() {}\n"
" public function fpub() {}\n"
"\n"
" private static function fpriv_st() {}\n"
" protected static function fprot_st() {}\n"
" public static function fpub_st() {}\n"
"}\n"
"\n"
"trait U {\n"
" public $foo;\n"
" public static $static;\n"
"\n"
" public function ffoo() {}\n"
" public static function fstatic() {}\n"
"}\n"
"\n"
"class C {\n"
" use T;\n"
"\n"
" private $c_priv;\n"
"}\n"
"\n"
"class D extends C {\n"
" use U;\n"
"\n"
" public $class_prop;\n"
" public function class_method() {}\n"
"\n"
"}\n"
"\n"
"$r = new ReflectionClass('C');\n"
"do_wonderful_things_with($r);\n"
"\n"
"$r = new ReflectionClass('D');\n"
"do_wonderful_things_with($r);\n"
,
"yall know what time it is. time to show you some properties\n"
"array (7) {\n"
" c_priv\n"
" priv\n"
" priv_st\n"
" prot\n"
" prot_st\n"
" pub\n"
" pub_st\n"
"}\n"
"yall know what time it is now too. time to show you some methods\n"
"array (6) {\n"
" fpriv\n"
" fpriv_st\n"
" fprot\n"
" fprot_st\n"
" fpub\n"
" fpub_st\n"
"}\n"
"yall know what time it is. time to show you some properties\n"
"array (7) {\n"
" class_prop\n"
" foo\n"
" prot\n"
" prot_st\n"
" pub\n"
" pub_st\n"
" static\n"
"}\n"
"yall know what time it is now too. time to show you some methods\n"
"array (9) {\n"
" class_method\n"
" ffoo\n"
" fpriv\n"
" fpriv_st\n"
" fprot\n"
" fprot_st\n"
" fpub\n"
" fpub_st\n"
" fstatic\n"
"}\n"
);
return true;
}
bool TestCodeRun::TestUConverter() {
// ext/intl/tests/uconverter_enum.phpt
MVCRO("<?php "
"$avail = UConverter::getAvailable();"
"var_dump(count($avail) > 100);"
"var_dump(in_array('UTF-7', $avail));"
"var_dump(in_array('CESU-8', $avail));"
"var_dump(in_array('ISO-8859-1', $avail));"
"$latin1 = UConverter::getAliases('latin1');"
"var_dump(in_array('ISO-8859-1', $latin1));"
,
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
);
// ext/intl/tests/uconverter_func_basic.phpt
MVCRO("<?php "
"var_dump(UConverter::transcode(\"This is an ascii string\", 'utf-8', 'latin1'));"
"var_dump(urlencode(UConverter::transcode(\"Espa\\xF1ol\", 'utf-8', 'latin1')));"
"var_dump(urlencode(UConverter::transcode(\"Stra\\xDFa\", 'utf-8', 'latin1')));"
"var_dump(bin2hex(UConverter::transcode(\"\\xE4\", 'utf-8', 'koi8-r')));"
,
"string(23) \"This is an ascii string\"\n"
"string(12) \"Espa%C3%B1ol\"\n"
"string(11) \"Stra%C3%9Fa\"\n"
"string(4) \"d094\"\n"
);
// ext/intl/tests/uconverter_func_subst.phpt
MVCRO("<?php "
"foreach(array('?','','?" /* this is not a trigraph */ "?') as $subst) {"
" $opts = array('to_subst' => $subst);"
" $ret = UConverter::transcode(\"This is an ascii string\", 'ascii', 'utf-8', $opts);"
" if ($ret === NULL) {"
" echo \"Error: \", intl_get_error_message(), \"\\n\";"
" } else {"
" var_dump($ret);"
" }"
" $ret = UConverter::transcode(\"Snowman: (\\xE2\\x98\\x83)\", 'ascii', 'utf-8', $opts);"
" if ($ret === NULL) {"
" echo \"Error: \", intl_get_error_message(), \"\\n\";"
" } else {"
" var_dump($ret);"
" }"
"}"
,
"string(23) \"This is an ascii string\"\n"
"string(12) \"Snowman: (?)\"\n"
"Error: ucnv_setSubstChars() returned error 1: U_ILLEGAL_ARGUMENT_ERROR\n"
"Error: ucnv_setSubstChars() returned error 1: U_ILLEGAL_ARGUMENT_ERROR\n"
"Error: ucnv_setSubstChars() returned error 1: U_ILLEGAL_ARGUMENT_ERROR\n"
"Error: ucnv_setSubstChars() returned error 1: U_ILLEGAL_ARGUMENT_ERROR\n"
);
// ext/intl/tests/uconverter_oop_algo.phpt
MVCRO("<?php "
"$c = new UConverter('utf-8', 'latin1');"
"var_dump(UConverter::LATIN_1 === $c->getSourceType());"
"var_dump(UConverter::UTF8 === $c->getDestinationType());"
"$c = new UConverter('koi8-r', 'utf-32be');"
"var_dump(UConverter::UTF32_BigEndian === $c->getSourceType());"
"var_dump(UConverter::SBCS === $c->getDestinationType());"
,
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
"bool(true)\n"
);
// ext/intl/tests/uconverter_oop_basic.phpt
MVCRO("<?php "
"$c = new UConverter('utf-8', 'latin1');"
"var_dump($c->convert(\"This is an ascii string\"));"
"var_dump(urlencode($c->convert(\"Espa\\xF1ol\")));"
"var_dump(urlencode($c->convert(\"Stra\\xDFa\")));"
"var_dump(urlencode($c->convert(\"Stra\\xC3\\x9Fa\", true)));"
"$k = new UConverter('utf-8', 'koi8-r');"
"var_dump(bin2hex($k->convert(\"\\xE4\")));"
,
"string(23) \"This is an ascii string\"\n"
"string(12) \"Espa%C3%B1ol\"\n"
"string(11) \"Stra%C3%9Fa\"\n"
"string(8) \"Stra%DFa\"\n"
"string(4) \"d094\"\n"
);
// ext/intl/tests/uconverter_oop_callback.phpt
MVCRO("<?php "
"class MyConverter extends UConverter {"
" public function toUCallback($reason, $source, $codeUnits, &$error) {"
" echo \"toUCallback(\", UConverter::reasonText($reason), \", ...)\\n\";"
" return parent::toUCallback($reason, $source, $codeUnits, $error);"
" }"
" public function fromUCallback($reason, $source, $codePoint, &$error) {"
" echo \"fromUCallback(\", UConverter::reasonText($reason), \", ...)\\n\";"
" return parent::fromUCallback($reason, $source, $codePoint, $error);"
" }"
"}"
"$c = new MyConverter('ascii', 'utf-8');"
"foreach(array(\"regular\", \"irregul\\xC1\\xA1r\", \"\\xC2\\xA1unsupported!\") as $word) {"
" $c->convert($word);"
"}"
"unset($c);"
,
"toUCallback(REASON_RESET, ...)\n"
"toUCallback(REASON_RESET, ...)\n"
"fromUCallback(REASON_RESET, ...)\n"
"fromUCallback(REASON_RESET, ...)\n"
"toUCallback(REASON_RESET, ...)\n"
"toUCallback(REASON_ILLEGAL, ...)\n"
"toUCallback(REASON_RESET, ...)\n"
"toUCallback(REASON_ILLEGAL, ...)\n"
"fromUCallback(REASON_RESET, ...)\n"
"fromUCallback(REASON_RESET, ...)\n"
"toUCallback(REASON_RESET, ...)\n"
"toUCallback(REASON_RESET, ...)\n"
"fromUCallback(REASON_RESET, ...)\n"
"fromUCallback(REASON_UNASSIGNED, ...)\n"
"fromUCallback(REASON_RESET, ...)\n"
"fromUCallback(REASON_UNASSIGNED, ...)\n"
"toUCallback(REASON_CLOSE, ...)\n"
"fromUCallback(REASON_CLOSE, ...)\n"
"toUCallback(REASON_CLOSE, ...)\n"
"fromUCallback(REASON_CLOSE, ...)\n"
);
// ext/intl/tests/uconverter_oop_callback_return.phpt
MVCRO("<?php "
"class MyConverter extends UConverter {"
" public function toUCallback($reason, $source, $codeUnits, &$error) {"
" $error = U_ZERO_ERROR;"
" switch ($codeUnits) {"
" case \"\\x80\": return NULL;"
" case \"\\x81\": return 'a';"
" case \"\\x82\": return ord('b');"
" case \"\\x83\": return array('c');"
" }"
" }"
" public function fromUCallback($reason, $source, $codePoint, &$error) {"
" $error = U_ZERO_ERROR;"
" switch ($codePoint) {"
" case 0x00F1: return \"A\";"
" case 0x00F2: return ord(\"B\");"
" case 0x00F3: return array(\"C\");"
" case 0x00F4: return NULL;"
" }"
" }"
"}"
"$c = new MyConverter('ascii', 'utf-8');"
"var_dump($c->convert(\"\\x80\\x81\\x82\\x83\"));"
"var_dump($c->convert(\"\\xC3\\xB1\\xC3\\xB2\\xC3\\xB3\\xC3\\xB4\"));"
,
"string(3) \"abc\"\n"
"string(3) \"ABC\"\n"
);
// ext/intl/tests/uconverter_oop_subst.phpt
MVCRO("<?php "
"$c = new UConverter('ascii', 'utf-8');"
"foreach(array('?','','<unknown>') as $subst) {"
" if (!$c->setSubstChars($subst)) {"
" echo \"**Disallowed\\n\";"
" continue;"
" }"
" var_dump($c->convert(\"This is an ascii string\"));"
" var_dump($c->convert(\"Snowman: (\\xE2\\x98\\x83)\"));"
"}"
,
"string(23) \"This is an ascii string\"\n"
"string(12) \"Snowman: (?)\"\n"
"**Disallowed\n"
"**Disallowed\n"
);
return true;
}
bool TestCodeRun::TestStrictMode() {
HipHopSyntax w(this);
MVCRO("<?hh\necho 42;\n", "42");
MVCRONW(" <?hh\necho 42;\n", "");
MVCRONW("<?hh\necho 42;\n?>", "");
// Wrong type, fail
MVCRONW("<?hh\nfunction t(X $a) { echo 1; } t(42);", "");
// My
MVCRO("<?hh\nfunction t(?X $a) { echo 1; } t(42);", "1");
// Now a typevar, pass
MVCRO("<?hh\nfunction t<X>(X $a) { echo 1; } t(42);", "1");
// Generic with as
MVCRO("<?hh\nclass C<T as I>{}", "");
// Silent type hint
MVCRO("<?hh\nfunction foo(@int $x){ echo 1; } foo('hi');", "1");
// Combination of optional + generic
MVCRO("<?hh\nfunction foo(): Map<int, ?Vector<int>> {}", "");
// Arrays with generic types
MVCRO("<?hh\nfunction foo(array<int> $x) {}", "");
MVCRO("<?hh\nfunction foo(array<string, int> $x) {}", "");
// Kitchen sink
MVCRO("<?hh\n"
"function vidx<X>(blarg<X> $list, int $idx):X {\n"
" return $list->d[$idx];\n"
"}\n"
"function pair<X,Y>(X $x, Y $y):(X,Y) { return array($x, $y); }\n"
"function car<X,Y>((X,?Y) $pair):X {\n"
" return $pair[0];\n"
"}\n"
"interface Face<A> {\n"
"}\n"
"class blarg<X> { function __construct($x) { $this->d = $x; } }\n"
"function blarg<X>(/*...*/):blarg<X> { return new blarg(func_get_args()); }\n"
"\n"
"class Foo<X> implements Face<X> {\n"
" const string BLEH = \"b\";\n"
"}\n"
"\n"
"$blork = pair('c', '-');\n"
"\n"
"function right_shift_hack(Foo<Foo<Foo<Foo<Foo<Foo<Foo<Foo<Foo<Foo<"
"Foo>,Foo>>,Foo>>>,Foo>>>> $bonk,\n"
" (function(Foo,Bar):C) $d) {\n"
"}\n"
"\n"
"$a = blarg('a','aa','aaa');\n"
"$d = (function():UNICORNS{return 'd';});\n"
"echo vidx($a, 0), Foo::BLEH, car($blork), $d();\n",
"abcd");
MVCRO("<?hh\n"
"function f() {\n"
" $x = new Foo<Bar>();\n"
" $x = new Foo<Blah<Bar>>();\n"
" $y = new Foo<array,int>();\n"
" $z = new Foo<Blah<array>,Blah<int>>();\n"
" yo<int>();\n"
" yo<Blah<int>>();\n"
" yo<string,:my:xhp:class>();\n"
" yo<Blah<string>,Blah<:my:xhp:class>>();\n"
" $x->baz<int>();\n"
" $x->baz<Blah<int>>();\n"
" $y->baz<string,:my:xhp:class>();\n"
" $y->baz<Blah<string>,Blah<:my:xhp:class>>();\n"
" Foo<Bar>::biz();\n"
" Foo<Blah<Bar>>::biz();\n"
" Foo<Bar>::biz<string>();\n"
" Foo<Blah<Bar>>::biz<Blah<string>>();\n"
" Foo<Bar>::biz<bool,:my:xhp:class>();\n"
" Foo<Blah<Bar>>::biz<Blah<bool>,Blah<:my:xhp:class>>();\n"
" Foo<array,int>::biz();\n"
" Foo<Blah<array>,Blah<int>>::biz();\n"
" Foo<array,int>::biz<string>();\n"
" Foo<Blah<array>,Blah<int>>::biz<Blah<string>>();\n"
" Foo<array,int>::biz<bool,:my:xhp:class>();\n"
" Foo<Blah<array>,Blah<int>>::biz<Blah<bool>,Blah<:my:xhp:class>>();\n"
" var_dump(Foo<Bar>::SOME_CONST);\n"
" var_dump(Foo<Blah<Bar>>::SOME_CONST);\n"
" var_dump(Foo<array,int>::SOME_CONST);\n"
" var_dump(Foo<Blah<array>,Blah<int>>::SOME_CONST);\n"
" var_dump(Foo<Bar>::$staticProp);\n"
" var_dump(Foo<Blah<Bar>>::$staticProp);\n"
" var_dump(Foo<array,int>::$staticProp);\n"
" var_dump(Foo<Blah<array>,Blah<int>>::$staticProp);\n"
"}\n"
"echo \"Done\\n\";\n"
,
"Done\n"
);
MVCRO("<?hh\n"
"abstract class Foo {\n"
" abstract function f1() : (function():void);\n"
" abstract function f2() : (function(int):void);\n"
" abstract function f3() : (function(int,string):void);\n"
" abstract function f4() : (function(...):void);\n"
" abstract function f5() : (function(int,...):void);\n"
" abstract function f6() : (function(int,string,...):void);\n"
" abstract function g1() : Foo<(function():void)>;\n"
" abstract function g2() : Foo<(function(int):void)>;\n"
" abstract function g3() : Foo<(function(int,string):void)>;\n"
" abstract function g4() : Foo<(function(...):void)>;\n"
" abstract function g5() : Foo<(function(int,...):void)>;\n"
" abstract function g6() : Foo<(function(int,string,...):void)>;\n"
" abstract function h1((function():void) $x) : void;\n"
" abstract function h2((function(int):void) $x) : void;\n"
" abstract function h3((function(int,string):void) $x) : void;\n"
" abstract function h4((function(...):void) $x) : void;\n"
" abstract function h5((function(int,...):void) $x) : void;\n"
" abstract function h6((function(int,string,...):void) $x) : void;\n"
" abstract function j1(Foo<(function():void)> $x) : void;\n"
" abstract function j2(Foo<(function(int):void)> $x) : void;\n"
" abstract function j3(Foo<(function(int,string):void)> $x) : void;\n"
" abstract function j4(Foo<(function(...):void)> $x): void;\n"
" abstract function j5(Foo<(function(int,...):void)> $x): void;\n"
" abstract function j6(Foo<(function(int,string,...):void)> $x): "
"void;\n"
"}\n"
"echo \"Done\\n\";\n"
,
"Done\n"
);
return true;
}
// please leave this unit test at last for debugging ad hoc code
bool TestCodeRun::TestAdHoc() {
return true;
}
Referência em uma Nova Issue Ver Git Blame Copiar Link Permanente