Skip to content

Commit

Permalink
Convert test to more up-to-date testing procedure (Parrot::Configure:…
Browse files Browse the repository at this point in the history
…:Step::Test).

git-svn-id: https://svn.parrot.org/parrot/trunk@49551 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information
jkeenan committed Oct 15, 2010
1 parent 45707d4 commit 9f7505c
Showing 1 changed file with 5 additions and 10 deletions.
15 changes: 5 additions & 10 deletions t/steps/auto/llvm-01.t
Expand Up @@ -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 );
Expand All @@ -28,13 +25,11 @@ my ($args, $step_list_ref) = process_options( {
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);
Expand All @@ -53,7 +48,7 @@ $conf->replenish($serialized);
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);
Expand Down

0 comments on commit 9f7505c

Please sign in to comment.