GetOpt with() won't accept arguments of wrong type

example.io moved to examples/ directory

GetOpt.io

@@ -1,7 +1,7 @@
 # -*- coding: utf-8 -*-
 
 # This object helps scripts to parse the command line arguments in
-# System.args. It supports the same conventions as the Unix getopt()
+# System args. It supports the same conventions as the Unix getopt()
 # function. Most of the code is ported from the getopt module
 # from Python's standart library.
 
@@ -16,11 +16,16 @@ Object do(
 )
 
 GetOpt := Object clone do(
-    shortopts ::= ""
-    longopts  ::= list()
+    init := method(
+        self shortopts := ""
+        self longopts  := list()
+    )
 
     with := method(shortopts, longopts,
-        self clone setLongopts(longopts) setShortopts(shortopts)
+        getopt := self clone
+        if(shortopts isKindOf(Sequence), getopt shortopts = shortopts)
+        if(longopts isKindOf(List), getopt longopts = longopts)
+        getopt
     ) doc(
         """
         Creates a new option parser object with the arguments given. The

example.io → examples/echo.io

@@ -1,6 +1,8 @@
 #!/usr/bin/env io
 # -*- coding: utf-8 -*-
 
+Importer addSearchPath("..")
+
 Command
 
 echo := command(msg,

tests/GetOptTest.io

@@ -8,6 +8,38 @@ GetOptTest := UnitTest clone do(
         )
     )
 
+    testInit := method(
+        getopt := GetOpt clone
+        assertEquals("", getopt getLocalSlot("shortopts"))
+        assertEquals(list(), getopt getLocalSlot("longopts"))
+    )
+
+    testWith := method(
+        # Testing that nil values aren't being assigned.
+        getopt := GetOpt with
+        assertEquals("", getopt getLocalSlot("shortopts"))
+        assertEquals(list(), getopt getLocalSlot("longopts"))
+
+        getopt := GetOpt with(nil, nil)
+        assertEquals("", getopt getLocalSlot("shortopts"))
+        assertEquals(list(), getopt getLocalSlot("longopts"))
+
+        getopt := GetOpt with(nil, list("xyz"))
+        assertEquals("", getopt getLocalSlot("shortopts"))
+        assertEquals(list("xyz"), getopt getLocalSlot("longopts"))
+
+        getopt := GetOpt with("x", nil)
+        assertEquals("x", getopt getLocalSlot("shortopts"))
+        assertEquals(list(), getopt getLocalSlot("longopts"))
+
+        # Testing that values of the wrong type aren't being
+        # assigned as well.
+        getopt := GetOpt with(list(), "")
+        assertEquals("", getopt getLocalSlot("shortopts"))
+        assertEquals(list(), getopt getLocalSlot("longopts"))
+
+    )
+
     testShortHasArg := method(
         assertTrue(getopt shortHasArg("a"))
         assertTrue(getopt shortHasArg("b"))