[svn:parrot] r42307 - branches/configtests/t/steps/auto

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Fri Nov 6 13:19:51 UTC 2009


Author: jkeenan
Date: Fri Nov  6 13:19:51 2009
New Revision: 42307
URL: https://trac.parrot.org/parrot/changeset/42307

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

Modified:
   branches/configtests/t/steps/auto/ctags-01.t
   branches/configtests/t/steps/auto/env-01.t
   branches/configtests/t/steps/auto/revision-01.t
   branches/configtests/t/steps/auto/snprintf-01.t
   branches/configtests/t/steps/auto/thread-01.t

Modified: branches/configtests/t/steps/auto/ctags-01.t
==============================================================================
--- branches/configtests/t/steps/auto/ctags-01.t	Fri Nov  6 13:19:30 2009	(r42306)
+++ branches/configtests/t/steps/auto/ctags-01.t	Fri Nov  6 13:19:51 2009	(r42307)
@@ -9,10 +9,9 @@
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::auto::ctags');
-use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
+use Parrot::Configure::Step::Test;
 use Parrot::Configure::Test qw(
-    test_step_thru_runstep
     test_step_constructor_and_description
 );
 use IO::CaptureOutput qw( capture );
@@ -24,7 +23,8 @@
     mode => q{configure},
 } );
 
-my $conf = Parrot::Configure->new;
+my $conf = Parrot::Configure::Step::Test->new;
+$conf->include_config_results( $args );
 
 my $pkg = q{auto::ctags};
 

Modified: branches/configtests/t/steps/auto/env-01.t
==============================================================================
--- branches/configtests/t/steps/auto/env-01.t	Fri Nov  6 13:19:30 2009	(r42306)
+++ branches/configtests/t/steps/auto/env-01.t	Fri Nov  6 13:19:51 2009	(r42307)
@@ -5,16 +5,13 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  29;
+use Test::More tests =>  24;
 use Carp;
 use lib qw( lib t/configure/testlib );
-use_ok('config::init::defaults');
 use_ok('config::auto::env');
-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 );
@@ -26,9 +23,8 @@
     mode            => q{configure},
 } );
 
-my $conf = Parrot::Configure->new();
-
-test_step_thru_runstep($conf, q{init::defaults}, $args);
+my $conf = Parrot::Configure::Step::Test->new;
+$conf->include_config_results( $args );
 
 my $pkg = q{auto::env};
 

Modified: branches/configtests/t/steps/auto/revision-01.t
==============================================================================
--- branches/configtests/t/steps/auto/revision-01.t	Fri Nov  6 13:19:30 2009	(r42306)
+++ branches/configtests/t/steps/auto/revision-01.t	Fri Nov  6 13:19:51 2009	(r42307)
@@ -9,10 +9,9 @@
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::auto::revision');
-use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
+use Parrot::Configure::Step::Test;
 use Parrot::Configure::Test qw(
-    test_step_thru_runstep
     test_step_constructor_and_description
 );
 
@@ -25,7 +24,8 @@
     }
 );
 
-my $conf = Parrot::Configure->new;
+my $conf = Parrot::Configure::Step::Test->new;
+$conf->include_config_results( $args );
 
 my $pkg = q{auto::revision};
 

Modified: branches/configtests/t/steps/auto/snprintf-01.t
==============================================================================
--- branches/configtests/t/steps/auto/snprintf-01.t	Fri Nov  6 13:19:30 2009	(r42306)
+++ branches/configtests/t/steps/auto/snprintf-01.t	Fri Nov  6 13:19:51 2009	(r42307)
@@ -5,18 +5,13 @@
 
 use strict;
 use warnings;
-use Test::More tests => 33;
+use Test::More tests => 18;
 use Carp;
 use lib qw( lib t/configure/testlib );
-use_ok('config::init::defaults');
-use_ok('config::init::hints');
-use_ok('config::auto::attributes');
 use_ok('config::auto::snprintf');
-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,11 +23,8 @@
     mode            => q{configure},
 } );
 
-my $conf = Parrot::Configure->new();
-
-test_step_thru_runstep($conf, q{init::defaults}, $args);
-test_step_thru_runstep($conf, q{init::hints}, $args);
-test_step_thru_runstep($conf, q{auto::attributes}, $args);
+my $conf = Parrot::Configure::Step::Test->new;
+$conf->include_config_results( $args );
 
 my $pkg = q{auto::snprintf};
 

Modified: branches/configtests/t/steps/auto/thread-01.t
==============================================================================
--- branches/configtests/t/steps/auto/thread-01.t	Fri Nov  6 13:19:30 2009	(r42306)
+++ branches/configtests/t/steps/auto/thread-01.t	Fri Nov  6 13:19:51 2009	(r42307)
@@ -8,14 +8,11 @@
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::auto::thread');
-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 );
 
 ########## --without-threads ##########
 
@@ -26,7 +23,8 @@
     }
 );
 
-my $conf = Parrot::Configure->new;
+my $conf = Parrot::Configure::Step::Test->new;
+$conf->include_config_results( $args );
 
 my $pkg = q{auto::thread};
 


More information about the parrot-commits mailing list