Author: gisle.aas
Date: Wed Oct 22 04:21:46 2008
New Revision: 536
Modified:
trunk/test.pl
Log:
Make 'test.pl 5' run all the <test05.*> tests
Modified: trunk/test.pl
==============================================================================
--- trunk/test.pl (original)
+++ trunk/test.pl Wed Oct 22 04:21:46 2008
@@ -65,7 +65,12 @@
my $tests_per_extn = {p => 1, rdt => 1, x => 3};
-s:^t/:: for @ARGV; # allow args to use t/ prefix
[EMAIL PROTECTED] = map {
+ s:^t/::; # allow args to use t/ prefix
+ s:^(\d)$:0$1:; # allow single digit tests
+ s:^(\d+)$:test$1:; # can skip test prefix
+ $_ =~ /\./ ? $_ : <$_.*>
+} @ARGV;
# *.p = perl code to profile
# *.rdt = result tsv data dump to verify
--~--~---------~--~----~------------~-------~--~----~
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [EMAIL PROTECTED]
-~----------~----~----~----~------~----~------~--~---
