initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 58 insertions, 0 deletions

diff --git a/tests/webtbs/tw1333.pp b/tests/webtbs/tw1333.pp
new file mode 100644
index 0000000000..c449d50a1f
--- /dev/null
+++ b/tests/webtbs/tw1333.pp
@@ -0,0 +1,58 @@
+uses
+  getopts;
+
+function ParseCmdOptions : boolean;
+var
+   Opts  : array [1..3] of POption;
+   C     : char;
+   Index : Longint;
+begin
+   { assume success }
+   ParseCmdOptions := true;
+
+   { logfile }
+   New(Opts[1]);
+   with Opts[1]^ do
+   begin
+      name    := 'log';
+      has_arg := 1;
+      flag    := nil;
+   end;
+
+   { debug flag }
+   New(Opts[2]);
+   with Opts[2]^ do
+   begin
+      name    := 'debug';
+      has_arg := 0;
+      flag    := nil;
+   end;
+
+   { end-of-array }
+   New(Opts[3]);
+   with Opts[3]^ do
+   begin
+      name    := '';
+      has_arg := 0;
+      flag    := nil
+   end;
+
+   { parse }
+   repeat
+      C := GetLongOpts('l:d',Opts[1],Index);
+      case C of
+
+        #0: begin
+               if Opts[Index]^.name = Opts[1]^.name then { .. };
+               if Opts[Index]^.name = Opts[2]^.name then { .. };
+          { handle this properly -- else ParseCmdOptions := false; }
+        end;
+        'l': { .. };
+        'd': { .. };
+      else ParseCmdOptions := false;
+      end; { case }
+   until C = endofoptions;
+end;
+
+begin
+end.