Author: jkeenan
Date: Sat Jul 19 19:21:46 2008
New Revision: 29625
Added:
branches/parallel/t/steps/inter_yacc-02.t
- copied, changed from r29614, /branches/parallel/t/steps/inter_yacc-03.t
Removed:
branches/parallel/t/steps/inter_yacc-03.t
Modified:
branches/parallel/MANIFEST
Log:
Renumber test file to maintain uninterrupted sequence.
Modified: branches/parallel/MANIFEST
==============================================================================
--- branches/parallel/MANIFEST (original)
+++ branches/parallel/MANIFEST Sat Jul 19 19:21:46 2008
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Jul 20 02:18:25 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun Jul 20 02:20:58 2008 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -3677,7 +3677,7 @@
t/steps/inter_shlibs-01.t []
t/steps/inter_types-01.t []
t/steps/inter_yacc-01.t []
-t/steps/inter_yacc-03.t []
+t/steps/inter_yacc-02.t []
t/stm/basic.t []
t/stm/basic_mt.t []
t/stm/llqueue.t []
Copied: branches/parallel/t/steps/inter_yacc-02.t (from r29614,
/branches/parallel/t/steps/inter_yacc-03.t)
==============================================================================
--- /branches/parallel/t/steps/inter_yacc-03.t (original)
+++ branches/parallel/t/steps/inter_yacc-02.t Sat Jul 19 19:21:46 2008
@@ -1,11 +1,11 @@
#! perl
# Copyright (C) 2007, The Perl Foundation.
# $Id$
-# inter_yacc-03.t
+# inter_yacc-02.t
use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 12;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
@@ -13,7 +13,11 @@
use_ok('config::inter::yacc');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Test qw( test_step_thru_runstep);
+use Parrot::Configure::Test qw(
+ test_step_thru_runstep
+ rerun_defaults_for_testing
+ test_step_constructor_and_description
+);
my $args = process_options(
{
@@ -31,18 +35,13 @@
$conf->add_steps($pkg);
$conf->options->set( %{$args} );
-
-$task = $conf->steps->[-1];
-$step_name = $task->step;
-
-$step = $step_name->new();
-ok( defined $step, "$step_name constructor returned defined value" );
-isa_ok( $step, $step_name );
-
-$ret = $step->runstep($conf);
-is( $ret, undef, "$step_name runstep() returned undefined value" );
+my $step = test_step_constructor_and_description($conf);
+my $ret = $step->runstep($conf);
+is( $ret, undef, "runstep() returned undefined value" );
my $result_expected = q{no yacc program was found};
is( $step->result(), $result_expected, "Result was $result_expected" );
+# re-set for next step
+$step->set_result(q{});
pass("Completed all tests in $0");
@@ -50,11 +49,11 @@
=head1 NAME
-inter_yacc-03.t - test config::inter::yacc
+inter_yacc-02.t - test config::inter::yacc
=head1 SYNOPSIS
- % prove t/steps/inter_yacc-03.t
+ % prove t/steps/inter_yacc-02.t
=head1 DESCRIPTION
