Author: jkeenan
Date: Wed Aug 6 19:27:56 2008
New Revision: 30077
Modified:
branches/scriptconfigure/t/configure/062-options_conf_file.t
Log:
Add more tests for internals of Parrot::Configure::Options::Conf::File.
Modified: branches/scriptconfigure/t/configure/062-options_conf_file.t
==============================================================================
--- branches/scriptconfigure/t/configure/062-options_conf_file.t
(original)
+++ branches/scriptconfigure/t/configure/062-options_conf_file.t Wed Aug
6 19:27:56 2008
@@ -51,8 +51,9 @@
$data->{debugging} = 1;
$data->{maintainer} = undef;
my %valid_step_options = map {$_ => 1} @shared_valid_options;
-$data = Parrot::Configure::Options::Conf::File::_set_general($data,
$substitutions, $general,
- \%valid_step_options);
+$data = Parrot::Configure::Options::Conf::File::_set_general(
+ $data, $substitutions, $general, \%valid_step_options
+);
my $cc = q{/usr/bin/gcc};
is_deeply($data,
{
@@ -66,6 +67,40 @@
"Got expected return value for _set_general()"
);
+my $steps = <<END;
+
+init::manifest nomanicheck
+init::defaults
+auto::icu without-icu
+
+#auto::perldoc
+END
+
+my $steps_list_ref;
+($data, $steps_list_ref) = Parrot::Configure::Options::Conf::File::_set_steps(
+ $data, $steps, \%valid_step_options);
+is_deeply($data,
+ {
+ debugging => 1,
+ maintainer => undef,
+ cc => $cc,
+ verbose => 1,
+ configure_trace => 1,
+ 'verbose-step' => 'init::hints',
+ nomanicheck => 1,
+ 'without-icu' => 1,
+ },
+ "Got expected return value for 'data' from _set_steps()"
+);
+is_deeply($steps_list_ref,
+ [ qw(
+ init::manifest
+ init::defaults
+ auto::icu
+ ) ],
+ "Got expected list of configuration steps"
+);
+
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
