apfs/apfstests
0
0
Fork 0
mirror of https://github.com/linux-apfs/apfstests.git synced 2026-05-01 15:01:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

lsqa.pl: update for new tests layout

Browse Source 
Accepted parameter types:
- nothing - list all tests from all subdirectories in tests/*
- tests/DIR - list all tests from DIR
- tests/DIR/123 - show header from single test

Signed-off-by: David Sterba <dsterba@suse.cz>
Reviewed-by: Dave Chinner <dchinner@redhat.com>
Signed-off-by: Dave Chinner <david@fromorbit.com>
This commit is contained in:
David Sterba
2014-01-20 13:28:39 +11:00
committed by Dave Chinner
parent d7e5b7f8f6
commit a050cb00c7
1 changed files with 24 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lsqa.pl
+24 -8
View File
@@ -15,13 +15,20 @@
# along with this program; if not, write the Free Software Foundation,
# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
#
# Print headers of given tests
# Accepted parameter types:
# - nothing - list all tests from all subdirectories in tests/*
# - tests/DIR - list all tests from DIR
# - tests/DIR/123 - show header from single test
use strict;
use Getopt::Long;
sub help();
sub get_qa_header($);
sub get_qa_tests();
sub get_qa_tests;
my %opt;
@@ -43,8 +50,19 @@ if ($opt{'help'}) {
die help();
}
my @qatests = map {sprintf("%03d", $_)} @ARGV;
@qatests = get_qa_tests() unless (@qatests);
my @qatests;
if (!@ARGV) {
my $d="tests";
opendir(DIR, $d);
map { push @qatests,get_qa_tests("$d/$_") if -d "$d/$_" } readdir(DIR);
closedir(DIR);
}
foreach (@ARGV) {
push @qatests,$_ if -f && /\d{3}$/;
push @qatests,get_qa_tests($_) if -d;
}
foreach (@qatests) {
my @h = get_qa_header($_);
@@ -103,13 +121,11 @@ sub get_qa_header($) {
return @l;
}
sub get_qa_tests() {
sub get_qa_tests {
my $d = shift || $ENV{'PWD'};
opendir(my $DIR, $d) || die "can't opendir $d: $!";
my @qa = grep {m/^\d\d\d$/ && -f "$d/$_" } readdir($DIR);
my @qa = sort grep { m/^\d\d\d$/ && -f "$d/$_" } readdir($DIR);
closedir($DIR);
return @qa;
return map { $_ = "$d/$_" } @qa;
}