Move phpdbg tests to .phpt mechanism

Also add a few more in-depth tests related to $argv, breakpoints and uncaught exceptions

1 files changed, 150 insertions, 0 deletions

diff --git a/sapi/phpdbg/create-test.php b/sapi/phpdbg/create-test.php
new file mode 100644
index 0000000000..3bda97670f
--- /dev/null
+++ b/sapi/phpdbg/create-test.php
@@ -0,0 +1,150 @@
+#!/usr/bin/env php
+<?php
+
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 7                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2015 The PHP Group                                |
+   +----------------------------------------------------------------------+
+   | 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.               |
+   +----------------------------------------------------------------------+
+   | Authors: Bob Weinand <bwoebi@php.net>                                |
+   +----------------------------------------------------------------------+
+*/
+
+#####
+## This is just a helper for intercepting stdin/stdout and the file and create a half-finished test.
+## The output still may need adapting to match file names etc.
+#####
+
+error_reporting(-1);
+
+$phpdbg = getenv('TEST_PHPDBG_EXECUTABLE') ?: null;
+$pass_options = " -qbI";
+$file = "";
+$cmdargv = "";
+
+if (isset($argc) && $argc > 1) {
+	$post_ddash = false;
+	for ($i = 1; $i < $argc; $i++) {
+		if ($argv[$i][0] == "-" && !$post_ddash) {
+			switch (substr($argv[$i], 1)) {
+				case "p":
+					$phpdbg = $argv[++$i];
+					break;
+				case "n":
+					$pass_options .= " -n";
+					break;
+				case "d":
+					$pass_options .= " -d ".escapeshellarg($argv[++$i]);
+					$ini[] = $argv[$i];
+					break;
+				case "-":
+					$post_ddash = true;
+					break;
+			}
+		} else {
+			$real_argv[] = $argv[$i];
+		}
+	}
+	if (isset($real_argv[0])) {
+		$file = realpath($real_argv[0]);
+		$cmdargv = implode(" ", array_map("escapeshellarg", array_slice($real_argv, 1)));
+	}
+}
+
+$proc = proc_open("$phpdbg $pass_options $file -- $cmdargv", [["pipe", "r"], ["pipe", "w"], ["pipe", "w"]], $pipes);
+if (!$proc) {
+	die("Couldn't start phpdbg\n");
+}
+
+$input = $output = "";
+
+stream_set_blocking(STDIN, false);
+
+do {
+	$r = [$pipes[1], STDIN];
+	$w = $e = null;
+	$n = @stream_select($r, $w, $e, null);
+
+	if ($n > 0) {
+		if ("" != $in = fread(STDIN, 1024)) {
+			$input .= $in;
+			fwrite($pipes[0], $in);
+			continue;
+		}
+
+		if (feof(STDIN)) {
+			die("stdin closed?!\n");
+		}
+
+		if (feof($pipes[1])) {
+			$n = false;
+		} else {
+			$output .= $c = fgetc($pipes[1]);
+			echo $c;
+		}
+	}
+} while ($n !== false);
+
+stream_set_blocking(STDIN, true);
+
+print "\n";
+if (!isset($name)) {
+	print "Specifiy the test description: ";
+	$desc = trim(fgets(STDIN));
+}
+while (!isset($testfile)) {
+	print "Specifiy the test file name (leave empty to write to stderr): ";
+	$testfile = trim(fgets(STDIN));
+	if ($testfile != "" && file_exists($testfile)) {
+		print "That file already exists. Type y or yes to overwrite: ";
+		$y = trim(fgets(STDIN));
+		if ($y !== "y" && $y !== "yes") {
+			unset($testfile);
+		}
+	}
+}
+
+$output = str_replace("string(".strlen($file).") \"$file\"", 'string(%d) "%s"', $output);
+$output = str_replace($file, "%s", $output);
+$input = trim($input);
+
+$testdata = <<<TEST
+--TEST--
+$desc
+--PHPDBG--
+$input
+--EXPECTF--
+$output
+TEST;
+
+if (!empty($ini)) {
+	$testdata .= "\n--INI--\n".implode("\n", $ini);
+}
+if ($cmdargv != "") {
+	$testdata .= "\n--ARGS--\n$cmdargv";
+}
+if ($file != "") {
+	$testdata .= "\n--FILE--\n".file_get_contents($file);
+}
+
+if ($testfile == "") {
+	print "\n";
+} elseif (file_put_contents($testfile, $testdata)) {
+	print "Test saved to $testfile\n";
+} else {
+	print "The test could not be saved to $testfile; outputting on stderr now\n";
+	$testfile = "";
+}
+
+if ($testfile == "") {
+	fwrite(STDERR, $testdata);
+}