no reason for different naming

1 files changed, 93 insertions, 0 deletions

diff --git a/test/exec.t b/test/exec.t
new file mode 100755
index 0000000..c155c88
--- /dev/null
+++ b/test/exec.t
@@ -0,0 +1,93 @@
+#!/www/server/bin/php -qC
+<?php
+
+# Tests for getopt in it.class
+
+is(it::exec("echo gna"), "gna\n", "basic exec");
+is(it::exec("echo {arg}", array('arg' => 'gna')), "gna\n", "exec with argument");
+is(it::exec("echo {0}", 'gna'), "gna\n", "exec with positional argument");
+is(it::shell_command("echo {arg}", array('arg' => 'gna07,-:blah')), "echo gna07,-:blah", "don't quote arguments with only whitelistes characters");
+is(it::shell_command("echo {arg}", array('arg' => '2>&1')), "echo '2>&1'", "quote arguments with dangerous characters");
+is(it::shell_command("echo {arg}", array('arg' => '')), "echo ''", "quote empty arguments");
+
+
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('--longopt' => true))),
+	"echo --longopt",
+	"options argument with long option"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('-onedash' => true))),
+	"echo -onedash",
+	"... with long option but only one dash"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('-s' => true))),
+	"echo -s",
+	"... with short option"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('--longopt' => 'val'))),
+	"echo --longopt val",
+	"... with long option with value"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('-onedash' => 'val'))),
+	"echo -onedash val",
+	"... with long option but only one dash and with value"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('-s' => 'val'))),
+	"echo -s val",
+	"... with short option with value"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('--longopt' => false))),
+	"echo ",
+	"... with disabled long option"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('-s' => false))),
+	"echo ",
+	"... with disabled short option"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('longopt' => true))),
+	"echo --longopt",
+	"... long option without dashes"
+);
+is(
+	it::shell_command("echo {-opts}", array('-opts' => array('s' => true))),
+	"echo -s",
+	"... short option without dashes"
+);
+
+foreach (array("", "C", "de_CH", "de_CH.utf8") as $locale) {
+	setlocale(LC_ALL, $locale);
+	$arg = "preüpost";
+	if (it::match('utf8', $locale))
+		$arg = utf8_encode($arg);
+	is(it::exec("echo " . $arg), $arg . "\n", "exec with umlaut (locale '$locale')");
+	is(it::exec("echo {arg}", array('arg' => $arg)), $arg . "\n", "exec with argument and umlaut (locale '$locale')");
+}
+
+is(it::_exec_quotevalue(""), "''", "empty arg needs quotes");
+is(it::_exec_quotevalue("*"), "'*'", "special chars need quotes");
+is(it::_exec_quotevalue("Aabcdef0123456789"), "Aabcdef0123456789", "simple case. tel:debug_getdata needs unquoted vals");
+
+is(it::system('exit 0'),    0, 'return exit code 0');
+is(it::system('exit 1'),    1, 'return exit code 1');
+is(it::system('exit -1'), 255, 'return exit code unsigned');
+
+@unlink('/tmp/it_system_test');
+it::system('touch /tmp/it_system_test');
+ok(file_exists('/tmp/it_system_test'), 'shell command gets executed');
+
+@unlink('/tmp/it_system_test');
+it::system('touch {path}', array('path' => '/tmp/it_system_test'));
+ok(file_exists('/tmp/it_system_test'), 'shell command with argument');
+
+@unlink('/tmp/it_system_test');
+it::system('touch {0}', '/tmp/it_system_test');
+ok(file_exists('/tmp/it_system_test'), 'shell command with positional argument');
+@unlink('/tmp/it_system_test');