FilesExpand file tree

 master

/

create-test.php

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

150 lines (131 loc) · 3.96 KB

 master

/

create-test.php

Copy path

Top

File metadata and controls

• Code
• Blame

150 lines (131 loc) · 3.96 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

#!/usr/bin/env php

<?php

/*

+----------------------------------------------------------------------+

| PHP Version 7 |

+----------------------------------------------------------------------+

| Copyright (c) 1997-2017 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 -n -d "error_reporting=32767" -d "display_errors=1" -d "display_startup_errors=1" -d "log_errors=0"';

$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 "Specify the test description: ";

$desc = trim(fgets(STDIN));

}

while (!isset($testfile)) {

print "Specify 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);

}