Continue to convert steps tests to use of Parrot configuration data.

git-svn-id: https://svn.parrot.org/parrot/branches/configtests@42256 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

t/steps/init/headers-01.t

@@ -13,11 +13,12 @@ use File::Temp qw(tempdir);
 use Tie::File;
 use lib qw( lib );
 use_ok('config::init::headers');
-use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
 use Parrot::Configure::Step::Test;
+use Parrot::Configure::Test qw(
+    test_step_constructor_and_description
+);
 
-my $pkg  = q{init::headers};
 my ($args, $step_list_ref) = process_options(
     {
         argv => [],
@@ -28,16 +29,11 @@ my ($args, $step_list_ref) = process_options(
 my $conf = Parrot::Configure::Step::Test->new;
 $conf->include_config_results( $args );
 
+my $pkg  = q{init::headers};
 $conf->add_steps($pkg);
 $conf->options->set( %{$args} );
 
-my $task        = $conf->steps->[-1];
-my $step_name   = $task->step;
-
-my $step = $step_name->new();
-ok( defined $step, "$step_name constructor returned defined value" );
-isa_ok( $step, $step_name );
-ok( $step->description(), "$step_name has description" );
+my $step = test_step_constructor_and_description($conf);
 
 my $cwd = cwd();
 {