/*
   +----------------------------------------------------------------------+
   | 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::KeepStatementsWithNoEffect = false;
  Option::ParserThreadCount = 4;
}

bool TestCodeRun::preTest() {
  if (!CleanUp()) return false;
  m_infos.clear();
  return true;
}

bool TestCodeRun::postTest() {
  return true;
}

bool TestCodeRun::CleanUp() {
  string out, err;
  const char *argv[] = {"", nullptr};
  Process::Exec("runtime/tmp/cleanup.sh", argv, nullptr, 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;
}

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(), nullptr};
    const char *argv2[] = {"", "-ddisplay_errors=On",
                           "-dapc.enable_cli=1",
                           fullPath.c_str(), nullptr};
    string err;
    Process::Exec(php_path, nowarnings ? argv2 : argv1, nullptr, 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(), nullptr};
        Process::Exec("runtime/tmp/run.sh", argv, nullptr, actual, &err);
      } else {
        const char *argv[] = {"", "--file=string", "--config=test/config.hdf",
                              repoarg.c_str(), nullptr};
        string path = dir + "test";
        Process::Exec(path.c_str(), argv, nullptr, 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(),
                            // Next arg only takes effect if JitUseIR=true also
                            "-vEval.HHIRDisableTx64=true",
                            jit_rename.c_str(),
                            nullptr};
      Process::Exec(HHVM_PATH, argv, nullptr, 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::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;

  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(TestUserWrappers);
  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 (false) {
    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 (false) {
    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 (false) {
    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');");

  MVCR("<?php "
       "$a = array('a' => null, 'b' => 123, 'c' => false);"
       "var_dump(array_keys($a));"
       "var_dump(array_keys($a, null));"
       "var_dump(array_keys($a, null, true));"
      );

  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();");

  // Testing object property that can be inferred but is null at
  // runtime
  MVCR("<?php\n"
       "function error_handler($errno, $errstr) { echo \"Error\\n\"; }\n"
       "class f {\n"
       "  public $bar = 'hi there';\n"
       "}\n"
       "class c {\n"
       "  private $foo;\n"
       "  function __construct($c) {\n"
       "    if ($c) {\n"
       "      $this->foo = new f;\n"
       "    }\n"
       "  }\n"
       "  function get() {\n"
       "    return $this->foo->bar;\n"
       "  }\n"
       "}\n"
       "function main() {\n"
       "  set_error_handler('error_handler');\n"
       "  $c = new c(false);\n"
       "  $c->get();\n"
       "  echo \"Error\\n\";\n"
       "}\n"
       "main();\n");
     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"
        );

  MVCRO("<?php\n"
        "$ctypes = array('Vector', 'Map', 'StableMap');\n"
        "foreach ($ctypes as $ctype) {\n"
        "  echo \"=== $ctype ===\\n\";\n"
        "  $c = new $ctype();\n"
        "  try {\n"
        "    $c[0];\n"
        "  } catch (Exception $e) {\n"
        "    var_dump($e->getMessage());\n"
        "  }\n"
        "  try {\n"
        "    $c[PHP_INT_MAX];\n"
        "  } catch (Exception $e) {\n"
        "    var_dump($e->getMessage());\n"
        "  }\n"
        "  try {\n"
        "    $c[~PHP_INT_MAX];\n"
        "  } catch (Exception $e) {\n"
        "    var_dump($e->getMessage());\n"
        "  }\n"
        "  if ($ctype === 'Vector') {\n"
        "    continue;\n"
        "  }\n"
        "  try {\n"
        "    $c['abc'];\n"
        "  } catch (Exception $e) {\n"
        "    var_dump($e->getMessage());\n"
        "  }\n"
        "  try {\n"
        "    $c['abcdefghijklmnopqrst'];\n"
        "  } catch (Exception $e) {\n"
        "    var_dump($e->getMessage());\n"
        "  }\n"
        "  try {\n"
        "    $c['abcdefghijklmnopqrstu'];\n"
        "  } catch (Exception $e) {\n"
        "    var_dump($e->getMessage());\n"
        "  }\n"
        "  try {\n"
        "    $c[\"abcdefghij\\000klmnopqrst\"];\n"
        "  } catch (Exception $e) {\n"
        "    $str = $e->getMessage();\n"
        "    $i = 0;\n"
        "    for (;;) {\n"
        "      echo(ord($str[$i]));\n"
        "      ++$i;\n"
        "      if ($i >= strlen($str)) {\n"
        "        break;\n"
        "      }\n"
        "      if (($i % 8) === 0) {\n"
        "        echo \"\\n\";\n"
        "      } else {\n"
        "        echo ' ';\n"
        "      }\n"
        "    }\n"
        "    echo \"\\n\";\n"
        "  }\n"
        "}\n"
        ,
        "=== Vector ===\n"
        "string(30) \"Integer key 0 is out of bounds\"\n"
        "string(48) \"Integer key 9223372036854775807 is out of bounds\"\n"
        "string(49) \"Integer key -9223372036854775808 is out of bounds\"\n"
        "=== Map ===\n"
        "string(28) \"Integer key 0 is not defined\"\n"
        "string(46) \"Integer key 9223372036854775807 is not defined\"\n"
        "string(47) \"Integer key -9223372036854775808 is not defined\"\n"
        "string(31) \"String key \"abc\" is not defined\"\n"
        "string(48) \"String key \"abcdefghijklmnopqrst\" is not defined\"\n"
        "string(48) \"String key \"abcdefghijklmnopq...\" is not defined\"\n"
        "83 116 114 105 110 103 32 107\n"
        "101 121 32 34 97 98 99 100\n"
        "101 102 103 104 105 106 0 107\n"
        "108 109 110 111 112 46 46 46\n"
        "34 32 105 115 32 110 111 116\n"
        "32 100 101 102 105 110 101 100\n"
        "=== StableMap ===\n"
        "string(28) \"Integer key 0 is not defined\"\n"
        "string(46) \"Integer key 9223372036854775807 is not defined\"\n"
        "string(47) \"Integer key -9223372036854775808 is not defined\"\n"
        "string(31) \"String key \"abc\" is not defined\"\n"
        "string(48) \"String key \"abcdefghijklmnopqrst\" is not defined\"\n"
        "string(48) \"String key \"abcdefghijklmnopq...\" is not defined\"\n"
        "83 116 114 105 110 103 32 107\n"
        "101 121 32 34 97 98 99 100\n"
        "101 102 103 104 105 106 0 107\n"
        "108 109 110 111 112 46 46 46\n"
        "34 32 105 115 32 110 111 116\n"
        "32 100 101 102 105 110 101 100\n"
        );

  MVCRO("<?php\n"
        "function f() {\n"
        "  $x = StableMap {'a' => 1, 'b' => 2, 'c' => 3, 'd' => 4};\n"
        "  unset($x['a']);\n"
        "  unset($x['c']);\n"
        "  foreach ($x as $k => $v) {\n"
        "    echo $k . ' ' . $v . \"\\n\";\n"
        "  }\n"
        "}\n"
        "f();\n"
        ,
        "b 2\n"
        "d 4\n"
        );

  MVCRO("<?php\n"
        "$v1 = Vector {5};\n"
        "$v2 = Vector {5};\n"
        "var_dump($v1 === $v2);\n"
        "var_dump($v1 == $v2);\n"
        "$v1[] = \"123\";\n"
        "$v2[] = 123;\n"
        "var_dump($v1 == $v2);\n"
        "$v1[] = 73;\n"
        "var_dump($v1 == $v2);\n"
        "$v2[] = 74;\n"
        "var_dump($v1 == $v2);\n"
        "echo \"============\\n\";\n"
        "$v = Vector {};\n"
        "var_dump($v == null);\n"
        "var_dump($v == false);\n"
        "var_dump($v == true);\n"
        "var_dump($v == 1);\n"
        "var_dump($v == \"Vector\");\n"
        "echo \"============\\n\";\n"
        "$v = Vector {7};\n"
        "var_dump($v == null);\n"
        "var_dump($v == false);\n"
        "var_dump($v == true);\n"
        "var_dump($v == 1);\n"
        "var_dump($v == \"Vector\");\n"
        ,
        "bool(false)\n"
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        "============\n"
        "bool(false)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        "============\n"
        "bool(false)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        );

  MVCRO("<?php\n"
        "$m1 = Map {};\n"
        "$m2 = Map {};\n"
        "var_dump($m1 == $m2);\n"
        "$m1['a'] = \"123\";\n"
        "$m1['b'] = 73;\n"
        "$m2['a'] = 123;\n"
        "$m2['b'] = \"73\";\n"
        "var_dump($m1 == $m2);\n"
        "$m1['c'] = 0;\n"
        "var_dump($m1 == $m2);\n"
        "echo \"============\\n\";\n"
        "$m1 = Map {'a' => 1, 'b' => 2, 'c' => 3, 'd' => 4};\n"
        "$m1->remove('a');\n"
        "$m1->remove('c');\n"
        "$m2 = Map {'b' => 2, 'd' => 4};\n"
        "var_dump($m1 == $m2);\n"
        "$m1->remove('d');\n"
        "var_dump($m1 == $m2);\n"
        "$m2->remove('d');\n"
        "var_dump($m1 == $m2);\n"
        "$m1['d'] = 4;\n"
        "var_dump($m1 == $m2);\n"
        "$m2['d'] = 4;\n"
        "var_dump($m1 == $m2);\n"
        "echo \"============\\n\";\n"
        "$m = Map {};\n"
        "var_dump($m == null);\n"
        "var_dump($m == false);\n"
        "var_dump($m == true);\n"
        "var_dump($m == 1);\n"
        "var_dump($m == \"Map\");\n"
        "echo \"============\\n\";\n"
        "$m = Map {'x' => 7};\n"
        "var_dump($m == null);\n"
        "var_dump($m == false);\n"
        "var_dump($m == true);\n"
        "var_dump($m == 1);\n"
        "var_dump($m == \"Map\");\n"
        ,
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        "============\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(true)\n"
        "============\n"
        "bool(false)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        "============\n"
        "bool(false)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        );

  MVCRO("<?php\n"
        "$s1 = StableMap {'a' => 1, 'b' => 2};\n"
        "$s2 = StableMap {'b' => 2, 'a' => 1};\n"
        "var_dump($s1 == $s2);\n"
        "$s2->remove('b');\n"
        "$s2['b'] = 2;\n"
        "var_dump($s1 == $s2);\n"
        "$s1['b'] = \"2\";\n"
        "var_dump($s1 == $s2);\n"
        "$s1['b'] = 3;\n"
        "var_dump($s1 == $s2);\n"
        "echo \"============\\n\";\n"
        "$m = StableMap {};\n"
        "var_dump($m == null);\n"
        "var_dump($m == false);\n"
        "var_dump($m == true);\n"
        "var_dump($m == 1);\n"
        "var_dump($m == \"StableMap\");\n"
        "echo \"============\\n\";\n"
        "$m = StableMap {'x' => 7};\n"
        "var_dump($m == null);\n"
        "var_dump($m == false);\n"
        "var_dump($m == true);\n"
        "var_dump($m == 1);\n"
        "var_dump($m == \"StableMap\");\n"
        ,
        "bool(false)\n"
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        "============\n"
        "bool(false)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        "============\n"
        "bool(false)\n"
        "bool(false)\n"
        "bool(true)\n"
        "bool(false)\n"
        "bool(false)\n"
        );

  {
    HipHopSyntax w1(this);
    MVCRO("<?php\n"
          "function f() {\n"
          "  $v = Vector {'a', 'b', 'c'};\n"
          "  $m = new Map($v);\n"
          "  var_dump($m);\n"
          "  $sm = new StableMap($m);\n"
          "  var_dump($sm);\n"
          "}\n"
          "function g() {\n"
          "  $m = Map {'a' => 1, 2 => 'b'};\n"
          "  $v = new Vector($m);\n"
          "  var_dump($v);\n"
          "}\n"
          "function h() {\n"
          "  $arr1 = array(11, 22, 33);\n"
          "  var_dump(new Vector($arr1));\n"
          "  var_dump(new Map($arr1));\n"
          "  $arr2 = array('a' => 1, 2 => 'b');\n"
          "  var_dump(new Vector($arr2));\n"
          "  var_dump(new StableMap($arr2));\n"
          "}\n"
          "function gen() {\n"
          "  yield 42;\n"
          "  yield 72;\n"
          "}\n"
          "function j() {\n"
          "  $v = new Vector(gen());\n"
          "  var_dump($v);\n"
          "}\n"
          "f();\n"
          "g();\n"
          "h();\n"
          "j();\n"
          ,
          "object(Map)#2 (3) {\n"
          "  [0]=>\n"
          "  string(1) \"a\"\n"
          "  [1]=>\n"
          "  string(1) \"b\"\n"
          "  [2]=>\n"
          "  string(1) \"c\"\n"
          "}\n"
          "object(StableMap)#3 (3) {\n"
          "  [0]=>\n"
          "  string(1) \"a\"\n"
          "  [1]=>\n"
          "  string(1) \"b\"\n"
          "  [2]=>\n"
          "  string(1) \"c\"\n"
          "}\n"
          "object(Vector)#2 (2) {\n"
          "  [0]=>\n"
          "  int(1)\n"
          "  [1]=>\n"
          "  string(1) \"b\"\n"
          "}\n"
          "object(Vector)#1 (3) {\n"
          "  [0]=>\n"
          "  int(11)\n"
          "  [1]=>\n"
          "  int(22)\n"
          "  [2]=>\n"
          "  int(33)\n"
          "}\n"
          "object(Map)#1 (3) {\n"
          "  [0]=>\n"
          "  int(11)\n"
          "  [1]=>\n"
          "  int(22)\n"
          "  [2]=>\n"
          "  int(33)\n"
          "}\n"
          "object(Vector)#1 (2) {\n"
          "  [0]=>\n"
          "  int(1)\n"
          "  [1]=>\n"
          "  string(1) \"b\"\n"
          "}\n"
          "object(StableMap)#1 (2) {\n"
          "  [\"a\"]=>\n"
          "  int(1)\n"
          "  [2]=>\n"
          "  string(1) \"b\"\n"
          "}\n"
          "object(Vector)#1 (2) {\n"
          "  [0]=>\n"
          "  int(42)\n"
          "  [1]=>\n"
          "  int(72)\n"
          "}\n"
          );

    MVCRO("<?hh\n"
          "function g((string,int,string) $t) {}\n"
          "class C {\n"
          "  public $t = Tuple {'foo', 42, '!'};\n"
          "}\n"
          "function f() {\n"
          "  $t = Tuple {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,\n"
          "              13, 14, 15, 16, 17, 18, 19, 20, 21, 22,\n"
          "              23, 24, 25, 26, 27, 28, 29, 30, 31, 32};\n"
          "  var_dump(count($t));\n"
          "  var_dump($t->count());\n"
          "  var_dump($t->isEmpty());\n"
          "  echo \"==========\\n\";\n"
          "  $c = new C;\n"
          "  $t = $c->t;\n"
          "  var_dump(count($t));\n"
          "  var_dump($t->count());\n"
          "  var_dump($t->isEmpty());\n"
          "  g($t);\n"
          "  echo \"==========\\n\";\n"
          "  foreach ($t as $k => $v) {\n"
          "    var_dump($k, $v);\n"
          "  }\n"
          "  echo \"==========\\n\";\n"
          "  var_dump($t[0], $t[1], $t[2]);\n"
          "  echo \"==========\\n\";\n"
          "  var_dump($t->at(0), $t->at(1), $t->at(2));\n"
          "  echo \"==========\\n\";\n"
          "  var_dump($t->get(0), $t->get(1), $t->get(2), $t->get(3));\n"
          "  echo \"==========\\n\";\n"
          "  var_dump((array)$t);\n"
          "  echo \"==========\\n\";\n"
          "  var_dump(serialize($t));\n"
          "  var_dump(unserialize(serialize($t)));\n"
          "  echo \"==========\\n\";\n"
          "  var_dump($t->count());\n"
          "  echo \"==========\\n\";\n"
          "  var_dump($t->getIterator() instanceof Iterator);\n"
          "  var_dump($t->getIterator() instanceof KeyedIterator);\n"
          "  foreach ($t->getIterator() as $k => $v) {\n"
          "    var_dump($k, $v);\n"
          "  }\n"
          "  echo \"==========\\n\";\n"
          "  var_dump((array)$t);\n"
          "  var_dump($t->toArray());\n"
          "  echo \"==========\\n\";\n"
          "  var_dump(clone $t);\n"
          "}\n"
          "f();\n"
          ,
          "int(32)\n"
          "int(32)\n"
          "bool(false)\n"
          "==========\n"
          "int(3)\n"
          "int(3)\n"
          "bool(false)\n"
          "==========\n"
          "int(0)\n"
          "string(3) \"foo\"\n"
          "int(1)\n"
          "int(42)\n"
          "int(2)\n"
          "string(1) \"!\"\n"
          "==========\n"
          "string(3) \"foo\"\n"
          "int(42)\n"
          "string(1) \"!\"\n"
          "==========\n"
          "string(3) \"foo\"\n"
          "int(42)\n"
          "string(1) \"!\"\n"
          "==========\n"
          "string(3) \"foo\"\n"
          "int(42)\n"
          "string(1) \"!\"\n"
          "NULL\n"
          "==========\n"
          "array(3) {\n"
          "  [0]=>\n"
          "  string(3) \"foo\"\n"
          "  [1]=>\n"
          "  int(42)\n"
          "  [2]=>\n"
          "  string(1) \"!\"\n"
          "}\n"
          "==========\n"
          "string(39) \"V:5:\"Tuple\":3:{s:3:\"foo\";i:42;s:1:\"!\";}\"\n"
          "object(Tuple)#6 (3) {\n"
          "  [0]=>\n"
          "  string(3) \"foo\"\n"
          "  [1]=>\n"
          "  int(42)\n"
          "  [2]=>\n"
          "  string(1) \"!\"\n"
          "}\n"
          "==========\n"
          "int(3)\n"
          "==========\n"
          "bool(true)\n"
          "bool(true)\n"
          "int(0)\n"
          "string(3) \"foo\"\n"
          "int(1)\n"
          "int(42)\n"
          "int(2)\n"
          "string(1) \"!\"\n"
          "==========\n"
          "array(3) {\n"
          "  [0]=>\n"
          "  string(3) \"foo\"\n"
          "  [1]=>\n"
          "  int(42)\n"
          "  [2]=>\n"
          "  string(1) \"!\"\n"
          "}\n"
          "array(3) {\n"
          "  [0]=>\n"
          "  string(3) \"foo\"\n"
          "  [1]=>\n"
          "  int(42)\n"
          "  [2]=>\n"
          "  string(1) \"!\"\n"
          "}\n"
          "==========\n"
          "object(Tuple)#6 (3) {\n"
          "  [0]=>\n"
          "  string(3) \"foo\"\n"
          "  [1]=>\n"
          "  int(42)\n"
          "  [2]=>\n"
          "  string(1) \"!\"\n"
          "}\n"
          );
  }

  MVCRO("<?php\n"
        "$v = Vector {11, 42, 73};\n"
        "foreach ($v->keys() as $x) {\n"
        "  var_dump($x);\n"
        "}\n"
        "$mp = StableMap {'a' => 1, 2 => 'b', 'z' => 9};\n"
        "foreach ($mp->keys() as $x) {\n"
        "  var_dump($x);\n"
        "}\n"
        "var_dump(new Vector($mp->keys()));\n"
        ,
        "int(0)\n"
        "int(1)\n"
        "int(2)\n"
        "string(1) \"a\"\n"
        "int(2)\n"
        "string(1) \"z\"\n"
        "object(Vector)#7 (3) {\n"
        "  [0]=>\n"
        "  string(1) \"a\"\n"
        "  [1]=>\n"
        "  int(2)\n"
        "  [2]=>\n"
        "  string(1) \"z\"\n"
        "}\n"
        );

  MVCRO("<?php\n"
        "$vec1 = Vector {11, 42, 73};\n"
        "foreach ($vec1->items() as $x) {\n"
        "  var_dump($x);\n"
        "}\n"
        "$mp1 = StableMap {'a' => 1, 2 => 'b', 'z' => 9};\n"
        "foreach ($mp1->items() as $t) {\n"
        "  var_dump($t[0], $t[1]);\n"
        "}\n"
        "var_dump(new Vector($mp1->items()));\n"
        "echo \"==========\\n\";\n"
        "$vec2 = Vector::fromItems($mp1->items());\n"
        "var_dump($vec2);\n"
        "$mp2 = StableMap::fromItems($mp1->items());\n"
        "var_dump($mp2);\n"
        "echo \"==========\\n\";\n"
        "$tuples = Vector {Tuple {'a', 1}, Tuple {2, 'b'}, Tuple {'z', 9}};\n"
        "$mp3 = StableMap::fromItems($tuples);\n"
        "var_dump($mp3);\n"
        ,
        "int(11)\n"
        "int(42)\n"
        "int(73)\n"
        "string(1) \"a\"\n"
        "int(1)\n"
        "int(2)\n"
        "string(1) \"b\"\n"
        "string(1) \"z\"\n"
        "int(9)\n"
        "object(Vector)#10 (3) {\n"
        "  [0]=>\n"
        "  object(Tuple)#15 (2) {\n"
        "    [0]=>\n"
        "    string(1) \"a\"\n"
        "    [1]=>\n"
        "    int(1)\n"
        "  }\n"
        "  [1]=>\n"
        "  object(Tuple)#16 (2) {\n"
        "    [0]=>\n"
        "    int(2)\n"
        "    [1]=>\n"
        "    string(1) \"b\"\n"
        "  }\n"
        "  [2]=>\n"
        "  object(Tuple)#17 (2) {\n"
        "    [0]=>\n"
        "    string(1) \"z\"\n"
        "    [1]=>\n"
        "    int(9)\n"
        "  }\n"
        "}\n"
        "==========\n"
        "object(Vector)#21 (3) {\n"
        "  [0]=>\n"
        "  object(Tuple)#22 (2) {\n"
        "    [0]=>\n"
        "    string(1) \"a\"\n"
        "    [1]=>\n"
        "    int(1)\n"
        "  }\n"
        "  [1]=>\n"
        "  object(Tuple)#23 (2) {\n"
        "    [0]=>\n"
        "    int(2)\n"
        "    [1]=>\n"
        "    string(1) \"b\"\n"
        "  }\n"
        "  [2]=>\n"
        "  object(Tuple)#24 (2) {\n"
        "    [0]=>\n"
        "    string(1) \"z\"\n"
        "    [1]=>\n"
        "    int(9)\n"
        "  }\n"
        "}\n"
        "object(StableMap)#29 (3) {\n"
        "  [\"a\"]=>\n"
        "  int(1)\n"
        "  [2]=>\n"
        "  string(1) \"b\"\n"
        "  [\"z\"]=>\n"
        "  int(9)\n"
        "}\n"
        "==========\n"
        "object(StableMap)#34 (3) {\n"
        "  [\"a\"]=>\n"
        "  int(1)\n"
        "  [2]=>\n"
        "  string(1) \"b\"\n"
        "  [\"z\"]=>\n"
        "  int(9)\n"
        "}\n"
        );

  MVCRO("<?php\n"
        "function f() {\n"
        "  $vec = Vector {1, 'b'};\n"
        "  var_dump($vec->containsKey(0));\n"
        "  var_dump($vec->containsKey(1));\n"
        "  var_dump($vec->containsKey(2));\n"
        "  echo \"==========\\n\";\n"
        "  $mp = Map {'a' => 1, 2 => 'b'};\n"
        "  var_dump($mp->containsKey('a'));\n"
        "  var_dump($mp->containsKey(2));\n"
        "  var_dump($mp->containsKey('b'));\n"
        "  echo \"==========\\n\";\n"
        "  $smp = StableMap {'a' => 1, 2 => 'b'};\n"
        "  var_dump($smp->containsKey('a'));\n"
        "  var_dump($smp->containsKey(2));\n"
        "  var_dump($smp->containsKey('b'));\n"
        "  echo \"==========\\n\";\n"
        "  $tup = Tuple {1, 'b'};\n"
        "  var_dump($tup->containsKey(0));\n"
        "  var_dump($tup->containsKey(1));\n"
        "  var_dump($tup->containsKey(2));\n"
        "}\n"
        "f();\n"
        ,
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        "==========\n"
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        "==========\n"
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        "==========\n"
        "bool(true)\n"
        "bool(true)\n"
        "bool(false)\n"
        );

  MVCRO("<?php\n"
        "function f() {\n"
        "  $mp1 = StableMap {'a' => 1, 2 => 'b', 'c' => array()};\n"
        "  $mp2 = StableMap {};\n"
        "  $mp3 = StableMap {};\n"
        "  foreach ($mp1->items() as $t) {\n"
        "    $mp2->add($t);\n"
        "  }\n"
        "  var_dump($mp2);\n"
        "  foreach ($mp1->items() as $t) {\n"
        "    $mp3[] = $t;\n"
        "  }\n"
        "  var_dump($mp3);\n"
        "}\n"
        "f();\n"
        ,
        "object(StableMap)#2 (3) {\n"
        "  [\"a\"]=>\n"
        "  int(1)\n"
        "  [2]=>\n"
        "  string(1) \"b\"\n"
        "  [\"c\"]=>\n"
        "  array(0) {\n"
        "  }\n"
        "}\n"
        "object(StableMap)#3 (3) {\n"
        "  [\"a\"]=>\n"
        "  int(1)\n"
        "  [2]=>\n"
        "  string(1) \"b\"\n"
        "  [\"c\"]=>\n"
        "  array(0) {\n"
        "  }\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, nullptr)                        \
    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(nullptr, 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");

  MVCR("<?php\n"
       "$a = array();\n"
       "$b = new stdClass();\n"
       "$b->foo = 2;\n"
       "var_dump($a < $b);\n"
       "var_dump($a <= $b);\n"
       "var_dump($a > $b);\n"
       "var_dump($a >= $b);\n"
       "var_dump($b < $a);\n"
       "var_dump($b <= $a);\n"
       "var_dump($b > $a);\n"
       "var_dump($b >= $a);\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);"
      );

  // 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());"
       "}");

  MVCR("<?php "
       "class W {"
       "  const FOO = 0;"
       "}"
       "class X extends W {"
       "  const FOO = 1;"
       "  static function foo() {"
       "    var_dump(constant('self::FOO'));"
       "    var_dump(constant('parent::FOO'));"
       "    var_dump(constant('static::FOO'));"
       "    var_dump(defined('self::FOO'));"
       "    var_dump(defined('parent::FOO'));"
       "    var_dump(defined('static::FOO'));"
       "    var_dump(defined('self::BAR'));"
       "    var_dump(defined('parent::BAR'));"
       "    var_dump(defined('static::BAR'));"
       " }"
       "}"
       "class Y extends X {"
       "  const FOO = 2;"
       "  const BAR = 1;"
       "}"
       "X::foo();"
       "Y::foo();");

  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');"
       "}");

  MVCRO("<?php\n"
        "abstract class class1 {\n"
        "  public function getConstViaThis() {\n"
        "    return defined('static::SOME_CONST') ? static::SOME_CONST : false;\n"
        "  }\n"
        "  public static function getConstViaFrame() {\n"
        "    return defined('static::SOME_CONST') ? static::SOME_CONST : false;\n"
        "  }\n"
        "}\n"
        "\n"
        "final class class2 extends class1 {\n"
        "  const SOME_CONST = 2;\n"
        "}\n"
        "\n"
        "$class2 = new class2;\n"
        "\n"
        "var_dump($class2->getConstViaThis());\n"
        "var_dump($class2->getConstViaFrame());\n"
      ,
      "int(2)\n"
      "int(2)\n"
      );

  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) {}");

  MVCR("<?php\n"
       "class MyElement extends SimpleXMLElement {\n"
       "  public function asUcWordString() {\n"
       "    return ucwords((string)$this);\n"
       "  }\n"
       "}\n"
       "$xml = '<foo><bar><baz>now is the time for all good men to come to "
                              "the aid of their country</baz></bar></foo>';\n"
       "$s = simplexml_load_string($xml);\n"
       "var_dump(get_class($s));\n"
       "$s = simplexml_load_string($xml, 'MyElement');\n"
       "var_dump(get_class($s));\n"
       "var_dump($s->bar->baz->asUcWordString());\n"
       );

  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::TestUserWrappers() {
  // Verify constructor is called
  MVCR("<?php "
       "class MyWrapper {"
       "  private $ctorRan = false;"
       "  public function __construct() {"
       "    $this->ctorRan = true;"
       "  }"
       "  public function stream_open($fn, $mode, $opt, &$opened_path) {"
       "    var_dump($this->ctorRan);"
       "    return true;"
       "  }"
       "}"
       "stream_wrapper_register('wrap', 'MyWrapper');"
       "fclose(fopen('wrap://test', 'r'));"
      );

  // Private wrapper
  MVCR("<?php "
       "class PrivateWrapper {"
       "  private function stream_open($fn, $mode, $opt, &$opened_path) {"
       "    return true;"
       "  }"
       "  public static function openme() {"
       "    return fopen('pw://foo', 'r');"
       "  }"
       "}"
       "stream_wrapper_register('pw', 'PrivateWrapper');"
       "var_dump(is_resource(PrivateWrapper::openme()));"
      );

  // Wrapper calls via __call
  //
  // PHP 5.3 passes ENFORCE_SAFE_MODE(4) with options
  // Since HPHP doesn't have a safe mode analog,
  // we need to explicitly strip it from options
  // in order for the comparison to match.
  // Later versions of PHP do not pass this bit.
  MVCR("<?php "
       "class MagicStream {"
       "  public function __call($fname, $args) {"
       "    echo \"Method: $fname\\n\";"
       "    if ($fname == 'stream_open') $args[2] &= ~4;"
       "    var_dump($args);"
       "    return true;"
       "  }"
       "}"
       "stream_wrapper_register('magic', 'MagicStream');"
       "$fp = fopen('magic://stream-via-call', 'r');"
       "fclose($fp);"
      );

  // ext/standard/tests/streams/bug60455_02.phpt
  MVCR("<?php "
       "class TestStream {"
       "  private $s = 0;"
       "  function stream_open($path, $mode, $options, &$opened_path) {"
       "    return true;"
       "  }"
       "  function stream_read($count) {"
       "    if ($this->s++ == 0)"
       "      return \"a\\n\";"
       "    return '';"
       "  }"
       "  function stream_eof() {"
       "    return $this->s >= 2;"
       "  }"
       "}"
       "stream_wrapper_register('test', 'TestStream');"
       "$f = fopen('test://', 'r');"
       "while (!feof($f)) {"
       "  $line = stream_get_line($f, 99, \"\\n\");"
       "  var_dump($line);"
       "}"
      );

  // ext/standard/tests/streams/bug60455_03.phpt
  MVCR("<?php "
       "class TestStream {"
       "  private $lines = array();"
       "  private $s = 0;"
       "  private $eofth = 3;"
       "  function stream_open($path, $mode, $options, &$opened_path) {"
       "    $this->lines[] = \"a\\n\";"
       "    $this->lines[] = ($path == 'test://nonempty2nd' ? \"b\\n\" : \"\\n\");"
       "    if ($path == 'test://eofafter2nd')"
       "      $this->eofth = 2;"
       "    return true;"
       "  }"
       "  function stream_read($count) {"
       "    if (key_exists($this->s++, $this->lines))"
       "      return $this->lines[$this->s - 1];"
       "    return '';"
       "  }"
       "  function stream_eof() {"
       "    return $this->s >= $this->eofth;"
       "  }"
       "}"
       "stream_wrapper_register('test', 'TestStream');"
       "$f = fopen('test://nonempty2nd', 'r');"
       "while (!feof($f)) {"
       "  $line = stream_get_line($f, 99, \"\\n\");"
       "  var_dump($line);"
       "}"
       "$f = fopen('test://', 'r');"
       "while (!feof($f)) {"
       "  $line = stream_get_line($f, 99, \"\\n\");"
       "  var_dump($line);"
       "}"
       "$f = fopen('test://eofafter2nd', 'r');"
       "while (!feof($f)) {"
       "  $line = stream_get_line($f, 99, \"\\n\");"
       "  var_dump($line);"
       "}"
      );

  // Fifo Stream
  MVCR("<?php "
       "class FifoStream {"
       "  private $data;"
       "  function stream_open($filename, $mode, $options, &$opened_path) {"
       "    echo \"Open\\n\";"
       "    var_dump($filename, $mode, $options & USE_INCLUDE_PATH);"
       "    return true;"
       "  }"
       "  function stream_write($buf) { $this->data .= $buf; }"
       "  function stream_read($count) {"
       "    $chunk = substr($this->data, 0, $count);"
       "    $this->data = substr($this->data, $count);"
       "    return $chunk;"
       "  }"
       "  function stream_eof() { return strlen($this->data) == 0; }"
       "  function stream_flush() { $this->data = ''; }"
       "  function stream_close() { echo \"Close\\n\"; }"
       "}"
       "var_dump(stream_wrapper_register('fifo', 'FifoStream'));"
       "$fp = fopen('fifo://testing', 'w+');"
       "var_dump(fwrite($fp, \"Data one...\\n\"));"
       "fflush($fp);"
       "var_dump(fwrite($fp, \"Data two...\\n\"));"
       "var_dump(fwrite($fp, \"Data three...\\n\"));"
       "while(!feof($fp)) {"
       "  var_dump(fgets($fp));"
       "}"
       "fclose($fp);"
      );

  // Memory Stream
  MVCR("<?php "
       "class MemoryStream {"
       "  private $data;"
       "  private $ofs = 0;"
       "  function stream_open($filename, $mode, $options, &$opened_path) {"
       "    if (strncmp($filename, \"mem://\", 6)) { return false; }"
       "    $this->data = substr($filename, 6);"
       "    return true;"
       "  }"
       "  function stream_read($count) {"
       "    $ret = substr($this->data, $this->ofs, $count);"
       "    $this->ofs += $count;"
       "    if ($this->ofs > strlen($this->data))"
       "      $this->ofs = strlen($this->data);"
       "    return $ret;"
       "  }"
       "  function stream_seek($ofs, $whence) {"
       "    if ($whence == SEEK_CUR) $this->ofs += $ofs;"
       "    if ($whence == SEEK_SET) $this->ofs  = $ofs;"
       "    if ($whence == SEEK_END) $this->ofs  = strlen($this->data) + $ofs;"
       "    if ($this->ofs < 0) $this->ofs = 0;"
       "    if ($this->ofs > strlen($this->data))"
       "      $this->ofs = strlen($this->data);"
       "    return true;"
       "  }"
       "  function stream_tell() { return $this->ofs; }"
       "}"
       "stream_wrapper_register('mem', 'MemoryStream');"
       "$fp = fopen('mem://abcdefghijklmnopqrstuvwxyz', 'r');"
       "var_dump(fgetc($fp), fgetc($fp));"
       "fseek($fp, 11, SEEK_CUR);"
       "var_dump(fgetc($fp), fgetc($fp));"
       "fseek($fp, 0, SEEK_END);"
       "var_dump(ftell($fp));"
      );

  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\n"
      "$a = array(array('one'),array('one'));\n"
      "function test($v, $k) { }\n"
      "array_walk_recursive($a, 'foo');\n"
      "function foo($a) { var_dump($a); }\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);");

  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 (false) {
    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");

  MVCRO("<?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",
       "int(456)\n");

  MVCRO("<?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",
       "int(456)\n");

  MVCRO("<?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",
       "int(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 new Evil;\n"
        "  yield new Evil;\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(null);\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"
        "in __destruct()\n"
        "object(Evil)#4 (0) {\n"
        "}\n"
        "Caught: Continuation is already running\n"
        "in __destruct()\n"
        "NULL\n"
        "Caught: Continuation is already finished\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 (false) {
    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 (false) {
    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 (false) {
    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(456)\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(456)\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(456)\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(3) \"Foo\"\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_UNASSIGNED, ...)\n"
        "fromUCallback(REASON_RESET, ...)\n"
        "fromUCallback(REASON_UNASSIGNED, ...)\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"
       );

  MVCRO("<?php "
        "$standards = UConverter::getStandards();"
        "var_dump(in_array('IANA', $standards));"
        "var_dump(in_array('MIME', $standards));"
       ,
        "bool(true)\n"
        "bool(true)\n"
       );

  MVCRO("<?php "
        "var_dump(UConverter::getStandardName('latin1', 'MIME'));"
        "var_dump(UConverter::getStandardName('latin1', 'IANA'));"
        "var_dump(UConverter::getStandardName('blergh', 'blergh'));"
       ,
        "string(10) \"ISO-8859-1\"\n"
        "string(15) \"ISO_8859-1:1987\"\n"
        "NULL\n"
       );

  MVCRO("<?php "
        "var_dump(UConverter::getMIMEName('latin1'));"
        "var_dump(UConverter::getMIMEName('blergh'));"
       ,
        "string(10) \"ISO-8859-1\"\n"
        "NULL\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;
}