hphp/test/slow/ext_process/lwp.php

   1 <?php
   2
   3 function VS($x, $y) {
   4   var_dump($x === $y);
   5   if ($x !== $y) { echo "Failed: $y\n"; echo "Got: $x\n";
   6                    var_dump(debug_backtrace()); }
   7 }
   8 function VERIFY($x) { VS($x != false, true); }
   9
  10 //////////////////////////////////////////////////////////////////////
  11
  12 $output = shell_exec("echo hello");
  13 VS($output, "hello\n");
  14
  15 chdir("/tmp/");
  16 VS(shell_exec("/bin/pwd"), "/tmp\n");
  17
  18 pcntl_signal_dispatch();
  19
  20 $last_line = exec("echo hello; echo world;", $output, $ret);
  21 VS($output, array("hello", "world"));
  22 VS($last_line, "world");
  23 VS($ret, 0);
  24
  25 chdir("/tmp/");
  26 VS(exec("/bin/pwd"), "/tmp");
  27
  28 echo "heh\n";
  29
  30 passthru("echo hello; echo world;", $ret);
  31 VS($ret, 0);
  32
  33 chdir("/tmp/");
  34 passthru("/bin/pwd");
  35
  36 $last_line = system("echo hello; echo world;", $ret);
  37 VS($last_line, "world");
  38 VS($ret, 0);
  39
  40 chdir("/tmp/");
  41 VS(system("/bin/pwd"), "/tmp");
  42
  43 $errout = tempnam('/tmp', 'vmtesterrout');
  44 unlink($errout);
  45
  46 $descriptorspec =
  47   array(array("pipe", "r"),
  48         array("pipe", "w"),
  49         array("file", $errout, "a"));
  50
  51 putenv("inherit_me=please");
  52 $process = proc_open('echo $inherit_me', $descriptorspec, $pipes);
  53 VERIFY($process != false);
  54
  55 fpassthru($pipes[1]);
  56
  57 VS(proc_close($process), 0);
  58
  59 // Ensure that PATH makes it through too
  60 $process = proc_open('echo $PATH', $descriptorspec, $pipes);
  61 VERIFY($process != false);
  62
  63 VERIFY(strlen(fgets($pipes[1])) > 2);
  64
  65 VS(proc_close($process), 0);
  66
  67 $descriptorspec =
  68   array(array("pipe", "r"),
  69         array("pipe", "w"),
  70         array("file", $errout, "a"));
  71 $cwd = "/tmp";
  72
  73 $process = proc_open("sh", $descriptorspec, $pipes, $cwd);
  74 VERIFY($process != false);
  75
  76 fprintf($pipes[0], "echo Sup");
  77 fclose($pipes[0]);
  78 fpassthru($pipes[1]);
  79 VS(proc_close($process), 0);
  80
  81 $descriptorspec =
  82   array(array("pipe", "r"),
  83         array("pipe", "w"),
  84         array("file", $errout, "a"));
  85 $process = proc_open('cat', $descriptorspec, $pipes);
  86 VERIFY($process != false);
  87 VERIFY(proc_terminate($process));
  88 // still need to close it, not to leave a zombie behind
  89 proc_close($process);
  90
  91 $process = proc_open('cat', $descriptorspec, $pipes);
  92 VERIFY($process != false);
  93 $ret = proc_get_status($process);
  94 VS($ret['command'], 'cat');
  95 VERIFY($ret['pid'] > 0);
  96 VERIFY($ret['running']);
  97 VERIFY(!$ret['signaled']);
  98 VS($ret['exitcode'], -1);
  99 VS($ret['termsig'], 0);
 100 VS($ret['stopsig'], 0);
 101 proc_close($process);
 102
 103 VERIFY(proc_nice(0));
 104
 105 VS(escapeshellarg("\""), "'\"'");
 106
 107 VS(escapeshellcmd("perl \""), "perl \\\"");