Expose getopt:tokenize/1 and command-line literals

2012-07-20 11:00:25 -03:00
parent 08931e2394
commit f55ef18bab
3 changed files with 70 additions and 26 deletions
@@ -13,7 +13,7 @@

 -include_lib("eunit/include/eunit.hrl").

-import(getopt, [parse/2]).
+-import(getopt, [parse/2, tokenize/1]).

 -define(NAME(Opt), element(1, Opt)).
 -define(SHORT(Opt), element(2, Opt)).
@@ -274,3 +274,12 @@ parse_variable_expansion_test_() ->
      ?_assertEqual({ok, {[{path, "%PATH"}], ["%DUMMY_VAR_THAT_MUST_NOT_EXIST%"]}},
                    parse(OptSpecList, " --path %PATH %DUMMY_VAR_THAT_MUST_NOT_EXIST%  "))}
    ].
+
+
+tokenize_test_() ->
+    %% Path = os:getenv("PATH"),
+    [
+     {"Tokenize",
+      ?_assertEqual(["ABC","abc","1234","5678","DEFGHI","\"JKL \"", "$PATH"],
+                    tokenize("  ABC abc '1234' \"5678\" 'DEF'\"GHI\" '\"JKL \"'  \\$PATH"))}
+    ].