Chris@18: --TEST--
Chris@18: Console_Getopt
Chris@18: --FILE--
Chris@18: <?php
Chris@18: require_once 'Console/Getopt.php';
Chris@18: PEAR::setErrorHandling(PEAR_ERROR_PRINT, "%s\n\n");
Chris@18: 
Chris@18: function test($argstr, $optstr) {
Chris@18:     $argv = preg_split('/[[:space:]]+/', $argstr);
Chris@18:     if (PEAR::isError($options = Console_Getopt::getopt($argv, $optstr))) {
Chris@18:         return;
Chris@18:     }
Chris@18:     $opts = $options[0];
Chris@18:     $non_opts = $options[1];
Chris@18:     $i = 0;
Chris@18:     print "options: ";
Chris@18:     foreach ($opts as $o => $d) {
Chris@18:         if ($i++ > 0) {
Chris@18:             print ", ";
Chris@18:         }
Chris@18:         print $d[0] . '=' . $d[1];
Chris@18:     }
Chris@18:     print "\n";
Chris@18:     print "params: " . implode(", ", $non_opts) . "\n";
Chris@18:     print "\n";
Chris@18: }
Chris@18: 
Chris@18: test("-abc", "abc");
Chris@18: test("-abc foo", "abc");
Chris@18: test("-abc foo", "abc:");
Chris@18: test("-abc foo bar gazonk", "abc");
Chris@18: test("-abc foo bar gazonk", "abc:");
Chris@18: test("-a -b -c", "abc");
Chris@18: test("-a -b -c", "abc:");
Chris@18: test("-abc", "ab:c");
Chris@18: test("-abc foo -bar gazonk", "abc");
Chris@18: ?>
Chris@18: --EXPECT--
Chris@18: options: a=, b=, c=
Chris@18: params: 
Chris@18: 
Chris@18: options: a=, b=, c=
Chris@18: params: foo
Chris@18: 
Chris@18: options: a=, b=, c=foo
Chris@18: params: 
Chris@18: 
Chris@18: options: a=, b=, c=
Chris@18: params: foo, bar, gazonk
Chris@18: 
Chris@18: options: a=, b=, c=foo
Chris@18: params: bar, gazonk
Chris@18: 
Chris@18: options: a=, b=, c=
Chris@18: params: 
Chris@18: 
Chris@18: Console_Getopt: option requires an argument --c
Chris@18: 
Chris@18: options: a=, b=c
Chris@18: params: 
Chris@18: 
Chris@18: options: a=, b=, c=
Chris@18: params: foo, -bar, gazonk