[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