Navigation

Changeset 256

Timestamp:

04/24/07 16:43:36 (2 years ago)

Author:

kindlund

Message:

Finished initial implementation of multi-value XML configuration data.

Files:

r233	r256
84	84	-1
85	85	</max_relative_links_to_visit>
86		<goodwords description="A comma-separated list of good words which will increase the score of links within a webpage." default="">
	86	<goodwords description="A comma-separated list of good words which will increase the score of links within a webpage." default="">
87	87	news,new,big,latest,main,update,sell,free,buy
88	88	</goodwords>
89		<badwords description="A comma-separated list of bad words which will decrease the score of links within a webpage." default="">
	89	<badwords description="A comma-separated list of bad words which will decrease the score of links within a webpage." default="">
90	90	archive,privacy,legal,disclaim,about,contact,copyright,jobs,careers
91	91	</badwords>
…	…
364	364	</Bar>
365	365	</Foo>
	366	<Yok>
	367	<childA>12345678</childA>
	368	<childA>ABCDEFGH</childA>
	369	<childB>09876543</childB>
	370	<childB>ZYXVTUWG</childB>
	371	</Yok>
366	372	</Test>
367	373	</Config>

r255	r256
441	441	or diag("The getVar() call failed. Attempted to get attribute 'default' for variable 'address' using namespace 'HoneyClient::Util::Config::Test::Undefined::Child' within the global configuration file.");
442	442
	443	# This check tests to make sure getVar() returns the expected hashref
	444	# when getting data from a target element that contains child sub-elements.
	445	$value = getVar(name => "Yok", namespace => "HoneyClient::Util::Config::Test");
	446	my $expectedValue = {
	447	'childA' => [ '12345678', 'ABCDEFGH' ],
	448	'childB' => [ '09876543', 'ZYXVTUWG' ],
	449	};
	450	is_deeply($value, $expectedValue, "getVar(name => 'Yok', namespace => 'HoneyClient::Util::Config::Test')")
	451	or diag("The getVar() call failed. Attempted to get variable 'Yok' using namespace 'HoneyClient::Util::Config::Test' within the global configuration file.");
	452
443	453	=end testing
444	454

r131	r256
83	83	is($value, "localhost", "getVar(name => 'address', namespace => 'HoneyClient::Util::Config::Test::Undefined::Child', attribute => 'default')")
84	84	or diag("The getVar() call failed. Attempted to get attribute 'default' for variable 'address' using namespace 'HoneyClient::Util::Config::Test::Undefined::Child' within the global configuration file.");
	85
	86	# This check tests to make sure getVar() returns the expected hashref
	87	# when getting data from a target element that contains child sub-elements.
	88	$value = getVar(name => "Yok", namespace => "HoneyClient::Util::Config::Test");
	89	my $expectedValue = {
	90	'childA' => [ '12345678', 'ABCDEFGH' ],
	91	'childB' => [ '09876543', 'ZYXVTUWG' ],
	92	};
	93	is_deeply($value, $expectedValue, "getVar(name => 'Yok', namespace => 'HoneyClient::Util::Config::Test')")
	94	or diag("The getVar() call failed. Attempted to get variable 'Yok' using namespace 'HoneyClient::Util::Config::Test' within the global configuration file.");
85	95	}
86	96