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

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Fri Oct 15 15:35:08 2010
New Revision: 49547
URL: https://trac.parrot.org/parrot/changeset/49547

Log:
Provide test for successful completion of runstep().

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

Modified: trunk/t/steps/auto/stat-01.t
==============================================================================
--- trunk/t/steps/auto/stat-01.t	Fri Oct 15 15:07:21 2010	(r49546)
+++ trunk/t/steps/auto/stat-01.t	Fri Oct 15 15:35:08 2010	(r49547)
@@ -5,12 +5,15 @@
 
 use strict;
 use warnings;
-use Test::More tests =>   9;
+use Test::More tests =>  20;
 use lib qw( lib t/configure/testlib );
+use_ok('config::init::defaults');
+use_ok('config::inter::progs');
 use_ok('config::auto::stat');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
 use Parrot::Configure::Test qw(
+    test_step_thru_runstep
     test_step_constructor_and_description
 );
 
@@ -23,11 +26,15 @@
 
 my $conf = Parrot::Configure->new;
 
+test_step_thru_runstep($conf, q{init::defaults}, $args);
+test_step_thru_runstep($conf, q{inter::progs},   $args);
+
 my $pkg = q{auto::stat};
 
 $conf->add_steps($pkg);
 $conf->options->set( %{$args} );
 my $step = test_step_constructor_and_description($conf);
+ok($step->runstep($conf), "${pkg}::runstep() returned true value");
 
 ##### _handle_bsd_stat #####