configtoolkit 1.2.0 → 2.0.0

data/test/bad_array_index.rcfg

@@ -0,0 +1 @@
+config.unknown_array[0] = 2

data/test/bad_containing_object_assignment.rcfg

@@ -0,0 +1,2 @@
+config.first.second.flavor = "chocolate"
+config.first.second = 2 # This is bad, because we are assigning to a containing object

data/test/bad_directive.cfg

@@ -0,0 +1 @@
+*bogus directive

data/test/bad_include1.cfg

@@ -0,0 +1,2 @@
+favorite_flavor = butter pecan
+*include bad_include2.cfg

data/test/bad_include2.cfg

@@ -0,0 +1,3 @@
+topping = sprinkles
+
+bad line

data/test/bad_parameter_reference.rcfg

@@ -0,0 +1 @@
+config.bad_parameter_reference(10)

data/test/contained_sample.cfg

@@ -0,0 +1,10 @@
+first.second.req_integer = 5
+first.second.req_big_integer = 10000000000
+first.second.req_float = 5.678
+first.second.req_string = sample string
+first.second.req_boolean = false
+first.second.req_pathname = /usr/designingpatterns
+first.second.req_uri = http://www.designingpatterns.com
+first.second.req_symbol = sample_symbol
+first.second.nested_config = {req_nested_integer => 33, req_nested_array => [{req_second_nested_pathname => /usr/designingpatterns/Applications, req_second_nested_array => [5, 19]}, {req_second_nested_pathname => /usr/designingpatterns/Applications/etc, req_second_nested_array => [200, 201]}]}
+first.second.opt_integer = 42

data/test/contained_sample.pretty_print

@@ -0,0 +1,30 @@
+first.second: {
+    req_integer    : 5
+    req_big_integer: 10000000000
+    req_float      : 5.678
+    req_string     : sample string
+    req_boolean    : false
+    req_pathname   : /usr/designingpatterns
+    req_uri        : http://www.designingpatterns.com
+    req_symbol     : sample_symbol
+    nested_config  : {
+        req_nested_integer: 33
+        req_nested_array  : [
+            {
+                req_second_nested_pathname: /usr/designingpatterns/Applications
+                req_second_nested_array   : [
+                    5,
+                    19
+                ]
+            },
+            {
+                req_second_nested_pathname: /usr/designingpatterns/Applications/etc
+                req_second_nested_array   : [
+                    200,
+                    201
+                ]
+            }
+        ]
+    }
+    opt_integer    : 42
+}

data/test/contained_sample.rcfg

@@ -0,0 +1,22 @@
+config.first.second.req_integer = 5
+config.first.second.req_big_integer = 10000000000
+config.first.second.req_float = 5.678
+config.first.second.req_string = "sample string"
+config.first.second.req_boolean = false
+config.first.second.req_pathname = "/usr/designingpatterns"
+config.first.second.req_uri = "http://www.designingpatterns.com"
+config.first.second.req_symbol = :sample_symbol
+config.first.second.nested_config.req_nested_integer = 33
+config.first.second.nested_config.req_nested_array = 
+  [
+   {
+     :req_second_nested_pathname => "/usr/designingpatterns/Applications",
+     :req_second_nested_array => [5, 19]
+   },
+   {
+     :req_second_nested_pathname => "/usr/designingpatterns/Applications/etc",
+     :req_second_nested_array => [200, 201]
+   }
+  ]
+
+config.first.second.opt_integer = 37 + config.first.second.req_integer

data/test/contained_sample.yaml

@@ -1,22 +1,23 @@
 --- 
-contained_sample: 
-  opt_integer: 42
-  req_uri: http://www.designingpatterns.com
-  req_float: 5.678
-  req_pathname: /usr/designingpatterns
-  req_integer: 5
-  req_string: sample string
-  req_boolean: false
-  req_symbol: sample_symbol
-  req_big_integer: 10000000000
-  nested_config: 
-    req_nested_array: 
-    - req_second_nested_pathname: /usr/designingpatterns/Applications
-      req_second_nested_array: 
-      - 5
-      - 19
-    - req_second_nested_pathname: /usr/designingpatterns/Applications/etc
-      req_second_nested_array: 
-      - 200
-      - 201
-    req_nested_integer: 33
+first: 
+  second: 
+    opt_integer: 42
+    req_uri: http://www.designingpatterns.com
+    req_float: 5.678
+    req_pathname: /usr/designingpatterns
+    req_integer: 5
+    req_string: sample string
+    req_boolean: false
+    req_symbol: sample_symbol
+    req_big_integer: 10000000000
+    nested_config: 
+      req_nested_array: 
+      - req_second_nested_pathname: /usr/designingpatterns/Applications
+        req_second_nested_array: 
+        - 5
+        - 19
+      - req_second_nested_pathname: /usr/designingpatterns/Applications/etc
+        req_second_nested_array: 
+        - 200
+        - 201
+      req_nested_integer: 33

data/test/containers.cfg

@@ -0,0 +1,6 @@
+#
+# Note that the "topping=" hash key has an equal sign in it, which
+# should be handled correctly even though the hash key-value
+# delimiter is =>.
+#
+favorite_ice_cream = {flavor => butter pecan, topping= => caramel}

data/test/exta_string_after_container.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+extra_abcd_string = {type => soft serve, flavor => cookie dough}abcd

data/test/extra_container_closing.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+extra_} = {type => soft serve, flavor => cookie dough}}

data/test/extra_string_after_container.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+extra_abcd_string = {type => soft serve, flavor => cookie dough}abcd

data/test/extra_string_after_nested_container.cfg

@@ -0,0 +1 @@
+extra_butterscotch = {type => soft serve, toppings => [sprinkles, cherries, oreos]butterscotch, flavor => cookie dough}

data/test/missing_array_closing.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+missing_array_closing = [a, b, c

data/test/missing_array_element.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+missing_array_element = [a, , c]

data/test/missing_directive.cfg

@@ -0,0 +1 @@
+*

data/test/missing_hash_closing.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+missing_hash_closing = {type => soft serve, topping => chocolate chips, flavor => cookie dough

data/test/missing_hash_element.cfg

@@ -0,0 +1,2 @@
+favorite_pie = pecan
+missing_hash_element = {type => soft serve, , flavor => cookie dough}

data/test/missing_hash_value.cfg

@@ -0,0 +1 @@
+missing_topping_value = {type => soft serve, topping => , flavor => cookie dough

data/test/missing_include_argument.cfg

@@ -0,0 +1 @@
+*include 

data/test/missing_key_value_delimiter.cfg

@@ -0,0 +1 @@
+favorite ice cream

data/test/readerwritertest.rb

@@ -8,7 +8,8 @@ require 'uri'
 
 class SampleSecondNestedConfig < ConfigToolkit::BaseConfig
   add_required_param(:req_second_nested_pathname, Pathname)
-  add_required_param(:req_second_nested_array, Array)
+  add_required_param(:req_second_nested_array,
+                     ConfigToolkit::ConstrainedArray.new(Integer))
 end
 
 class SampleNestedConfig < ConfigToolkit::BaseConfig
@@ -73,7 +74,7 @@ REFERENCE_CONTAINED_SAMPLE_CONFIG.nested_config.req_nested_array[0].req_second_n
 REFERENCE_CONTAINED_SAMPLE_CONFIG.nested_config.req_nested_array[1].req_second_nested_pathname = Pathname.new("/usr/designingpatterns/Applications/etc")
 REFERENCE_CONTAINED_SAMPLE_CONFIG.nested_config.req_nested_array[1].req_second_nested_array = [200, 201]
 REFERENCE_CONTAINED_SAMPLE_CONFIG.opt_integer = 42
-REFERENCE_CONTAINED_SAMPLE_CONFIG.instance_variable_set(:@containing_object_name, "contained_sample")
+REFERENCE_CONTAINED_SAMPLE_CONFIG.instance_variable_set(:@containing_object_name, "first.second")
 
 module ReaderWriterTest
   def run_reader_test(reader_class,
@@ -85,15 +86,35 @@ module ReaderWriterTest
     assert_equal(reference_config, config)
   end
 
-  def get_sorted_file_contents(file_name)
+  def get_sorted_file_contents(file_name, sort_type)
     file_contents = File.open(file_name, "r") do |file|
       file.read()
     end
 
-    return file_contents.split("\n").sort().join("\n").to_s()
+    if(sort_type == :sort_lines)
+      return file_contents.split("\n").sort().join("\n")
+    elsif(sort_type == :sort_lines_and_line_contents)
+      return file_contents.split("\n").sort().map do |line|
+        line.split("").sort().join()
+      end.join("\n")
+    end
   end
 
+  #
+  # Often (always?), the output of a writer depends on the order in which it
+  # encounters parameters in the Hash that its write() method is
+  # passed.  Of course, hash table elements have no guaranteed
+  # ordering, and so it is impossible to construct reference files
+  # since the order of the parameters in the file is undefined.
+  # So, the contents of the reference and dumped files are sorted
+  # before the comparison.  If each parameter occupies at least one
+  # line, then just the lines need to be sorted (sort_type = :sort_lines).
+  # If multiple parameters can occur on the same line, then the lines
+  # need to be sorted, and the contents of each line must be
+  # sorted (sort_type = :sort_lines_and_line_contents).
+  #
   def run_writer_test(writer_class,
+                      sort_type,
                       reference_config,
                       reference_file_name,
                       dump_file_name,
@@ -101,8 +122,8 @@ module ReaderWriterTest
     writer = writer_class.new(*writer_constructor_args)
     reference_config.dump(writer)
     
-    assert_equal(get_sorted_file_contents(reference_file_name),
-                 get_sorted_file_contents(dump_file_name))
+    assert_equal(get_sorted_file_contents(reference_file_name, sort_type),
+                 get_sorted_file_contents(dump_file_name, sort_type))
   end
 
   def run_reader_writer_test(reader_class,
@@ -112,7 +133,7 @@ module ReaderWriterTest
                              writer_constructor_args)
     writer = writer_class.new(*writer_constructor_args)
     reference_config.dump(writer)
-    
+
     reader = reader_class.new(*reader_constructor_args)
     config = SampleConfig.load(reader, reference_config.containing_object_name)
     

data/test/sample.cfg

@@ -0,0 +1,10 @@
+req_integer = 6
+req_big_integer = 90000000000
+req_float = 3.14
+req_string = sample string2
+req_boolean = true
+req_pathname = /usr/designingpatterns/bin
+req_uri = http://blogs.designingpatterns.com
+req_symbol = sample_symbol2
+nested_config = {req_nested_integer => 34, req_nested_array => [{req_second_nested_pathname => /usr/designingpatterns/Applications/pattmake, req_second_nested_array => [6, 20]}, {req_second_nested_pathname => /usr, req_second_nested_array => [205, 206]}]}
+opt_integer = 56

data/test/sample.pretty_print

@@ -0,0 +1,30 @@
+{
+    req_integer    : 6
+    req_big_integer: 90000000000
+    req_float      : 3.14
+    req_string     : sample string2
+    req_boolean    : true
+    req_pathname   : /usr/designingpatterns/bin
+    req_uri        : http://blogs.designingpatterns.com
+    req_symbol     : sample_symbol2
+    nested_config  : {
+        req_nested_integer: 34
+        req_nested_array  : [
+            {
+                req_second_nested_pathname: /usr/designingpatterns/Applications/pattmake
+                req_second_nested_array   : [
+                    6,
+                    20
+                ]
+            },
+            {
+                req_second_nested_pathname: /usr
+                req_second_nested_array   : [
+                    205,
+                    206
+                ]
+            }
+        ]
+    }
+    opt_integer    : 56
+}

data/test/sample.rcfg

@@ -0,0 +1,26 @@
+require 'pathname'
+require 'uri'
+
+config.req_integer = 6
+config.req_big_integer = 90000000000
+config.req_float = 3.14
+config.req_string = "sample string2"
+config.req_boolean = true
+config.req_pathname = Pathname.new("/usr/designingpatterns/bin")
+config.req_uri = URI("http://blogs.designingpatterns.com")
+config.req_symbol = :sample_symbol2
+config.nested_config = {
+  :req_nested_integer => 34,
+  :req_nested_array => [
+                        {
+                          :req_second_nested_pathname => Pathname("/usr/designingpatterns/Applications/pattmake"),
+                          :req_second_nested_array => [6, 20]
+                        },
+                        {
+                          :req_second_nested_pathname => Pathname("/usr"),
+                          :req_second_nested_array => [205, 206]
+                        }
+                       ]
+}
+
+config.opt_integer = 56

data/test/test_baseconfig.rb

@@ -1,10 +1,13 @@
 #!/usr/bin/env ruby
 
-require 'common'
-
 require 'configtoolkit'
 require 'configtoolkit/yamlreader'
 require 'configtoolkit/yamlwriter'
+require 'configtoolkit/hasharrayvisitor'
+
+require 'rubygems'
+require 'assertions'
+require 'relative'
 
 require 'pathname'
 require 'test/unit'
@@ -74,7 +77,7 @@ class BaseConfigTest < Test::Unit::TestCase
     end
   end
 
-  MACHINES_CONFIG_FILE_NAME = get_test_config_file_name("machines.yaml")
+  MACHINES_CONFIG_FILE_NAME = File.expand_path_relative_to_caller("machines.yaml")
 
   #
   # Test whether the methods for MachineConfig's attributes
@@ -102,9 +105,31 @@ class BaseConfigTest < Test::Unit::TestCase
     #
     config_param_values.each do |param_name, param_value|
       assert_equal(nil, config.send(param_name))
+      assert_not(config.send("#{param_name}?"))
       setter = "#{param_name}=".to_sym()
+
       config.send(setter, param_value)
       assert_equal(param_value, config.send(param_name))
+      assert(config.send("#{param_name}?"))
+
+      #
+      # Verify that the single optional parameter, :behind_firewall,
+      # has a clear method, and that the clear method works
+      # properly.  Verify that the required parameters do not have
+      # clear methods.
+      #
+      clear_method = "clear_#{param_name}".to_sym()
+      if(param_name == :behind_firewall)
+        config.send(clear_method)
+        assert_equal(nil, config.send(param_name))
+        assert_not(config.send("#{param_name}?"))
+
+        config.send(setter, param_value)
+        assert_equal(param_value, config.send(param_name))
+        assert(config.send("#{param_name}?"))
+      else
+        assert_not(config.respond_to?(clear_method))
+      end
     end
 
     #
@@ -116,6 +141,29 @@ class BaseConfigTest < Test::Unit::TestCase
     puts config
   end
 
+  def test_initialize
+    config = MachineConfig.new() do |config|
+      config.name = "apple"
+      config.architecture = "powerpc"
+      config.os = "AIX"
+      config.num_cpus = 32
+      config.behind_firewall = false
+      config.contains_sensitive_data = false
+      config.addresses = [
+                          URI("http://default.designingpatterns.com"),
+                          URI("http://apple.designingpatterns.com")
+                         ]
+    end
+
+    reader = ConfigToolkit::YAMLReader.new(File.expand_path_relative_to_caller("machines.yaml"))
+    assert_equal(MachineConfig.load(reader), config)
+
+    assert_raise_message("missing parameter(s): name, architecture, os, num_cpus, contains_sensitive_data, addresses", ConfigToolkit::Error) do
+      config = MachineConfig.new() do
+      end
+    end
+  end
+
   def verify_correct_dump(config_file_name, containing_object_name)
     reader = ConfigToolkit::YAMLReader.new(config_file_name)
     config = MachineConfig.load(reader, containing_object_name)
@@ -134,21 +182,14 @@ class BaseConfigTest < Test::Unit::TestCase
   def verify_dump_error(config, message)
     dump_stream = StringIO.new()
     writer = ConfigToolkit::YAMLWriter.new(dump_stream, true)
-    
-    rescued_exception = false
-    begin
+    assert_raise_message(message, ConfigToolkit::Error) do
       config.dump(writer)
-    rescue ConfigToolkit::Error => e
-      assert_equal(message, e.message)
-      rescued_exception = true
     end
-
-    assert(rescued_exception)
   end
 
   def test_dump
-    verify_correct_dump(get_test_config_file_name("firewall.yaml"), "firewall")
-    verify_correct_dump(get_test_config_file_name("webserver.yaml"), "")
+    verify_correct_dump(File.expand_path_relative_to_caller("firewall.yaml"), "firewall")
+    verify_correct_dump(File.expand_path_relative_to_caller("webserver.yaml"), "")
 
     #
     # Verify that dumping a config sets the config's optional
@@ -164,7 +205,7 @@ class BaseConfigTest < Test::Unit::TestCase
     dump_stream = StringIO.new()
     writer = ConfigToolkit::YAMLWriter.new(dump_stream, true)
     assert_equal(nil, config.behind_firewall)
-    config.dump(dump_stream)
+    config.dump(writer)
     assert_equal(true, config.behind_firewall)
 
     config = MachineConfig.new()
@@ -177,7 +218,7 @@ class BaseConfigTest < Test::Unit::TestCase
     config.behind_firewall = false
     config.num_cpus = 2
     config.addresses = ["http://uniq.designingpatterns.com", "http://ftp.designingpatterns.com"]
-    verify_dump_error(config, "BaseConfigTest::MachineConfig#validate_all_values dump error: a machine cannot contain sensitive data and not be behind the firewall")
+    verify_dump_error(config, "BaseConfigTest::MachineConfig#validate_all_values error: a machine cannot contain sensitive data and not be behind the firewall")
   end
 
   def verify_correct_load(config_file_name,
@@ -204,29 +245,17 @@ class BaseConfigTest < Test::Unit::TestCase
   def verify_load_error(config_file_name, containing_object_name, message)
     reader = ConfigToolkit::YAMLReader.new(config_file_name)
     
-    rescued_exception = false
-    begin
+    assert_raise_message(message, ConfigToolkit::Error) do
       config = MachineConfig.load(reader, containing_object_name)
-    rescue ConfigToolkit::Error => e
-      assert_equal(message, e.message)
-      rescued_exception = true
     end
-
-    assert(rescued_exception)
   end
 
   def verify_load_group_error(config_file_name, containing_object_name, message)
     reader = ConfigToolkit::YAMLReader.new(config_file_name)
     
-    rescued_exception = false
-    begin
+    assert_raise_message(message, ConfigToolkit::Error) do
       config = MachineConfig.load_group(reader, containing_object_name)
-    rescue ConfigToolkit::Error => e
-      assert_equal(message, e.message)
-      rescued_exception = true
     end
-
-    assert(rescued_exception)
   end
 
   #
@@ -274,13 +303,13 @@ class BaseConfigTest < Test::Unit::TestCase
     verify_correct_load(MACHINES_CONFIG_FILE_NAME, "test", config)
 
     verify_correct_load_group(MACHINES_CONFIG_FILE_NAME, "db_cluster1",
-                              "db1" => MachineConfig.load(ConfigToolkit::YAMLReader.new(MACHINES_CONFIG_FILE_NAME), "db1"),
-                              "db2" => MachineConfig.load(ConfigToolkit::YAMLReader.new(MACHINES_CONFIG_FILE_NAME), "db2"),
-                              "db3" => MachineConfig.load(ConfigToolkit::YAMLReader.new(MACHINES_CONFIG_FILE_NAME), "db3"))
+                              :db1 => MachineConfig.load(ConfigToolkit::YAMLReader.new(MACHINES_CONFIG_FILE_NAME), "db1"),
+                              :db2 => MachineConfig.load(ConfigToolkit::YAMLReader.new(MACHINES_CONFIG_FILE_NAME), "db2"),
+                              :db3 => MachineConfig.load(ConfigToolkit::YAMLReader.new(MACHINES_CONFIG_FILE_NAME), "db3"))
   end
 
   def test_load_errors
-    verify_load_error(get_test_config_file_name("bad_config.yaml"),
+    verify_load_error(File.expand_path_relative_to_caller("bad_config.yaml"),
                       "",
                       "ConfigToolkit::YAMLReader#read returned Array rather than Hash")
 
@@ -298,26 +327,111 @@ class BaseConfigTest < Test::Unit::TestCase
 
     verify_load_error(MACHINES_CONFIG_FILE_NAME,
                       "bad_num_cpus",
-                      "error setting parameter bad_num_cpus.num_cpus with value -2: num_cpus must be greater than zero.")
+                      "error setting bad_num_cpus.num_cpus with value -2: num_cpus must be greater than zero.")
 
     verify_load_error(MACHINES_CONFIG_FILE_NAME,
                       "bad_addresses_element_type",
-                      "error setting parameter bad_addresses_element_type.addresses[0] with value 2: cannot convert from value class Fixnum to specified class URI.")
+                      "error setting bad_addresses_element_type.addresses[0] with value 2: cannot convert from value class Fixnum to specified class URI.")
 
     verify_load_error(MACHINES_CONFIG_FILE_NAME,
                       "bad_addresses_max_num_elements",
-                      "error setting parameter bad_addresses_max_num_elements.addresses with value [http://test.designingpatterns.com, http://bananna.designingpatterns.com, http://fruitsalad.designingpatterns.com, http://parfait.designingpatterns.com]: the number of elements (4) is greater than the specified maximum number of elements (3).")
+                      "error setting bad_addresses_max_num_elements.addresses with value [http://test.designingpatterns.com, http://bananna.designingpatterns.com, http://fruitsalad.designingpatterns.com, http://parfait.designingpatterns.com]: the number of elements (4) is greater than the specified maximum number of elements (3).")
 
     verify_load_error(MACHINES_CONFIG_FILE_NAME,
                       "bad_addresses_min_num_elements",
-                      "error setting parameter bad_addresses_min_num_elements.addresses with value [http://bananna.designingpatterns.com]: the number of elements (1) is less than the specified minimum number of elements (2).")
+                      "error setting bad_addresses_min_num_elements.addresses with value [http://bananna.designingpatterns.com]: the number of elements (1) is less than the specified minimum number of elements (2).")
 
     verify_load_error(MACHINES_CONFIG_FILE_NAME,
                       "bad_contains_sensitive_data_behind_firewall_combo",
-                      "BaseConfigTest::MachineConfig#validate_all_values load error for bad_contains_sensitive_data_behind_firewall_combo: a machine cannot contain sensitive data and not be behind the firewall")
+                      "BaseConfigTest::MachineConfig#validate_all_values error for bad_contains_sensitive_data_behind_firewall_combo: a machine cannot contain sensitive data and not be behind the firewall")
 
     verify_load_group_error(MACHINES_CONFIG_FILE_NAME,
                             "bad_group",
                             "error: BaseConfigTest::MachineConfig.load_group found Array rather than Hash when reading the bad_group.bad_element containing object")
   end
+
+  class BadConfig < ConfigToolkit::BaseConfig
+    add_optional_param(:optional_param_with_default_value, String, "hello")
+    add_optional_param(:optional_param_without_default_value, String)
+  end
+
+  def test_configuration_definition
+    assert_raise_message("error setting default value for bad_param with value nil: cannot convert from value class NilClass to specified class Fixnum.", ConfigToolkit::Error) do
+      BadConfig.send(:add_optional_param, :bad_param, Fixnum, nil)
+    end
+
+    assert_raise_message("error setting default value for bad_param with value 1: cannot convert from value class Fixnum to specified class String.", ConfigToolkit::Error) do
+      BadConfig.send(:add_optional_param, :bad_param, String, 1)
+    end
+    
+    #
+    # After initializing a BadConfig instance with no parameters:
+    # * optional_param_with_default_value should have its default value of
+    #   "hello"
+    # * optional_param_without_default_value should have no value
+    #
+    config = BadConfig.new() do
+    end
+
+    assert(config.optional_param_with_default_value?)
+    assert_equal("hello", config.optional_param_with_default_value)
+
+    assert_not(config.optional_param_without_default_value?)
+    assert_equal(nil, config.optional_param_without_default_value)
+  end
+
+  class NestedConfig < ConfigToolkit::BaseConfig
+    add_required_param(:name, String)
+  end
+
+  class ConfigWithNestedConfig < ConfigToolkit::BaseConfig
+    add_optional_param(:nested_config,
+                       NestedConfig,
+                       NestedConfig.new() { |config| config.name = "stuff" })
+  end
+
+  def test_nested_config
+    #
+    # Test the basic setter functionality with nested config instances.
+    # In particular, verify that a default nested config parameter value
+    # correctly is set (with the value being duped).
+    #
+    config1 = ConfigWithNestedConfig.new() { |config| }
+    assert_equal("stuff", config1.nested_config.name)
+    config1.nested_config.name = "stuff2"
+    assert_equal("stuff2", config1.nested_config.name)
+
+    config2 = ConfigWithNestedConfig.new() { |config| }
+    assert_equal("stuff", config2.nested_config.name)
+    assert_equal("stuff2", config1.nested_config.name) # Should be unchanged
+  end
+
+  class ConfigWithNestedArray < ConfigToolkit::BaseConfig
+    add_optional_param(:nested_array, Array, [1, 2, 3])
+  end
+
+  def test_nested_array
+    #
+    # Test that Array (not ConfigToolkit::ConstrainedArray) can be
+    # specified as a parameter value class.
+    #
+    config1 = ConfigWithNestedArray.new() { |c| }
+    assert_equal([1, 2, 3], config1.nested_array)
+    config1.nested_array = ["a", "b", "c"]
+
+    config2 = ConfigWithNestedArray.new() { |c| }
+    assert_equal([1, 2, 3], config2.nested_array)
+    assert_equal(["a", "b", "c"], config1.nested_array) # Should be unchanged
+  end
+
+  def test_hash_array_visitor
+    #
+    # The core functionality adequately is tested by the various writer
+    # unit tests.
+    #
+    visitor = ConfigToolkit::HashArrayVisitor.new()
+    assert_raise_message("The argument to HashArrayVisitor::visit must be a Hash or Array; instead, a Fixnum (3) was passed!", ArgumentError) do
+      visitor.visit(3)
+    end
+  end
 end