[svn:parrot] r48647 - in branches/tt677_toolsdirs/t: codingstd tools
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Wed Aug 25 00:02:30 UTC 2010
Author: jkeenan
Date: Wed Aug 25 00:02:29 2010
New Revision: 48647
URL: https://trac.parrot.org/parrot/changeset/48647
Log:
Correct construction of paths to programs inside corresponding test files.
Modified:
branches/tt677_toolsdirs/t/codingstd/perlcritic.t
branches/tt677_toolsdirs/t/tools/dump_pbc.t
branches/tt677_toolsdirs/t/tools/pgegrep.t
Modified: branches/tt677_toolsdirs/t/codingstd/perlcritic.t
==============================================================================
--- branches/tt677_toolsdirs/t/codingstd/perlcritic.t Tue Aug 24 23:32:32 2010 (r48646)
+++ branches/tt677_toolsdirs/t/codingstd/perlcritic.t Wed Aug 25 00:02:29 2010 (r48647)
@@ -22,7 +22,7 @@
violations.
This test uses a standard perlcriticrc file, located in
-F<tools/utils/perlcritic.conf>
+F<tools/dev/perlcritic.conf>
If you wish to run a specific policy, the easiest way to do so is to
temporarily add a custom theme to the configuration file and then specify
@@ -62,7 +62,7 @@
'theme=s' => \$theme
);
-my $config = File::Spec->catfile( $PConfig{build_dir}, qw{tools util perlcritic.conf} );
+my $config = File::Spec->catfile( $PConfig{build_dir}, qw{tools dev perlcritic.conf} );
Test::Perl::Critic->import(
-profile => $config,
Modified: branches/tt677_toolsdirs/t/tools/dump_pbc.t
==============================================================================
--- branches/tt677_toolsdirs/t/tools/dump_pbc.t Tue Aug 24 23:32:32 2010 (r48646)
+++ branches/tt677_toolsdirs/t/tools/dump_pbc.t Wed Aug 25 00:02:29 2010 (r48647)
@@ -4,7 +4,7 @@
=head1 NAME
-t/tools/dumb_pbc.t - test the script tools/utils/dump_pbc.pl
+t/tools/dumb_pbc.t - test the script tools/dev/dump_pbc.pl
=head1 SYNOPSIS
@@ -34,7 +34,7 @@
my $PARROT = ".$PConfig{slash}$PConfig{test_prog}";
system( "$PARROT --output $pbc_fn $pir_fn" );
- my $cmd = File::Spec->catfile( qw{. tools util dump_pbc.pl} );
+ my $cmd = File::Spec->catfile( qw{. tools dev dump_pbc.pl} );
my $out = `$PConfig{perl} $cmd $pbc_fn`;
like( $out, $snippet, $desc );
Modified: branches/tt677_toolsdirs/t/tools/pgegrep.t
==============================================================================
--- branches/tt677_toolsdirs/t/tools/pgegrep.t Tue Aug 24 23:32:32 2010 (r48646)
+++ branches/tt677_toolsdirs/t/tools/pgegrep.t Wed Aug 25 00:02:29 2010 (r48647)
@@ -4,7 +4,7 @@
=head1 NAME
-t/tools/pgegrep.t - test the script tools/utils/pgegrep
+t/tools/pgegrep.t - test the script tools/dev/pgegrep
=head1 SYNOPSIS
@@ -34,7 +34,7 @@
my ($options, $snippet, $desc) = @_;
my $PARROT = ".$PConfig{slash}$PConfig{test_prog}";
- my $pgegrep = File::Spec->catfile( qw{. tools util pgegrep} );
+ my $pgegrep = File::Spec->catfile( qw{. tools dev pgegrep} );
my $out = `$PARROT $pgegrep $options`;
like( $out, $snippet, $desc );
More information about the parrot-commits
mailing list