Mercurial > hg > rc1

comparison vendor/pear/console_getopt/tests/001-getopt.phpt @ 0:1e000243b222

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
vanilla 1.3.3 distro, I hope
author Charlie Root
date Thu, 04 Jan 2018 15:50:29 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:1e000243b222
1 --TEST--
2 Console_Getopt
3 --FILE--
4 <?php
5 require_once 'Console/Getopt.php';
6 PEAR::setErrorHandling(PEAR_ERROR_PRINT, "%s\n\n");
7
8 function test($argstr, $optstr) {
9 $argv = preg_split('/[[:space:]]+/', $argstr);
10 if (PEAR::isError($options = Console_Getopt::getopt($argv, $optstr))) {
11 return;
12 }
13 $opts = $options[0];
14 $non_opts = $options[1];
15 $i = 0;
16 print "options: ";
17 foreach ($opts as $o => $d) {
18 if ($i++ > 0) {
19 print ", ";
20 }
21 print $d[0] . '=' . $d[1];
22 }
23 print "\n";
24 print "params: " . implode(", ", $non_opts) . "\n";
25 print "\n";
26 }
27
28 test("-abc", "abc");
29 test("-abc foo", "abc");
30 test("-abc foo", "abc:");
31 test("-abc foo bar gazonk", "abc");
32 test("-abc foo bar gazonk", "abc:");
33 test("-a -b -c", "abc");
34 test("-a -b -c", "abc:");
35 test("-abc", "ab:c");
36 test("-abc foo -bar gazonk", "abc");
37 ?>
38 --EXPECT--
39 options: a=, b=, c=
40 params:
41
42 options: a=, b=, c=
43 params: foo
44
45 options: a=, b=, c=foo
46 params:
47
48 options: a=, b=, c=
49 params: foo, bar, gazonk
50
51 options: a=, b=, c=foo
52 params: bar, gazonk
53
54 options: a=, b=, c=
55 params:
56
57 Console_Getopt: option requires an argument --c
58
59 options: a=, b=c
60 params:
61
62 options: a=, b=, c=
63 params: foo, -bar, gazonk