[svn:parrot] r49551 - trunk/t/steps/auto

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Fri Oct 15 16:52:36 2010
New Revision: 49551
URL: https://trac.parrot.org/parrot/changeset/49551

Log:
Convert test to more up-to-date testing procedure (Parrot::Configure::Step::Test).

Modified:
   trunk/t/steps/auto/llvm-01.t

Modified: trunk/t/steps/auto/llvm-01.t
==============================================================================
--- trunk/t/steps/auto/llvm-01.t	Fri Oct 15 16:39:58 2010	(r49550)
+++ trunk/t/steps/auto/llvm-01.t	Fri Oct 15 16:52:36 2010	(r49551)
@@ -6,17 +6,14 @@
 use strict;
 use warnings;
 use File::Temp qw( tempdir );
-use Test::More tests =>  69;
+use Test::More tests =>  56;
 use Carp;
 use lib qw( lib t/configure/testlib );
-use_ok('config::init::defaults');
-use_ok('config::inter::progs');
 use_ok('config::auto::llvm');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
+use Parrot::Configure::Step::Test;
 use Parrot::Configure::Test qw(
-    test_step_thru_runstep
-    rerun_defaults_for_testing
     test_step_constructor_and_description
 );
 use IO::CaptureOutput qw( capture );
@@ -28,13 +25,11 @@
     mode => q{configure},
 } );
 
-my $conf = Parrot::Configure->new;
+my $conf = Parrot::Configure::Step::Test->new;
+$conf->include_config_results( $args );
 
 my $serialized = $conf->pcfreeze();
 
-test_step_thru_runstep($conf, q{init::defaults}, $args);
-test_step_thru_runstep($conf, q{inter::progs},   $args);
-
 my $pkg = q{auto::llvm};
 
 $conf->add_steps($pkg);
@@ -53,7 +48,7 @@
     argv => [ q{--verbose} ],
     mode => q{configure},
 } );
-rerun_defaults_for_testing($conf, $args );
+
 $conf->add_steps($pkg);
 $conf->options->set( %{$args} );
 $step = test_step_constructor_and_description($conf);