Fix bug with System\args + add cmdline-related unit-tests

src/vm/env.nim

@@ -11,7 +11,7 @@
 #=======================================
 # Libraries
 #=======================================
-when not defined(WEB) and not defined(windows):
+when not defined(WEB):
     import parseopt, sequtils, sugar
 
 when not defined(WEB):
@@ -84,7 +84,7 @@ proc parseCmdlineArguments*(): ValueDict =
     result = initOrderedTable[string,Value]()
     var values: ValueArray
 
-    when not defined(windows) and not defined(WEB):
+    when not defined(WEB):
         if Arguments.a.len > 0:
             var p = initOptParser(Arguments.a.map((x)=>x.s))
             for kind, key, val in p.getopt():

tests/unittests/cmdline.art

@@ -0,0 +1,8 @@
+loop sort select list relative "cmdline" 'loc -> contains? loc ".txt" 'test [
+    inputArgs: read test
+    print repeat "-" 70
+    print [" test:" extract.filename test]
+    print repeat "-" 70
+    execute.directly ~{|sys\binary| --no-color |inputArgs|}
+    print ""
+]

tests/unittests/cmdline.res

@@ -0,0 +1,92 @@
+----------------------------------------------------------------------
+ test: input1 
+----------------------------------------------------------------------
+[ :block
+
+]
+[ :dictionary
+        values  :        [ :block
+
+        ]
+]
+
+----------------------------------------------------------------------
+ test: input2 
+----------------------------------------------------------------------
+[ :block
+        1 :string
+        2 :string
+        3 :string
+]
+[ :dictionary
+        values  :        [ :block
+                1 :integer
+                2 :integer
+                3 :integer
+        ]
+]
+
+----------------------------------------------------------------------
+ test: input3 
+----------------------------------------------------------------------
+[ :block
+        one :string
+        two :string
+        three :string
+]
+[ :dictionary
+        values  :        [ :block
+                one :string
+                two :string
+                three :string
+        ]
+]
+
+----------------------------------------------------------------------
+ test: input4 
+----------------------------------------------------------------------
+[ :block
+        one :string
+        2 :string
+        three :string
+        4.0 :string
+]
+[ :dictionary
+        values  :        [ :block
+                one :string
+                2 :integer
+                three :string
+                4.0 :floating
+        ]
+]
+
+----------------------------------------------------------------------
+ test: input5 
+----------------------------------------------------------------------
+[ :block
+        -a :string
+        main :string
+]
+[ :dictionary
+        a       :        true :logical
+        values  :        [ :block
+                main :string
+        ]
+]
+
+----------------------------------------------------------------------
+ test: input6 
+----------------------------------------------------------------------
+[ :block
+        -c :string
+        -b :string
+        --name:Rick :string
+]
+[ :dictionary
+        c       :        true :logical
+        b       :        true :logical
+        name    :        Rick :string
+        values  :        [ :block
+
+        ]
+]

tests/unittests/cmdline/input1.txt

@@ -0,0 +1 @@
+|relative "cmdline/inspectArgs.art"|

tests/unittests/cmdline/input2.txt

@@ -0,0 +1 @@
+|relative "cmdline/inspectArgs.art"| 1 2 3

tests/unittests/cmdline/input3.txt

@@ -0,0 +1 @@
+|relative "cmdline/inspectArgs.art"| one two three

tests/unittests/cmdline/input4.txt

@@ -0,0 +1 @@
+|relative "cmdline/inspectArgs.art"| one 2 three 4.0

tests/unittests/cmdline/input5.txt

@@ -0,0 +1 @@
+|relative "cmdline/inspectArgs.art"| -a main

tests/unittests/cmdline/input6.txt

@@ -0,0 +1 @@
+|relative "cmdline/inspectArgs.art"| -c -b --name:Rick

tests/unittests/cmdline/inspectArgs.art

@@ -0,0 +1,2 @@
+inspect arg
+inspect args

version/build

@@ -1 +1 @@
-2274
+2276